--- loncom/publisher/lonpubdir.pm 2001/05/26 15:29:22 1.8
+++ loncom/publisher/lonpubdir.pm 2001/11/29 20:03:03 1.15
@@ -10,7 +10,7 @@
# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)
#
-# 03/31,04/03,05/09 Gerd Kortemeyer
+# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer
package Apache::lonpubdir;
@@ -39,9 +39,10 @@ sub handler {
my $uname;
my $udom;
- unless (($uname,$udom)=
+ ($uname,$udom)=
&Apache::loncacc::constructaccess(
- $fn,$r->dir_config('lonDefDomain'))) {
+ $fn,$r->dir_config('lonDefDomain'));
+ unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.
' trying to publish file '.$ENV{'form.filename'}.
' ('.$fn.') - not authorized',
@@ -85,19 +86,34 @@ sub handler {
my $linkdir='/~'.$uname.$thisdisfn;
$r->print('
'.
- 'Filename | Modified | Status |
');
+ 'Filename | Modified | Status | |
');
my $filename;
my $dirptr=16384;
opendir(DIR,$fn);
- while ($filename=readdir(DIR)) {
+ my @files=sort(readdir(DIR));
+ foreach my $filename (@files) {
my ($cdev,$cino,$cmode,$cnlink,
$cuid,$cgid,$crdev,$csize,
$catime,$cmtime,$cctime,
$cblksize,$cblocks)=stat($fn.'/'.$filename);
- $filename=~/\.(\w+)$/;
- if (($1 ne 'meta') && (&Apache::lonnet::fileembstyle($1))) {
+
+ my $extension='';
+ if ($filename=~/\.(\w+)$/) { $extension=$1; }
+ if ($cmode&$dirptr) {
+ my $disfilename=$filename;
+ if ($filename eq '..') {
+ $disfilename='Parent Directory';
+ }
+ unless ((($filename eq '..') && ($thisdisfn eq '')) ||
+ ($filename eq '.')) {
+ $r->print(''.$disfilename.
+ ' | '.localtime($cmtime).' | | |
'
+ );
+ }
+ } elsif (&Apache::lonnet::fileembstyle($extension) ne 'hdn') {
my $status='Unpublished';
my $bgcol='#FFBBBB';
if (-e $resdir.'/'.$filename) {
@@ -114,25 +130,21 @@ sub handler {
if
(&Apache::lonnet::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='
Diffs';
}
}
+ $status.='
Retrieve';
}
$r->print(''.$filename.
- ' | '.localtime($cmtime).' | '.$status.' |
');
- } elsif ($cmode&$dirptr) {
- my $disfilename=$filename;
- if ($filename eq '..') {
- $disfilename='Parent Directory';
- }
- unless ((($filename eq '..') && ($thisdisfn eq '')) ||
- ($filename eq '.')) {
- $r->print(''.$disfilename.
- ' | '.localtime($cmtime).' | |
');
- }
+ ''.localtime($cmtime).' | '.$status.' | '.
+ ''.
+ 'Publish | ');
+ } else {
+ # "hidden" extension and not a directory, so hide it away.
}
}
closedir(DIR);