|
|
@ -236,6 +236,10 @@ If set, the method will use the given log level. Valid values are integers betwe |
|
|
|
|
|
|
|
|
|
|
|
If set, and if an existing cached connection is open, it will be closed and a new connection to the target will be established. |
|
|
|
If set, and if an existing cached connection is open, it will be closed and a new connection to the target will be established. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
=head3 ossh_opts (optional, default []) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
This is a ref to an array of named elements which extends the options passed to Net:OpenSSH->new(). |
|
|
|
|
|
|
|
|
|
|
|
=head3 password (optional) |
|
|
|
=head3 password (optional) |
|
|
|
|
|
|
|
|
|
|
|
This is the password used to connect to the remote target as the given user. |
|
|
|
This is the password used to connect to the remote target as the given user. |
|
|
@ -287,12 +291,14 @@ sub call |
|
|
|
my $port = $parameter->{port} ? $parameter->{port} : 22; |
|
|
|
my $port = $parameter->{port} ? $parameter->{port} : 22; |
|
|
|
my $target = defined $parameter->{target} ? $parameter->{target} : ""; |
|
|
|
my $target = defined $parameter->{target} ? $parameter->{target} : ""; |
|
|
|
my $remote_user = defined $parameter->{remote_user} ? $parameter->{remote_user} : "root"; |
|
|
|
my $remote_user = defined $parameter->{remote_user} ? $parameter->{remote_user} : "root"; |
|
|
|
|
|
|
|
my $ossh_opts = ref($parameter->{ossh_opts}) eq "ARRAY" ? $parameter->{ossh_opts} : []; |
|
|
|
my $ssh_fh_key = $remote_user."\@".$target.":".$port; |
|
|
|
my $ssh_fh_key = $remote_user."\@".$target.":".$port; |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { |
|
|
|
's1:remote_user' => $remote_user, |
|
|
|
's1:remote_user' => $remote_user, |
|
|
|
's2:target' => $target, |
|
|
|
's2:target' => $target, |
|
|
|
's3:port' => $port, |
|
|
|
's3:port' => $port, |
|
|
|
's4:ssh_fh_key' => $ssh_fh_key, |
|
|
|
's4:ssh_fh_key' => $ssh_fh_key, |
|
|
|
|
|
|
|
's5:ossh_opts' => $ossh_opts, |
|
|
|
}}); |
|
|
|
}}); |
|
|
|
|
|
|
|
|
|
|
|
# This will store the SSH file handle for the given target after the initial connection. |
|
|
|
# This will store the SSH file handle for the given target after the initial connection. |
|
|
@ -477,6 +483,7 @@ sub call |
|
|
|
user => $remote_user, |
|
|
|
user => $remote_user, |
|
|
|
port => $port, |
|
|
|
port => $port, |
|
|
|
batch_mode => 1, |
|
|
|
batch_mode => 1, |
|
|
|
|
|
|
|
@$ossh_opts, |
|
|
|
); |
|
|
|
); |
|
|
|
}; |
|
|
|
}; |
|
|
|
$connect_output =~ s/\r//gs; |
|
|
|
$connect_output =~ s/\r//gs; |
|
|
@ -574,6 +581,7 @@ sub call |
|
|
|
port => $port, |
|
|
|
port => $port, |
|
|
|
passwd => $password, |
|
|
|
passwd => $password, |
|
|
|
batch_mode => 1, |
|
|
|
batch_mode => 1, |
|
|
|
|
|
|
|
@$ossh_opts, |
|
|
|
); |
|
|
|
); |
|
|
|
}; |
|
|
|
}; |
|
|
|
$connect_output =~ s/\n$//; |
|
|
|
$connect_output =~ s/\n$//; |
|
|
|