Net::FTP doesn't transfer files

[Morten Tangeraas]

I have a simpe script that is supose to upload a local file to a given
ftp server. There are no problems in logging in, and the file appears
on the remote ftp server, but the problem is that it contains no data.
The script runs perfectly on any other server, but not my FreeBSD
server. Here is the script:

#############################################

#!/usr/bin/perl

print "Content-type: text/html\n\n";

use Net::FTP;

$ftp = Net::FTP->new("ftp.server.com");
$ftp->login("username","password");

#$ftp->binary;
#$ftp->put("/path/to/file.gif","file.gif") or die $ftp->message;

$ftp->quit;

print "DONE\n\n";

#############################################

When I run the script, it just hangs for a while (seems like a
timeout). The file name that was supose to be transfered, appears on
the remote ftp server right away, but as I said, it contains no data.

I've also run the FTP client app. on the FreeBSD server via SSH, works
fine! I've checked that the Net::FTP module is installed, and it is.
The strange thing is that it works, but just half way... I've also
tried to fetch files from the remote ftp server, without any luck...

Any suggestions on what the reason could be, or how I can figure out a
solution?

Thanks!

Regards,
Morten

[Peter J. Acklam]

[email]morten@tangeraas.com[/email] (Morten Tangeraas) wrote:

> I have a simpe script that is supose to upload a local file to a
> given ftp server. There are no problems in logging in, and the
> file appears on the remote ftp server, but the problem is that
> it contains no data. The script runs perfectly on any other
> server, but not my FreeBSD server. Here is the script:

The first thing I'd do is to add "DEBUG => 1" to the constructor
to see what's going on.

Peter

--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;

[Robert Hjertmann Christiansen]

Could it be that you have some firewall rules to block your passive
port. The Net::FTP module uses passive mode per default.
Try setting Passive => 0 in the common options. (see below)

Morten Tangeraas wrote:

> I have a simpe script that is supose to upload a local file to a given
> ftp server. There are no problems in logging in, and the file appears
> on the remote ftp server, but the problem is that it contains no data.
> The script runs perfectly on any other server, but not my FreeBSD
> server. Here is the script:
>
> #############################################
>
> #!/usr/bin/perl
>
> print "Content-type: text/html\n\n";
>
> use Net::FTP;
>

> $ftp = Net::FTP->new("ftp.server.com");

shoud be

$ftp = Net::FTP->new("ftp.server.com", Passive => 0);

for non passive mode.

> $ftp->login("username","password");
>
> #$ftp->binary;
> #$ftp->put("/path/to/file.gif","file.gif") or die $ftp->message;
>
> $ftp->quit;
>
> print "DONE\n\n";
>
> #############################################
>
> When I run the script, it just hangs for a while (seems like a
> timeout). The file name that was supose to be transfered, appears on
> the remote ftp server right away, but as I said, it contains no data.
>
> I've also run the FTP client app. on the FreeBSD server via SSH, works
> fine! I've checked that the Net::FTP module is installed, and it is.
> The strange thing is that it works, but just half way... I've also
> tried to fetch files from the remote ftp server, without any luck...
>
> Any suggestions on what the reason could be, or how I can figure out a
> solution?
>
> Thanks!
>
> Regards,
> Morten

--
Robert Hjertmann Christiansen
Technical University of Denmark

[Morten Tangeraas]

Robert Hjertmann Christiansen <robert@hjertmann.dk> wrote in message news:<bo88uu$1hu6$1@gnd.k-net.dk>...

> Could it be that you have some firewall rules to block your passive
> port. The Net::FTP module uses passive mode per default.
> Try setting Passive => 0 in the common options. (see below)

No difference, unfortunately... I've also tried to fetch a list of
files from the FTP server. I tried the Debug option, but no error
message... this is the message log from the FTP server:

junior Microsoft FTP Service (Version 3.0).
User xxxxxxxx logged in.
Type set to I.
CWD command successful.
CWD command successful.
Opening BINARY mode data connection for file list.
DONE

Seems like it times out after some time (about two minutes), when it
comes to transfering file data or file lists and stuff like that...
But the script completes, since the last print "DONE"; on the end of
the script prints DONE on the end of what is printed...

I don't think the server is behind a firewall, since all functions in
the buildt in ftp application in FreeBSD works fine...

Morten

[Jeff Drumm]

On 3 Nov 2003 05:50:04 -0800, Morten Tangeraas <morten@tangeraas.com> wrote:

(snip)

> #$ftp->binary;
> #$ftp->put("/path/to/file.gif","file.gif") or die $ftp->message;

Um, I think the fact that these two lines are commented out might
have something to do with it.

--
- Jeff

[Morten Tangeraas]

[email]jdrumm@FOAD-you-evil-spammer-bastards.com[/email] (Jeff Drumm) wrote in message news:<G_ydnWeRTobcJDaiRVn-sw@suscom-maine.net>...

> On 3 Nov 2003 05:50:04 -0800, Morten Tangeraas <morten@tangeraas.com> wrote:
>
> (snip)
>

> > #$ftp->binary;
> > #$ftp->put("/path/to/file.gif","file.gif") or die $ftp->message;

>
> Um, I think the fact that these two lines are commented out might
> have something to do with it.

I just figured it out (me dummie)... The Passive had to be set to 1, not 0, like

Passive => 1

.... and now it's working!!!!! Thanks for all your help, folks!

Regards,
Morten