loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.55, 2003/09/11 20:54:11	version 1.58, 2003/10/30 00:54:57
Line 46 use Apache::loncommon();	Line 46 use Apache::loncommon();
use Apache::lonnet();	use Apache::lonnet();
use Apache::lonmenu();	use Apache::lonmenu();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
	use Apache::lonlocal;

my %FORM;	my %FORM;

Line 190 Content-type: text/html	Line 191 Content-type: text/html
Set-cookie: $cookie	Set-cookie: $cookie

ENDHEADER	ENDHEADER
	my %lt=&Apache::lonlocal::texthash(
	'wel' => 'Welcome',
	'mes' => 'Welcome to the Learning<i>Online</i> Network with CAPA. Please wait while your session is being set up',
	'pro' => 'Problems',
	'log' => 'loginproblems.html',
	);
$r->print(<<ENDSUCCESS);	$r->print(<<ENDSUCCESS);
<html>	<html>
<head>	<head>
Line 199 $startupremote	Line 206 $startupremote
$bodytag	$bodytag
$setflags	$setflags
$windowinfo	$windowinfo
<h1>Welcome!</h1>	<h1>$lt{'wel'}</h1>
Welcome to the Learning<i>Online</i> Network with CAPA.	$lt{'mes'}.<p>
Please wait while your session	<a href="/adm/$lt{'log'}">$lt{'pro'}?</a></p>
is being set up.<p>
<a href="/adm/loginproblems.html">Problems?</a></p>
$maincall	$maincall
</body>	</body>
</html>	</html>
Line 270 sub handler {	Line 275 sub handler {
return OK;	return OK;
}	}

	&Apache::lonlocal::get_language_handle($r);

my $buffer;	my $buffer;
$r->read($buffer,$r->header_in('Content-length'),0);	$r->read($buffer,$r->header_in('Content-length'),0);
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);