Hola,
Por favor, necesito ayuda en lo siguiente:
Estoy trabajando con un CPE ADSL y estoy tratando de actualizar la versión de FW mediante FTP por la LAN, con el script es posible establecer la sesión FTP sin problema, pero en la línea de ingreso del comando $ftp-> put(('NUR4MQ012.bin') me arroja un mensaje: Unknown command PASV desde la consola.
He intentado con
$ftp = Net::FTP->new($host, Debug =>0, Passive=>1)
$ftp->put_Passive(1)
Estoy utilizando S.O. Ubuntu, el FTP está en modo pasivo, pero de igual manera me arroja el mensaje comentado.
Por favor, alguna ayuda a este problema.
Saludos y gracias.
Mario Aliaga
A continuación el script:
#!/usr/bin/perl
use Net::FTP;
my $host = "192.168.1.1";
my $user = "admin";
my $pass = "1234";
$ftp = Net::FTP->new($host, Debug =>0)
or die "No conecto FTP";
$ftp->login($user, $pass)
or die " No Login", $ftp->message;
print "Conectado al CPE ADSL IP ",$ftp->host, "\n";
$ftp->binary();
print $ftp->message;
$ftp->put('NUR4MQ012.bin')
or die "No se pudo cargar el Fw", $ftp->message;
$ftp->quit;
Nota: estoy corriendo el script en la misma carpeta en donde está alojado el archivo que deseo cargar.
No tengo problema en actualizar el archivo directamente desde la terminal por FTP, sin el script.