[BACK]Return to lonpubdir.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.2 and 1.5

version 1.2, 2001/04/03 10:48:08 version 1.5, 2001/05/03 11:04:07
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 91  sub handler { Line 92  sub handler {
             } else {              } else {
                 $status='Modified';                  $status='Modified';
                 $bgcol='#FFFFBB';                  $bgcol='#FFFFBB';
                   if 
               (&Apache::lonnet::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
                      $status.='<br><a href="/adm/diff?filename='.$filename.
          '&versionone=priv" target=cat>Diffs</a>';
           }
             }                 }   
  }   }
          $r->print('<tr bgcolor='.$bgcol.           $r->print('<tr bgcolor='.$bgcol.
          '><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>&nbsp;</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>&nbsp;</td></tr>');
            }
      }       }
   }    }
   closedir(DIR);    closedir(DIR);
Line 107  sub handler { Line 120  sub handler {
   $r->print('</table></body></html>');    $r->print('</table></body></html>');
   return OK;      return OK;  
 }  }
   
   1;
   __END__
Removed from v.1.2  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>