version 1.10, 2004/01/14 01:42:09
|
version 1.11, 2004/09/22 15:00:04
|
Line 89 sub main {
|
Line 89 sub main {
|
my $sinceacc=$now-$atime; |
my $sinceacc=$now-$atime; |
unless ($oneline || $justsummary) { print ("\n\n<hr />"); } |
unless ($oneline || $justsummary) { print ("\n\n<hr />"); } |
my %userinfo; |
my %userinfo; |
my $fh=IO::File->new($$perlvar{'lonIDsDir'}.'/'.$filename); |
($userinfo{'user.name'},undef,$userinfo{'user.domain'})= |
while (my $line=<$fh>) { |
split('_',$filename); |
chomp($line); |
|
my ($name,$value)=split(/\=/,$line); |
|
$userinfo{$name}=$value; |
|
} |
|
$fh->close(); |
|
my ($color,$userclass)=&analyze_time($since); |
my ($color,$userclass)=&analyze_time($since); |
&add_count('Overall','all',$userclass); |
&add_count('Overall','all',$userclass); |
&add_count('Domain',$userinfo{'user.domain'},$userclass); |
&add_count('Domain',$userinfo{'user.domain'},$userclass); |
|
|
unless ($oneline) { |
unless ($oneline) { |
|
my $fh=IO::File->new($$perlvar{'lonIDsDir'}.'/'.$filename); |
|
while (my $line=<$fh>) { |
|
chomp($line); |
|
my ($name,$value)=split(/\=/,$line); |
|
$userinfo{$name}=$value; |
|
} |
|
$fh->close(); |
if (!$justsummary) { |
if (!$justsummary) { |
print '<font color="'.$color.'">'; |
print '<font color="'.$color.'">'; |
print '<h3>'.$userinfo{'environment.lastname'}.', '. |
print '<h3>'.$userinfo{'environment.lastname'}.', '. |