Properly copy files with % and & in the names

Submitted by:  Dirk Meyer <dirk.meyer@dinoex.sub.org>

1 files changed, 34 insertions, 0 deletions

diff --git a/www/webcopy/files/patch-ac b/www/webcopy/files/patch-ac
new file mode 100644
index 000000000000..67e807ea2143
--- /dev/null
+++ b/www/webcopy/files/patch-ac
@@ -0,0 +1,34 @@
+*** 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));
+
+