# The LearningOnline Network # Login Screen # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, # 1/14/00,5/29,5/30,6/1 Gerd Kortemeyer # package Apache::lonlogin; use strict; use Apache::Constants qw(:common); use Apache::File (); use Apache::lonnet(); sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; my $iconpath= $r->dir_config('lonIconsURL'); my $domain = $r->dir_config('lonDefDomain'); my $role = $r->dir_config('lonRole'); my $loadlim = $r->dir_config('lonLoadLim'); my $servadm = $r->dir_config('lonAdmEMail'); my $sysadm = $r->dir_config('lonSysEMail'); my $lonhost = $r->dir_config('lonHostID'); my $tabdir = $r->dir_config('lonTabDir'); my $loadavg; { my $loadfile=Apache::File->new('/proc/loadavg'); $loadavg=<$loadfile>; } $loadavg =~ s/\s.*//g; my $loadpercent=100*$loadavg/$loadlim; my $otherserver=''; my $firsturl=$ENV{'request.firsturl'}; # ---------------------------------------- Are we access server and overloaded? if (($role eq 'access') && ($loadpercent>100.0)) { $otherserver=Apache::lonnet::spareserver(); } # ---------------------------------------------------------- Print login screen $r->print(< The LearningOnline Network with CAPA Login
User Authentication

Username:
Password:
Domain:
Domain: $domain LON System Administration:
$sysadm
Server Administration:
$servadm
Server: $lonhost ($role)
Load: $loadpercent percent
Laboratory for
Instructional
Technology in
Education
ENDDOCUMENT return OK; } 1; __END__