use warnings;
use JSON;
-use PVE::JSONSchema;
-use PVE::SectionConfig;
+use PVE::APIClient::JSONSchema;
+use PVE::APIClient::SectionConfig;
+use PVE::APIClient::PTY;
use PVE::APIClient::Tools qw(file_get_contents file_set_contents);
-use base qw(PVE::SectionConfig);
+use base qw(PVE::APIClient::SectionConfig);
my $remote_namne_regex = qw(\w+);
return $list;
};
-PVE::JSONSchema::register_standard_option('pveclient-remote-name', {
+PVE::APIClient::JSONSchema::register_standard_option('pveclient-output-format', {
+ type => 'string',
+ description => 'Output format.',
+ enum => [ 'text', 'json' ],
+ optional => 1,
+ default => 'text',
+});
+
+PVE::APIClient::JSONSchema::register_standard_option('pveclient-remote-name', {
description => "The name of the remote.",
type => 'string',
pattern => $remote_namne_regex,
my $password = $section->{password};
if (!defined($password)) {
- $password = PVE::PTY::read_password("Remote password: ")
+ $password = PVE::APIClient::PTY::read_password("Remote password: ")
}
my $conn = PVE::APIClient::LWP->new(
use strict;
use warnings;
-use PVE::JSONSchema qw(register_standard_option get_standard_option);
-use PVE::SectionConfig;
+use PVE::APIClient::JSONSchema qw(register_standard_option get_standard_option);
+use PVE::APIClient::SectionConfig;
use base qw( PVE::APIClient::Config);
use strict;
use warnings;
-use PVE::JSONSchema qw(register_standard_option get_standard_option);
+use PVE::APIClient::JSONSchema qw(register_standard_option get_standard_option);
use base qw( PVE::APIClient::Config);