loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.63 and 1.65

version 1.63, 2005/04/07 06:56:21	version 1.65, 2005/06/07 02:14:28
Line 179 ENDFAILED	Line 179 ENDFAILED

if ($logtoken eq 'con_lost') {	if ($logtoken eq 'con_lost') {
my $spares='';	my $spares='';
	my $last;
foreach my $hostid (keys(%Apache::lonnet::spareid)) {	foreach my $hostid (sort
	{
	$Apache::lonnet::hostname{$a} cmp
	$Apache::lonnet::hostname{$b};
	}
	keys(%Apache::lonnet::spareid)) {
next if ($hostid eq $lonhost);	next if ($hostid eq $lonhost);
	next if ($last eq $Apache::lonnet::hostname{$hostid});
$spares.='<br /><font size="+1"><a href="http://'.	$spares.='<br /><font size="+1"><a href="http://'.
$Apache::lonnet::hostname{$hostid}.	$Apache::lonnet::hostname{$hostid}.
'/adm/login?domain='.$authdomain.'">'.	'/adm/login?domain='.$authdomain.'">'.
$Apache::lonnet::hostname{$hostid}.'</a>'.	$Apache::lonnet::hostname{$hostid}.'</a>'.
' (preferred)</font>'.$/;	' (preferred)</font>'.$/;
	$last=$Apache::lonnet::hostname{$hostid};
}	}
$spares.= '<br />';	$spares.= '<br />';
foreach my $hostid (keys(%Apache::lonnet::hostname)) {	foreach my $hostid (sort
	{
	$Apache::lonnet::hostname{$a} cmp
	$Apache::lonnet::hostname{$b};
	}
	keys(%Apache::lonnet::hostname)) {
next if ($hostid eq $lonhost \|\| $Apache::lonnet::spareid{$hostid});	next if ($hostid eq $lonhost \|\| $Apache::lonnet::spareid{$hostid});
	next if ($last eq $Apache::lonnet::hostname{$hostid});
$spares.='<br /><a href="http://'.	$spares.='<br /><a href="http://'.
$Apache::lonnet::hostname{$hostid}.	$Apache::lonnet::hostname{$hostid}.
'/adm/login?domain='.$authdomain.'">'.	'/adm/login?domain='.$authdomain.'">'.
$Apache::lonnet::hostname{$hostid}.'</a>';	$Apache::lonnet::hostname{$hostid}.'</a>';
	$last=$Apache::lonnet::hostname{$hostid};
}	}
$r->print(<<ENDTROUBLE);	$r->print(<<ENDTROUBLE);
<html>	<html>
Line 303 my %lt=&Apache::lonlocal::texthash(	Line 317 my %lt=&Apache::lonlocal::texthash(
lextkey=this.document.client.elements.lextkey.value;	lextkey=this.document.client.elements.lextkey.value;
initkeys();	initkeys();

this.document.server.elements.upass.value	this.document.server.elements.upass0.value
=crypted(this.document.client.elements.upass.value);	=crypted(this.document.client.elements.upass.value.substr(0,15));
	this.document.server.elements.upass1.value
	=crypted(this.document.client.elements.upass.value.substr(15,15));
	this.document.server.elements.upass2.value
	=crypted(this.document.client.elements.upass.value.substr(30,15));

this.document.server.submit();	this.document.server.submit();
return false;	return false;
Line 323 ENDSCRIPT	Line 341 ENDSCRIPT
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="interface" value="$env{'form.interface'}" />	<input type="hidden" name="interface" value="$env{'form.interface'}" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass0" value="" />
	<input type="hidden" name="upass1" value="" />
	<input type="hidden" name="upass2" value="" />
<input type="hidden" name="udom" value="" />	<input type="hidden" name="udom" value="" />
<input type="hidden" name="imagesuppress" value="" />	<input type="hidden" name="imagesuppress" value="" />
<input type="hidden" name="appletsuppress" value="" />	<input type="hidden" name="appletsuppress" value="" />

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.63
changed lines
	Added in v.1.65