Net::openssh adapter for net::ssh::perl api compatibility
use Net::OpenSSH::Compat::Perl qw(:supplant); use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new('host'); $ssh->login($user, $passwd); my ($out, $err, $rc) = $ssh->cmd($cmd);
This module implements a subset of Net::SSH::Perl \s-1API\s0 on top of Net::OpenSSH.
After the module is loaded as...
use Net::OpenSSH::Compat::Perl qw(:supplant);
... it supplants the Net::SSH::Perl module as if it were installed on the machine using Net::OpenSSH under the hood to handle \s-1SSH\s0 operations.
The hash %Net::OpenSSH::Compat::Perl::DEFAULTS can be used to set default values for Net::OpenSSH and other modules called under the hood and otherwise not accesible through the Net::SSH::Perl \s-1API\s0.
The entries currently supported are: Extra options passed to \*(C`Net::OpenSSH::new\*(C' constructor. Example: $Net::OpenSSH::Compat::SSH::Perl::DEFAULTS{connection} = [ ssh_path => "/opt/SSH/bin/ssh" ];
This is a work in progress.
\*(C`register_handler\*(C' method is not supported.
Net::SSH::Perl submodules (i.e. Net::SSH::Perl::Channel) are not emulated.
Anyway, if your Net::SSH::Perl script fails, fill a bug report at the \s-1CPAN\s0 \s-1RT\s0 bugtracker (https://rt.cpan.org/Ticket/Create.html?Queue=Net-OpenSSH-Compat <https://rt.cpan.org/Ticket/Create.html?Queue=Net-OpenSSH-Compat>) or just send me an e-mail with the details.
Include at least:
The source code repository is at https://github.com/salva/p5-Net-OpenSSH-Compat <https://github.com/salva/p5-Net-OpenSSH-Compat>.
If you like this module and you're feeling generous, take a look at my Amazon Wish List: <http://amzn.com/w/1WU1P6IR5QZ42>
Also consider contributing to the OpenSSH project this module builds upon: <http://www.openssh.org/donations.html>.
Copyright (C) 2011 by Salvador Fandin\*~o ([email protected])
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.