Article delegate-en/3739 of [1-4014] on the server localhost:7119
  upper oldest olders older1 this newer1 newers latest
search
[Top/Up] [oldest] - [Older+chunk] - [Newer+chunk] - [newest + Check]
[Reference:<_A3738@delegate-en.ML_>]
Newsgroups: mail-lists.delegate-en

[DeleGate-En] Re: Delegate via perl ftp module
25 May 2007 06:13:55 GMT feedback@delegate.org (Yutaka Sato)
The DeleGate Project

In message <_A3738@delegate-en.ML_> on 05/25/07(03:22:05)
you "Bob Hampton" <ptihabdyi.ml@delegate.org> wrote:
 |We have a perl script which works well via the java ftp proxy caled ftpproxy.  It uses the perl ftp module to connect and retrieve a list of files:
 |
 |    $ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;
 |      push @ERRORS, "Can't ftp to $host: $!\n" if $newerr;
 |      myerr() if $newerr;
 |    print "Connected\n";
 |
 |    $ftp->login("$opts{SRC_UID}","$opts{SRC_PWD}") or $newerr=1;
 |    print "Getting file list\n";
 |      push @ERRORS, "Can't login to $host: $!\n" if $newerr;
 |      $ftp->quit if $newerr;
 |      myerr() if $newerr;
 |    print "Logged in\n";
 |
 |    $ftp->cwd($directory) or $newerr=1;
 |      push @ERRORS, "Can't cd  $!\n" if $newerr;
 |      myerr() if $newerr;
 |      $ftp->quit if $newerr;
 |   
 |    @files=$ftp->dir or $newerr=1;
 |      push @ERRORS, "Can't get file list $!\n" if $newerr;
 |      myerr() if $newerr;
 |
 |if we run this via a proxy server running DeleGate, it just returns one line containing the word 'dummy'.  Can anyone explain this behaviour?

It is normal that DeleGate as a FTP-proxy returns its default root
including "dummy" only if you don't specify what is the root with a
parameter like MOUNT="/* ftp://ftpserver/*" (with which DeleGate acts
like a "reverse-proxy" for FTP).

I don't know what you expect for the response in the initial listing
without specifying whati is your target server.  You can specify it
("ftpserver" for example) in the USER or CWD like follows.

 $ftp->login("user@ftpserver","password")

 $ftp->cwd("//ftpserver")


Cheers,
Yutaka
--
  9 9   Yutaka Sato <pfqcabdyi.ml@delegate.org> http://delegate.org/y.sato/
 ( ~ )  National Institute of Advanced Industrial Science and Technology
_<   >_ 1-1-4 Umezono, Tsukuba, Ibaraki, 305-8568 Japan
Do the more with the less -- B. Fuller

  admin search upper oldest olders older1 this newer1 newers latest
[Top/Up] [oldest] - [Older+chunk] - [Newer+chunk] - [newest + Check]
@_@V