loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.43, 2003/03/02 02:16:53	version 1.44, 2003/03/02 03:58:55
Line 287 sub handler {	Line 287 sub handler {
if (($tmpinfo=~/^error/) \|\| ($tmpinfo eq 'con_lost')) {	if (($tmpinfo=~/^error/) \|\| ($tmpinfo eq 'con_lost')) {
failed($r,'Information needed to verify your login information is missing, inaccessible or expired.');	failed($r,'Information needed to verify your login information is missing, inaccessible or expired.');
return OK;	return OK;
	} else {
	unless (&Apache::lonnet::reply('tmpdel:'.$FORM{'logtoken'},
	$FORM{'serverid'}) eq 'ok') {
	&failed($r,'Session could not be opened.');
	}
}	}

my ($key,$firsturl)=split(/&/,$tmpinfo);	my ($key,$firsturl)=split(/&/,$tmpinfo);

my $keybin=pack("H16",$key);	my $keybin=pack("H16",$key);