loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.24, 2014/12/01 22:52:54	version 1.27, 2020/12/18 15:23:03
Line 92 sub process_public {	Line 92 sub process_public {
my $cookie=&Apache::lonauth::success($r,'public','public','public');	my $cookie=&Apache::lonauth::success($r,'public','public','public');
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie);
$r->err_header_out('Set-cookie',"lonID=$cookie; path=/");	$r->err_header_out('Set-cookie',"lonPubID=$cookie; path=/; HttpOnly");
}	}
&Apache::lonacc::get_posted_cgi($r);	&Apache::lonacc::get_posted_cgi($r);
$env{'request.state'} = "published";	$env{'request.state'} = "published";
Line 107 sub process_portfolio {	Line 107 sub process_portfolio {
my %access_controls = &Apache::lonnet::get_access_controls($current_perms,$group,$file_name);	my %access_controls = &Apache::lonnet::get_access_controls($current_perms,$group,$file_name);
my $access = '';	my $access = '';
my $now = time;	my $now = time;
my $clientip = $r->get_remote_host();	my $clientip = &Apache::lonnet::get_requestor_ip($r);
foreach my $key (keys(%{$access_controls{$file_name}})) {	foreach my $key (keys(%{$access_controls{$file_name}})) {
my ($num,$scope,$end,$start) = ($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);	my ($num,$scope,$end,$start) = ($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);
if ($start > $now) {	if ($start > $now) {