Tengo problemas para logearme con un Perl a un ftp. Si hago la conexión manualmente no tengo problema, pero cuando ejecuto el script me tira error de logeo.
Les paso el script
Using perl Syntax Highlighting
my $server = "servidor";
my $username="anonimo";
my $password="123ardillas";
$logger->write("Coneactando a servidor...");
my $ftp = Net::FTP-> new($server);
if($ftp = Net::FTP-> new($server)){
$logger->write("Conexion exitosa");
} else{
$logger->write("No se pudo establecer conexion al ftp servidor");
}
# Loggeo
$logger->write("Logging...");
$ftp->login($username,$password);
if ($ftp->login($username,$password)){
$logger->write("Logging OK");
}
else {
$logger->write("Error al logearse.");
exit
}
my $username="anonimo";
my $password="123ardillas";
$logger->write("Coneactando a servidor...");
my $ftp = Net::FTP-> new($server);
if($ftp = Net::FTP-> new($server)){
$logger->write("Conexion exitosa");
} else{
$logger->write("No se pudo establecer conexion al ftp servidor");
}
# Loggeo
$logger->write("Logging...");
$ftp->login($username,$password);
if ($ftp->login($username,$password)){
$logger->write("Logging OK");
}
else {
$logger->write("Error al logearse.");
exit
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y el archivo de log queda:
- Código: Seleccionar todo
Mon Oct 22 13:44:02 2007 Coneactando a servidor...
Mon Oct 22 13:44:12 2007 Conexión exitosa
Mon Oct 22 13:44:12 2007 Logging...
Mon Oct 22 13:44:12 2007 Error al logearse.
¿Alguien podría ayudarme?
Desde ya, muchísimas gracias.