version 1.1, 2006/04/05 22:34:18
|
version 1.2, 2006/04/13 19:07:33
|
Line 31 package Apache::publiccheck;
|
Line 31 package Apache::publiccheck;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::File; |
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use CGI::Cookie(); |
use CGI::Cookie(); |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
|
use Apache::lonacc(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 66 sub handler {
|
Line 66 sub handler {
|
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie); |
$r->header_out('Set-cookie',"lonID=$cookie; path=/"); |
$r->header_out('Set-cookie',"lonID=$cookie; path=/"); |
} |
} |
&Apache::loncommon::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
$env{'request.state'} = "published"; |
$env{'request.state'} = "published"; |
$env{'request.publicaccess'} = 1; |
$env{'request.publicaccess'} = 1; |
$env{'request.filename'} = $r->filename; |
$env{'request.filename'} = $r->filename; |