-my $load_remote_config = sub {
- my ($remote) = @_;
-
- my $conf = PVE::APIClient::Config::load_config();
-
- my $remote_conf = $conf->{"remote_$remote"} ||
- die "no such remote '$remote'\n";
-
- foreach my $opt (qw(hostname username password fingerprint)) {
- die "missing option '$opt' (remote '$remote')" if !defined($remote_conf->{$opt});
- }
-
- return $remote_conf;
-};
-
-my $get_remote_connection = sub {
- my ($remote) = @_;
-
- my $conf = $load_remote_config->($remote);
-
- return PVE::APIClient::LWP->new(
- username => $conf->{username},
- password => $conf->{password},
- host => $conf->{hostname},
- cached_fingerprints => {
- $conf->{fingerprint} => 1
- });
-};
-