![]() ![]() | ![]() |
Localization: Added two missing &mt() calls
1: # The LearningOnline Network with CAPA 2: # Construction Space Directory Lister 3: # 4: # $Id: lonpubdir.pm,v 1.109 2008/07/29 10:06:27 bisitz Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: ### 29: 30: package Apache::lonpubdir; 31: 32: use strict; 33: use Apache::File; 34: use File::Copy; 35: use Apache::Constants qw(:common :http :methods); 36: use Apache::loncacc; 37: use Apache::loncommon(); 38: use Apache::lonhtmlcommon(); 39: use Apache::londiff(); 40: use Apache::lonlocal; 41: use Apache::lonmsg; 42: use Apache::lonmenu; 43: use Apache::lonnet; 44: use LONCAPA; 45: 46: sub handler { 47: 48: my $r=shift; 49: 50: my $fn; 51: 52: 53: 54: $fn = getEffectiveUrl($r); 55: 56: # Validate access to the construction space and get username@domain. 57: 58: my $uname; 59: my $udom; 60: 61: ($uname,$udom)= 62: &Apache::loncacc::constructaccess( 63: $fn,$r->dir_config('lonDefDomain')); 64: unless (($uname) && ($udom)) { 65: $r->log_reason($uname.' at '.$udom. 66: ' trying to list directory '.$env{'form.filename'}. 67: ' ('.$fn.') - not authorized', 68: $r->filename); 69: return HTTP_NOT_ACCEPTABLE; 70: } 71: 72: # Remove trailing / from directory name. 73: 74: $fn=~s/\/$//; 75: 76: unless ($fn) { 77: $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}. 78: ' trying to list empty directory', $r->filename); 79: return HTTP_NOT_FOUND; 80: } 81: 82: # ----------------------------------------------------------- Start page output 83: 84: my $thisdisfn=$fn; 85: $thisdisfn=~s/^\/home\/$uname\/public_html//; # subdirectory part of 86: # construction space. 87: my $docroot=$r->dir_config('lonDocRoot'); # Apache londocument root. 88: 89: my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn; # Resource directory 90: my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory. 91: my $linkdir='/priv/'.$uname.$thisdisfn; # Full URL name of constr space. 92: 93: my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); 94: 95: &startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page. 96: if ($env{'environment.remote'} eq 'off') { 97: &dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, 98: # browse/upload + new file page. 99: } else { 100: &pubbuttons($r,$uname,$thisdisfn); 101: } 102: &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. 103: 104: my $numdir = 0; 105: my $numres = 0; 106: 107: # Start off the directory table. 108: $r->print('<h3>'.&mt('Directory Contents:').'</h3>'); 109: $r->print('<table id="LC_browser"><tr>'. 110: '<th>'.&mt('Type').'</th>'. 111: '<th>'.&mt('Actions').'</th>'. 112: '<th>'.&mt('Name').'</th>'. 113: '<th>'.&mt('Title').'</th>'. 114: '<th>'.&mt('Status').'</th>'. 115: '<th>'.&mt('Last Modified'). 116: '</th></tr>'."\n"); 117: 118: my $filename; 119: my $dirptr=16384; # Mask indicating a directory in stat.cmode. 120: 121: opendir(DIR,$fn); 122: my @files=sort {uc($a) cmp uc($b)} (readdir(DIR)); 123: foreach my $filename (@files) { 124: my ($cdev,$cino,$cmode,$cnlink, 125: $cuid,$cgid,$crdev,$csize, 126: $catime,$cmtime,$cctime, 127: $cblksize,$cblocks)=stat($fn.'/'.$filename); 128: 129: my $extension=''; 130: if ($filename=~/\.(\w+)$/) { $extension=$1; } 131: if ($cmode&$dirptr) { 132: putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime,$targetdir,\%bombs,\$numdir); 133: } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') { 134: putresource($r, $udom, $uname, $filename, $thisdisfn, $resdir, 135: $targetdir, $linkdir, $cmtime,\%bombs,\$numres); 136: } else { 137: # "hidden" extension and not a directory, so hide it away. 138: } 139: } 140: closedir(DIR); 141: 142: $r->print('</table>'.&Apache::loncommon::end_page()); 143: return OK; 144: } 145: # 146: # Gets the effective URL of the request and returns it: 147: # $effn = getEffectiveUrl($r); 148: # $r - The Apache Request object. 149: sub getEffectiveUrl { 150: my $r = shift; 151: my $fn; 152: 153: if ($env{'form.filename'}) { # If a form filename is defined. 154: $fn=$env{'form.filename'}; 155: # 156: # Replace the ~username of the URL with /home/username/public_html 157: # so that we don't have to worry about ~ expansion internally. 158: # 159: $fn=~s/^http\:\/\/[^\/]+\///; 160: $fn=~s/^\///; 161: $fn=~s{~($LONCAPA::username_re)}{/home/$1/public_html}; 162: 163: # Remove trailing / strings (?) 164: 165: $fn=~s/\/[^\/]+$//; 166: } else { 167: # If no form is defined, use request filename. 168: $fn = $r->filename(); 169: my $lonDocRoot=$r->dir_config('lonDocRoot'); 170: if ( $fn =~ /$lonDocRoot/ ) { 171: #internal authentication, needs fixup. 172: $fn = $r->uri(); # non users do not get the full path request 173: # through SCRIPT_FILENAME 174: $fn=~s{^/~($LONCAPA::username_re)}{/home/$1/public_html}; 175: } 176: } 177: $fn=~s/\/+/\//g; 178: return $fn; 179: } 180: # 181: # Output the header of the page. This includes: 182: # - The HTML header 183: # - The H1/H3 stuff which includes the directory. 184: # 185: # startpage($r, $uame, $udom, $thisdisfn); 186: # $r - The apache request object. 187: # $uname - User name. 188: # $udom - Domain name the user is logged in under. 189: # $thisdisfn - Displayable version of the filename. 190: 191: sub startpage { 192: my ($r, $uname, $udom, $thisdisfn) = @_; 193: my $currdir = '/priv/'.$uname.$thisdisfn; 194: &Apache::loncommon::content_type($r,'text/html'); 195: $r->send_http_header; 196: 197: my $formaction='/priv/'.$uname.$thisdisfn.'/'; 198: $formaction=~s|/+|/|g; 199: my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring'). 200: '<font face="Arial, Helvetica, sans-serif" size="+1"><b>'.&mt('Construction Space').'</b>:</font> '. 201: '<form name="dirs" method="post" action="'.$formaction. 202: '" target="_parent"><tt><b>'. 203: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />". 204: &Apache::lonhtmlcommon::select_recent('construct','recent', 205: 'this.form.action=this.form.recent.value;this.form.submit()'). 206: '</form>'; 207: &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction); 208: if ($env{'environment.remote'} eq 'off') { 209: $env{'request.noversionuri'}=$currdir.'/'; 210: $r->print(&Apache::loncommon::start_page('Construction Space',undef, 211: {'body_title' => 212: $pagetitle,})); 213: } else { 214: $r->print(&Apache::loncommon::start_page('Construction Space',undef, 215: { 'only_body' => 1,})); 216: $r->print($pagetitle); 217: } 218: 219: my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); 220: my $doctitle = 'LON-CAPA '.&mt('Construction Space'); 221: my $newname = &mt('New Name'); 222: my $pubdirscript=(<<ENDPUBDIRSCRIPT); 223: <script type="text/javascript"> 224: top.document.title = '$esc_thisdisfn/ - $doctitle'; 225: // Store directory location for menu bar to find 226: 227: parent.lastknownpriv='/~$uname$esc_thisdisfn/'; 228: 229: // Confirmation dialogues 230: 231: function currdiract(theform) { 232: if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'publish') { 233: document.publishdir.filename.value = theform.filename.value; 234: document.publishdir.submit(); 235: } 236: if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'editcat') { 237: top.location=theform.filename.value+'default.meta' 238: } 239: if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'printdir' ) { 240: document.printdir.postdata.value=theform.filename.value 241: document.printdir.submit(); 242: } 243: if (theform.dirtask.options[theform.dirtask.selectedIndex].value == "delete") { 244: var delform = document.delresource 245: delform.filename.value = theform.filename.value 246: delform.submit() 247: } 248: } 249: 250: function checkUpload(theform) { 251: if (theform.file == '') { 252: alert("Please use 'Browse..' to choose a file first, before uploading") 253: return 254: } 255: theform.submit() 256: } 257: 258: function SetPubDir(theform,printForm) { 259: if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") { 260: top.location = theform.openname.value 261: return 262: } 263: if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") { 264: theform.submit(); 265: } 266: if (theform.diraction.options[theform.diraction.selectedIndex].value == "editcat") { 267: top.location=theform.filename.value+'default.meta' 268: } 269: if (theform.diraction.options[theform.diraction.selectedIndex].value == "printdir") { 270: theform.action = '/adm/printout' 271: theform.postdata.value = theform.filename.value 272: theform.submit() 273: } 274: if (theform.diraction.options[theform.diraction.selectedIndex].value == "delete") { 275: var delform = document.delresource 276: delform.filename.value = theform.filename.value 277: delform.submit() 278: } 279: return 280: } 281: function SetResChoice(theform) { 282: var activity = theform.reschoice.options[theform.reschoice.selectedIndex].value 283: if ((activity == 'rename') || (activity == 'copy') || (activity == 'move')) { 284: changename(theform,activity) 285: } 286: if (activity == 'publish') { 287: var pubform = document.pubresource 288: pubform.filename.value = theform.filename.value 289: pubform.submit() 290: } 291: if (activity == 'delete') { 292: var delform = document.delresource 293: delform.filename.value = theform.filename.value 294: delform.submit() 295: } 296: if (activity == 'obsolete') { 297: var pubform = document.pubresource 298: pubform.filename.value = theform.filename.value 299: pubform.makeobsolete.value=1; 300: pubform.submit() 301: } 302: if (activity == 'print') { 303: document.printresource.postdata.value = theform.filename.value 304: document.printresource.submit() 305: } 306: if (activity == 'retrieve') { 307: document.retrieveres.filename.value = theform.filename.value 308: document.retrieveres.submit() 309: } 310: if (activity == 'cleanup') { 311: document.cleanup.filename.value = theform.filename.value 312: document.cleanup.submit() 313: } 314: return 315: } 316: function changename(theform,activity) { 317: var oldname=theform.dispfilename.value; 318: var newname=prompt('$newname',oldname); 319: if (newname == "" || !newname || newname == oldname) { 320: return 321: } 322: document.moveresource.newfilename.value = newname 323: document.moveresource.filename.value = theform.filename.value 324: document.moveresource.action.value = activity 325: document.moveresource.submit(); 326: } 327: </script> 328: ENDPUBDIRSCRIPT 329: $r->print($pubdirscript); 330: 331: if ((($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) && 332: $env{'environment.remote'} ne 'off') { 333: $r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom. 334: '</h3>'); 335: } 336: } 337: 338: sub dircontrols { 339: my ($r,$uname,$udom,$thisdisfn) = @_; 340: my %lt=&Apache::lonlocal::texthash( 341: cnpd => 'Cannot publish directory', 342: cnrd => 'Cannot retrieve directory', 343: mcdi => 'Must create new subdirectory inside a directory', 344: pubr => 'Publish this Resource', 345: pubd => 'Publish this Directory', 346: dedr => 'Delete Directory', 347: rtrv => 'Retrieve Old Version', 348: list => 'List Directory', 349: uplo => 'Upload file', 350: dele => 'Delete', 351: edit => 'Edit Catalog Information', 352: sela => 'Select Action', 353: nfil => 'New file', 354: nhtm => 'New HTML file', 355: nprb => 'New problem', 356: npag => 'New assembled page', 357: nseq => 'New assembled sequence', 358: ncrf => 'New custom rights file', 359: nsty => 'New style file', 360: nlib => 'New library file', 361: nbt => 'New bridgetask file', 362: nsub => 'New subdirectory', 363: renm => 'Rename current file to', 364: move => 'Move current file to', 365: copy => 'Copy current file to', 366: type => 'Type Name Here', 367: go => 'Go', 368: prnt => 'Print contents of directory', 369: crea => 'Create a new directory or LON-CAPA document', 370: acti => 'Actions for current directory', 371: updc => 'Upload a new document', 372: pick => 'Please select an action to perform using the new filename', 373: ); 374: my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript 375: $r->print(<<END); 376: <table id="LC_cstr_controls"> 377: <tr> 378: <th>$lt{'acti'}</th> 379: <th>$lt{'updc'}</th> 380: <th>$lt{'crea'}</th> 381: </tr> 382: <tr> 383: <td> 384: <form name="curractions" method="post" action=""> 385: <select name="dirtask" onchange="currdiract(this.form)"> 386: <option>$lt{'sela'}</option> 387: <option value="publish">$lt{'pubd'}</option> 388: <option value="editcat">$lt{'edit'}</option> 389: <option value="printdir">$lt{'prnt'}</option> 390: <option value="delete">$lt{'dedr'}</option> 391: </select> 392: <input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> 393: </form> 394: <form name="publishdir" method="post" action="/adm/publish" target="_parent"> 395: <input type="hidden" name="pubrec" value="" /> 396: <input type="hidden" name="filename" value="" /> 397: </form> 398: <form name="printdir" method="post" action="/adm/printout" target="_parent"> 399: <input type="hidden" name="postdata" value="" /> 400: </form> 401: </td> 402: <td> 403: <form name="upublisher" enctype="multipart/form-data" method="post" action="/adm/upload" target="_parent"> 404: <input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> 405: <input type="file" name="upfile" size="20" /> 406: <input type="button" value="$lt{'uplo'}" onclick="checkUpload(this.form)" /> 407: </form> 408: </td> 409: <td> 410: <form name="fileaction" method="post" action="/adm/cfile" target="_parent"> 411: <span style="white-space: nowrap"> 412: <input type="hidden" name="filename" value="/~$uname$thisdisfn/" /> 413: <script type="text/javascript"> 414: function validate_go() { 415: var selected = document.fileaction.action.selectedIndex; 416: if (selected == 0) { 417: alert('$lt{'pick'}'); 418: } else { 419: document.fileaction.submit(); 420: } 421: } 422: </script> 423: <select name="action"> 424: <option value="none">$lt{'sela'}</option> 425: <option value="newfile">$lt{'nfil'}:</option> 426: <option value="newhtmlfile">$lt{'nhtm'}:</option> 427: <option value="newproblemfile">$lt{'nprb'}:</option> 428: <option value="newpagefile">$lt{'npag'}:</option> 429: <option value="newsequencefile">$lt{'nseq'}:</option> 430: <option value="newrightsfile">$lt{'ncrf'}:</option> 431: <option value="newstyfile">$lt{'nsty'}:</option> 432: <option value="newtaskfile">$lt{'nbt'}:</option> 433: <option value="newlibraryfile">$lt{'nlib'}:</option> 434: <option value="newdir">$lt{'nsub'}:</option> 435: </select> <input type="text" name="newfilename" value="$lt{'type'}" onfocus="if (this.value == '$mytype') this.value=''" /> <input type="button" value="Go" onclick="validate_go();" /> 436: </span> 437: </form> 438: </td> 439: </tr> 440: </table> 441: END 442: } 443: 444: sub pubbuttons { 445: my ($r,$uname,$thisdisfn) = @_; 446: $r->print('<form method="post" action="/adm/publish" target="_parent">'. 447: '<table><tr><td><input type="hidden" name="filename" value="/~'. 448: $uname.$thisdisfn.'/" />'. 449: '<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'. 450: '<input type="button" onclick="window.location='."'/~". 451: $uname.$thisdisfn."/default.meta'".'" value="'. 452: &mt('Edit Directory Catalog Information').'" /></td></tr></table></form>'); 453: } 454: 455: sub resourceactions { 456: my ($r,$uname,$udom,$thisdisfn) = @_; 457: $r->print(<<END); 458: <form name="moveresource" action="/adm/cfile" target="_parent" method="post"> 459: <input type="hidden" name="filename" value="" /> 460: <input type="hidden" name="newfilename" value="" /> 461: <input type="hidden" name="action" value="" /> 462: </form> 463: <form name="delresource" action="/adm/cfile" target="_parent" method="post"> 464: <input type="hidden" name="filename" value="" /> 465: <input type="hidden" name="action" value="delete" /> 466: </form> 467: <form name="pubresource" action="/adm/publish" target="_parent" method="post"> 468: <input type="hidden" name="filename" value="" /> 469: <input type="hidden" name="makeobsolete" value="0" /> 470: </form> 471: <form name="printresource" action="/adm/printout" target="_parent" method="post"> 472: <input type="hidden" name="postdata" value="" /> 473: </form> 474: <form name="retrieveres" action="/adm/retrieve" target="_parent" method="post"> 475: <input type="hidden" name="filename" value="" /> 476: </form> 477: <form name="cleanup" action="/adm/cleanup" target="_parent" method="post"> 478: <input type="hidden" name="filename" value="" /> 479: </form> 480: END 481: } 482: 483: # 484: # Get the title string or "[untitled]" if the file has no title metadata: 485: # Without the latter substitution, it's impossible to examine metadata for 486: # untitled resources. Resources may be legitimately untitled, to prevent 487: # searches from locating them. 488: # 489: # $str = getTitleString($fullname); 490: # $fullname - Fully qualified filename to check. 491: # 492: sub getTitleString { 493: my $fullname = shift; 494: my $title = &Apache::lonnet::metadata($fullname, 'title'); 495: 496: unless ($title) { 497: $title = "[".&mt('untitled')."]"; 498: } 499: return $title; 500: } 501: 502: sub getCopyRightString { 503: my $fullname = shift; 504: return &Apache::lonnet::metadata($fullname, 'copyright'); 505: } 506: 507: sub getSourceRightString { 508: my $fullname = shift; 509: return &Apache::lonnet::metadata($fullname, 'sourceavail'); 510: } 511: # 512: # Put out a directory table row: 513: # putdirectory(r, base, here, dirname, modtime) 514: # r - Apache request object. 515: # reqfile - File in request. 516: # here - Where we are in directory tree. 517: # dirname - Name of directory special file. 518: # modtime - Encoded modification time. 519: # 520: sub putdirectory { 521: my ($r, $reqfile, $here, $dirname, $modtime, $resdir, $bombs, $numdir) = @_; 522: # construct the display filename: the directory name unless ..: 523: 524: my $disfilename = $dirname; 525: if ($dirname eq '..') { 526: $disfilename = '<i>'.&mt('Parent Directory').'</i>'; 527: } 528: unless ( (($dirname eq '..') && ($reqfile eq '')) || ($dirname eq '.')) { 529: my $kaputt=0; 530: foreach (keys %{$bombs}) { 531: if ($_=~m:^\Q$resdir\E/\Q$disfilename\E/:) { $kaputt=1; last; } 532: } 533: %Apache::lonpublisher::metadatafields=(); 534: %Apache::lonpublisher::metadatakeys=(); 535: my $construct=$here; 536: $construct=~s{^/priv/($LONCAPA::username_re)$}{/home/$1/public_html}; 537: my $dirpath = $here; 538: $dirpath=~s{^/priv/}{/~}; 539: &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( 540: $construct.'/'.$dirname.'/default.meta' 541: )); 542: my $actionitem = ''; 543: if ($dirname eq '..') { 544: $actionitem = &mt('Go to ...'); 545: } else { 546: $actionitem = 547: '<form name="dirselect_'.$$numdir. 548: '" action="/adm/publish" target="_parent">'. 549: '<select name="diraction" onchange="SetPubDir(this.form,document)">'. 550: '<option selected="selected">'.&mt('Select action').'</option>'. 551: '<option value="open">'.&mt('Open').'</option>'. 552: '<option value="publish">'.&mt('Publish').'</option>'. 553: '<option value="editcat">'.&mt('Edit catalog information').'</option>'. 554: '<option value="printdir">'.&mt('Print directory').'</option>'. 555: '<option value="delete">'.&mt('Delete directory').'</option>'. 556: '</select>'. 557: '<input type="hidden" name="filename" value="'.&HTML::Entities::encode($dirpath.'/'.$dirname,'<>&"').'/" />'. 558: '<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'. 559: '<input type="hidden" name="postdata" value="" />'. 560: '</form>'; 561: $$numdir ++; 562: } 563: $r->print('<tr class="LC_browser_folder">'. 564: '<td><img src="'. 565: $Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" alt="folder" /></td>'. 566: '<td>'.$actionitem.'</td>'. 567: '<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'. 568: $disfilename.'</a></span></td>'. 569: '<td colspan="2">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'}); 570: if ($Apache::lonpublisher::metadatafields{'subject'} ne '') { 571: $r->print(' <i>'. 572: $Apache::lonpublisher::metadatafields{'subject'}. 573: '</i> '); 574: } 575: $r->print($Apache::lonpublisher::metadatafields{'keywords'}.'</td>'. 576: '<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'. 577: "</tr>\n"); 578: } 579: return OK; 580: } 581: # 582: # Put a table row for a file resource. 583: # 584: sub putresource { 585: my ($r, $udom, $uname, $filename, $thisdisfn, 586: $resdir, $targetdir, $linkdir, 587: $cmtime,$bombs,$numres) = @_; 588: &Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename); 589: my $pubstatus = 'unpublished'; 590: my $status=&mt('Unpublished'); 591: my $css_class='LC_browser_file'; 592: my $title=' '; 593: my $publish_button=&mt('Publish'); 594: my $cstr_dir = '/home/'.$uname.'/public_html/'.$thisdisfn.'/'; 595: # my $action_buttons= 596: # '<br /><a target="_parent" href="/adm/cfile?action=delete&filename=/~'. 597: # $uname.'/'.$thisdisfn.'/'.$filename.'">'. 598: # &mt('Delete').'</a>'; 599: if (-e $resdir.'/'.$filename) { 600: my $same=0; 601: my ($rdev,$rino,$rmode,$rnlink, 602: $ruid,$rgid,$rrdev,$rsize, 603: $ratime,$rmtime,$rctime, 604: $rblksize,$rblocks)=stat($resdir.'/'.$filename); 605: if ($rmtime>=$cmtime) { 606: $same=1; 607: } else { 608: if (&Apache::londiff::are_different_files($resdir.'/'.$filename, 609: $cstr_dir.'/'.$filename)) { 610: $same=0; 611: } else { 612: $same=1; 613: } 614: } 615: my $meta_cmtime = (stat($cstr_dir.'/'.$filename.'.meta'))[9]; 616: my $meta_rmtime = (stat($resdir.'/'.$filename.'.meta'))[9]; 617: my $meta_same = 1; 618: if ($meta_rmtime < $meta_cmtime 619: && &Apache::londiff::are_different_files($resdir.'/'.$filename.'.meta', 620: $cstr_dir.'/'.$filename.'.meta')) { 621: $meta_same = 0; 622: } 623: $publish_button=&mt('Re-publish'); 624: my $rights_status = 625: &mt(&getCopyRightString($targetdir.'/'.$filename)).' '. 626: &mt(&getSourceRightString($targetdir.'/'.$filename)); 627: $title = '<a href="/res/'.$targetdir.'/'.$filename. 628: '.meta" target="cat">'. 629: &getTitleString($targetdir.'/'.$filename).'</a>'; 630: if ($same) { 631: if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) { 632: $pubstatus = 'obsolete'; 633: $status=&mt('Obsolete'); 634: } else { 635: if (!$meta_same) { 636: $pubstatus = 'metamodified'; 637: } else { 638: $pubstatus = 'published'; 639: } 640: $status=&mt('Published'). 641: '<br />'. $rights_status; 642: } 643: # } else { 644: # $action_buttons=''; 645: # } 646: } else { 647: $pubstatus = 'modified'; 648: $status=&mt('Modified'). 649: '<br />'. $rights_status; 650: # $action_buttons=''; 651: if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') { 652: $status.='<br /><a href="/adm/diff?filename=/~'.$uname. 653: $thisdisfn.'/'.$filename. 654: '&versiontwo=priv" target="cat">'.&mt('Diffs').'</a>'; 655: } 656: } 657: 658: $title.="\n".'<br /><a href="/~'.$uname.$thisdisfn.'/'.$filename.'.meta">'. 659: ($$bombs{$targetdir.'/'.$filename}?'<img src="/adm/lonMisc/bomb.gif" border="0" alt="bomb" />':'Edit Metadata').'</a>'; 660: 661: if (!$meta_same) { 662: $title = &mt('Metadata Modified').'<br />'.$title. 663: '<br /><a href="/adm/diff?filename=/~'.$uname. 664: $thisdisfn.'/'.$filename.'.meta'. 665: '&versiontwo=priv" target="cat">'.&mt('Metadata Diffs').'</a>'; 666: $title.="\n".'<br /><a href="/adm/retrieve?filename=/~'.$uname. 667: $thisdisfn.'/'.$filename.'.meta" target="_parent">'.&mt('Retrieve Metadata').'</a>'; 668: } 669: $status.="\n".'<br /><a href="/adm/retrieve?filename=/~'.$uname. 670: $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Retrieve').'</a>'; 671: } 672: my $editlink=''; 673: my $editlink2=''; 674: if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) { 675: $editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_parent">'.&mt('Edit').'</a>)'; 676: } 677: if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { 678: $editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_parent">'.&mt('EditXML').'</a>)'; 679: $editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_parent">'.&mt('Edit').'</a>)'; 680: } 681: if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) { 682: $editlink.=' (<a href="/adm/cleanup?filename=/~'.$uname. 683: $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Clean Up').')</a>'; 684: } 685: if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { 686: $editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'. 687: $uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)'; 688: } 689: my $pub_select = ''; 690: &create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres); 691: $r->print('<tr class="LC_browser_file_'.$pubstatus.'">'. 692: '<td>'.($filename=~/[\#\~]$/?' ': 693: '<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'. 694: '<td>'.$pub_select.'</td>'. 695: '<td><span class="LC_filename">'. 696: '<a href="'.$linkdir.'/'.$filename.'" target="_parent">'. 697: $filename.'</a></span>'.$editlink2.$editlink. 698: '</td>'. 699: '<td>'.$title.'</td>'. 700: '<td>'.$status.'</td>'. 701: '<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'. 702: "</tr>\n"); 703: return OK; 704: } 705: 706: sub create_pubselect { 707: my ($r,$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres) = @_; 708: $$pub_select = ' 709: <form name="resselect_'.$$numres.'" action=""> 710: <select name="reschoice" onchange="SetResChoice(this.form)"> 711: <option>'.&mt('Select action').'</option>'. 712: '<option value="copy">'.&mt('Copy').'</option>'; 713: if ($pubstatus eq 'obsolete' || $pubstatus eq 'unpublished') { 714: $$pub_select .= 715: '<option value="rename">'.&mt('Rename').'</option>'. 716: '<option value="move">'.&mt('Move').'</option>'. 717: '<option value="delete">'.&mt('Delete').'</option>'; 718: } else { 719: $$pub_select .= ' 720: <option value="obsolete">'.&mt('Mark obsolete').'</option>'; 721: } 722: # check for versions 723: my $versions = &check_for_versions($r,'/'.$filename,$udom,$uname); 724: if ($versions > 0) { 725: $$pub_select .=' 726: <option value="retrieve">'.&mt('Retrieve old version').'</option>'; 727: } 728: $$pub_select .= ' 729: <option value="publish">'.$publish_button.'</option>'. 730: '<option value="cleanup">'.&mt('Clean up').'</option>'. 731: '<option value="print">'.&mt('Print').'</option>'. 732: '</select> 733: <input type="hidden" name="filename" value="/~'. 734: &HTML::Entities::encode($uname.$thisdisfn.'/'.$filename,'<>&"').'" /> 735: <input type="hidden" name="dispfilename" value="'. 736: &HTML::Entities::encode($filename).'" /></form>'; 737: $$numres ++; 738: } 739: 740: sub check_for_versions { 741: my ($r,$fn,$udom,$uname) = @_; 742: my $versions = 0; 743: my $docroot=$r->dir_config('lonDocRoot'); 744: my $resfn=$docroot.'/res/'.$udom.'/'.$uname.$fn; 745: my $resdir=$resfn; 746: $resdir=~s/\/[^\/]+$/\//; 747: $fn=~/\/([^\/]+)\.(\w+)$/; 748: my $main=$1; 749: my $suffix=$2; 750: opendir(DIR,$resdir); 751: while (my $filename=readdir(DIR)) { 752: if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) { 753: $versions ++; 754: } 755: } 756: return $versions; 757: } 758: 759: # 760: # Categorize files in the directory. 761: # For each file in a list of files in a file directory, 762: # the file categorized as one of: 763: # - directory 764: # - sequence 765: # - problem 766: # - Other resource. 767: # 768: # For each file the modification date is determined as well. 769: # Returned is a list of sublists: 770: # (directories, sequences, problems, other) 771: # each of the sublists contains entries of the following form (sorted by 772: # filename): 773: # (filename, typecode, lastmodtime) 774: # 775: # $list = CategorizeFiles($location, $files) 776: # $location - Directory in which the files live (relative to our 777: # execution. 778: # $files - list of files. 779: # 780: sub CategorizeFiles { 781: my $location = shift; 782: my $files = shift; 783: } 784: 785: 1; 786: __END__ 787: 788: =head1 NAME 789: 790: Apache::lonpubdir - Construction space directory lister 791: 792: =head1 SYNOPSIS 793: 794: Invoked (for various locations) by /etc/httpd/conf/srm.conf: 795: 796: <LocationMatch "^/\~.*/$"> 797: PerlAccessHandler Apache::loncacc 798: SetHandler perl-script 799: PerlHandler Apache::lonpubdir 800: ErrorDocument 403 /adm/login 801: ErrorDocument 404 /adm/notfound.html 802: ErrorDocument 406 /adm/unauthorized.html 803: ErrorDocument 500 /adm/errorhandler 804: </LocationMatch> 805: 806: <Location /adm/pubdir> 807: PerlAccessHandler Apache::lonacc 808: SetHandler perl-script 809: PerlHandler Apache::lonpubdir 810: ErrorDocument 403 /adm/login 811: ErrorDocument 404 /adm/notfound.html 812: ErrorDocument 406 /adm/unauthorized.html 813: ErrorDocument 500 /adm/errorhandler 814: </Location> 815: 816: =head1 INTRODUCTION 817: 818: This module publishes a directory of files. 819: 820: This is part of the LearningOnline Network with CAPA project 821: described at http://www.lon-capa.org. 822: 823: =head1 HANDLER SUBROUTINE 824: 825: This routine is called by Apache and mod_perl. 826: 827: =over 4 828: 829: =item * 830: 831: read in information 832: 833: =item * 834: 835: start page output 836: 837: =item * 838: 839: run through list of files and attempt to publish unhidden files 840: 841: =back 842: 843: =cut