*** webcopy.src Sat Nov 1 11:00:23 1997
--- webcopy.src.neu Sat Nov 1 13:48:20 1997
***************
*** 384,389 ****
--- 384,390 ----
return;
}
}
+ $ref =~ s/&/&/;
$ref="$path$ref" unless $ref=~m!^/!;
($ref,$qs)=$ref=~m!^([^?]*)(.*)$!;
$isdir=$ref=~m!/$!;
***************
*** 454,459 ****
--- 455,461 ----
sub transfer {
local($url,$file)=@_;
+ $file=&unescape($file);
local($status,$code,$info,$line,$length,$html,$redirect,$update,$data,
$bytes,$step,$slice);
if ($useremote) {
***************
*** 560,565 ****
--- 562,568 ----
local(@subdirs)=split('/',$path);
local($sub);
$name=pop(@subdirs); # get name of file from path
+ $name=&unescape($name);
for $sub (@subdirs) {
$dir.= "/".&unescape($sub);
stat(&real($dir));
