loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.23, 2001/08/16 02:03:15	version 1.26, 2001/10/08 22:37:50
Line 8	Line 8
# 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/15 Scott Harrison
	# 8/20 Gerd Kortemeyer

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

Line 16 use Apache::Constants qw(:common);	Line 17 use Apache::Constants qw(:common);
use Apache::File;	use Apache::File;
use CGI qw(:standard);	use CGI qw(:standard);
use CGI::Cookie();	use CGI::Cookie();
	use DynaLoader; # for Crypt::DES version
use Crypt::DES;	use Crypt::DES;
use Apache::lonnet();	use Apache::lonnet();
use Apache::lonmenu();	use Apache::lonmenu();
Line 258 sub handler {	Line 260 sub handler {

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

my $cipher=new DES $keybin;	my $cipher;
	if ($Crypt::DES::VERSION>=2.03) {
	$cipher=new Crypt::DES $keybin;
	}
	else {
	$cipher=new 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 281 sub handler {	Line 289 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);