X-Git-Url: https://git.proxmox.com/?p=pve-client.git;a=blobdiff_plain;f=pveclient;h=cbcc113778ed75611be6baf7248df2cbaa257575;hp=f18dab902c231510aa8de7d2f76efa36007b9eef;hb=07c6b1d4cf07a07ac955cbce0bb1668a4718b56c;hpb=a6dab5b8ed9239968d8096a727257183f5fc05a7 diff --git a/pveclient b/pveclient index f18dab9..cbcc113 100755 --- a/pveclient +++ b/pveclient @@ -1,117 +1,67 @@ #!/usr/bin/perl +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; -use PVE::CLIHandler; +use PVE::APIClient::JSONSchema qw(register_standard_option get_standard_option); +use PVE::APIClient::RESTHandler; +use PVE::APIClient::CLIFormatter; +use PVE::APIClient::CLIHandler; +use PVE::APIClient::PTY; use PVE::APIClient::LWP; use PVE::APIClient::Helpers; +use PVE::APIClient::Config; 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; -sub call_method { - my ($path, $method, $args) = @_; +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 $info = PVE::APIClient::Helpers::lookup_api_method($path, $method); - my $param = PVE::JSONSchema::get_options($info->{parameters}, $args); - print Dumper($param); + my $stdopts = PVE::APIClient::RESTHandler::extract_standard_output_properties($param); + PVE::APIClient::CLIFormatter::query_terminal_options($stdopts); - die "implement me"; -} + my $remote = PVE::APIClient::Tools::extract_param($param, 'remote'); + die "missing remote\n" if !defined($remote); + my $config = PVE::APIClient::Config->load(); -my $cli_class_handlers = { - list => 'PVE::APIClient::Commands::list', - lxc => 'PVE::APIClient::Commands::lxc', - remote => 'PVE::APIClient::Commands::remote', - config => 'PVE::APIClient::Commands::config', - help => 'PVE::APIClient::Commands::help', -}; + my $uri_param = {}; + my $info = PVE::APIClient::Helpers::find_method_info($path, $method, $uri_param); -my $cmd = shift; -if (!defined($cmd)) { - PVE::APIClient::Commands::help->help({}); - exit(-1); -} + my $conn = PVE::APIClient::Config->remote_conn($config, $remote); -my $method_map = { - create => 'POST', - set => 'PUT', - get => 'GET', - delete => 'DELETE', -}; + my $res = $conn->call($method, "api2/json/$path", $param); + die "undefined result" if !defined($res); + die "undefined result data" if !exists($res->{data}); -if (my $method = $method_map->{$cmd}) { - my $path; - if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/) { - $path = shift @ARGV; - } - my $res = call_method($path, $method, \@ARGV); - die "implement me"; -} elsif (my $class = $cli_class_handlers->{$cmd}) { - $class->run_cli_handler(); -} elsif ($cmd eq 'bashcomplete') { - - exit(0) if !(defined($ENV{COMP_LINE}) && defined($ENV{COMP_POINT})); - - my $cmdlist = join('|', keys %$cli_class_handlers); - if ($ENV{COMP_LINE} =~ m/^(.*pveclient\s+($cmdlist)\s+)(.*)$/) { - my $cmd = $2; - my $class = $cli_class_handlers->{$cmd} || die "internal error"; - - if ($cmd eq 'list') { # simple commands - $ENV{COMP_LINE} = "pveclient $3"; - $ENV{COMP_POINT} = length($ENV{COMP_LINE}); - @ARGV = ('bashcomplete', 'pveclient', $ARGV[1], $ARGV[2]); - } else { - $ENV{COMP_LINE} = "pveclient $3"; - $ENV{COMP_POINT} = length($ENV{COMP_LINE}); - @ARGV = ('bashcomplete', 'pveclient', $ARGV[1], $ARGV[2]); - } - $class->run_cli_handler(); + my $data = $res->{data}; - } else { + PVE::APIClient::CLIFormatter::print_api_result($data, $info->{returns}, undef, $stdopts); +} - my $cmdline = substr($ENV{COMP_LINE}, 0, $ENV{COMP_POINT}); - my ($bash_command, $cur, $prev) = @ARGV; - $cmdline =~ s/\Q$cur\E$//; +use base qw(PVE::APIClient::CLIHandler); - my $args = PVE::Tools::split_args($cmdline); +sub read_password { + return PVE::APIClient::PTY::read_password("Remote password: ") +} - my @cmds = (keys %$method_map, keys %$cli_class_handlers); - if (scalar(@$args) == 1) { - foreach my $p (@cmds) { - print "$p\n" if $p =~ m/^$cur/; - } - } elsif (scalar(@$args) == 2) { - if (my $method = $method_map->{$args->[1]}) { - PVE::APIClient::Helpers::complete_api_path($cur); - } - } elsif (scalar(@$args) >= 3) { - my $path = $args->[2]; - if (my $method = $method_map->{$args->[1]}) { - if (my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method, 1)) { - my $prop = $info->{parameters}->{properties}; - PVE::APIClient::Helpers::complete_api_call_options($method, $prop, $prev, $cur, $args); - } - } - } - } -} elsif ($cmd eq 'packagedepends') { +my $cmd = $ARGV[0]; + +if ($cmd && $cmd eq 'packagedepends') { # experimental code to print required perl packages my $packages = {}; my $dir = Cwd::getcwd; @@ -129,8 +79,202 @@ if (my $method = $method_map->{$cmd}) { } } print join("\n", sort(keys %$packages)) . "\n"; -} else { - PVE::APIClient::Commands::help->help({}); + + exit(0); +} + +my $path_properties = {}; + +my $api_path_property = { + description => "API path.", + type => 'string', + completion => sub { + my ($cmd, $pname, $cur, $args) = @_; + return PVE::APIClient::Helpers::complete_api_path($cur); + }, +}; + +# dynamically update schema definition for direct API call +# like: pveclient api +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_properties->{remote} = get_standard_option('pveclient-remote-name'); +$path_properties->{api_path} = $api_path_property; + +__PACKAGE__->register_method ({ + name => 'pveclient_get', + path => 'pveclient_get', + method => 'GET', + description => "Call API GET on .", + parameters => { + additionalProperties => 0, + properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties), + }, + returns => { type => 'null' }, + code => sub { + my ($param) = @_; + + call_api_method('GET', $param); + + return undef; + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_set', + path => 'pveclient_set', + method => 'PUT', + description => "Call API PUT on .", + parameters => { + additionalProperties => 0, + properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties), + }, + returns => { type => 'null' }, + code => sub { + my ($param) = @_; + + call_api_method('PUT', $param); + + return undef; + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_create', + path => 'pveclient_create', + method => 'POST', + description => "Call API POST on .", + parameters => { + additionalProperties => 0, + properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties), + }, + returns => { type => 'null' }, + code => sub { + my ($param) = @_; + + call_api_method('PUSH', $param); + + return undef; + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_delete', + path => 'pveclient_delete', + method => 'DELETE', + description => "Call API DELETE on .", + parameters => { + additionalProperties => 0, + properties => PVE::APIClient::RESTHandler::add_standard_output_properties($path_properties), + }, + returns => { type => 'null' }, + code => sub { + my ($param) = @_; + + call_api_method('DELETE', $param); + + return undef; + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_usage', + path => 'pveclient_usage', + method => 'GET', + description => "print API usage information for .", + parameters => { + additionalProperties => 0, + properties => { + api_path => $api_path_property, + verbose => { + description => "Verbose output format.", + type => 'boolean', + optional => 1, + }, + returns => { + description => "Including schema for returned data.", + type => 'boolean', + optional => 1, + }, + command => { + description => "API command.", + type => 'string', + enum => [ keys %$PVE::APIClient::Helpers::method_map ], + optional => 1, + }, + }, + }, + returns => { type => 'null' }, + code => sub { + my ($param) = @_; + + my $path = $param->{api_path}; + + my $found = 0; + foreach my $cmd (qw(get set create delete)) { + next if $param->{command} && $cmd ne $param->{command}; + my $method = $PVE::APIClient::Helpers::method_map->{$cmd}; + my $uri_param = {}; + my $info = PVE::APIClient::Helpers::find_method_info($path, $method, $uri_param, 1); + next if !$info; + $found = 1; + + my $prefix = "pveclient api $cmd $path"; + if ($param->{verbose}) { + print PVE::APIClient::RESTHandler::getopt_usage( + $info, $prefix, undef, $uri_param, 'full'); + + } else { + print "USAGE: " . PVE::APIClient::RESTHandler::getopt_usage( + $info, $prefix, undef, $uri_param, 'short'); + } + if ($param-> {returns}) { + my $schema = to_json($info->{returns}, {utf8 => 1, canonical => 1, pretty => 1 }); + print "RETURNS: $schema\n"; + } + } + + if (!$found) { + if ($param->{command}) { + die "no '$param->{command}' handler for '$path'\n"; + } else { + die "no such resource '$path'\n" + } + } + + return undef; + }}); + +our $cmddef = { + config => $PVE::APIClient::Commands::config::cmddef, + list => $PVE::APIClient::Commands::list::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 => { + usage => [ __PACKAGE__, 'pveclient_usage', ['api_path']], + get => [ __PACKAGE__, 'pveclient_get', ['remote', 'api_path']], + set => [ __PACKAGE__, 'pveclient_set', ['remote', 'api_path']], + create => [ __PACKAGE__, 'pveclient_create', ['remote', 'api_path']], + delete => [ __PACKAGE__, 'pveclient_delete', ['remote', 'api_path']], + }, +}; + + +if ($cmd && $cmd eq 'printsynopsis') { + + print __PACKAGE__->generate_asciidoc_synopsis(); + + exit(0); } -exit(0); +__PACKAGE__->run_cli_handler();