File: lastlogin.pl

package info (click to toggle)
bnetd 0.4.25-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 4,516 kB
  • ctags: 7,224
  • sloc: ansic: 67,547; sh: 3,142; makefile: 796; python: 304; perl: 211; awk: 73
file content (30 lines) | stat: -rwxr-xr-x 909 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#!/usr/bin/perl

#Usage: lastlogins.pl <user directory>

$ARGV[1] eq "" && die "error arguments"; 

$userdir=$ARGV[0]; 
opendir(DIR,$userdir) || die "error open dir $userdir"; 
@files= grep { /^[^.]/ && -f "$userdir/$_" } readdir(DIR); 
closedir DIR; 

$tbl{'name'}='"BNET\\acct\\lastlogin_time"'; 
foreach (@files) { 
        open(S_FILE,"$s_dir/$_") || die "error open s_file"; 
        $dest_file=lc("$d_dir/$_"); 
        while (<S_FILE>) { 
                chop($_); 
                ($name,$value)=split(/:/,$_); 
                foreach (keys %tbl) { 
                        if ($_ eq $name) { 
                                if ( $_ eq "password" ) { 
                                         $value=&passconv($value); 
                                } 
                                break; 
                        } 
                } 
        } 
        $userid++; 
        close(S_FILE); 
}