forked from Lainports/freebsd-ports
19 lines
550 B
Text
19 lines
550 B
Text
*** ftp.pl.orig Tue May 23 23:53:25 1995
|
|
--- ftp.pl Tue Nov 25 09:20:17 1997
|
|
***************
|
|
*** 430,436 ****
|
|
return 0;
|
|
}
|
|
if( $ret == 1 ) {
|
|
! $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;
|
|
}
|
|
--- 430,436 ----
|
|
return 0;
|
|
}
|
|
if( $ret == 1 ) {
|
|
! $response =~ m/^227 .* \((\d+),(\d+),(\d+),(\d+),(\d+),(\d+)\)$/;
|
|
$newhost = sprintf( "%d.%d.%d.%d", $1, $2, $3, $4 );
|
|
$newport = $5 * 256 + $6;
|
|
}
|