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