Leser: 2
10 Einträge, 1 Seite |
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();
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.
10 Einträge, 1 Seite |