loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.17, 2002/09/02 20:06:57	version 1.18, 2002/09/10 02:31:26
Line 88 use strict;	Line 88 use strict;
use Apache::File;	use Apache::File;
use File::Basename;	use File::Basename;
use File::Copy;	use File::Copy;
	use HTML::Entities();
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;	use Apache::loncacc;
use Apache::Log ();	use Apache::Log ();
Line 1019 sub phasetwo {	Line 1020 sub phasetwo {
$dest =~ s/\/home\//\/priv\//;	$dest =~ s/\/home\//\/priv\//;
$dest =~ s/\/public_html//;	$dest =~ s/\/public_html//;

my $base = &Apache::lonnet::escape(&File::Basename::basename($dest));	my $base = &File::Basename::basename($dest);
my $dpath= &File::Basename::dirname($dest);	my $dpath= &File::Basename::dirname($dest);
$dest = $dpath.'/'.$base;	$dest = &HTML::Entities::encode($dpath.'/'.$base);


&Debug($r, "Final url after rewrite: $dest");	&Debug($r, "Final url after rewrite: $dest");