[LON-CAPA-cvs] cvs: loncom /cgi userstatus.pl

[albertel]

albertel		Tue Jan 13 20:39:14 2004 EDT

  Modified files:              
    /loncom/cgi	userstatus.pl 
  Log:
  - showing the OS in use for fun
  
  
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.8 loncom/cgi/userstatus.pl:1.9
--- loncom/cgi/userstatus.pl:1.8	Thu Oct 30 17:52:25 2003
+++ loncom/cgi/userstatus.pl	Tue Jan 13 20:39:14 2004
@@ -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 @@
 		    $userinfo{'user.name'}."\@".$userinfo{'user.domain'}.
 		    ")</h3>\n<b>Login time:</b> ".
 		    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.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 @@
 	&showact('Domain',%usercount);
 	&showact('Course',%usercount);
 	&show('Browser',%usercount);
+	&show('OS',%usercount);
 
 #	print "\n</pre>";
 	print "<b>Load Average:<b> ".$loadavg;