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

[salva]

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

what happens when you try to run the same command from the command line?

$ ssh -vvv [e-mail] upload cfg_toTFTP ...

[coldroom]

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 ;)