--- loncom/cgi/userstatus.pl 2004/01/14 01:39:14 1.9 +++ loncom/cgi/userstatus.pl 2010/03/23 12:01:49 1.20 @@ -1,7 +1,7 @@ #!/usr/bin/perl $|=1; # User Status -# $Id: userstatus.pl,v 1.9 2004/01/14 01:39:14 albertel Exp $ +# $Id: userstatus.pl,v 1.20 2010/03/23 12:01:49 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,31 +26,32 @@ $|=1; # http://www.lon-capa.org/ # - use strict; + use lib '/home/httpd/lib/perl/'; +use Apache::lonlocal; use LONCAPA::Configuration; - +use LONCAPA::loncgi; +use LONCAPA::lonauthcgi; use HTTP::Headers; -use IO::File; +use GDBM_File; +# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf). +my $perlvar=&LONCAPA::Configuration::read_conf('loncapa.conf'); +print "Content-type: text/html\n\n"; my %usercount; my @actl=('Active','Moderately Active','Inactive'); - -print "Content-type: text/html\n\n"; - -# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf). -&main(); +&main($perlvar); sub analyze_time { my ($since)=@_; my $color="#000000"; my $userclass=$actl[0]; - if ($since>300) { $color="#222222"; } + if ($since>300) { $color="#222222"; $userclass=$actl[1]; } if ($since>600) { $color="#444444"; } - if ($since>1800) { $color="#666666"; $userclass=$actl[1]; } + if ($since>1800) { $color="#666666"; } if ($since>7200) { $color="#888888"; } if ($since>21600) { $color="#AAAAAA"; $userclass=$actl[2]; } return ($color,$userclass); @@ -68,18 +69,74 @@ sub add_count { } sub main { - my $perlvar=LONCAPA::Configuration::read_conf('loncapa.conf'); + my ($perlvar) = @_; delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed - my $oneline=($ENV{'QUERY_STRING'} eq 'simple'); - my $justsummary=($ENV{'QUERY_STRING'} eq 'summary'); - unless ($oneline) { print "
\n$filename
". + "$lt{'login'}: ". + &Apache::lonlocal::locallocaltime($userinfo{'user.login.time'}). + " $lt{'Browser'}: ".$userinfo{'browser.type'}. + " $lt{'on'} ".$userinfo{'browser.os'}." $lt{'Client'}:". + $userinfo{'request.host'}."\n"; - &showact('Overall',%usercount); - &showact('Domain',%usercount); - &showact('Course',%usercount); - &show('Browser',%usercount); - &show('OS',%usercount); + &showact('Overall',\%lt,%usercount); + &showact('Domain',\%lt,%usercount); + &showact('Course',\%lt,%usercount); + &show('Browser',\%lt,%usercount); + &show('OS',\%lt,%usercount); # print "\n"; - print "Load Average: ".$loadavg; + print "$lt{'load'}: ".$loadavg; print ""; } else { foreach my $l1 (sort keys %usercount) { @@ -168,8 +244,8 @@ sub main { } sub show { - my ($cat,%usercount)=@_; - print("
$type | "); print(join(" | ",sort(keys(%{$usercount{$cat}{$type}}))));
@@ -186,10 +262,10 @@ sub show {
}
sub showact {
- my ($cat,%usercount)=@_;
- print("$cat\n"); + my ($cat,$ltref,%usercount)=@_; + print("$ltref->{$cat}\n"); - print("
|
---|