loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.35, 2004/08/23 18:57:16	version 1.37, 2004/10/29 20:44:30
Line 79 sub handler {	Line 79 sub handler {
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $cookie;	my $cookie;
&Apache::lonnet::logthis("Wha? cookie");
if ($lonid) {	if ($lonid) {
&Apache::lonnet::logthis("Valid cookie");
my $handle=$lonid->value;	my $handle=$lonid->value;
$handle=~s/\W//g;	$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
Line 104 sub handler {	Line 102 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

Line 120 sub handler {	Line 109 sub handler {

return OK;	return OK;
} else {	} else {
&Apache::lonnet::logthis("Invalid cookie");
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)
};	};
}	}