version 1.6, 2000/06/05 20:28:17
|
version 1.8, 2000/09/15 15:04:17
|
Line 1
|
Line 1
|
# The LearningOnline Network |
# The LearningOnline Network |
# Cookie Based Access Handler |
# Cookie Based Access Handler |
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, |
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, |
# 01/06,01/13,05/31,06/01 Gerd Kortemeyer |
# 01/06,01/13,05/31,06/01,09/06 Gerd Kortemeyer |
|
|
package Apache::lonacc; |
package Apache::lonacc; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http :methods); |
use Apache::File; |
use Apache::File; |
use Apache::lonnet; |
use Apache::lonnet; |
use CGI::Cookie(); |
use CGI::Cookie(); |
Line 43 sub handler {
|
Line 43 sub handler {
|
|
|
# -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
|
|
|
|
|
|
my $buffer; |
my $buffer; |
|
|
$r->read($buffer,$r->header_in('Content-length')); |
$r->read($buffer,$r->header_in('Content-length')); |
Line 55 sub handler {
|
Line 57 sub handler {
|
$r->subprocess_env("form.$name" => $value); |
$r->subprocess_env("form.$name" => $value); |
} |
} |
|
|
|
$r->method_number(M_GET); |
|
$r->method('GET'); |
|
$r->headers_in->unset('Content-length'); |
|
|
# ---------------------------------------------------------------- Check access |
# ---------------------------------------------------------------- Check access |
|
|
if ($requrl!~/^\/adm\//) { |
if ($requrl!~/^\/adm\//) { |
if (&Apache::lonnet::allowed('bre',$requrl) eq '') { |
my $access=&Apache::lonnet::allowed('bre',$requrl); |
$ENV{'user.error.msg'}="$requrl:bre:1:1:Access denied"; |
if ($access eq '1') { |
return HTTP_NOT_ACCEPTABLE; |
$ENV{'user.error.msg'}="$requrl:bre:0:0:Choose Course"; |
} |
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
if (($access ne '2') && ($access ne 'F')) { |
|
$ENV{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
} |
} |
return OK; |
return OK; |
} else { |
} else { |