Solved

PERL and ftp

Posted on 2004-09-30
6
377 Views
Last Modified: 2006-11-17
Hi All,

I am trying to write a script that will ftp files from a Linux PC, to a Web Server.  I wrote a PERL script, and when I execute it, first of all, it takes quite a while to send a 1 kb file, and then, when I check the destination directory after words, the file is listed there but is 0 kb, and is completely empty.  I've been trying to send a txt file just to work the bugs out, but I am completely stumped.  I've tried binary mode and Ascii (I'm really not sure when to use either of them) and still the same results.  Here is the script I wrote:

#!/usr/bin/perl
use CGI;
use Net::FTP;

$LOGIC="xxx.xxx.xxx.xxx"; # destination i.p. address actual address is in my script
$file="brian.txt"; #file I want to transfer

 $ftp = Net::FTP->new($LOGIC, Debug => 0);
 $ftp->login("username","password"); #actual username and password is in my script

 $ftp->put($file);
 $ftp->quit;
exit();
0
Comment
Question by:wxman1
6 Comments
 
LVL 28

Expert Comment

by:FishMonger
ID: 12191407
Let's start by enabling debuging and printing out errors.

$ftp = Net::FTP->new($LOGIC, Debug => 1);
$ftp->login("username","password") or die 'login', $ftp->message;

$ftp->put($file) or die 'put', $ftp->message;
$ftp->quit;
0
 
LVL 12

Expert Comment

by:geotiger
ID: 12191507
I think that it might be due to the put could not find the file. It is better to use full path in $file such as

$file = "/my/path/to/brain.txt";
0
 

Author Comment

by:wxman1
ID: 12191567
Okay,

After turning on the debugging, this is what came back:


Net::FTP>>> Net::FTP(2.72)
Net::FTP>>>   Exporter(5.57)
Net::FTP>>>   Net::Cmd(2.24)
Net::FTP>>>   IO::Socket::INET(1.27)
Net::FTP>>>     IO::Socket(1.28)
Net::FTP>>>       IO::Handle(1.23)
Net::FTP=GLOB(0x9e2570)<<< 220 logic-web-b FTP Server (vftpd 1.31) ready.
Net::FTP=GLOB(0x9e2570)>>> user username
Net::FTP=GLOB(0x9e2570)<<< 331 Password required for username.
Net::FTP=GLOB(0x9e2570)>>> PASS ....
Net::FTP=GLOB(0x9e2570)<<< 230 User username logged in.
Net::FTP=GLOB(0x9e2570)>>> ALLO 11
Net::FTP=GLOB(0x9e2570)<<< 200 ALLO command ignored.
Net::FTP=GLOB(0x9e2570)>>> PORT 10,0,2,55,210,30
Net::FTP=GLOB(0x9e2570)<<< 200 PORT command successful.
Net::FTP=GLOB(0x9e2570)>>> STOR brian.txt
Net::FTP=GLOB(0x9e2570)<<< 150 Opening ASCII mode data connection for brian.txt
putOpening ASCII mode data connection for brian.txt

Thats what came up on the screen.  Any suggestions?
0
What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

 

Author Comment

by:wxman1
ID: 12192198
geotiger

I added the full path, still having the same problem though
0
 
LVL 18

Accepted Solution

by:
kandura earned 50 total points
ID: 12194588
have you tried Passive mode yet?
It sounds like the data connection isn't made correctly, which might be due to firewall settings, or the ftp server configuration.

add "Passive => 1" to your Net::FTP->new call.
0
 

Author Comment

by:wxman1
ID: 12202997
Passive Mode!  I completely forgot!  That did the trick thanks!
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now