version 1.21, 2002/02/26 21:01:33
|
version 1.24, 2002/12/10 20:37:21
|
Line 48 sub constructaccess {
|
Line 48 sub constructaccess {
|
my ($url,$ownerdomain)=@_; |
my ($url,$ownerdomain)=@_; |
my ($ownername)=($url=~/\/(?:\~|priv\/|home\/)(\w+)/); |
my ($ownername)=($url=~/\/(?:\~|priv\/|home\/)(\w+)/); |
unless (($ownername) && ($ownerdomain)) { return ''; } |
unless (($ownername) && ($ownerdomain)) { return ''; } |
|
# We do not allow editing of previous versions of files. |
|
if ($url=~/\.(\d+)\.(\w+)$/) { return ''; } |
if (($ownername eq $ENV{'user.name'}) && |
if (($ownername eq $ENV{'user.name'}) && |
($ownerdomain eq $ENV{'user.domain'})) { |
($ownerdomain eq $ENV{'user.domain'})) { |
return ($ownername,$ownerdomain); |
return ($ownername,$ownerdomain); |
Line 69 sub constructaccess {
|
Line 70 sub constructaccess {
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $requrl=$r->uri; |
my $requrl=$r->uri; |
|
$ENV{'request.editurl'}=$requrl; |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my $lonid=$cookies{'lonID'}; |
my $lonid=$cookies{'lonID'}; |
my $cookie; |
my $cookie; |
Line 189 Apache::lonacc - Cookie Based Access Han
|
Line 191 Apache::lonacc - Cookie Based Access Han
|
|
|
=head1 SYNOPSIS |
=head1 SYNOPSIS |
|
|
Invoked (for various locations) by /etc/httpd/conf/srm.conf: |
Invoked (for various locations) by /etc/httpd/conf/loncapa_apache.conf: |
|
|
PerlAccessHandler Apache::loncacc |
PerlAccessHandler Apache::loncacc |
|
|