[Ssh-sftp-perl-users] Net::SSH::Perl login authentication is taking 1 minute 40 seconds
Brought to you by:
dbrobins
|
From: rkb@i.frys.com - 2006-12-17 06:36:36
|
I'm developing a cgi script that uses Net::SSH::Perl, but the login
authentication is taking 1 minute 40 seconds. As you can imagine, 1:40
too long especially since I will be connecting to 4 servers.
Is this a known issue and is there a workaround?
Here's my test script and the output.
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Net::SSH::Perl;
use Data::Dumper;
$|++;
my $imap1 = 'imap1';
my %params = (debug => 1, protocol => 2);
print header(),
start_html(),
"creating ssh object: ", scalar localtime, br;
warningsToBrowser(1);
my $ssh_imap1 = Net::SSH::Perl->new($imap1, %params) || die "can't ssh $!";
print "ssh object created: ", scalar localtime, "<br>$/";
print "logging in: ", scalar localtime, br;
$ssh_imap1->login('me');
print "logged in: ", scalar localtime, br;
my ($stdout, $stderr, $exit) = $ssh_imap1->cmd('pwd');
$stdout =~ s/\n/<br>/g;
print "<br>$stdout",
end_html();
--------------------------------------------------------------------------------------
creating ssh object: Sat Dec 16 21:44:04 2006
ssh object created: Sat Dec 16 21:44:04 2006
logging in: Sat Dec 16 21:44:04 2006
logged in: Sat Dec 16 21:45:44 2006
/home/me
|