loncom/debugging_tools/login_count.pl - diff

Return to login_count.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.2, 2004/09/03 20:10:39	version 1.3, 2004/09/08 19:41:23
Line 25 sub process_activitylog_file {	Line 25 sub process_activitylog_file {
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);
if ($date > 1093838400) { push (@{$data{$date}},$user); }	if ($date > $start_time) { push (@{$data{$date}},$user); }
}	}
if ($numusers%100 == 0) {	if ($numusers%100 == 0) {
print "\b\b\b\b\b\b\b\b\b\b\b\b\b\bDid $user";	print "\b\b\b\b\b\b\b\b\b\b\b\b\b\bDid $user";