--- loncom/cgi/userstatus.pl 2003/10/30 22:52:25 1.8
+++ loncom/cgi/userstatus.pl 2004/01/14 01:39:14 1.9
@@ -1,7 +1,7 @@
#!/usr/bin/perl
$|=1;
# User Status
-# $Id: userstatus.pl,v 1.8 2003/10/30 22:52:25 albertel Exp $
+# $Id: userstatus.pl,v 1.9 2004/01/14 01:39:14 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -110,11 +110,13 @@ sub main {
$userinfo{'user.name'}."\@".$userinfo{'user.domain'}.
")\nLogin time: ".
localtime($userinfo{'user.login.time'}).
- ' Browser: '.$userinfo{'browser.type'}." Client: ".
+ ' Browser: '.$userinfo{'browser.type'}.
+ " on ".$userinfo{'browser.os'}."Client: ".
$userinfo{'request.host'}."
\nRole: ".
$userinfo{'request.role'}." ";
}
&add_count('Browser',$userinfo{'browser.type'},$userinfo{'browser.version'});
+ &add_count('OS',$userinfo{'browser.os'});
if ($userinfo{'request.course.id'}) {
my $cid=$userinfo{'request.course.id'};
my $coursename= $userinfo{'course.'.$cid.'.description'}.
@@ -144,6 +146,7 @@ sub main {
&showact('Domain',%usercount);
&showact('Course',%usercount);
&show('Browser',%usercount);
+ &show('OS',%usercount);
# print "\n";
print "Load Average: ".$loadavg;