loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.22, 2001/08/04 00:39:32	version 1.25, 2001/10/05 05:21:56
Line 7	Line 7
# 05/28,05/29 Gerd Kortemeyer	# 05/28,05/29 Gerd Kortemeyer
# 07/24 Scott Harrison	# 07/24 Scott Harrison
# 07/28,08/03 Gerd Kortemeyer	# 07/28,08/03 Gerd Kortemeyer
	# 8/15 Scott Harrison
	# 8/20 Gerd Kortemeyer

package Apache::lonauth;	package Apache::lonauth;

Line 172 function wait() {	Line 174 function wait() {
}	}

function main() {	function main() {
canceltim=setTimeout('tim=1;',20000);	canceltim=setTimeout('tim=1;',80000);
checkdef();	checkdef();
wait();	wait();
}	}
Line 257 sub handler {	Line 259 sub handler {

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

my $cipher=new DES $keybin;	my $cipher=new Crypt::DES $keybin;

my $upass=$cipher->decrypt(	my $upass=$cipher->decrypt(
unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));	unpack("a8",pack("H16",substr($FORM{'upass'},0,16))));
Line 280 sub handler {	Line 282 sub handler {
}	}

if (($firsturl eq '') \|\| ($firsturl eq '/adm/logout')) {	if (($firsturl eq '') \|\| ($firsturl eq '/adm/logout')) {
$firsturl='/res/adm/pages/index.html';	$firsturl='/adm/roles';
}	}

success($r,$FORM{'uname'},$FORM{'udom'},$authhost,$firsturl);	success($r,$FORM{'uname'},$FORM{'udom'},$authhost,$firsturl);