[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";