|
version 1.249, 2008/12/07 23:49:40
|
version 1.249.2.3, 2009/11/24 01:01:28
|
|
Line 1640 sub phasetwo {
|
Line 1640 sub phasetwo {
|
| my $srcf=$2; |
my $srcf=$2; |
| my $srct=$3; |
my $srct=$3; |
| my $srcd=$1; |
my $srcd=$1; |
| unless ($srcd=~/^\/home\/httpd\/html\/res/) { |
my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
| |
unless ($srcd=~/^\Q$docroot\E\/res/) { |
| print $logfile "\nPANIC: Target dir is ".$srcd; |
print $logfile "\nPANIC: Target dir is ".$srcd; |
| $r->print( |
$r->print( |
| "<span class=\"LC_error\">".&mt('Invalid target directory, FAIL')."</span>"); |
"<span class=\"LC_error\">".&mt('Invalid target directory, FAIL')."</span>"); |
|
Line 1652 sub phasetwo {
|
Line 1653 sub phasetwo {
|
| unlink($srcd.'/'.$filename); |
unlink($srcd.'/'.$filename); |
| unlink($srcd.'/'.$filename.'.meta'); |
unlink($srcd.'/'.$filename.'.meta'); |
| } else { |
} else { |
| if ($filename=~/\Q$srcf\E\.(\d+)\.\Q$srct\E$/) { |
if ($filename=~/^\Q$srcf\E\.(\d+)\.\Q$srct\E$/) { |
| $maxversion=($1>$maxversion)?$1:$maxversion; |
$maxversion=($1>$maxversion)?$1:$maxversion; |
| } |
} |
| } |
} |
|
Line 1741 sub phasetwo {
|
Line 1742 sub phasetwo {
|
| # ------------------------------------------------------------- Trigger updates |
# ------------------------------------------------------------- Trigger updates |
| push(@{$modified_urls},[$target,$source]); |
push(@{$modified_urls},[$target,$source]); |
| unless ($registered_cleanup) { |
unless ($registered_cleanup) { |
| $r->register_cleanup(\¬ify); |
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
| |
$r->set_handlers('PerlCleanupHandler' => [\¬ify,@{$handlers}]); |
| $registered_cleanup=1; |
$registered_cleanup=1; |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher