loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.23, 2002/09/17 19:48:40	version 1.26, 2002/10/29 20:57:31
Line 56 sub handler {	Line 56 sub handler {

my $fullgraph=($ENV{'form.interface'} ne 'textual');	my $fullgraph=($ENV{'form.interface'} ne 'textual');

my $iconpath= $r->dir_config('lonIconsURL');	my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'.
	$r->dir_config('lonIconsURL');
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');
my $role = $r->dir_config('lonRole');	my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');	my $loadlim = $r->dir_config('lonLoadLim');
Line 77 sub handler {	Line 78 sub handler {
my $otherserver='http://'.$ENV{'SERVER_NAME'};	my $otherserver='http://'.$ENV{'SERVER_NAME'};
my $firsturl=$ENV{'request.firsturl'};	my $firsturl=$ENV{'request.firsturl'};
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------- Are we access server and overloaded?
if (($role eq 'access') or ($loadpercent>100.0)) {	if (($role eq 'access') && ($loadpercent>100.0)) {
$otherserver=Apache::lonnet::spareserver($loadpercent);	$otherserver=Apache::lonnet::spareserver($loadpercent);
}	}

Line 335 $domainlogo	Line 336 $domainlogo
</tr>	</tr>
</table>	</table>

	<script>
	// the if prevents the script error if the browser can't handle this
	if ( document.client.uname ) { document.client.uname.focus(); }
	</script>

ENDDOCUMENT	ENDDOCUMENT
}	}
$r->print('</body></html>');	$r->print('</body></html>');