loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;