Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonauth.pm between versions 1.18 and 1.25

version 1.18, 2001/01/09 22:10:40	version 1.25, 2001/10/05 05:21:56
Line 3	Line 3
# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15	# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15
# 16/11,12/16,	# 16/11,12/16,
# 1/14,2/24,2/28,2/29,3/7,5/29,5/30,5/31,6/1,6/5,6/29,	# 1/14,2/24,2/28,2/29,3/7,5/29,5/30,5/31,6/1,6/5,6/29,
# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10 Gerd Kortemeyer	# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10,
	# 05/28,05/29 Gerd Kortemeyer
	# 07/24 Scott Harrison
	# 07/28,08/03 Gerd Kortemeyer
	# 8/15 Scott Harrison
	# 8/20 Gerd Kortemeyer

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

Line 91 sub success {	Line 96 sub success {
my $idf=Apache::File->new(">$lonids/$cookie.id");	my $idf=Apache::File->new(">$lonids/$cookie.id");
unless (flock($idf,LOCK_EX)) {	unless (flock($idf,LOCK_EX)) {
&Apache::lonnet::logthis("<font color=blue>WARNING: ".	&Apache::lonnet::logthis("<font color=blue>WARNING: ".
'Could not obtain exclusive lock in lonauth: '.$!);	'Could not obtain exclusive lock in lonauth: '.$!);
$idf->close();	$idf->close();
return 'error: '.$!;	return 'error: '.$!;
}	}
Line 111 sub success {	Line 116 sub success {
if ($userroles ne '') { print $idf "$userroles"; }	if ($userroles ne '') { print $idf "$userroles"; }
$idf->close();	$idf->close();
}	}
	$ENV{'request.role'}='cm';
# -------------------------------------------------------------------- Log this	# -------------------------------------------------------------------- Log this

&Apache::lonnet::log($domain,$username,$authhost,	&Apache::lonnet::log($domain,$username,$authhost,
Line 119 sub success {	Line 124 sub success {

# ------------------------------------------------- Check for critical messages	# ------------------------------------------------- Check for critical messages

my @what=&Apache::lonnet::dump('critical');	my @what=&Apache::lonnet::dump('critical',$domain,$username);
if ($what[0]) {	if ($what[0]) {
if ($what[0] ne 'con_lost') {	if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
$lowerurl='/adm/email/critical/'.$what[0];	$lowerurl='/adm/email?critical=display';
}	}
}	}

Line 130 sub success {	Line 135 sub success {

$cookie="lonID=$cookie; path=/";	$cookie="lonID=$cookie; path=/";
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- Menu script and info

my $windowinfo=&Apache::lonmenu::open();	my $windowinfo=&Apache::lonmenu::open();
	# ------------------------------------------------------------- Info for Remote
	my $configmenu=&Apache::lonmenu::rawconfig();
# ------------------------------------------------- Output for successful login	# ------------------------------------------------- Output for successful login

$r->send_cgi_header(<<ENDHEADER);	$r->send_cgi_header(<<ENDHEADER);
Line 143 ENDHEADER	Line 149 ENDHEADER
<html>	<html>
<head>	<head>
<title>Successful Login to the LearningOnline Network with CAPA</title>	<title>Successful Login to the LearningOnline Network with CAPA</title>
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$lowerurl">	<script>

	// --------------------------------------------- Checks if server frame defined

	function checkdef() {
	if ((menuloaded==0) && (tim==0)) { setTimeout('checkdef()',100); }
	}

	// ---------------------------------------------------------- The wait function

	function wait() {
	if ((menuloaded==1) \|\| (tim==1)) {
	if (tim==0) {
	clearTimeout(canceltim);
	$configmenu
	window.location='$lowerurl';
	} else {
	alert("Remote Control Timed Out.");
	}
	} else {
	setTimeout('wait();',100);
	}
	}

	function main() {
	canceltim=setTimeout('tim=1;',80000);
	checkdef();
	wait();
	}

	</script>
</head>	</head>
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
$windowinfo	<script>
	menuloaded=0;
	tim=0;
	</script>
	$windowinfo
<h1>Welcome!</h1>	<h1>Welcome!</h1>
	<script>
	main();
	</script>
</body>	</body>
</html>	</html>
ENDSUCCESS	ENDSUCCESS
Line 216 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 239 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);

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.18
changed lines
	Added in v.1.25