loncom/debugging_tools/login_count.pl - diff

Return to login_count.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.6, 2005/03/30 17:41:30	version 1.7, 2005/03/30 18:04:53
Line 5 use lib '/home/httpd/lib/perl/';	Line 5 use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
use Date::Manip;	use Date::Manip;

my $start_time=&UnixDate("Aug 30th 00:00:00 2004","%s");	my $start_time=&UnixDate("Mar 30th 00:00:00 2004","%s");
my @counts=('1','10','100','1000','10000','100000','250000','1000000');	my @counts=('1','10','100','1000','10000','100000','250000','1000000');


Line 26 sub process_activitylog_file {	Line 26 sub process_activitylog_file {
while (my $line=<FILE>) {	while (my $line=<FILE>) {
if ($line !~ /Login/) { next; }	if ($line !~ /Login/) { next; }
my ($date,$machine)=split(':',$line,3);	my ($date,$machine)=split(':',$line,3);
if ($date > $start_time) { push (@{$data{$date}},$user); }	if ($date > $start_time) {
$machine{$machine}++;	push (@{$data{$date}},$user);
	$machine{$machine}++;
	}
}	}
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";