Article delegate-en/3738 of [1-5017] on the server localhost:7119
  upper oldest olders older1 this newer1 newers latest
search
[Top/Up] [oldest] - [Older+chunk] - [Newer+chunk] - [newest + Check]

Newsgroups: mail-lists.delegate-en

[DeleGate-En] Delegate via perl ftp module
24 May 2007 18:24:13 GMT "Bob Hampton" <ptihabdyi-qprr6ugakja6.ml@delegate.org>

Hi,

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?

Thanks

Bob Hampton

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