loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.12, 2000/10/05 15:31:42	version 1.14, 2000/10/20 20:44:57
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 Gerd Kortemeyer	# 7/1,7/10,10/2,10/5,10/9 Gerd Kortemeyer

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

Line 98 sub success {	Line 98 sub success {
&Apache::lonnet::log($domain,$username,$authhost,	&Apache::lonnet::log($domain,$username,$authhost,
"Login $ENV{'REMOTE_ADDR'}");	"Login $ENV{'REMOTE_ADDR'}");

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

	my @what=&Apache::lonnet::dump('critical');
	if ($what[0]) {
	if ($what[0] ne 'con_lost') {
	$lowerurl='/adm/email/critical/'.$what[0];
	}
	}

# ------------------------------------------------------------ Get cookie ready	# ------------------------------------------------------------ Get cookie ready

$cookie="lonID=$cookie; path=/";	$cookie="lonID=$cookie; path=/";
Line 210 sub handler {	Line 219 sub handler {
return OK;	return OK;
}	}

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