loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.20, 2001/07/25 01:44:53	version 1.23, 2001/08/16 02:03:15
Line 6	Line 6
# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10,	# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10,
# 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
	# 8/15 Scott Harrison

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

Line 121 sub success {	Line 123 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 171 function wait() {	Line 173 function wait() {
}	}

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