loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.109, 2003/02/18 13:20:13	version 1.112, 2003/02/18 23:18:50
Line 117 use File::Copy;	Line 117 use File::Copy;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use HTML::LCParser;	use HTML::LCParser;
use Apache::lonxml;	use Apache::lonxml;
use Apache::lonhomework;
use Apache::loncacc;	use Apache::loncacc;
use DBI;	use DBI;
use Apache::lonnet();	use Apache::lonnet();
Line 1201 sub phasetwo {	Line 1200 sub phasetwo {
$target=~s/\/+/\//g;	$target=~s/\/+/\//g;

if ($target=~/\_\_\_/) {	if ($target=~/\_\_\_/) {
return	$r->print(
'<font color=red>Unsupported character combination "<tt>___</tt>" in filename, FAIL</font>';	'<font color=red>Unsupported character combination "<tt>___</tt>" in filename, FAIL</font>');
	return 0;
}	}
$distarget=~s/\/+/\//g;	$distarget=~s/\/+/\//g;
my $logfile;	my $logfile;
unless ($logfile=Apache::File->new('>>'.$source.'.log')) {	unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
return	$r->print(
'<font color=red>No write permission to user directory, FAIL</font>';	'<font color=red>No write permission to user directory, FAIL</font>');
	return 0;
}	}
print $logfile	print $logfile
"\n================= Publish ".localtime()." Phase Two ================\n";	"\n================= Publish ".localtime()." Phase Two ================\n";