name1:password:accesslevel 
name2:password:accesslevel

#!/usr/bin/perl -w 
use Env; 
 
$LOGDIR="hlds/cstrike/logs"; 
$USERS="hlds/cstrike/addons/adminmod/config/users.ini"; 
 
$search='\bconnected, address\b' ; 
 
 
open USERS, "<$USERS" or die "cannot open $USERS:$!"; 
 
while (<USERS>) { 
        chomp; 
        push @users,  ((split /:/)[0]); 
} 
print "search:@users\n"; 
 
 
 
@ARGV = <$LOGDIR/*.log> ; 
while (<ARGV>) { 
        next unless /$search/o; 
        s/L//; 
        s/<.*>//; 
        s/$search//o; 
        s/ /:/; 
        s/ - /-/; 
        #print; 
        my $nm = name_match( (split)[1]); 
        next unless $nm; 
        # print "$nm=>$_" if $nm; 
        my ($time, $name, $addy) = split; 
        my $stamp = fix_time ($time); 
        #print "[$stamp]\n"; 
 
        my $rec = "$stamp $time $name"; 
 
        if (exists $R{$nm}) { 
               my $t = (split " ", $R{$nm})[0]; 
               # print "if ( $stamp < $t ) \n"; 
               if ( $stamp < $t ) { 
                 $R{$nm} = $rec; 
               } 
        } else { 
                $R{$nm} = $rec; 
        } 
 
} 
print "--------------------------\n"; 
@values = sort values %R; 
foreach $v (@values) { 
        print STDOUT (split /:/, $v, 2)[1]; 
        print "\n"; 
} 
 
# compare names, log names may have attributes; like 
sub name_match { 
        my $nm = shift; 
        $nm =~ tr/"//d; 
 
        foreach $user (@users) { 
                return $user if $nm =~ /$user/; 
        } 
        return ""; 
} 
 
# convert time from  'L: MM/DD/YYYY - hh:mm:ss' to YYYYMMDDhhmmss 
# which makes time comparison a doddle 
sub fix_time { 
        local $_ = shift; 
        s/.//; 
        tr/://d; 
        my($date, $time) = split /-/; 
        my ($m, $d, $y) = split "/", $date; 
 
        return "$y$m$d$time"; 
}