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.5 and 1.14

version 1.5, 2001/05/03 11:04:07	version 1.14, 2001/08/20 20:13:40
Line 10	Line 10
# 03/23 Guy Albertelli	# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)	# 03/24,03/29 Gerd Kortemeyer)
#	#
# 03/31,04/03 Gerd Kortemeyer	# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer

package Apache::lonpubdir;	package Apache::lonpubdir;

Line 18 use strict;	Line 18 use strict;
use Apache::File;	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::lonnet;


sub handler {	sub handler {
Line 33 sub handler {	Line 35 sub handler {
} else {	} else {
$fn=$r->filename();	$fn=$r->filename();
}	}

	my $uname;
	my $udom;

	($uname,$udom)=
	&Apache::loncacc::constructaccess(
	$fn,$r->dir_config('lonDefDomain'));
	unless (($uname) && ($udom)) {
	$r->log_reason($uname.' at '.$udom.
	' trying to publish file '.$ENV{'form.filename'}.
	' ('.$fn.') - not authorized',
	$r->filename);
	return HTTP_NOT_ACCEPTABLE;
	}

$fn=~s/\/$//;	$fn=~s/\/$//;

Line 44 sub handler {	Line 60 sub handler {

# ----------------------------------------------------------- Start page output	# ----------------------------------------------------------- Start page output

my $uname=$ENV{'user.name'};
my $udom=$ENV{'user.domain'};

$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
Line 59 sub handler {	Line 73 sub handler {
$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>');

	if (($uname ne $ENV{'user.name'}) \|\| ($udom ne $ENV{'user.domain'})) {
	$r->print('<h3><font color=red>Co-Author: '.$uname.' at '.$udom.
	'</font></h3>');
	}


my $docroot=$r->dir_config('lonDocRoot');	my $docroot=$r->dir_config('lonDocRoot');

Line 66 sub handler {	Line 86 sub handler {
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></tr>');	'<tr><th>Filename</th><th>Modified</th><th>Status</th><th> </th></tr>');

my $filename;	my $filename;
my $dirptr=16384;	my $dirptr=16384;

opendir(DIR,$fn);	opendir(DIR,$fn);
while ($filename=readdir(DIR)) {	my @files=sort(readdir(DIR));
	foreach my $filename (@files) {
my ($cdev,$cino,$cmode,$cnlink,	my ($cdev,$cino,$cmode,$cnlink,
$cuid,$cgid,$crdev,$csize,	$cuid,$cgid,$crdev,$csize,
$catime,$cmtime,$cctime,	$catime,$cmtime,$cctime,
$cblksize,$cblocks)=stat($fn.'/'.$filename);	$cblksize,$cblocks)=stat($fn.'/'.$filename);
$filename=~/\.(\w+)$/;
if (($1 ne 'meta') && (&Apache::lonnet::fileembstyle($1))) {	my $extension='';
	if ($filename=~/\.(\w+)$/) { $extension=$1; }
	if (($extension ne 'meta') &&
	(&Apache::lonnet::fileembstyle($extension))) {
my $status='Unpublished';	my $status='Unpublished';
my $bgcol='#FFBBBB';	my $bgcol='#FFBBBB';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
Line 94 sub handler {	Line 118 sub handler {
$bgcol='#FFFFBB';	$bgcol='#FFFFBB';
if	if
(&Apache::lonnet::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {	(&Apache::lonnet::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='<br><a href="/adm/diff?filename='.$filename.	$status.='<br><a href="/adm/diff?filename=/~'.$uname.
	$thisdisfn.'/'.$filename.
'&versionone=priv" target=cat>Diffs</a>';	'&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.	$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>'.
	'<td><a target="_parent" href="/adm/publish?filename=/~'.$uname.
	$thisdisfn.'/'.$filename.'">'.
	'Publish</a></td></tr>');
} elsif ($cmode&$dirptr) {	} elsif ($cmode&$dirptr) {
my $disfilename=$filename;	my $disfilename=$filename;
if ($filename eq '..') {	if ($filename eq '..') {
Line 111 sub handler {	Line 141 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></tr>');	'</a></td><td>'.localtime($cmtime).'</td><td> </td><td> </td></tr>'
	);
}	}
	} else {
	#no extension that we know of and not a directory
	#just hide it away
}	}
}	}
closedir(DIR);	closedir(DIR);

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

Removed from v.1.5
changed lines
	Added in v.1.14