3 # $Header: scan_sudo,v 4.0 91/03/20 01:13:44 lwall Locked $
5 # Analyze the sudo log.
7 chdir('/usr/adm/private/memories') || die "Can't cd to memories: $!\n";
9 if (open(Oldsudo,'oldsudo')) {
18 unless (open(Sudo, '/usr/adm/sudo.log')) {
19 print "Somebody removed sudo.log!!!\n" if $maxpos;
23 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
24 $blksize,$blocks) = stat(Sudo);
26 if ($size < $maxpos) {
28 print "Somebody reset sudo.log!!!\n";
37 unless ($seen{$_}++) {
44 open(tmp,'|sort >oldsudo.tmp') || die "Can't create tmp file: $!\n";
45 while ($_ = pop(@seen)) {
49 open(tmp,'oldsudo.tmp') || die "Can't reopen tmp file: $!\n";
51 print $seen{$_},":\t",$_;
54 print `(rm -f oldsudo.tmp; echo $max > oldsudo) 2>&1`;