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

[skylinedreamer]

Found a fix by using quotemeta(). Did that to all my parameters and its working. Thanks

for($i = 0; $i <= $#fields; $i++)
{
$fields[$i] = quotemeta($fields[$i]);
}

[skylinedreamer]

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);
}

[skylinedreamer]

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;
    };