|
version 1.31, 2003/05/16 20:47:08
|
version 1.32, 2003/06/15 18:02:57
|
|
Line 1
|
Line 1
|
| # The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
| # (Publication Handler |
# Construction Space Directory Lister |
| # |
# |
| # $Id$ |
# $Id$ |
| # |
# |
|
Line 69 sub handler {
|
Line 69 sub handler {
|
| $fn,$r->dir_config('lonDefDomain')); |
$fn,$r->dir_config('lonDefDomain')); |
| unless (($uname) && ($udom)) { |
unless (($uname) && ($udom)) { |
| $r->log_reason($uname.' at '.$udom. |
$r->log_reason($uname.' at '.$udom. |
| ' trying to publish file '.$ENV{'form.filename'}. |
' trying to list directory '.$ENV{'form.filename'}. |
| ' ('.$fn.') - not authorized', |
' ('.$fn.') - not authorized', |
| $r->filename); |
$r->filename); |
| return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
| } |
} |
| |
|
| # Remove trailing / from direcgtory name. |
# Remove trailing / from directory name. |
| |
|
| $fn=~s/\/$//; |
$fn=~s/\/$//; |
| |
|
|
Line 147 sub getEffectiveUrl {
|
Line 147 sub getEffectiveUrl {
|
| # Replace the ~username of the URL with /home/username/public_html |
# Replace the ~username of the URL with /home/username/public_html |
| # so that we don't have to worry about ~ expansion internally. |
# so that we don't have to worry about ~ expansion internally. |
| # |
# |
| $fn=~s/^http\:\/\/[^\/]+\/\~(\w+)/\/home\/$1\/public_html/; |
$fn=~s/^http\:\/\/[^\/]+\///; |
| |
$fn=~s/^\///; |
| |
$fn=~s/\~(\w+)/\/home\/$1\/public_html/; |
| |
|
| # Remove trailing / strings (?) |
# Remove trailing / strings (?) |
| |
|
|
Line 353 __END__
|
Line 355 __END__
|
| |
|
| =head1 NAME |
=head1 NAME |
| |
|
| Apache::lonpubdir - Publication Handler for Directories |
Apache::lonpubdir - Construction space directory lister |
| |
|
| =head1 SYNOPSIS |
=head1 SYNOPSIS |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpubdir.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher