version 1.9, 2004/01/14 01:39:14
|
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'}.', '. |
Line 116 sub main {
|
Line 118 sub main {
|
$userinfo{'request.role'}." "; |
$userinfo{'request.role'}." "; |
} |
} |
&add_count('Browser',$userinfo{'browser.type'},$userinfo{'browser.version'}); |
&add_count('Browser',$userinfo{'browser.type'},$userinfo{'browser.version'}); |
&add_count('OS',$userinfo{'browser.os'}); |
&add_count('OS',$userinfo{'browser.os'},$userinfo{'browser.type'}); |
if ($userinfo{'request.course.id'}) { |
if ($userinfo{'request.course.id'}) { |
my $cid=$userinfo{'request.course.id'}; |
my $cid=$userinfo{'request.course.id'}; |
my $coursename= $userinfo{'course.'.$cid.'.description'}. |
my $coursename= $userinfo{'course.'.$cid.'.description'}. |