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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.17 and 1.99

version 1.17, 2001/12/15 20:48:47 version 1.99, 2007/01/10 19:51:35
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # (Publication Handler  # Construction Space Directory Lister
 #  #
 # $Id$  # $Id$
 #  #
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #   
 # (TeX Content Handler  
 #  
 # YEAR=2000  
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)  
 #  
 # 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer  
 # YEAR=2001  
 # 03/23 Guy Albertelli  
 # 03/24,03/29 Gerd Kortemeyer)  
 # 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer  
 # 12/15 Scott Harrison  
 #  
 ###  ###
   
 package Apache::lonpubdir;  package Apache::lonpubdir;
Line 48  use File::Copy; Line 35  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::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon();
   use Apache::londiff();
   use Apache::lonlocal;
   use Apache::lonmsg;
   use Apache::lonmenu;
   use Apache::lonnet;
   use LONCAPA;
   
 sub handler {  sub handler {
   
Line 55  sub handler { Line 49  sub handler {
   
   my $fn;    my $fn;
   
   if ($ENV{'form.filename'}) {  
       $fn=$ENV{'form.filename'};  
       $fn=~s/^http\:\/\/[^\/]+\/\~(\w+)/\/home\/$1\/public_html/;    $fn = getEffectiveUrl($r);
       $fn=~s/\/[^\/]+$//;  
   } else {    # Validate access to the construction space and get username@domain.
       $fn=$r->filename();  
   }  
   
   my $uname;    my $uname;
   my $udom;    my $udom;
Line 71  sub handler { Line 63  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 directory name.
   
   $fn=~s/\/$//;    $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'}.
          ' trying to list empty directory', $r->filename);            ' trying to list empty directory', $r->filename); 
      return HTTP_NOT_FOUND;       return HTTP_NOT_FOUND;
   }     } 
   
 # ----------------------------------------------------------- Start page output  # ----------------------------------------------------------- Start page output
   
   
   $r->content_type('text/html');  
   $r->send_http_header;  
   
   $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');  
   
   $r->print(  
    '<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');  
   
   my $thisdisfn=$fn;    my $thisdisfn=$fn;
   $thisdisfn=~s/^\/home\/$uname\/public_html//;    $thisdisfn=~s/^\/home\/$uname\/public_html//; # subdirectory part of
                                                     # construction space. 
   $r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'/</tt></h1>');    my $docroot=$r->dir_config('lonDocRoot');     # Apache  londocument root.
     
   if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {    my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn; # Resource directory
           $r->print('<h3><font color=red>Co-Author: '.$uname.' at '.$udom.    my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory.
                '</font></h3>');    my $linkdir='/priv/'.$uname.$thisdisfn;      # Full URL name of constr space.
   
     my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
   
     &startpage($r, $uname, $udom, $thisdisfn);   # Put out the start of page.
     if ($env{'environment.remote'} eq 'off') {
         &dircontrols($r,$uname,$udom,$thisdisfn);    # Put out actions for directory, 
                                                  # browse/upload + new file page.
     } else {
         &pubbuttons($r,$uname,$thisdisfn);
   }    }
     &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc.
   
     my $numdir = 0;
   my $docroot=$r->dir_config('lonDocRoot');    my $numres = 0;
     
   my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn;    # Start off the directory table.
   my $linkdir='/~'.$uname.$thisdisfn;    $r->print('<h3>Directory Contents:</h3>');
     $r->print('<table id="LC_browser"><tr>'.
   $r->print('<table border=2>'.              '<th>'.&mt('Type').'</th>'.
  '<tr><th>Filename</th><th>Modified</th><th>Status</th><th>&nbsp;</th></tr>');              '<th>'.&mt('Actions').'</th>'.
               '<th>'.&mt('Name').'</th>'.
               '<th>'.&mt('Title').'</th>'.
       '<th>'.&mt('Status').'</th>'.
               '<th>'.&mt('Last Modified').
       '</th></tr>'."\n");
   
   my $filename;    my $filename;
   my $dirptr=16384;    my $dirptr=16384; # Mask indicating a directory in stat.cmode.
   
   opendir(DIR,$fn);    opendir(DIR,$fn);
   my @files=sort(readdir(DIR));    my @files=sort {uc($a) cmp uc($b)} (readdir(DIR));
   foreach my $filename (@files) {    foreach my $filename (@files) {
      my ($cdev,$cino,$cmode,$cnlink,       my ($cdev,$cino,$cmode,$cnlink,
          $cuid,$cgid,$crdev,$csize,           $cuid,$cgid,$crdev,$csize,
Line 129  sub handler { Line 129  sub handler {
      my $extension='';       my $extension='';
      if ($filename=~/\.(\w+)$/) { $extension=$1; }       if ($filename=~/\.(\w+)$/) { $extension=$1; }
      if ($cmode&$dirptr) {       if ($cmode&$dirptr) {
          my $disfilename=$filename;   putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime,$targetdir,\%bombs,\$numdir);
          if ($filename eq '..') {  
      $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><td>&nbsp;</td></tr>'  
            );  
          }  
      } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {       } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
          my $status='Unpublished';   putresource($r, $udom, $uname, $filename, $thisdisfn, $resdir, 
          my $bgcol='#FFBBBB';       $targetdir, $linkdir, $cmtime,\%bombs,\$numres);
          if (-e $resdir.'/'.$filename) {  
             my ($rdev,$rino,$rmode,$rnlink,  
                 $ruid,$rgid,$rrdev,$rsize,  
                 $ratime,$rmtime,$rctime,  
                 $rblksize,$rblocks)=stat($resdir.'/'.$filename);  
             if ($rmtime>=$cmtime) {  
  $status='Published';  
                 $bgcol='#BBFFBB';  
             } else {  
                 $status='Modified';  
                 $bgcol='#FFFFBB';  
                 if   
          (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {  
                    $status.='<br><a href="/adm/diff?filename=/~'.$uname.  
                                          $thisdisfn.'/'.$filename.  
        '&versionone=priv" target=cat>Diffs</a>';  
         }  
             }     
             $status.='<br><a href="/adm/retrieve?filename=/~'.$uname.  
               $thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';  
  }  
          $r->print('<tr bgcolor='.$bgcol.  
          '><td><a href="'.$linkdir.'/'.$filename.'">'.$filename.  
          '</a></td><td>'.localtime($cmtime).'</td><td>'.$status.'</td>'.  
      '<td><a target="_parent" href="/adm/publish?filename=/~'.$uname.  
                                       $thisdisfn.'/'.$filename.'">'.  
          'Publish</a></td></tr>');  
      } else {       } else {
  # "hidden" extension and not a directory, so hide it away.   # "hidden" extension and not a directory, so hide it away.
      }       }
   }    }
   closedir(DIR);    closedir(DIR);
   
   $r->print('</table></body></html>');    $r->print('</table>'.&Apache::loncommon::end_page());
   return OK;      return OK;  
 }  }
   #
   #  Gets the effective URL of the request and returns it:
   #    $effn = getEffectiveUrl($r);
   #       $r  - The Apache Request object.
   sub getEffectiveUrl {
       my $r = shift;
       my $fn;
       
       if ($env{'form.filename'}) { # If a form filename is defined.
    $fn=$env{'form.filename'};
    #
    #   Replace the ~username of the URL with /home/username/public_html
    #   so that we don't have to worry about ~ expansion internally.
    #
    $fn=~s/^http\:\/\/[^\/]+\///;
           $fn=~s/^\///;
           $fn=~s{~($LONCAPA::username_re)}{/home/$1/public_html};
   
    #  Remove trailing / strings (?) 
   
    $fn=~s/\/[^\/]+$//;
       } else {
    #   If no form is defined, use request filename.
    $fn = $r->filename();
    my $lonDocRoot=$r->dir_config('lonDocRoot');
    if ( $fn =~ /$lonDocRoot/ ) {
       #internal authentication, needs fixup.
       $fn = $r->uri(); # non users do not get the full path request
                                # through SCRIPT_FILENAME
       $fn=~s{^/~($LONCAPA::username_re)}{/home/$1/public_html};
    }
       }
       $fn=~s/\/+/\//g;
       return $fn;
   }
   #
   #   Output the header of the page.  This includes:
   #   - The HTML header 
   #   - The H1/H3  stuff which includes the directory.
   #
   #     startpage($r, $uame, $udom, $thisdisfn);
   #      $r     - The apache request object.
   #      $uname - User name.
   #      $udom  - Domain name the user is logged in under.
   #      $thisdisfn - Displayable version of the filename.
   
   sub startpage {
       my ($r, $uname, $udom, $thisdisfn) = @_;
       my $currdir = '/priv/'.$uname.$thisdisfn;
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
   
       my $formaction='/priv/'.$uname.$thisdisfn.'/';
       $formaction=~s|/+|/|g;
       my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring').
           '<font face="Arial, Helvetica, sans-serif" size="+1"><b>Construction Space</b>:</font>&nbsp;'.
           '<form name="dirs" method="post" action="'.$formaction.
           '" target="_parent"><tt><b>'.
           &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />".
           &Apache::lonhtmlcommon::select_recent('construct','recent',
                    'this.form.action=this.form.recent.value;this.form.submit()').
                 '</form>';
       &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
       if ($env{'environment.remote'} eq 'off') {
    $env{'request.noversionuri'}=$currdir.'/';
    $r->print(&Apache::loncommon::start_page('Construction Space',undef,
    {'body_title' =>
         $pagetitle,}));
       } else {
    $r->print(&Apache::loncommon::start_page('Construction Space',undef));
    $r->print($pagetitle);
       }
   
       my $pubdirscript=(<<ENDPUBDIRSCRIPT);
   <script type="text/javascript">
   top.document.title = '$thisdisfn/ - LON-CAPA Construction Space';
   // Store directory location for menu bar to find
   
   parent.lastknownpriv='/~$uname$thisdisfn/';
   
   // Confirmation dialogues
   
       function currdiract(theform) {
           if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'publish') {
               document.publishdir.filename.value = theform.filename.value;
       document.publishdir.submit();
           }
           if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'editcat') {
               top.location=theform.filename.value+'default.meta'
           }
           if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'printdir' ) {
               document.printdir.postdata.value=theform.filename.value
               document.printdir.submit();
           }
           if (theform.dirtask.options[theform.dirtask.selectedIndex].value == "delete") {
                 var delform = document.delresource
                 delform.filename.value = theform.filename.value
                 delform.submit()
           }
       }
     
       function checkUpload(theform) {
           if (theform.file == '') {
               alert("Please use 'Browse..' to choose a file first, before uploading")
               return 
           }
           theform.submit()  
       }
   
       function SetPubDir(theform,printForm) {
           if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") {
               top.location = theform.openname.value
               return
           }
           if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") {
               theform.submit();
           }
           if (theform.diraction.options[theform.diraction.selectedIndex].value == "editcat") {
               top.location=theform.filename.value+'default.meta'
           }
           if (theform.diraction.options[theform.diraction.selectedIndex].value == "printdir") {
               theform.action = '/adm/printout'
               theform.postdata.value = theform.filename.value
               theform.submit()
           }
           if (theform.diraction.options[theform.diraction.selectedIndex].value == "delete") {
                 var delform = document.delresource
                 delform.filename.value = theform.filename.value
                 delform.submit()
           }
           return
       }
       function SetResChoice(theform) {
         var activity = theform.reschoice.options[theform.reschoice.selectedIndex].value
         if ((activity == 'rename') || (activity == 'copy') || (activity == 'move')) {
             changename(theform,activity)
         }
         if (activity == 'publish') {
             var pubform = document.pubresource
             pubform.filename.value = theform.filename.value
             pubform.submit()
         }
         if (activity == 'delete') {
             var delform = document.delresource
             delform.filename.value = theform.filename.value
             delform.submit()
         }
         if (activity == 'obsolete') {
             var pubform = document.pubresource
             pubform.filename.value = theform.filename.value
             pubform.makeobsolete.value=1;
             pubform.submit()
         }
         if (activity == 'print') {
             document.printresource.postdata.value = theform.filename.value
             document.printresource.submit()
         }
         if (activity == 'retrieve') {
             document.retrieveres.filename.value = theform.filename.value
             document.retrieveres.submit()
         }
         if (activity == 'cleanup') {
             document.cleanup.filename.value = theform.filename.value
             document.cleanup.submit()
         }
         return
       }
       function changename(theform,activity) {
           var oldname=theform.dispfilename.value;
           var newname=prompt('New Name',oldname);
           if (newname == "" || !newname || newname == oldname)  {
               return
           }
           document.moveresource.newfilename.value = newname
           document.moveresource.filename.value = theform.filename.value
           document.moveresource.action.value = activity
           document.moveresource.submit();
       }
   </script>
   ENDPUBDIRSCRIPT
       $r->print($pubdirscript);
   
       if ((($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) &&
    $env{'environment.remote'} ne 'off') {
    $r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
     '</h3>');
       }
   }
   
   sub dircontrols {
       my ($r,$uname,$udom,$thisdisfn) = @_;
       my %lt=&Apache::lonlocal::texthash(
                                          cnpd => 'Cannot publish directory',
                                          cnrd => 'Cannot retrieve directory',
                                          mcdi => 'Must create new subdirectory inside a directory',
                                          pubr => 'Publish this Resource',
                                          pubd => 'Publish this Directory',
                                          dedr => 'Delete Directory',
                                          rtrv => 'Retrieve Old Version',
                                          list => 'List Directory',
                                          uplo => 'Upload file',  
                                          dele => 'Delete',
                                          edit => 'Edit Catalog Information', 
                                          sela => 'Select Action',
                                          nfil => 'New file',
                                          nhtm => 'New HTML file',
                                          nprb => 'New problem',
                                          npag => 'New assembled page',
                                          nseq => 'New assembled sequence',
                                          ncrf => 'New custom rights file',
                                          nsty => 'New style file',
                                          nlib => 'New library file',
                                          nsub => 'New subdirectory',
                                          renm => 'Rename current file to',
                                          move => 'Move current file to',
                                          copy => 'Copy current file to',
                                          type => 'Type Name Here',
                                          go => 'Go',
                                          prnt => 'Print contents of directory',
                                          crea => 'Create a new directory or LON-CAPA document',
          acti => 'Actions for current directory',
          updc => 'Upload a new document'
                                         );
       $r->print(<<END);
           <table id="LC_cstr_controls">
            <tr>
             <th>$lt{'acti'}</th>
             <th>$lt{'updc'}</th>
             <th>$lt{'crea'}</th>
           </tr>
           <tr>
            <td>
             <form name="curractions" method="post" action="">
              <select name="dirtask" onchange="currdiract(this.form)">
               <option>$lt{'sela'}</option>
               <option value="publish">$lt{'pubd'}</option>
               <option value="editcat">$lt{'edit'}</option>
               <option value="printdir">$lt{'prnt'}</option>
               <option value="delete">$lt{'dedr'}</option>
              </select>
              <input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
             </form>
             <form name="publishdir" method="post" action="/adm/publish" target="_parent">
              <input type="hidden" name="pubrec" value="" />
              <input type="hidden" name="filename" value="" />
             </form>
             <form name="printdir" method="post" action="/adm/printout" target="_parent">
              <input type="hidden" name="postdata" value="" />
             </form>
            </td>
            <td>
       <form name="upublisher" enctype="multipart/form-data" method="post" action="/adm/upload" target="_parent">
         <input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
         <input type="file" name="upfile" size="20" />
         <input type="button" value="$lt{'uplo'}"  onclick="checkUpload(this.form)" />
       </form>
    </td>
    <td>
       <form name="fileaction" method="post" action="/adm/cfile" target="_parent">
         <span style="white-space: nowrap">
    <input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
     <select name="action">
       <option value="Select Action">$lt{'sela'}</option>
       <option value="newfile">$lt{'nfil'}:</option>
       <option value="newhtmlfile">$lt{'nhtm'}:</option>
       <option value="newproblemfile">$lt{'nprb'}:</option>
                               <option value="newpagefile">$lt{'npag'}:</option>
                               <option value="newsequencefile">$lt{'nseq'}:</option>
                               <option value="newrightsfile">$lt{'ncrf'}:</option>
                               <option value="newstyfile">$lt{'nsty'}:</option>
                               <option value="newlibraryfile">$lt{'nlib'}:</option>
       <option value="newdir">$lt{'nsub'}:</option>
     </select>&nbsp;<input type="text" name="newfilename" value="Type Name Here" onfocus="if (this.value == 'Type Name Here') this.value=''" />&nbsp;<input type="button" value="Go" onclick="document.fileaction.submit()" />
    </span>
    </form>
     </td>
            </tr>
           </table>
   END
   }
   
   sub pubbuttons {
       my ($r,$uname,$thisdisfn) = @_;
       $r->print('<form method="post" action="/adm/publish" target="_parent">'.
                 '<table><tr><td><input type="hidden" name="filename" value="/~'.
                  $uname.$thisdisfn.'/" />'.
                 '<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'.
   '<input type="button" onclick="window.location='."'/~".
                  $uname.$thisdisfn."/default.meta'".'" value="'.
   &mt('Edit Directory Catalog Information').'" /></td></tr></table></form>');
   }
   
   sub resourceactions {
       my ($r,$uname,$udom,$thisdisfn) = @_;
       $r->print(<<END);
          <form name="moveresource" action="/adm/cfile" target="_parent" method="post">
            <input type="hidden" name="filename" value="" />
            <input type="hidden" name="newfilename" value="" />
            <input type="hidden" name="action" value="" />
          </form>
          <form name="delresource" action="/adm/cfile" target="_parent" method="post">
            <input type="hidden" name="filename" value="" />
            <input type="hidden" name="action" value="delete" />
          </form>
          <form name="pubresource" action="/adm/publish" target="_parent" method="post">
            <input type="hidden" name="filename" value="" />
            <input type="hidden" name="makeobsolete" value="0" />
          </form>
          <form name="printresource" action="/adm/printout" target="_parent" method="post">
              <input type="hidden" name="postdata" value="" />
          </form>
          <form name="retrieveres" action="/adm/retrieve" target="_parent" method="post">
              <input type="hidden" name="filename" value="" />
          </form>
          <form name="cleanup" action="/adm/cleanup" target="_parent" method="post">
              <input type="hidden" name="filename" value="" />
          </form>
   END
   }
   
   #
   #   Get the title string or "[untitled]" if the file has no title metadata:
   #   Without the latter substitution, it's impossible to examine metadata for
   #   untitled resources.  Resources may be legitimately untitled, to prevent
   #   searches from locating them.
   #
   #   $str = getTitleString($fullname);
   #       $fullname - Fully qualified filename to check.
   #
   sub getTitleString {
       my $fullname = shift;
       my $title    = &Apache::lonnet::metadata($fullname, 'title');
   
       unless ($title) {
    $title = "[".&mt('untitled')."]";
       }
       return $title;
   }
   
   sub getCopyRightString {
       my $fullname = shift;
       return &Apache::lonnet::metadata($fullname, 'copyright');
   }
   
   sub getSourceRightString {
       my $fullname = shift;
       return &Apache::lonnet::metadata($fullname, 'sourceavail');
   }
   #
   #  Put out a directory table row:
   #    putdirectory(r, base, here, dirname, modtime)
   #      r       - Apache request object.
   #      reqfile - File in request.
   #      here    - Where we are in directory tree.
   #      dirname - Name of directory special file.
   #      modtime - Encoded modification time.
   # 
   sub putdirectory {
       my ($r, $reqfile, $here, $dirname, $modtime, $resdir, $bombs, $numdir) = @_;
       # construct the display filename: the directory name unless ..:
       
       my $disfilename = $dirname;
       if ($dirname eq '..') {
    $disfilename = '<i>'.&mt('Parent Directory').'</i>';
       }
       unless ( (($dirname eq '..') && ($reqfile eq '')) || ($dirname eq '.')) {
    my $kaputt=0;
    foreach (keys %{$bombs}) {
       if ($_=~m:^\Q$resdir\E/\Q$disfilename\E/:) { $kaputt=1; last; }
    }
    %Apache::lonpublisher::metadatafields=();
    %Apache::lonpublisher::metadatakeys=();
    my $construct=$here;
    $construct=~s{^/priv/($LONCAPA::username_re)$}{/home/$1/public_html};
           my $dirpath = $here;
           $dirpath=~s{^/priv/}{/~};
    &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile(
           $construct.'/'.$dirname.'/default.meta'
    ));
           my $actionitem = '';
           if ($dirname eq '..') {
               $actionitem = 'Go to ...';
           } else {
               $actionitem = 
                       '<form name="dirselect_'.$$numdir.
                       '" action="/adm/publish" target="_parent">'.
                       '<select name="diraction" onchange="SetPubDir(this.form,document)">'.
                         '<option selected="selected">'.&mt('Select action').'</option>'.
                         '<option value="open">'.&mt('Open').'</option>'.
                         '<option value="publish">'.&mt('Publish').'</option>'.
                         '<option value="editcat">'.&mt('Edit catalog information').'</option>'.
                         '<option value="printdir">'.&mt('Print directory').'</option>'.
                         '<option value="delete">'.&mt('Delete directory').'</option>'.
                       '</select>'.
                        '<input type="hidden" name="filename" value="'.&HTML::Entities::encode($dirpath.'/'.$dirname,'<>&"').'/" />'.
                        '<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'.
                        '<input type="hidden" name="postdata" value="" />'.
                      '</form>';
               $$numdir ++;
           }
    $r->print('<tr class="LC_browser_folder">'.
     '<td><img src="'.
     $Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" alt="folder" /></td>'.
     '<td>'.$actionitem.'</td>'.
     '<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.
     $disfilename.'</a></span></td>'.
           '<td colspan="2">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
    if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
       $r->print(' <i>'.
         $Apache::lonpublisher::metadatafields{'subject'}.
         '</i> ');
    }
    $r->print($Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
     '<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
     "</tr>\n");
       }
       return OK;
   }
   #
   #   Put a table row for a file resource.
   #
   sub putresource {
       my ($r, $udom, $uname, $filename, $thisdisfn, 
    $resdir, $targetdir, $linkdir,
    $cmtime,$bombs,$numres) = @_;
       &Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);
       my $pubstatus = 'unpublished';
       my $status=&mt('Unpublished');
       my $css_class='LC_browser_file';
       my $title='&nbsp;';
       my $publish_button=&mt('Publish');
       my $cstr_dir = '/home/'.$uname.'/public_html/'.$thisdisfn.'/';
   #    my $action_buttons=
   #        '<br /><a target="_parent" href="/adm/cfile?action=delete&filename=/~'.
   # $uname.'/'.$thisdisfn.'/'.$filename.'">'.
   # &mt('Delete').'</a>';
       if (-e $resdir.'/'.$filename) {
           my $same=0;
    my ($rdev,$rino,$rmode,$rnlink,
       $ruid,$rgid,$rrdev,$rsize,
       $ratime,$rmtime,$rctime,
       $rblksize,$rblocks)=stat($resdir.'/'.$filename);
           if ($rmtime>=$cmtime) {
              $same=1;
           } else {
              if (&Apache::londiff::are_different_files($resdir.'/'.$filename,
        $cstr_dir.'/'.$filename)) {
                 $same=0;
              } else {
                 $same=1;
              }
           }
    my $meta_cmtime = (stat($cstr_dir.'/'.$filename.'.meta'))[9];
    my $meta_rmtime = (stat($resdir.'/'.$filename.'.meta'))[9];
    my $meta_same = 1;
    if ($meta_rmtime < $meta_cmtime
       && &Apache::londiff::are_different_files($resdir.'/'.$filename.'.meta',
        $cstr_dir.'/'.$filename.'.meta')) {
       $meta_same = 0;
    }
    $publish_button=&mt('Re-publish');
    my $rights_status =
       &mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
       &mt(&getSourceRightString($targetdir.'/'.$filename));
    $title = '<a href="/res/'.$targetdir.'/'.$filename.
       '.meta" target="cat">'.
       &getTitleString($targetdir.'/'.$filename).'</a>';
    &Apache::lonnet::logthis("same $same meta $meta_same");
    if ($same) {
       if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
                   $pubstatus = 'obsolete';
    $status=&mt('Obsolete');
               } else {
    if (!$meta_same) {
       $pubstatus = 'metamodified';
    } else {
       $pubstatus = 'published';
    }
    $status=&mt('Published').
       '<br />'. $rights_status;
       }
   #    } else {
   # $action_buttons='';
   #    }
    } else {
               $pubstatus = 'modified';
       $status=&mt('Modified').
    '<br />'. $rights_status;
   #    $action_buttons='';
       if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
    $status.='<br /><a href="/adm/diff?filename=/~'.$uname.
       $thisdisfn.'/'.$filename.
       '&amp;versiontwo=priv" target="cat">'.&mt('Diffs').'</a>';
       }
    } 
   
    $title.="\n".'<br /><a href="/~'.$uname.$thisdisfn.'/'.$filename.'.meta">'. 
       ($$bombs{$targetdir.'/'.$filename}?'<img src="/adm/lonMisc/bomb.gif" border="0" alt="bomb" />':'Edit Metadata').'</a>';
   
    if (!$meta_same) {
       $title = &mt('Metadata Modified').'<br />'.$title.
    '<br /><a href="/adm/diff?filename=/~'.$uname.
    $thisdisfn.'/'.$filename.'.meta'.
    '&amp;versiontwo=priv" target="cat">'.&mt('Metadata Diffs').'</a>';
       $title.="\n".'<br /><a href="/adm/retrieve?filename=/~'.$uname.
    $thisdisfn.'/'.$filename.'.meta" target="_parent">'.&mt('Retrieve Metadata').'</a>';
    }
    $status.="\n".'<br /><a href="/adm/retrieve?filename=/~'.$uname.
       $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Retrieve').'</a>';
       }
       my $editlink='';
       my $editlink2='';
       if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) {
    $editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_parent">'.&mt('Edit').'</a>)';
       }
       if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
    $editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_parent">'.&mt('EditXML').'</a>)';
    $editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_parent">'.&mt('Edit').'</a>)';
       }
       if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) {
    $editlink.=' (<a href="/adm/cleanup?filename=/~'.$uname.
       $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Clean Up').')</a>';
       }
       if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
    $editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'.
         $uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
       }
       my $pub_select = '';
       &create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
       $r->print('<tr class="LC_browser_file_'.$pubstatus.'">'.
         '<td>'.($filename=~/[\#\~]$/?'&nbsp;':
         '<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'.
                 '<td>'.$pub_select.'</td>'.
         '<td><span class="LC_filename"> '.
         '<a href="'.$linkdir.'/'.$filename.'" target="_parent">'.
                  $filename.'</a></span>'.$editlink2.$editlink.
         '</td>'.
         '<td>'.$title.'</td>'.
         '<td>'.$status.'</td>'.
         '<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.
         "</tr>\n");
       return OK;
   }
   
   sub create_pubselect {
       my ($r,$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres) = @_;
       $$pub_select = '
   <form name="resselect_'.$$numres.'" action="">
   <select name="reschoice"  onchange="SetResChoice(this.form)">
   <option>'.&mt('Select action').'</option>'.
   '<option value="copy">'.&mt('Copy').'</option>';
       if ($pubstatus eq 'obsolete' || $pubstatus eq 'unpublished') {
           $$pub_select .= 
   '<option value="rename">'.&mt('Rename').'</option>'.
   '<option value="move">'.&mt('Move').'</option>'.
   '<option value="delete">'.&mt('Delete').'</option>';
       } else {
           $$pub_select .= '
   <option value="obsolete">'.&mt('Mark obsolete').'</option>';
       }
   # check for versions
       my $versions = &check_for_versions($r,'/'.$filename,$udom,$uname);
       if ($versions > 0) {
           $$pub_select .='
   <option value="retrieve">'.&mt('Retrieve old version').'</option>';
       }
       $$pub_select .= '
   <option value="publish">'.$publish_button.'</option>'.
   '<option value="cleanup">'.&mt('Clean up').'</option>'.
   '<option value="print">'.&mt('Print').'</option>'.
   '</select>
   <input type="hidden" name="filename" value="/~'.
    &HTML::Entities::encode($uname.$thisdisfn.'/'.$filename,'<>&"').'" />
    <input type="hidden" name="dispfilename" value="'.
    &HTML::Entities::encode($filename).'" /></form>';
       $$numres ++;
   }
   
   sub check_for_versions {
       my ($r,$fn,$udom,$uname) = @_;
       my $versions = 0;
       my $docroot=$r->dir_config('lonDocRoot');
       my $resfn=$docroot.'/res/'.$udom.'/'.$uname.$fn;
       my $resdir=$resfn;
       $resdir=~s/\/[^\/]+$/\//;
       $fn=~/\/([^\/]+)\.(\w+)$/;
       my $main=$1;
       my $suffix=$2;
       opendir(DIR,$resdir);
       while (my $filename=readdir(DIR)) {
           if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
               $versions ++;        
           }
       }
       return $versions;
   }
   
   #
   #   Categorize files in the directory.
   #   For each file in a list of files in a file directory, 
   #   the  file categorized as one of:
   #    - directory  
   #    - sequence
   #    - problem 
   #    - Other resource.
   #
   #   For each file the modification date is determined as well.
   #   Returned is a list of sublists:
   #    (directories, sequences, problems, other)
   #   each of the sublists contains entries of the following form (sorted by
   #   filename):
   #     (filename, typecode, lastmodtime)
   #
   #   $list = CategorizeFiles($location, $files)
   #       $location   - Directory in which the files live (relative to our
   #                     execution.
   #       $files      - list of files.
   #
   sub CategorizeFiles {
       my $location = shift;
       my $files    = shift;
   }
   
 1;  1;
 __END__  __END__
   
 =head1 NAME  =head1 NAME
   
 Apache::lonpubdir - Publication Handler for Directories  Apache::lonpubdir - Construction space directory lister
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 Invoked (for various locations) by /etc/httpd/conf/srm.conf:  Invoked (for various locations) by /etc/httpd/conf/srm.conf:
   
 <LocationMatch "^/\~.*/$">   <LocationMatch "^/\~.*/$">
 PerlAccessHandler       Apache::loncacc   PerlAccessHandler       Apache::loncacc
 SetHandler perl-script   SetHandler perl-script
 PerlHandler Apache::lonpubdir   PerlHandler Apache::lonpubdir
 ErrorDocument     403 /adm/login   ErrorDocument     403 /adm/login
 ErrorDocument     404 /adm/notfound.html   ErrorDocument     404 /adm/notfound.html
 ErrorDocument     406 /adm/unauthorized.html   ErrorDocument     406 /adm/unauthorized.html
 ErrorDocument  500 /adm/errorhandler   ErrorDocument  500 /adm/errorhandler
 </LocationMatch>   </LocationMatch>
   
 <Location /adm/pubdir>   <Location /adm/pubdir>
 PerlAccessHandler       Apache::lonacc   PerlAccessHandler       Apache::lonacc
 SetHandler perl-script   SetHandler perl-script
 PerlHandler Apache::lonpubdir   PerlHandler Apache::lonpubdir
 ErrorDocument     403 /adm/login   ErrorDocument     403 /adm/login
 ErrorDocument     404 /adm/notfound.html   ErrorDocument     404 /adm/notfound.html
 ErrorDocument     406 /adm/unauthorized.html   ErrorDocument     406 /adm/unauthorized.html
 ErrorDocument  500 /adm/errorhandler   ErrorDocument  500 /adm/errorhandler
 </Location>   </Location>
   
 =head1 INTRODUCTION  =head1 INTRODUCTION
   
 This module enables cookie based authentication and is used  This module publishes a directory of files.
 to control access for many different LON-CAPA URIs.  
   
 Whenever the client sends the cookie back to the server,   
 this cookie is handled by either lonacc.pm or loncacc.pm  
 (see srm.conf for what is invoked when).  If  
 the cookie is missing or invalid, the user is re-challenged  
 for login information.  
   
 This is part of the LearningOnline Network with CAPA project  This is part of the LearningOnline Network with CAPA project
 described at http://www.lon-capa.org.  described at http://www.lon-capa.org.
Removed from v.1.17  
changed lines
  Added in v.1.99

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