Per FTP Datei kopieren? (gelöst) - #146669 (Netzwerkprogrammierung und Netzwerke mit Perl)

bianca

2011-03-20 08:19

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Super Tipp, muss ich mal weiter forschen.
Im Moment scheint es der FTP Server nicht zu verstehen. Ich komme aber nicht dahinter, wie ich das sauber abfragen kann, ob er es versteht, denn $ftp->message ist komischerweise immer leer.
Erst wenn ich nach CPFR und CPTO ein binary absetze kommt eine Meldung zurück.

Wie kann ich sauber und vor allem sicher abfragen, ob ein FTP Server CPFR und CPTO versteht?
$ftp->feature liefert es nicht zurück, damit würde ich aber auch im Positivfall nicht rechnen, weil das keine SITE-Kommandos liefert, oder liege ich da falsch?

Danke

Code (perl): (dl )

if ($ftp->command('CPFR', 'pfad1/test_ftp.pl') && $ftp->command('CPTO','pfad2/test.pl')) { print "OK\n" }
else {
    print "Fehler >" . $ftp->message . "<\n";
}
print "setze binary\n";
$ftp->binary;
exit();

Quote
Net::FTP=GLOB(0xe87e84)<<< 220 ProFTPD 1.3.2rc3 Server [IP]
Net::FTP=GLOB(0xe87e84)>>> USER [username]
Net::FTP=GLOB(0xe87e84)<<< 331 Password required for [host]
Net::FTP=GLOB(0xe87e84)>>> PASS ....
Net::FTP=GLOB(0xe87e84)<<< 230 User [adresse] logged in
Net::FTP=GLOB(0xe87e84)>>> CPFR pfad1/test_ftp.pl
Net::FTP=GLOB(0xe87e84)>>> CPTO pfad2/test.pl
OK
setze binary
Net::FTP=GLOB(0xe87e84)>>> TYPE I
Net::FTP=GLOB(0xe87e84)<<< 500 CPFR not understood

Editiert von bianca: $ftp->feature ergänzt
Last edited: 2011-03-20 08:22:00 +0100 (CET)

10 print "Hallo"
20 goto 10