loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.48, 2003/04/07 18:24:05	version 1.50, 2003/05/23 21:18:56
Line 172 sub success {	Line 172 sub success {
my $startupremote=&Apache::lonmenu::startupremote($lowerurl);	my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
my $setflags=&Apache::lonmenu::setflags();	my $setflags=&Apache::lonmenu::setflags();
my $maincall=&Apache::lonmenu::maincall();	my $maincall=&Apache::lonmenu::maincall();
my $bodytag=&Apache::loncommon::bodytag('Successful Login');	my $bodytag=&Apache::loncommon::bodytag('Successful Login',undef,' ');
# ------------------------------------------------- Output for successful login	# ------------------------------------------------- Output for successful login

$r->send_cgi_header(<<ENDHEADER);	$r->send_cgi_header(<<ENDHEADER);
Line 232 sub handler {	Line 232 sub handler {
my $r = shift;	my $r = shift;

my $buffer;	my $buffer;
$r->read($buffer,$r->header_in('Content-length'));	$r->read($buffer,$r->header_in('Content-length'),0);
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair; my $name; my $value;	my $pair; my $name; my $value;
undef %FORM;	undef %FORM;