version 1.7, 2003/09/01 03:37:27
|
version 1.9, 2004/01/14 01:39:14
|
Line 50 sub analyze_time {
|
Line 50 sub analyze_time {
|
my $userclass=$actl[0]; |
my $userclass=$actl[0]; |
if ($since>300) { $color="#222222"; } |
if ($since>300) { $color="#222222"; } |
if ($since>600) { $color="#444444"; } |
if ($since>600) { $color="#444444"; } |
if ($since>3600) { $color="#666666"; $userclass=$actl[1]; } |
if ($since>1800) { $color="#666666"; $userclass=$actl[1]; } |
if ($since>7200) { $color="#888888"; } |
if ($since>7200) { $color="#888888"; } |
if ($since>21600) { $color="#AAAAAA"; $userclass=$actl[2]; } |
if ($since>21600) { $color="#AAAAAA"; $userclass=$actl[2]; } |
return ($color,$userclass); |
return ($color,$userclass); |
Line 110 sub main {
|
Line 110 sub main {
|
$userinfo{'user.name'}."\@".$userinfo{'user.domain'}. |
$userinfo{'user.name'}."\@".$userinfo{'user.domain'}. |
")</h3>\n<b>Login time:</b> ". |
")</h3>\n<b>Login time:</b> ". |
localtime($userinfo{'user.login.time'}). |
localtime($userinfo{'user.login.time'}). |
' <b>Browser</b>: '.$userinfo{'browser.type'}." <b>Client:</b> ". |
' <b>Browser</b>: '.$userinfo{'browser.type'}. |
|
" on ".$userinfo{'browser.os'}."<b>Client:</b> ". |
$userinfo{'request.host'}."<br />\n<b>Role: </b>". |
$userinfo{'request.host'}."<br />\n<b>Role: </b>". |
$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'}); |
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'}. |
Line 144 sub main {
|
Line 146 sub main {
|
&showact('Domain',%usercount); |
&showact('Domain',%usercount); |
&showact('Course',%usercount); |
&showact('Course',%usercount); |
&show('Browser',%usercount); |
&show('Browser',%usercount); |
|
&show('OS',%usercount); |
|
|
# print "\n</pre>"; |
# print "\n</pre>"; |
print "<b>Load Average:<b> ".$loadavg; |
print "<b>Load Average:<b> ".$loadavg; |