Thread Dateitransfer mit Perl und Net::FTPSSL läuft in Timeout (9 answers)
Opened by wikischwedia at 2013-01-22 10:23

GwenDragon
 2013-01-22 13:27
#165113 #165113
User since
2005-01-17
14548 Artikel
Admin1
[Homepage]
user image
Das ist anscheinend ein Problem mit deinem pureftpd.
Dein Skript angepasst auf meinen Server mit pureftpd läuft.
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;
use Net::FTPSSL;

my $host = 'debianserver';
my $ftps = Net::FTPSSL->new(
        $host,
    Port       => 21,
    Encryption => EXP_CRYPT,
    Trace      => 1,
    Debug      => 3,
) or die "Can't open $host\n$Net::FTPSSL::ERRSTR";
$ftps->login( 'test', 'test' )
    or die "Can't login: ", $ftps->last_message();
$ftps->binary() or die "Can't change directory: " . $ftps->last_message();
$ftps->put("filezilla.log") or die "Can't get file: " . $ftps->last_message();
$ftps->get("mokmok.txt")    or die "Can't get file: " . $ftps->last_message();

$ftps->quit();


Ausgabe:
more (3.6kb):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Net-FTPSSL Version: 0.22

Perl: 5.010001 [5.10.1], OS: MSWin32

Server (port): debianserver (21)

Keys: (Debug), (Trace), (Encryption), (Port)
Values: (3), (1), (E), (21)

SKT <<< 220---------- Welcome to Pure-FTPd [privsep] [TLS] ----------
SKT <<< 220-You are user number 3 of 50 allowed.
SKT <<< 220-Local time is now 13:28. Server port: 21.
SKT <<< 220-This is a private system - No anonymous login
SKT <<< 220-IPv6 connections are also welcome on this server.
SKT <<< 220 You will be disconnected after 15 minutes of inactivity.
SKT >>> AUTH TLS
SKT <<< 234 AUTH TLS OK.
*******************************************************************
Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client
is depreciated! Please set SSL_verify_mode to SSL_VERIFY_PEER
together with SSL_ca_file|SSL_ca_path for verification.
If you really don't want to verify the certificate and keep the
connection open to Man-In-The-Middle attacks please set
SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application.
*******************************************************************
at x.pl line 6.
>>> USER +++++++
<<< 331 User <++++++> OK. Password required
>>> PASS *******
<<< 230-User <++++++> has group access to: <++++++>
<<< 230 OK. Current directory is /home/<++++++>
>>> TYPE I
<<< 200 TYPE is now 8-bit binary
>>> PBSZ 0
<<< 200 PBSZ=0
>>> PROT P
<<< 200 Data protection level set to "private"
>>> PASV
<<< 227 Entering Passive Mode (10,0,0,190,165,118)
--- Host (10.0.0.190) Port (42358)
>>> HELP
<<< 214-The following SITE commands are recognized
<<< ALIAS
<<< CHMOD
<<< IDLE
<<< UTIME
<<< 214 Pure-FTPd - http://pureftpd.org/
<<+ 502 Unknown command ALLO.
>>> STOR filezilla.log
<<< 150 Accepted data connection
put() trace ... done! (10 byte(s))
<<< 226-File successfully transferred
<<< 226 0.001 seconds (measured here), 14.05 Kbytes per second
>>> PBSZ 0
<<< 200 PBSZ=0
>>> PROT P
<<< 200 Data protection level set to "private"
>>> PASV
<<< 227 Entering Passive Mode (10,0,0,190,39,121)
--- Host (10.0.0.190) Port (10105)
>>> RETR mokmok.txt
<<< 150 Accepted data connection
get() trace ... done! (21 byte(s))
<<< 226-File successfully transferred
<<< 226 0.000 seconds (measured here), 87.24 Kbytes per second
>>> QUIT
<<< 221-Goodbye. You uploaded 1 and downloaded 1 kbytes.
<<< 221 Logout.




Bist du sicher, dass auch keine Firewall Ports blockiert?
Last edited: 2013-01-22 13:31:50 +0100 (CET)
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Dateitransfer mit Perl und Net::FTPSSL läuft in Timeout