From 80bd9d6949785116ecabc5f05a4cdb7d4409fa73 Mon Sep 17 00:00:00 2001
From: "Andrey A. Chernov" <ache@FreeBSD.org>
Date: Tue, 25 Nov 1997 17:05:51 +0000
Subject: [PATCH] Properly copy files with % and & in the names Submitted by: 
 Dirk Meyer <dirk.meyer@dinoex.sub.org>

---
 www/webcopy/files/patch-ac | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 www/webcopy/files/patch-ac

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/&amp;/&/;
+      $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));
+
+