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) |
}; |
}; |
} |
} |