loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.16 and 1.19

version 1.16, 2001/12/04 15:34:57	version 1.19, 2001/12/28 22:14:10
Line 28	Line 28
#	#
# (TeX Content Handler	# (TeX Content Handler
#	#
	# YEAR=2000
# 05/29/00,05/30,10/11 Gerd Kortemeyer)	# 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	# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer
	# YEAR=2001
# 03/23 Guy Albertelli	# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)	# 03/24,03/29 Gerd Kortemeyer)
#
# 03/31,04/03,05/09,06/23,08/18,08/20 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;	package Apache::lonpubdir;

Line 43 use Apache::File;	Line 48 use Apache::File;
use File::Copy;	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::lonnet;	use Apache::loncommon();


sub handler {	sub handler {

Line 107 sub handler {	Line 111 sub handler {
my $docroot=$r->dir_config('lonDocRoot');	my $docroot=$r->dir_config('lonDocRoot');

my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn;	my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn;
	my $targetdir=$udom.'/'.$uname.$thisdisfn;
my $linkdir='/~'.$uname.$thisdisfn;	my $linkdir='/~'.$uname.$thisdisfn;

$r->print('<table border=2>'.	$r->print('<table border=2>'.
'<tr><th>Filename</th><th>Modified</th><th>Status</th><th> </th></tr>');	'<tr><th>Filename</th><th>Metadata</th><th>Modified</th>'.
	'<th>Status</th><th> </th></tr>');

my $filename;	my $filename;
my $dirptr=16384;	my $dirptr=16384;
Line 134 sub handler {	Line 140 sub handler {
($filename eq '.')) {	($filename eq '.')) {
$r->print('<tr bgcolor=#BBBBFF'.	$r->print('<tr bgcolor=#BBBBFF'.
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename.	'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename.
'</a></td><td>'.localtime($cmtime).'</td><td> </td><td> </td></tr>'	'</a></td><td> </td><td>'.localtime($cmtime).
	'</td><td> </td><td> </td></tr>'
);	);
}	}
} elsif (&Apache::lonnet::fileembstyle($extension) ne 'hdn') {	} elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
my $status='Unpublished';	my $status='Unpublished';
my $bgcol='#FFBBBB';	my $bgcol='#FFBBBB';
	my $title=' ';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
my ($rdev,$rino,$rmode,$rnlink,	my ($rdev,$rino,$rmode,$rnlink,
$ruid,$rgid,$rrdev,$rsize,	$ruid,$rgid,$rrdev,$rsize,
Line 148 sub handler {	Line 156 sub handler {
if ($rmtime>=$cmtime) {	if ($rmtime>=$cmtime) {
$status='Published';	$status='Published';
$bgcol='#BBFFBB';	$bgcol='#BBFFBB';
	$title=
	'<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
	&Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';
} else {	} else {
$status='Modified';	$status='Modified';
$bgcol='#FFFFBB';	$bgcol='#FFFFBB';
	$title=
	'<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
	&Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';
if	if
(&Apache::lonnet::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {	(&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='<br><a href="/adm/diff?filename=/~'.$uname.	$status.='<br><a href="/adm/diff?filename=/~'.$uname.
$thisdisfn.'/'.$filename.	$thisdisfn.'/'.$filename.
'&versionone=priv" target=cat>Diffs</a>';	'&versionone=priv" target=cat>Diffs</a>';
Line 163 sub handler {	Line 177 sub handler {
}	}
$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>'.	'</a></td><td>'.$title.
	'<td>'.localtime($cmtime).'</td><td>'.$status.'</td>'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.$uname.	'<td><a target="_parent" href="/adm/publish?filename=/~'.$uname.
$thisdisfn.'/'.$filename.'">'.	$thisdisfn.'/'.$filename.'">'.
'Publish</a></td></tr>');	'Publish</a></td></tr>');
Line 179 sub handler {	Line 194 sub handler {

1;	1;
__END__	__END__

	=head1 NAME

	Apache::lonpubdir - Publication Handler for Directories

	=head1 SYNOPSIS

	Invoked (for various locations) by /etc/httpd/conf/srm.conf:

	<LocationMatch "^/\~.*/$">
	PerlAccessHandler Apache::loncacc
	SetHandler perl-script
	PerlHandler Apache::lonpubdir
	ErrorDocument 403 /adm/login
	ErrorDocument 404 /adm/notfound.html
	ErrorDocument 406 /adm/unauthorized.html
	ErrorDocument 500 /adm/errorhandler
	</LocationMatch>

	<Location /adm/pubdir>
	PerlAccessHandler Apache::lonacc
	SetHandler perl-script
	PerlHandler Apache::lonpubdir
	ErrorDocument 403 /adm/login
	ErrorDocument 404 /adm/notfound.html
	ErrorDocument 406 /adm/unauthorized.html
	ErrorDocument 500 /adm/errorhandler
	</Location>

	=head1 INTRODUCTION

	This module publishes a directory of files.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 HANDLER SUBROUTINE

	This routine is called by Apache and mod_perl.

	=over 4

	=item *

	read in information

	=item *

	start page output

	=item *

	run through list of files and attempt to publish unhidden files

	=back

	=cut

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

Removed from v.1.16
changed lines
	Added in v.1.19