version 1.2, 2001/04/03 10:48:08
|
version 1.3, 2001/04/03 14:52:23
|
Line 34 sub handler {
|
Line 34 sub handler {
|
$fn=$r->filename(); |
$fn=$r->filename(); |
} |
} |
|
|
|
$fn=~s/\/$//; |
|
|
unless ($fn) { |
unless ($fn) { |
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
Line 57 sub handler {
|
Line 58 sub handler {
|
my $thisdisfn=$fn; |
my $thisdisfn=$fn; |
$thisdisfn=~s/^\/home\/$uname\/public_html//; |
$thisdisfn=~s/^\/home\/$uname\/public_html//; |
|
|
$r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'</tt></h1>'); |
$r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'/</tt></h1>'); |
|
|
my $docroot=$r->dir_config('lonDocRoot'); |
my $docroot=$r->dir_config('lonDocRoot'); |
|
|
Line 97 sub handler {
|
Line 98 sub handler {
|
'><td><a href="'.$linkdir.'/'.$filename.'">'.$filename. |
'><td><a href="'.$linkdir.'/'.$filename.'">'.$filename. |
'</a></td><td>'.localtime($cmtime).'</td><td>'.$status.'</td></tr>'); |
'</a></td><td>'.localtime($cmtime).'</td><td>'.$status.'</td></tr>'); |
} elsif ($cmode&$dirptr) { |
} elsif ($cmode&$dirptr) { |
$r->print('<tr bgcolor=#BBBBFF'. |
my $disfilename=$filename; |
'><td><a href="'.$linkdir.'/'.$filename.'">'.$filename. |
if ($filename eq '..') { |
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>'); |
$disfilename='<i>Parent Directory</i>'; |
|
} |
|
unless ((($filename eq '..') && ($thisdisfn eq '')) || |
|
($filename eq '.')) { |
|
$r->print('<tr bgcolor=#BBBBFF'. |
|
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename. |
|
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>'); |
|
} |
} |
} |
} |
} |
closedir(DIR); |
closedir(DIR); |