loncom/debugging_tools/user_login_count.pl - diff

Return to user_login_count.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

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);