Path: blob/main/ftp/mirror/files/patch-ftp.pl
16461 views
*** ftp.pl.orig Fri Jun 5 11:10:27 19981--- ftp.pl Fri Sep 10 10:40:50 19992***************3*** 150,156 ****4# (Normally set elsewhere - this is just a sensible default.)5# Is expected to take count and code as arguments and prompt6# for the secret key with 'password:' on stdout and then print the password.7! $ftp'keygen_prog = '/usr/local/bin/key';89# Uncomment to turn on lots of debugging.10# &debug( 10 );11--- 150,156 ----12# (Normally set elsewhere - this is just a sensible default.)13# Is expected to take count and code as arguments and prompt14# for the secret key with 'password:' on stdout and then print the password.15! $ftp'keygen_prog = '/usr/bin/key';1617# Uncomment to turn on lots of debugging.18# &debug( 10 );19***************20*** 486,492 ****21return 0;22}23if( $ret == 1 ) {24! if( $response =~ m/^227 Entering Passive Mode \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){25$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );26$newport = $5 * 256 + $6;27}28--- 486,492 ----29return 0;30}31if( $ret == 1 ) {32! if( $response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)/ ){33$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );34$newport = $5 * 256 + $6;35}363738