use packages from PVE::APIClient
authorDietmar Maurer <dietmar@proxmox.com>
Thu, 14 Jun 2018 06:54:17 +0000 (08:54 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Thu, 14 Jun 2018 07:16:02 +0000 (09:16 +0200)
PVE/APIClient/Commands/GuestStatus.pm
PVE/APIClient/Commands/config.pm
PVE/APIClient/Commands/list.pm
PVE/APIClient/Commands/lxc.pm
PVE/APIClient/Commands/remote.pm
PVE/APIClient/Config.pm
pveclient

index 4a50164..57784e5 100644 (file)
@@ -6,13 +6,13 @@ use warnings;
 use PVE::APIClient::Helpers;
 use PVE::APIClient::Config;
 
-use PVE::JSONSchema qw(get_standard_option);
+use PVE::APIClient::JSONSchema qw(get_standard_option);
 
 use File::Temp qw(tempfile);
 
-use PVE::CLIHandler;
+use PVE::APIClient::CLIHandler;
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 
 my $guest_status_command = sub {
     my ($remote, $vmid, $cmd, $param) = @_,
index 6f24e2c..d467b4c 100644 (file)
@@ -4,13 +4,13 @@ use strict;
 use warnings;
 use Data::Dumper;
 
-use PVE::JSONSchema qw(get_standard_option);
+use PVE::APIClient::JSONSchema qw(get_standard_option);
 use PVE::APIClient::Tools qw(extract_param);
 use PVE::APIClient::Config;
 
-use PVE::CLIHandler;
+use PVE::APIClient::CLIHandler;
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 
 __PACKAGE__->register_method ({
     name => 'list',
index aed0a54..2190ad6 100644 (file)
@@ -4,9 +4,9 @@ use strict;
 use warnings;
 use JSON;
 
-use PVE::JSONSchema qw(get_standard_option);
+use PVE::APIClient::JSONSchema qw(get_standard_option);
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 
 __PACKAGE__->register_method ({
     name => 'list',
index d535188..601f86f 100644 (file)
@@ -11,11 +11,11 @@ use MIME::Base64;
 use Digest::SHA;
 use HTTP::Response;
 
-use PVE::JSONSchema qw(get_standard_option);
-use PVE::CLIHandler;
-use PVE::PTY;
+use PVE::APIClient::JSONSchema qw(get_standard_option);
+use PVE::APIClient::CLIHandler;
+use PVE::APIClient::PTY;
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 use PVE::APIClient::Config;
 
 my $CRLF = "\x0D\x0A";
index 0c3d17a..8deac33 100644 (file)
@@ -3,16 +3,16 @@ package PVE::APIClient::Commands::remote;
 use strict;
 use warnings;
 
-use PVE::JSONSchema qw(get_standard_option);
+use PVE::APIClient::JSONSchema qw(get_standard_option);
 use PVE::APIClient::Tools qw(extract_param);
 use PVE::APIClient::Config;
 
-use PVE::CLIHandler;
+use PVE::APIClient::CLIHandler;
 
 use PVE::APIClient::LWP;
-use PVE::PTY ();
+use PVE::APIClient::PTY;
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 
 sub read_password {
    return PVE::PTY::read_password("Remote password: ")
index 7189d8e..478e658 100644 (file)
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 use JSON;
 
-use PVE::JSONSchema;
-use PVE::SectionConfig;
+use PVE::APIClient::JSONSchema;
+use PVE::APIClient::SectionConfig;
 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+);
 
@@ -24,7 +24,7 @@ my $complete_remote_name = sub {
     return $list;
 };
 
-PVE::JSONSchema::register_standard_option('pveclient-remote-name', {
+PVE::APIClient::JSONSchema::register_standard_option('pveclient-remote-name', {
     description => "The name of the remote.",
     type => 'string',
     pattern => $remote_namne_regex,
@@ -158,8 +158,8 @@ package PVE::APIClient::RemoteConfig;
 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);
 
@@ -225,7 +225,7 @@ package PVE::APIClient::DefaultsConfig;
 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);
 
index ded6736..a169066 100755 (executable)
--- a/pveclient
+++ b/pveclient
@@ -7,8 +7,8 @@ use warnings;
 use Cwd 'abs_path';
 use Data::Dumper;
 
-use PVE::JSONSchema qw(register_standard_option get_standard_option);
-use PVE::CLIHandler;
+use PVE::APIClient::JSONSchema qw(register_standard_option get_standard_option);
+use PVE::APIClient::CLIHandler;
 
 use PVE::APIClient::LWP;
 use PVE::APIClient::Helpers;
@@ -31,7 +31,7 @@ sub call_method {
     die "implement me";
 }
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 
 my $cmd = $ARGV[0];