Though I have tried turning on the debug mode, I have not gotten any
different results (though I'm not so sure how to USE the debug mode really).
SSH1.pm & SSH2.pm each have the following line:
SSH1.pm: $ssh->fatal_disconnect("Permission denied");
SSH2.pm: $ssh->_login or $ssh->fatal_disconnect("Permission denied");
SSH2.pm:
------------------------------
sub login {
my $ssh = shift;
$ssh->SUPER::login(@_);
my $suppress_shell = $_[2];
$ssh->_login or $ssh->fatal_disconnect("Permission denied");
$ssh->debug("Login completed, opening dummy shell channel.");
...
sub _login {
my $ssh = shift;
my $kex = Net::SSH::Perl::Kex->new($ssh);
$kex->exchange;
my $amgr = Net::SSH::Perl::AuthMgr->new($ssh);
$amgr->authenticate;
}
-------------------------------
SSH1.PM:
-----------------------------
sub _setup_connection {
my $ssh = shift;
$ssh->_connect unless $ssh->sock;
$ssh->_login or
$ssh->fatal_disconnect("Permission denied");
...
-----------------------------
SSH1.pm has all functions inside the _login function so too much to paste
here.
--Alex
On Wed, Jul 30, 2008 at 1:06 PM, Tom Metro <[EMAIL PROTECTED]> wrote:
> Alex Brelsfoard wrote:
>
>> "Cannot connect to SFTP Server. Permission denied at
>> /usr/lib/perl5/site_perl/5.8.5/Net/SFTP.pm line 62"
>>
>> Line 62 correlates with the login function in SFTP.pm:
>> $ssh->login($param{user}, $param{password}, 'supress_shell');
>>
>
> I'd look at the source for the $ssh object and see where or if it throws a
> "Permission denied" error in its login() method. I'd also look to see if
> there is a debug mode for the module providing $ssh.
>
> -Tom
>
> --
> Tom Metro
> Venture Logic, Newton, MA, USA
> "Enterprise solutions through open source."
> Professional Profile: http://tmetro.venturelogic.com/
>
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
