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

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();
[download]

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 :(

Comment on Re^2: net::ssh::perl : no way to send cmd ! Select or Download Code

Replies are listed 'Best First'.
Re^3: net::ssh::perl : no way to send cmd ! by salva (Canon) on Feb 01, 2010 at 15:54 UTC
what happens when you try to run the same command from the command line? `$ ssh -vvv user@your.switch upload cfg_toTFTP ...` [download]	[reply] [d/l]
Re^4: net::ssh::perl : no way to send cmd ! by coldroom (Novice) on Feb 02, 2010 at 07:56 UTC
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; }` [download] Thanks, I would not find it without your help. Many thanks ;)	[reply] [d/l]