version 1.7, 2000/09/06 14:25:17
|
version 1.8, 2000/09/15 15:04:17
|
Line 6
|
Line 6
|
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 |
|
|