Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: net::ssh::perl : no way to send cmd !

by salva (Abbot)
on Feb 01, 2010 at 14:16 UTC ( #820745=note: print w/ replies, xml ) Need Help??

Comment on Re: net::ssh::perl : no way to send cmd !
Replies are listed 'Best First'.
Re^2: net::ssh::perl : no way to send cmd !
by coldroom (Novice) on Feb 01, 2010 at 15:18 UTC
    Hello,

    Thanks for your answer, but I already tryed with expect.. look at this :

    SSHAuthenticationError Login timed out. The input stream currently has the contents bellow: RW@10.0.0.30's password:  at /usr/local/share/perl/5.10.1/Expect.pm line 828

    When I use this :

    print ("login : @switch_details[4] \n"); print ("password : @switch_details[3]\n"); my $ssh = Net::SSH::Expect->new ( host => @switch_details[1], password=> @switch_details[3], user => @switch_details[4], raw_pty => 1 ); my $login_output = $ssh->login();

    My login & password are good..

    If I try to use net::ssh::perl, there is a bug, and now, with expect, bug too.. I don't know how doing that :(
      what happens when you try to run the same command from the command line?
      $ ssh -vvv user@your.switch upload cfg_toTFTP ...
        Hello, I finally found a way :)
        sub Recup_dlink_DGS { my $ssh = Net::SSH::Expect->new ( host => @switch_details[1], user => @switch_details[4], password => @switch_details[3], raw_pty => 1, timeout => 5); eval { my $login_output = $ssh->login(); if ($login_output !~ /Welcome/) { die "=> Echec l'identification \n=> $login_output"; } } $ssh->exec("upload cfg_toTFTP $serveur_tftp @switch_details[2]"); &controle_cfg; return 1; }
        Thanks, I would not find it without your help. Many thanks ;)
Re^2: net::ssh::perl : no way to send cmd !
by Anonymous Monk on May 19, 2011 at 10:26 UTC

    Have u got any fix for the question as i too getting same error

    linux1642: Verifying server signature. linux1642: Waiting for NEWKEYS message. linux1642: Enabling incoming encryption/MAC/compression. linux1642: Send NEWKEYS, enable outgoing encryption/MAC/compression. linux1642: Sending request for user-authentication service. linux1642: Service accepted: ssh-userauth. linux1642: Trying empty user-authentication request. linux1642: Authentication methods that can continue: password,publickey,keyboard-interactive. linux1642: Next method to try is password. linux1642: Trying password authentication. linux1642: Authentication methods that can continue: password,publickey,keyboard-interactive. linux1642: Next method to try is password. linux1642: Trying password authentication. linux1642: Authentication methods that can continue: password,publickey,keyboard-interactive. linux1642: Next method to try is password. linux1642: Trying password authentication. Received disconnect message: Too many bad authentication attempts! at /usr/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/AuthMgr.pm line 143

    can any one help on this as most of times not connecting , but rarely connecting.

    Thanks Sudheer

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://820745]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (12)
As of 2015-07-28 09:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (254 votes), past polls