Opened by PaulMC at 2006-10-12 14:15
User since
2006-10-12
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-10-12
3 Artikel
BenutzerIn
Hallo,
Ich versuche, mit Perl Daten auf und von einem FTP Server zu transferieren. Der Server nutzt als Protokoll FTP mit TLS/SSL (Implicit).
Ich habe mir nun das Modul Net::FTPSSL angesehen. Der Login auf dem Server funktioniert auch. Aber leider kann ich keine Daten transferieren.
Folgenden Code habe ich dafür geschrieben:
Wenn ich das script nun laufen lasse, bekomme ich folgende Ausgabe:
Wenn ich es richtig verstehe, versucht das Script die Daten im Passive Mode zu übertragen. Der Server kann das nicht und damit bricht die Verbindung ab.
Ich habe auch versucht den Passive Mode aus zu schalten, aber das brachte leider keinen Erfolg.
Kann mir bitte jemand weiter helfen. Ich habe leider keine Ideen mehr, woran dies liegen kann. Mache ich vielleicht irgendwo einen dummen Fehler?
Vielen Dank schon mal,
Gruss
Paul
Ich versuche, mit Perl Daten auf und von einem FTP Server zu transferieren. Der Server nutzt als Protokoll FTP mit TLS/SSL (Implicit).
Ich habe mir nun das Modul Net::FTPSSL angesehen. Der Login auf dem Server funktioniert auch. Aber leider kann ich keine Daten transferieren.
Folgenden Code habe ich dafür geschrieben:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
use Net::FTPSSL;
use Mail::Sendmail;
use File::Copy;
my($ftps);
$ftps = Net::FTPSSL->new("ftp.server.de",Port => 990,Encryption => "I",Timeout => 2, Debug => 5, Passive => "0") or die "Error connecting to FTP Server for ConnectionTest: $@";
$ftps->login("username","*******") or die "Can't Login to Server: ", $ftps->last_message;
$ftps->cwd("TEST") or die "Can't change directory: ",
$ftps->last_message;
$ftps->get("test.xml") or die "Can't save file to server: ",
$ftps->last_message;
$ftps->quit();
Wenn ich das script nun laufen lasse, bekomme ich folgende Ausgabe:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
<<< 227 Entering Passive Mode (62,128,7,123,4,11).
>>> USER username
<<< 331 Password required for username.
>>> PASS ******
<<< 230 Login OK. Proceed.
>>> CWD TEST
<<< 250 Folder changed to "/TEST".
>>> PBSZ 0
<<< 200 PBSZ Command OK. Protection buffer size set to 0.
>>> PROT P
<<< 200 PROT Command OK. Using Private data connection
>>> PASV
connect: Unknown error at d:/Perl/site/lib/Net/SSLeay/Handle.pm line 166.
Wenn ich es richtig verstehe, versucht das Script die Daten im Passive Mode zu übertragen. Der Server kann das nicht und damit bricht die Verbindung ab.
Ich habe auch versucht den Passive Mode aus zu schalten, aber das brachte leider keinen Erfolg.
Kann mir bitte jemand weiter helfen. Ich habe leider keine Ideen mehr, woran dies liegen kann. Mache ich vielleicht irgendwo einen dummen Fehler?
Vielen Dank schon mal,
Gruss
Paul