spot7.org logo
Home PHP C# C++ Android Java Javascript Python IOS SQL HTML Categories

How with perl and Net::OpenSSH can I detect if the remote side only handles protocol 1?


Capture the master stderr stream and check it afterwards.

See here how to do it.

Another approach you can use is just to open a socket to the remote SSH server. The first thing it sends back is its version string. For instance:

$ nc localhost 22
SSH-2.0-OpenSSH_6.6.1p1 Ubuntu-8
^C

From that information you should be able to infer if the server supports SSH v2 or not.

Finally, if you also need to talk to SSH v1 servers, the development version of my other module Net::SSH::Any is able to do it using the OS native SSH client, though it establishes a new SSH connection for every command.

use Net::SSH::Any;

my $ssh =
Net::SSH::Any->new($args->{node_name},
                             user        =>
$args->{user},
                             password    =>
$args->{tacacs},
                             timeout     =>
$timeout,
                             backends    =>
'SSH_Cmd',
                            
strict_host_key_checking => 0);

Update: In response to Bill comment below on the issue of sending multiple commands over the same session:

The problem of sending commands over the same session is that you have to talk to the remote shell and there isn't a way to do that reliably in a generic fashion as every shell do things differently, and specially for network equipment shells that are quite automation-unfriendly.

Anyway, there are several modules on CPAN trying to do that, implementing a handler for every kind of shell (or OS). For instance, check Oliver Gorwits's modules Net::CLI::Interact, Net::Appliance::Session and Net::Appliance::Phrasebook. The phrasebook approach seems quite suitable.


Categories : Perl

Related to : How with perl and Net::OpenSSH can I detect if the remote side only handles protocol 1?
Amazon Linux AMI - Upgrade OPenssh version
An updated openssh package is available in the Amazon Linux AMI repositories. This update adds fixes for CVE-2014-2653 and CVE-2014-2532. To install the update run: sudo yum install openssh

Categories : Misc
Matlab figure windows - getting handles
You can try setting the figure visibility to off. Shown here: for i = 1:50 h = figure(i); set(h,'Visible','off'); plot(x, y,'-.ob'); grid on; xlim([1,12]); legend('x','y'); ylabel('Value'); title('Figure Title'); end handles = findall(0, 'type', 'figure'); Fig2PDF('MyFile.PDF', numel(handles));

Categories : Matlab
Can prepared statement handles be stored in member variables?
Technically it is possible, as you already know by simply trying or just reading: The query […] can be executed multiple times. I would consider preparing all statements in the constructor as a bad idea. I guess it will become unmaintainable if you got a bunch of SQL statements in the constructor without any context. Furthermore you might prepare more than you actually need. One idea to o

Categories : PHP
How Browser Handles Multiple clicks on the Action Button
The simple answer to your question is that the UserFeedService is probably recreated on each request so the status property is a different, default instance on each request (i.e. it is always "status_idle" for each request). Changing it to static should result in the behaviour you are requesting. However, this is a very bad idea to introduce some static state like this to a RESTful service. Not o

Categories : Java
Matlab: Accessing hidden parameters in function handles
One way is using the functions command. fa = functions(f); The output is a structure which includes workspace, a cell array containing a structure containing your variables, in this case: ws = fa.workspace{1}; ws.A % returns "2"

Categories : Matlab
Recently Add
SSL error calling Perl web service via https using LWP
SOAP::Lite always faults in debug mode
perl referencing a hash outside of the scope that populated it (histogram)
Perl script to print out all the lines containing a keyword and the line below it
PERL Unicode Escape string pass from command line argument wrong output
Perl process crashes after handling signal
Marpa: Can I explicitly disallow keywords as identifiers?
Perl: Import text, containing ÅÄÖ, from file
error using perl - Proc::ProcessTable. works in cmd line, not in .pl file
DBIx::Class chaining resultsets with same table in prefetch
Time as input, print timetable in Perl
compare values of different tables perl
Automatically increasing ID generation using PERL
Syntax Error, first line after dostuff
Delete files in a folder using Perl
Perl '-d' operator is not detecting a directory
Perl appending text to new line
write_timeout in IO::Socket::Timeout
Using ForkManager and Perl properly?
Is a cyclic dependency solved with require?
Posting metric to google analytics from perl script
How can I check if a user enters my page the first time?
Sorting arrays of intervals in perl?
Perl: How to get the link target of a soundcloud feed mp3
Uninitialized value in concatenation
Perl code - pipe "|" in `open()` statement
perl command line backticks with matrix
Perl OO - Creating a list of objects
extract gene-id + function annotation from .gff
How to receive parameters and values from POST method in Perl CGI?
© Copyright 2017 spot7.org Publishing Limited. All rights reserved.