version 1.144, 2010/08/26 14:16:23
|
version 1.145, 2010/09/02 09:24:42
|
Line 131 sub handler {
|
Line 131 sub handler {
|
} |
} |
my $role = $r->dir_config('lonRole'); |
my $role = $r->dir_config('lonRole'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
|
my $uloadlim= $r->dir_config('lonUserLoadLim'); |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $include = $r->dir_config('lonIncludes'); |
my $include = $r->dir_config('lonIncludes'); |
Line 151 sub handler {
|
Line 152 sub handler {
|
} |
} |
$loadavg =~ s/\s.*//g; |
$loadavg =~ s/\s.*//g; |
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
|
unless ($loadlim) { $loadpercent='---'; } |
my $userloadpercent=&Apache::lonnet::userload(); |
my $userloadpercent=&Apache::lonnet::userload(); |
|
unless ($uloadlim) { $userloadpercent='---'; } |
|
|
my $firsturl= |
my $firsturl= |
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); |
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); |