loncom/debugging_tools/login_count.pl - diff

Return to login_count.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.7, 2005/03/30 18:04:53	version 1.8, 2005/04/07 01:50:49
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("Mar 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','1000000');	my @counts=('1','10','100','1000','10000','100000','250000','1000000');
	my @ignored_users=('^itds\d+$');

sub only_user_activitylog_files {	sub only_user_activitylog_files {
print (join("\n",@_));	print (join("\n",@_));
Line 23 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,$machine)=split(':',$line,3);	my ($date,$machine)=split(':',$line,3);