[LON-CAPA-cvs] cvs: loncom /debugging_tools login_count.pl

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 30 Mar 2005 18:04:53 -0000


albertel		Wed Mar 30 13:04:53 2005 EDT

  Modified files:              
    /loncom/debugging_tools	login_count.pl 
  Log:
  - err, oops
  
  
Index: loncom/debugging_tools/login_count.pl
diff -u loncom/debugging_tools/login_count.pl:1.6 loncom/debugging_tools/login_count.pl:1.7
--- loncom/debugging_tools/login_count.pl:1.6	Wed Mar 30 12:41:30 2005
+++ loncom/debugging_tools/login_count.pl	Wed Mar 30 13:04:53 2005
@@ -5,7 +5,7 @@
 use LONCAPA::Configuration;
 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');
 
 
@@ -26,8 +26,10 @@
     while (my $line=<FILE>) {
 	if ($line !~ /Login/) { next; }
 	my ($date,$machine)=split(':',$line,3);
-	if ($date > $start_time) { push (@{$data{$date}},$user);	}
-	$machine{$machine}++;
+	if ($date > $start_time) {
+	    push (@{$data{$date}},$user);
+	    $machine{$machine}++;
+	}
     }
     if ($numusers%100 == 0) {
 	print "\b\b\b\b\b\b\b\b\b\b\b\b\b\bDid $user";