diff options
Diffstat (limited to 'ftp/mirror/files/patch-ftp.pl')
-rw-r--r-- | ftp/mirror/files/patch-ftp.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/ftp/mirror/files/patch-ftp.pl b/ftp/mirror/files/patch-ftp.pl new file mode 100644 index 000000000000..c289ae2489df --- /dev/null +++ b/ftp/mirror/files/patch-ftp.pl @@ -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; + } |