Foro - Perl en Español

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.

Bienvenido al foro de Perl en Español, deftmark.

El mensaje de error quiere decir que nuestro programa ha enviado el servidor de FTP el comando PASV para que pase al modo de trabajo en pasivo, pero... el servidor FTP responde diciendo que no sabe lo que es PASV.

Eso quiere decir que ese servidor FTP no tiene modo de trabajo pasivo.

Solución: no uses el modo pasivo.

Hola, muchas gracias por tu amable respuesta.

Respecto a no utilizar el modo pasivo, he lanzado el script sin instrucción de PASV pero de igual manera me arroja este mensaje Unknown command "PASV". Mi pregunta es: ¿por qué la consola me arroja este mensaje incluso cuando no está implícita la instrucción passive en el script ?

Saludos y gracias,

Mario

Si sale ese error es que sigues mandando la orden.

¿Puedes publicar aquí el programa?

Si, además, pones Debug => 1, verás una traza más completa de lo que está pasando.

Publícala también.

Es muy extraño por que al cambiar a Debug => 1, me muestra que se está enviando el comando "PASV", que no está como instrucción en el script. Quizás el modulo Net::FTP envía este comando. ¿Es posible ajustar algún parámetro en el módulo para que no lo envíe?

Además adjunto el script y los mensajes obtenidos con el Debug.

Un saludo y muchas gracias por vuestra ayuda.

Mario

El manual dice que el modo por defecto es siempre pasivo. Como no le estás diciendo nada, pues entonces lo usa.

Si quieres que no active el modo pasivo, se lo tienes que decir:

Hola nuevamente.

Realicé el cambio que me comentaste de modificar Passive => 0 y por lo menos ahora tengo un avance (ver adjunto) ya que ingresa al equipo y muestra port OK.

$ftp = Net::FTP->new($host, Debug =>1, Passive =>0) or die "No conecto FTP";

Ahora aparece un Unknown command: "ALLO 6845983" (ver adjunto), que la verdad no tengo la menor idea del origen y propósito de este comando.

Aprecio mucho tu ayuda y gracias.

Saludos,

Mario

Net::FTP está solicitando al servidor FTP que reserve (allocate) esa cantidad de bytes para el siguiente archivo que va a mandarle.

Se ve que ese servidor no soporta ese comando.

Lo que no entiendo es por qué no aparece el envío del archivo. Quiero decir: es cierto que recibe un comando que no entiende, pero ¿por qué se cierra la conexión antes del envío del archivo? En el programa no veo ningún die() que diga que debe morirse en caso de fallo.



P.D.: acabo de verlo: está en el código fuente del módulo Net::FTP. Se envía un comando ALLO en caso de que el archivo a enviar sea un archivo normal (no entubado ni un dispositivo):
Luego envía el comando ALLO, y falla, y al hacerlo, no sigue con el comando put():

Prueba a hacer esto: cambia la línea 14 por