From 82d4c2d72bf0613906bf597696ee89f890c945fe Mon Sep 17 00:00:00 2001
From: Cy Schubert <cy@FreeBSD.org>
Date: Mon, 18 Jul 2011 07:03:14 +0000
Subject: Resurrect this port. Adjust master sites and assume maintainership.

---
 ftp/mirror/files/patch-ae | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 ftp/mirror/files/patch-ae

(limited to 'ftp/mirror/files/patch-ae')

diff --git a/ftp/mirror/files/patch-ae b/ftp/mirror/files/patch-ae
new file mode 100644
index 000000000000..c289ae2489df
--- /dev/null
+++ b/ftp/mirror/files/patch-ae
@@ -0,0 +1,36 @@
+*** ftp.pl.orig	Fri Jun  5 11:10:27 1998
+--- ftp.pl	Fri Sep 10 10:40:50 1999
+***************
+*** 150,156 ****
+  # (Normally set elsewhere - this is just a sensible default.)
+  # Is expected to take count and code as arguments and prompt
+  # for the secret key  with 'password:' on stdout and then print the password.
+! $ftp'keygen_prog = '/usr/local/bin/key';
+  
+  # Uncomment to turn on lots of debugging.
+  # &debug( 10 );
+--- 150,156 ----
+  # (Normally set elsewhere - this is just a sensible default.)
+  # Is expected to take count and code as arguments and prompt
+  # for the secret key  with 'password:' on stdout and then print the password.
+! $ftp'keygen_prog = '/usr/bin/key';
+  
+  # Uncomment to turn on lots of debugging.
+  # &debug( 10 );
+***************
+*** 486,492 ****
+  		return 0;
+  	}
+  	if( $ret == 1 ) {
+! 		if( $response =~ m/^227 Entering Passive Mode \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){
+  			$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
+  			$newport = $5 * 256 + $6;
+  		}
+--- 486,492 ----
+  		return 0;
+  	}
+  	if( $ret == 1 ) {
+! 		if( $response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){
+  			$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
+  			$newport = $5 * 256 + $6;
+  		}
-- 
cgit v1.2.3