loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.48, 2003/09/02 22:28:19	version 1.49, 2003/09/11 20:54:11
Line 40 use Apache::Constants qw(:common);	Line 40 use Apache::Constants qw(:common);
use Apache::File ();	use Apache::File ();
use Apache::lonnet();	use Apache::lonnet();
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonauth();

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 49 sub handler {	Line 50 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;


	# Are we re-routing?
	if (-e '/home/httpd/html/lon-status/reroute.txt') {
	&Apache::lonauth::reroute($r);
	return OK;
	}

&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},	($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
['interface','username','domain','firsturl','localpath','localres']);	['interface','username','domain','firsturl','localpath','localres']);