1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
*** ftp.pl.orig Mon Jun 8 14:11:39 1998
--- ftp.pl Mon Jun 8 14:11:42 1998
***************
*** 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;
}
|
