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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 08 Sep 2004 19:41:23 -0000


albertel		Wed Sep  8 15:41:23 2004 EDT

  Modified files:              
    /loncom/debugging_tools	login_count.pl 
  Log:
  - use the configured time
  
  
Index: loncom/debugging_tools/login_count.pl
diff -u loncom/debugging_tools/login_count.pl:1.2 loncom/debugging_tools/login_count.pl:1.3
--- loncom/debugging_tools/login_count.pl:1.2	Fri Sep  3 16:10:39 2004
+++ loncom/debugging_tools/login_count.pl	Wed Sep  8 15:41:23 2004
@@ -25,7 +25,7 @@
     while (my $line=<FILE>) {
 	if ($line !~ /Login/) { next; }
 	my ($date)=split(':',$line,2);
-	if ($date > 1093838400) { push (@{$data{$date}},$user);	}
+	if ($date > $start_time) { push (@{$data{$date}},$user);	}
     }
     if ($numusers%100 == 0) {
 	print "\b\b\b\b\b\b\b\b\b\b\b\b\b\bDid $user";