version 1.1, 2004/09/08 19:42:09
|
version 1.2, 2005/04/07 01:50:49
|
Line 7 use Date::Manip;
|
Line 7 use Date::Manip;
|
|
|
my $start_time=&UnixDate("Aug 30th 00:00:00 2004","%s"); |
my $start_time=&UnixDate("Aug 30th 00:00:00 2004","%s"); |
my @counts=('1','10','100','1000','10000','100000','250000'); |
my @counts=('1','10','100','1000','10000','100000','250000'); |
|
my @ignored_users=('^itds\d+$'); |
|
|
|
|
sub only_user_activitylog_files { |
sub only_user_activitylog_files { |
Line 22 sub process_activitylog_file {
|
Line 23 sub process_activitylog_file {
|
open(FILE,"<$File::Find::name"); |
open(FILE,"<$File::Find::name"); |
$numusers++; |
$numusers++; |
my $user=(split('/',$File::Find::dir))[-1]; |
my $user=(split('/',$File::Find::dir))[-1]; |
|
foreach my $expr (@ignored_users) { |
|
if ($user=~/$expr/) { print("\nignoring $user\n"); return; } |
|
} |
while (my $line=<FILE>) { |
while (my $line=<FILE>) { |
if ($line !~ /Login/) { next; } |
if ($line !~ /Login/) { next; } |
my ($date)=split(':',$line,2); |
my ($date)=split(':',$line,2); |