in reply to Re: Net::SFTP Problem
in thread Net::SFTP Problem

Hi Salva,

I tried Net::SFTP::Foreign Modeule in my program. in this case I am using this code...
##############################
#! usr/bin/perl
use Net::SFTP::Foreign;

$host="myserver";
$username="vendor1";
$portnumber=22;

%args={port => $portnumber ,host =>$host ,user => $username ,debug => 
+1};

my $sftp = Net::SFTP::Foreign->new($host,%args);
@str=$sftp->ls("/home/vendor1/");

foreach $hashref(@str)
{
    foreach $key(keys%$hashref)
    {
        print "\t $$hashref{$key}\t";
    }
    print "\n";
}
#########################

[download]
Now as both vendor1 and vendor2 are users on the same server which i dont think makes any difference,but now I am getting password prompt for vendor2...

+ perl sftp.pl
vendor2@9.182.244.13's password:

[download]
...which i think i should not get. The output should be the output of "ls" command..
can you suggest some solution...
Thanx
Zoop

'When You starve With A Tiger, The Tiger always starves last'

Replies are listed 'Best First'.
Re^3: Net::SFTP Problem
by salva (Canon) on Jun 07, 2005 at 11:15 UTC
    oh, I thought you were using ssh keys for authentication instead of the login and clear password aproach not supported by that Net::SFTP::Foreign.

    Is there any reason why you are not using public keys for authentication?

[reply]
      Hi Salva,
      I have to use ssh keys authentication but i am not aware of the method to use it in my code. Can you Please suggest what steps do i require to modify my previous code to use ssh keys authentication. I have OpenSSH_3.8.1p1 and OpenSSL 0.9.7d installed on AIX box.
      Thanx in advance
      Zoop
      'When You starve With A Tiger, The Tiger always starves last'
[reply]
        well, you have to do nothing.

        Are you able to connect from the source to the target machine manually with ssh? ensure that you check it as the same user as the one that runs the script.

        Oh, I see what the problem is: 

        %args={port => $portnumber ,host =>$host ,user => $username ,debug => 
+1};

        [download]
        is wrong, you have to write it as 
        %args=(port => $portnumber ,host =>$host ,user => $username ,debug => 
+1);

        [download]
        using (...) instead of {...}

        BTW, you would have already noticed it if you were using 

        use strict;
use warnings;

        [download]
        on your code!!!!!!!!!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom