J’ai un problème lorsque j’envoie plusieurs fichiers en FTP via la bibliothèque Net::FTP.
Un exemple vaut mieux qu’un long discours
Avant :
[codebox]
/* ---------------------- Modif ---------------------- */
.header {
position:absolute;
top:0;
left:0;
width:100%;
height:116px;
overflow:auto;
}
.dolphinnav {position:relative;height:33px;font-size:12px;text-transform:uppercase;font-weight:bold;background:#fff url(dolphin_bg.gif) repeat-x bottom left;padding:0 0 0 20px; margin-bottom: 10px;}
.dolphinnav ul{margin:0;padding:0;list-style-type:none;width:auto;float:left;}
.dolphinnav ul li{display:block;float:left;margin:0 1px;}
…
[/codebox]
Après :
[codebox]
/* ---------------------- Modif ---------------------- *
.header
position:absolute;
top:0;
left:0;
width:100%;
height:116px;
overflow:auto;
.dolphinnav {position:relative;height:33px;font-size:12px;text-transform:uppercase;font-weight:bold;background:#fff url(dolphin_bg.gif) repeat-x bottom left;padding:0 0 0 20px; margin-bottom: 10px;
.dolphinnav ul{margin:0;padding:0;list-style-type:none;width:auto;float:left;
[/codebox]
Certains caractères se sont fait la malle, j’ai cherché brièvement sur le net sans succès,
ca vient de Perl ou des paramètres FTP ?
Le code en question :
[codebox]
use warnings;
use strict;
use base qw( PMagFramework::Task::Task );
use Error qw(:try);
use Net::FTP;
use File::Copy;
use File::Temp;
use PMagFramework::Error::SFTPException;
use PMagFramework::PMagFramework;
[…]
sub runTask {
[…]
try {
# Connection
my $ftp = Net::FTP->new($framework->getProperty(‘valostk.sftp.url’), Debug => 1)
or throw PMagFramework::Error::SFTPException("Impossible de se connecter au serveur " . $framework->getProperty(‘valostk.sftp.url’));
$ftp->login($framework->getProperty('valostk.sftp.user'), $framework->getProperty('valostk.sftp.password'))
or throw PMagFramework::Error::SFTPException("Impossible de se connecter au serveur " . $framework->getProperty('valostk.sftp.url') . " : User/Password incorrect");
$ftp->type('binary');
# Création du répertoire
$ftp->mkdir ($framework->getProperty('valostk.sftp.path'), 1);
$ftp->cwd ($framework->getProperty('valostk.sftp.path'));
# On envoie les fichiers
for my $file ( glob ($self->createEnvTask()->outDirectory() . "/*")) {
$ftp->put ($file);
}
# Deconnection
$ftp->quit;
} catch PMagFramework::Error::SFTPException with {
$logger->error( $self->code() . " > " . prior Error->stacktrace );
$error = 1;
};
}
[/codebox]