Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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

by salva (Monsignor)
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 !
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 avoiding work at the Monastery: (12)
As of 2014-09-02 19:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (29 votes), past polls