use packages from PVE::APIClient

[pve-client.git] / pveclient

diff --git a/pveclient b/pveclient
index 70db84a1b7b6bfd4fa5fd322c2009552b4d88bfa..a16906689623d322ee26a8250324d5011aa60406 100755 (executable)
--- a/pveclient
+++ b/pveclient
@@ -5,12 +5,10 @@ package PVE::CLI::pveclient;
 use strict;
 use warnings;
 use Cwd 'abs_path';
-use lib '/usr/share/pve-client';
-use lib '.';
 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;
@@ -18,7 +16,7 @@ use PVE::APIClient::Commands::config;
 use PVE::APIClient::Commands::remote;
 use PVE::APIClient::Commands::list;
 use PVE::APIClient::Commands::lxc;
-use PVE::APIClient::Commands::help;
+use PVE::APIClient::Commands::GuestStatus;
 
 use JSON;
 
@@ -33,7 +31,7 @@ sub call_method {
     die "implement me";
 }
 
-use base qw(PVE::CLIHandler);
+use base qw(PVE::APIClient::CLIHandler);
 
 my $cmd = $ARGV[0];
 
@@ -162,6 +160,10 @@ our $cmddef = {
     lxc => $PVE::APIClient::Commands::lxc::cmddef,
     remote => $PVE::APIClient::Commands::remote::cmddef,
 
+    spice => [ 'PVE::APIClient::Commands::GuestStatus', 'spice', ['remote', 'vmid']],
+    start => [ 'PVE::APIClient::Commands::GuestStatus', 'start', ['remote', 'vmid']],
+    stop => [ 'PVE::APIClient::Commands::GuestStatus', 'stop', ['remote', 'vmid']],
+
     api => {
        get => [ __PACKAGE__, 'pveclient_get', ['remote', 'api_path']],
        set => [ __PACKAGE__, 'pveclient_set', ['remote', 'api_path']],