mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-13 23:36:08 +00:00
35 lines
834 B
Plaintext
35 lines
834 B
Plaintext
|
*** 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));
|
||
|
|
|
||
|
|
|