X-Git-Url: https://git.proxmox.com/?p=pve-client.git;a=blobdiff_plain;f=pveclient;h=165505fe45f33b485c5029d955234890827ec93e;hp=85e1f707e8b7dd50f3fb7af69147fa1cdf36160b;hb=c5111270eb6e56ba88226b1bb743139a1b71a6b9;hpb=29505e2cb1acc8a1d49148d5e64b41206ca9b336 diff --git a/pveclient b/pveclient index 85e1f70..165505f 100755 --- a/pveclient +++ b/pveclient @@ -2,17 +2,29 @@ use strict; use warnings; +use lib '/usr/share/pve-client'; use lib '.'; use Data::Dumper; +use PVE::JSONSchema; +use PVE::CLIHandler; + use PVE::APIClient::LWP; use PVE::APIClient::Helpers; +use PVE::APIClient::Commands::remote; + use JSON; sub print_usage { - die "Usage: implement me"; - exit(-1); + my $text = "pveclient usage:\n\n"; + + $text .= "pveclient remote {options}\n\n"; + + $text .= "pveclient {options}\n\n"; + + print STDERR $text; + } sub call_method { @@ -21,7 +33,7 @@ sub call_method { die "missing API path\n" if !defined($path); my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method); - my $param = PVE::APIClient::Helpers::get_options($info->{parameters}, $args); + my $param = PVE::JSONSchema::get_options($info->{parameters}, $args); print Dumper($param); die "implement me"; @@ -45,7 +57,7 @@ sub call_method { #my $res = $conn->get("/", {}); #print to_json($res, { pretty => 1, canonical => 1}); -my $cmd = shift || print_usage(); +my $cmd = shift || (print_usage() && exit(-1)); if ($cmd eq 'get') { my $method = 'GET'; @@ -61,10 +73,10 @@ if ($cmd eq 'get') { die "implement me"; } elsif ($cmd eq 'delete') { die "implement me"; -} elsif ($cmd eq 'enter') { - die "implement me"; +} elsif ($cmd eq 'remote') { + PVE::APIClient::Commands::remote->run_cli_handler(); } else { print_usage(); } -die "implement me"; +exit(0);