--- loncom/publisher/lonpubdir.pm 2002/02/09 01:38:54 1.23 +++ loncom/publisher/lonpubdir.pm 2004/01/06 02:15:12 1.57 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA -# (Publication Handler +# Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.23 2002/02/09 01:38:54 foxr Exp $ +# $Id: lonpubdir.pm,v 1.57 2004/01/06 02:15:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,20 +25,6 @@ # # 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 -# 12/28 Gerd Kortemeyer -# ### package Apache::lonpubdir; @@ -49,6 +35,9 @@ use File::Copy; use Apache::Constants qw(:common :http :methods); use Apache::loncacc; use Apache::loncommon(); +use Apache::lonhtmlcommon(); +use Apache::lonlocal; +use Apache::lonmsg; sub handler { @@ -70,13 +59,13 @@ sub handler { $fn,$r->dir_config('lonDefDomain')); unless (($uname) && ($udom)) { $r->log_reason($uname.' at '.$udom. - ' trying to publish file '.$ENV{'form.filename'}. + ' trying to list directory '.$ENV{'form.filename'}. ' ('.$fn.') - not authorized', $r->filename); return HTTP_NOT_ACCEPTABLE; } - # Remove trailing / from direcgtory name. + # Remove trailing / from directory name. $fn=~s/\/$//; @@ -95,23 +84,25 @@ sub handler { my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn; # Resource directory my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory. - my $linkdir='/~'.$uname.$thisdisfn; # Full URL name of constr space. - + 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. + &startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page. - # Start off the diretory table. + # Start off the directory table. - $r->print(''. - ''. - ''); + $r->print('
ActionsNameTitleStatusLast Modified
'. + ''. + ''); my $filename; my $dirptr=16384; # Mask indicating a directory in stat.cmode. opendir(DIR,$fn); - my @files=sort(readdir(DIR)); + my @files=sort {uc($a) cmp uc($b)} (readdir(DIR)); foreach my $filename (@files) { my ($cdev,$cino,$cmode,$cnlink, $cuid,$cgid,$crdev,$csize, @@ -121,10 +112,10 @@ sub handler { my $extension=''; if ($filename=~/\.(\w+)$/) { $extension=$1; } if ($cmode&$dirptr) { - putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime); + putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime,$targetdir,\%bombs); } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') { putresource($r, $uname, $filename, $thisdisfn, $resdir, - $targetdir, $linkdir, $cmtime); + $targetdir, $linkdir, $cmtime,\%bombs); } else { # "hidden" extension and not a directory, so hide it away. } @@ -148,14 +139,25 @@ sub getEffectiveUrl { # 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\:\/\/[^\/]+\/\~(\w+)/\/home\/$1\/public_html/; + $fn=~s/^http\:\/\/[^\/]+\///; + $fn=~s/^\///; + $fn=~s/\~(\w+)/\/home\/$1\/public_html/; # Remove trailing / strings (?) $fn=~s/\/[^\/]+$//; - } else { # If no form is defined, use request filename. - $fn=$r->filename(); + } 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|^/~(\w+)|/home/$1/public_html|; + } } + $fn=~s/\/+/\//g; return $fn; } # @@ -168,24 +170,60 @@ sub getEffectiveUrl { # $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) = @_; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; $r->print('LON-CAPA Construction Space'); - $r->print(''); - - $r->print('

Construction Space Directory '. - $thisdisfn.'/

'); + $r->print(&Apache::loncommon::bodytag(undef,undef,undef,1)); + my $pubdirscript=(< +// Store directory location for menu bar to find + +parent.lastknownpriv='/~$uname/$thisdisfn/'; + +// Confirmation dialogues + + function pubdir(theform) { + if (confirm('Publish complete directory?')) { + theform.submit(); + } + } + function pubrecdir(theform) { + if (confirm('Publish directory and all subdirectories?')) { + theform.pubrec.value='1'; + theform.submit(); + } + } + +ENDPUBDIRSCRIPT + + $r->print('

'.&mt('Construction Space Directory').'

'. + ''. + $pubdirscript. + '
'. + '
 '.&mt('Actions').''.&mt('Name').''. + &mt('Title').''.&mt('Status').''.&mt('Last Modified'). + '
'. + ''. + ''. + ''. +'
'.&mt('Force publication of unmodified files').'. 
'); if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) { - $r->print('

Co-Author: '.$uname.' at '.$udom. + $r->print('

'.&mt('Co-Author').': '.$uname.' at '.$udom. '

'); } + $r->print( + &Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn.'/','_top','/priv').'
'); } # @@ -202,12 +240,15 @@ sub getTitleString { my $title = &Apache::lonnet::metadata($fullname, 'title'); unless ($title) { - $title = "[untitled]"; + $title = "[".&mt('untitled')."]"; } return $title; } - +sub getCopyRightString { + my $fullname = shift; + return &Apache::lonnet::metadata($fullname, 'copyright'); +} # # Put out a directory table row: # putdirectory(r, base, here, dirname, modtime) @@ -218,24 +259,38 @@ sub getTitleString { # modtime - Encoded modification time. # sub putdirectory { - my ($r, $reqfile, $here, $dirname, $modtime) = @_; + my ($r, $reqfile, $here, $dirname, $modtime, $resdir, $bombs) = @_; # construct the display filename: the directory name unless ..: my $disfilename = $dirname; if ($dirname eq '..') { - $disfilename = 'Parent Directory'; + $disfilename = ''.&mt('Parent Directory').''; } unless (( ($dirname eq '..') && ($reqfile eq '')) || ($dirname eq '.')) { - $r->print(''. - 'Click to cwd'. - ''. - $disfilename.''. - ' '. - ' '. - ''.localtime($modtime).''. - ''); + 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/(\w+)$:/home/$1/public_html:; + &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( + $construct.'/'.$dirname.'/default.meta' + )); + $r->print(''. + ''. + ''.&mt('Go to ...').''. + ''. + $disfilename.''. + ''.($kaputt?'':'').$Apache::lonpublisher::metadatafields{'title'}.' '. + $Apache::lonpublisher::metadatafields{'subject'}.' '. + $Apache::lonpublisher::metadatafields{'keywords'}.''. + ''.&Apache::lonlocal::locallocaltime($modtime).''. + "\n"); } return OK; } @@ -245,9 +300,10 @@ sub putdirectory { sub putresource { my ($r, $uname, $filename, $thisdisfn, $resdir, $targetdir, $linkdir, - $cmtime) = @_; + $cmtime,$bombs) = @_; - my $status='Unpublished'; + my $status=&mt('Unpublished'); + my $bgcolor='#FFAA99'; my $title=' '; if (-e $resdir.'/'.$filename) { my ($rdev,$rino,$rmode,$rnlink, @@ -255,34 +311,60 @@ sub putresource { $ratime,$rmtime,$rctime, $rblksize,$rblocks)=stat($resdir.'/'.$filename); if ($rmtime>=$cmtime) { - $status='Published'; + $status=&mt('Published').'
'. + &mt(&getCopyRightString($targetdir.'/'.$filename)); + $bgcolor='#CCFF88'; + if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) { + $status=&mt('Obsolete'); + $bgcolor='#AAAAAA'; + } $title=''. - getTitleString($targetdir.'/'.$filename, 'title').''; + &getTitleString($targetdir.'/'.$filename).''; } else { - $status='Modified'; + $status=&mt('Modified').'
'. + &mt(&getCopyRightString($targetdir.'/'.$filename)); + $bgcolor='#FFFF77'; $title=''. - &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').''; + &getTitleString($targetdir.'/'.$filename).''; if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') { - $status.='
Diffs'; + '&versiontwo=priv" target=cat>'.&mt('Diffs').''; } - } + } + $title.='
'. + ($$bombs{$targetdir.'/'.$filename}?'':'Edit Metadata').''; $status.='
Retrieve'; + $thisdisfn.'/'.$filename.'" target=cat>'.&mt('Retrieve').''; + } + my $editlink=''; + my $editlink2=''; + if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) { + $editlink='
('.&mt('Edit').')'; + } + if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { + $editlink=' ('.&mt('EditXML').')'; + $editlink2='
('.&mt('Edit').')'; + } + if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { + $editlink=' ('.&mt('Decompress').')'; } - $r->print(''. + $r->print(''. + ''.($filename=~/[\#\~]$/?' ': + ''). ''.'Publish'. + $uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').''. ''. - ''. - ''.$filename.''. + ''. + ''. + $filename.''.$editlink2.$editlink. ''. ''.$title.''. ''.$status.''. - ''.localtime($cmtime).''. - ''); + ''.&Apache::lonlocal::locallocaltime($cmtime).''. + "\n"); return OK; } # @@ -316,7 +398,7 @@ __END__ =head1 NAME -Apache::lonpubdir - Publication Handler for Directories +Apache::lonpubdir - Construction space directory lister =head1 SYNOPSIS