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.110, 2003/02/18 16:29:37
Line 1201 sub phasetwo {	Line 1201 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";