loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25, 2003/02/03 18:03:52	version 1.26, 2003/04/03 21:32:23
Line 38	Line 38
package Apache::loncacc;	package Apache::loncacc;

use strict;	use strict;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods REDIRECT);
use Apache::File;	use Apache::File;
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
Line 99 sub handler {	Line 99 sub handler {
$r->log_reason("Unauthorized $requrl", $r->filename);	$r->log_reason("Unauthorized $requrl", $r->filename);
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
	# Construction space needs Remote to work
	if ($ENV{'environment.remote'} eq 'off') {
	$r->content_type('text/html');
	$r->header_out(Location =>
	'http://'.$r->server->server_hostname.
	'/adm/remote?action=launch&url='.
	&Apache::lonnet::escape($requrl));
	return REDIRECT;
	}

# -------------------------------------------------------- Load POST parameters	# -------------------------------------------------------- Load POST parameters