1#!/usr/bin/perl
2
3#Usage: lastlogins.pl <user directory>
4
5$ARGV[1] eq "" && die "error arguments";
6
7$userdir=$ARGV[0];
8opendir(DIR,$userdir) || die "error open dir $userdir";
9@files= grep { /^[^.]/ && -f "$userdir/$_" } readdir(DIR);
10closedir DIR;
11
12$tbl{'name'}='"BNET\\acct\\lastlogin_time"';
13foreach (@files) {
14        open(S_FILE,"$s_dir/$_") || die "error open s_file";
15        $dest_file=lc("$d_dir/$_");
16        while (<S_FILE>) {
17                chop($_);
18                ($name,$value)=split(/:/,$_);
19                foreach (keys %tbl) {
20                        if ($_ eq $name) {
21                                if ( $_ eq "password" ) {
22                                         $value=&passconv($value);
23                                }
24                                break;
25                        }
26                }
27        }
28        $userid++;
29        close(S_FILE);
30}
31