Re^4: Unix 2 Perl Module FTP

[simbalion]

I have simplified the module to this:

#!/usr/bin/perl


use Net::FTP;

    $ftp = Net::FTP->new("9.9.9.9 5000", Debug => 0)
      or die "Cannot connect to some.host.name: $@";

    $ftp->login("Domain\\user1",'password321')
      or die "Cannot login ", $ftp->message;


    $ftp->quit;

for the domain I have tried:
Domain\user   Domain\\user  Domain\/user Domain/user

Nothing will work guys.

Error received:  Cannot login Invalid userid/password

[Mr. Muskrat]

You said that user1@FQDN worked from the FTP client but you didn't say that you've tried it from your Net::FTP script. Also, double check that you have the right password in your script.

#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;

my $ftp_site     = '9.9.9.9 5000';
my $ftp_dir      = '/Directory2';
my $ftp_get_file = 'that.file';
my $ftp_user     = 'user1@FQDN'; # if 'DOMAIN/user1' and 'DOMAIN\\user
+1' don't work, perhaps this will
my $ftp_password = 'password321'; # double check your password, maybe 
+it's the problem!

my $ftp = Net::FTP->new($ftp_site)
   or die "Could not connect to $ftp_site: $@";

$ftp->login($ftp_user, $ftp_password)
   or die "Could not login to $ftp_site with user $ftp_user: ", $ftp->
+message;

$ftp->cwd($ftp_dir)
   or die "Could not change remote working directory to $ftp_dir on $f
+tp_site: ", $ftp->message;

$ftp->get($ftp_get_file)
   or die "Could not get $ftp_get_file the file is not present in $ftp
+_dir: ", $ftp->message;

$ftp->quit();