Re^8: Unable to connect to some SFTP servers using Perl::SFTP

Update:

unless (fork())
{
my $i;
for($i = 0; $i <= $#fields; $i++)
{
     $fields[$i] = quotemeta($fields[$i]);
}
#print $fields[0] ;
system("gnome-terminal --title $fields[0] -x bash -c './uploader0.1.pl
+ $index @fields $file2send; echo Press any key to exit ...; read -n1'
+");
exit(0);
}
[download]

Comment on Re^8: Unable to connect to some SFTP servers using Perl::SFTP Download Code

Replies are listed 'Best First'.
Re^9: Unable to connect to some SFTP servers using Perl::SFTP by skylinedreamer (Novice) on Apr 15, 2013 at 02:36 UTC
Permission denied was solved by enabling keyboard interactive login. ssh_args was also passed to the sftp login as follows `## SFTP Connection my %args = (user => $user, password => $pass, debug => 1, ssh_args => { interactive => 1, identity_files => [ "/usr2/username/.ssh/id_rsa"], protocol=>'2,1' } ); my $sftp = Net::SFTP->new($host, %args) or do { print "Unable to connect to $name\n"; print "Aborting Connection\n"; goto END; };` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^9: Unable to connect to some SFTP servers using Perl::SFTP
by skylinedreamer (Novice) on Apr 15, 2013 at 02:36 UTC

## SFTP Connection
my %args = (user      => $user,
            password  => $pass,
            debug     => 1,
            ssh_args => { interactive => 1,
                         identity_files => 
                                   [ "/usr2/username/.ssh/id_rsa"], 
                        protocol=>'2,1' 
                     } 
           );

my $sftp = Net::SFTP->new($host, %args) or
    do
    {
        print "Unable to connect to $name\n";
        print "Aborting Connection\n"; 
        goto END;
    };
[download]

[reply]
[d/l]