version 1.7, 2001/05/09 17:38:12
|
version 1.10, 2001/07/12 21:23:12
|
Line 10
|
Line 10
|
# 03/23 Guy Albertelli |
# 03/23 Guy Albertelli |
# 03/24,03/29 Gerd Kortemeyer) |
# 03/24,03/29 Gerd Kortemeyer) |
# |
# |
# 03/31,04/03,05/09 Gerd Kortemeyer |
# 03/31,04/03,05/09,06/23 Gerd Kortemeyer |
|
|
package Apache::lonpubdir; |
package Apache::lonpubdir; |
|
|
Line 19 use Apache::File;
|
Line 19 use Apache::File;
|
use File::Copy; |
use File::Copy; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
use Apache::loncacc; |
|
use Apache::lonnet; |
|
|
|
|
sub handler { |
sub handler { |
Line 38 sub handler {
|
Line 39 sub handler {
|
my $uname; |
my $uname; |
my $udom; |
my $udom; |
|
|
unless (($uname,$udom)= |
($uname,$udom)= |
&Apache::loncacc::constructaccess( |
&Apache::loncacc::constructaccess( |
$fn,$r->dir_config('lonDefDomain'))) { |
$fn,$r->dir_config('lonDefDomain')); |
|
unless (($uname) && ($udom)) { |
$r->log_reason($uname.' at '.$udom. |
$r->log_reason($uname.' at '.$udom. |
' trying to publish file '.$ENV{'form.filename'}. |
' trying to publish file '.$ENV{'form.filename'}. |
' ('.$fn.') - not authorized', |
' ('.$fn.') - not authorized', |
Line 90 sub handler {
|
Line 92 sub handler {
|
my $dirptr=16384; |
my $dirptr=16384; |
|
|
opendir(DIR,$fn); |
opendir(DIR,$fn); |
while ($filename=readdir(DIR)) { |
my @files=sort(readdir(DIR)); |
|
foreach my$filename (@files) { |
my ($cdev,$cino,$cmode,$cnlink, |
my ($cdev,$cino,$cmode,$cnlink, |
$cuid,$cgid,$crdev,$csize, |
$cuid,$cgid,$crdev,$csize, |
$catime,$cmtime,$cctime, |
$catime,$cmtime,$cctime, |
$cblksize,$cblocks)=stat($fn.'/'.$filename); |
$cblksize,$cblocks)=stat($fn.'/'.$filename); |
$filename=~/\.(\w+)$/; |
my $extension=''; |
if (($1 ne 'meta') && (&Apache::lonnet::fileembstyle($1))) { |
if ($filename=~/\.(\w+)$/) { $extension=$1; } |
|
if (($extension ne 'meta') && (&Apache::lonnet::fileembstyle($extension))) { |
my $status='Unpublished'; |
my $status='Unpublished'; |
my $bgcol='#FFBBBB'; |
my $bgcol='#FFBBBB'; |
if (-e $resdir.'/'.$filename) { |
if (-e $resdir.'/'.$filename) { |
Line 132 sub handler {
|
Line 136 sub handler {
|
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename. |
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename. |
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>'); |
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>'); |
} |
} |
|
} else { |
|
#no extension that we know of and not a directory |
|
#just hide it away |
} |
} |
} |
} |
closedir(DIR); |
closedir(DIR); |