X-Git-Url: https://git.proxmox.com/?p=pve-client.git;a=blobdiff_plain;f=pveclient;h=2995fd5441e732bcf451828d7dca6f3b2cbde816;hp=a7e41efea3f740743d09d5741d64085e62c2ae3d;hb=2ecf9b57e894b6308daee2e60a2d7f5bd417932c;hpb=b0495d825b1b1e5c83a006d68293e89c98eaa024 diff --git a/pveclient b/pveclient index a7e41ef..2995fd5 100755 --- a/pveclient +++ b/pveclient @@ -9,6 +9,7 @@ use Data::Dumper; use PVE::APIClient::JSONSchema qw(register_standard_option get_standard_option); use PVE::APIClient::CLIHandler; +use PVE::APIClient::PTY; use PVE::APIClient::LWP; use PVE::APIClient::Helpers; @@ -21,15 +22,22 @@ use PVE::APIClient::Commands::GuestStatus; use JSON; -sub call_method { - my ($remote, $path, $method, $param) = @_; +sub call_api_method { + my ($method, $param) = @_; + my $path = PVE::APIClient::Tools::extract_param($param, 'api_path'); die "missing API path\n" if !defined($path); + my $remote = PVE::APIClient::Tools::extract_param($param, 'remote'); + die "missing remote\n" if !defined($remote); + + my $format = PVE::APIClient::Tools::extract_param($param, 'format'); + PVE::APIClient::Helpers::set_output_format($format); + my $config = PVE::APIClient::Config->load(); - # test if api path exists - my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method); + my $uri_param = {}; + my $info = PVE::APIClient::Helpers::find_method_info($path, $method, $uri_param); my $conn = PVE::APIClient::Config->remote_conn($config, $remote); @@ -42,6 +50,11 @@ sub call_method { use base qw(PVE::APIClient::CLIHandler); +sub read_password { + return PVE::APIClient::PTY::read_password("Remote password: ") +} + + my $cmd = $ARGV[0]; if ($cmd && $cmd eq 'packagedepends') { @@ -71,11 +84,16 @@ my $path_returns = { type => 'null' }; # dynamically update schema definition for direct API call # like: pveclient api -if (my $info = PVE::APIClient::Helpers::extract_path_info()) { - $path_properties = $info->{parameters}->{properties}; +my $uri_param = {}; +if (my $info = PVE::APIClient::Helpers::extract_path_info($uri_param)) { + foreach my $key (keys %{$info->{parameters}->{properties}}) { + next if defined($uri_param->{$key}); + $path_properties->{$key} = $info->{parameters}->{properties}->{$key}; + } $path_returns = $info->{returns}; } +$path_properties->{format} = get_standard_option('pveclient-output-format'), $path_properties->{remote} = get_standard_option('pveclient-remote-name'); $path_properties->{api_path} = { description => "API path.", @@ -86,20 +104,18 @@ $path_properties->{api_path} = { }, }; -my $format_result = sub { - my ($data, $format) = @_; - return if $path_returns->{type} eq 'null'; +my $format_result = sub { + my ($data) = @_; - # TODO: implement different output formats ($format) - print to_json($data, {utf8 => 1, allow_nonref => 1, canonical => 1, pretty => 1 }); + PVE::APIClient::Helpers::print_result($data, $path_returns); }; __PACKAGE__->register_method ({ name => 'pveclient_get', path => 'pveclient_get', method => 'GET', - description => "call API GET on .", + description => "Call API GET on .", parameters => { additionalProperties => 0, properties => $path_properties, @@ -108,17 +124,14 @@ __PACKAGE__->register_method ({ code => sub { my ($param) = @_; - my $path = PVE::Tools::extract_param($param, 'api_path'); - my $remote = PVE::Tools::extract_param($param, 'remote'); - - return call_method($remote, $path, 'GET', $param); + return call_api_method('GET', $param); }}); __PACKAGE__->register_method ({ name => 'pveclient_set', path => 'pveclient_set', method => 'PUT', - description => "call API PUT on .", + description => "Call API PUT on .", parameters => { additionalProperties => 0, properties => $path_properties, @@ -127,17 +140,14 @@ __PACKAGE__->register_method ({ code => sub { my ($param) = @_; - print Dumper($param); - - die "implement me"; - + return call_api_method('PUT', $param); }}); __PACKAGE__->register_method ({ name => 'pveclient_create', path => 'pveclient_create', method => 'PUSH', - description => "call API PUSH on .", + description => "Call API PUSH on .", parameters => { additionalProperties => 0, properties => $path_properties, @@ -146,17 +156,14 @@ __PACKAGE__->register_method ({ code => sub { my ($param) = @_; - print Dumper($param); - - die "implement me"; - + return call_api_method('PUSH', $param); }}); __PACKAGE__->register_method ({ name => 'pveclient_delete', path => 'pveclient_delete', method => 'DELETE', - description => "call API DELETE on .", + description => "Call API DELETE on .", parameters => { additionalProperties => 0, properties => $path_properties, @@ -165,10 +172,7 @@ __PACKAGE__->register_method ({ code => sub { my ($param) = @_; - print Dumper($param); - - die "implement me"; - + return call_api_method('DELETE', $param); }}); @@ -178,9 +182,12 @@ our $cmddef = { lxc => $PVE::APIClient::Commands::lxc::cmddef, remote => $PVE::APIClient::Commands::remote::cmddef, + resume => [ 'PVE::APIClient::Commands::GuestStatus', 'resume', ['remote', 'vmid']], + shutdown => [ 'PVE::APIClient::Commands::GuestStatus', 'shutdown', ['remote', 'vmid']], spice => [ 'PVE::APIClient::Commands::GuestStatus', 'spice', ['remote', 'vmid']], start => [ 'PVE::APIClient::Commands::GuestStatus', 'start', ['remote', 'vmid']], stop => [ 'PVE::APIClient::Commands::GuestStatus', 'stop', ['remote', 'vmid']], + suspend => [ 'PVE::APIClient::Commands::GuestStatus', 'suspend', ['remote', 'vmid']], api => { get => [ __PACKAGE__, 'pveclient_get', ['remote', 'api_path'], {}, $format_result ], @@ -191,4 +198,11 @@ our $cmddef = { }; +if ($cmd && $cmd eq 'printsynopsis') { + + print __PACKAGE__->generate_asciidoc_synopsis(); + + exit(0); +} + __PACKAGE__->run_cli_handler();