X-Git-Url: https://git.proxmox.com/?p=pve-client.git;a=blobdiff_plain;f=pveclient;h=a7e41efea3f740743d09d5741d64085e62c2ae3d;hp=165505fe45f33b485c5029d955234890827ec93e;hb=b0495d825b1b1e5c83a006d68293e89c98eaa024;hpb=c5111270eb6e56ba88226b1bb743139a1b71a6b9 diff --git a/pveclient b/pveclient index 165505f..a7e41ef 100755 --- a/pveclient +++ b/pveclient @@ -1,82 +1,194 @@ #!/usr/bin/perl +package PVE::CLI::pveclient; + use strict; use warnings; -use lib '/usr/share/pve-client'; -use lib '.'; +use Cwd 'abs_path'; use Data::Dumper; -use PVE::JSONSchema; -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; +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::GuestStatus; use JSON; -sub print_usage { - - my $text = "pveclient usage:\n\n"; +sub call_method { + my ($remote, $path, $method, $param) = @_; - $text .= "pveclient remote {options}\n\n"; + die "missing API path\n" if !defined($path); - $text .= "pveclient {options}\n\n"; + my $config = PVE::APIClient::Config->load(); - print STDERR $text; + # test if api path exists + my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method); -} + my $conn = PVE::APIClient::Config->remote_conn($config, $remote); -sub call_method { - my ($path, $method, $args) = @_; + my $res = $conn->call($method, "api2/json/$path", $param); + die "undefined result" if !defined($res); + die "undefined result data" if !exists($res->{data}); - die "missing API path\n" if !defined($path); + return $res->{data}; +} - my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method); - my $param = PVE::JSONSchema::get_options($info->{parameters}, $args); - print Dumper($param); +use base qw(PVE::APIClient::CLIHandler); + +my $cmd = $ARGV[0]; + +if ($cmd && $cmd eq 'packagedepends') { + # experimental code to print required perl packages + my $packages = {}; + my $dir = Cwd::getcwd; + + foreach my $k (keys %INC) { + my $file = abs_path($INC{$k}); + next if $file =~ m/^\Q$dir\E/; + my $res = `dpkg -S '$file'`; + if ($res && $res =~ m/^(\S+): $file$/) { + my $debian_package = $1; + $debian_package =~ s/:amd64$//; + $packages->{$debian_package} = 1; + } else { + die "unable to find package for '$file'\n"; + } + } + print join("\n", sort(keys %$packages)) . "\n"; - die "implement me"; + exit(0); } -# NOTE: This binary is just a placeholer - nothing implemented so far! - -#my $hostname = 'localhost'; -#my $username = 'root@pam'; -# -#my $conn = PVE::APIClient::LWP->new( -# username => $username, -# #password => 'yourpassword', -# #ticket => $ticket, -# #csrftoken => $csrftoken, -# host => $hostname, -# # allow manual fingerprint verification -# manual_verification => 1, -# ); - -#my $res = $conn->get("/", {}); -#print to_json($res, { pretty => 1, canonical => 1}); - -my $cmd = shift || (print_usage() && exit(-1)); - -if ($cmd eq 'get') { - my $method = 'GET'; - my $path; - if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/) { - $path = shift @ARGV; - } - my $res = call_method($path, $method, \@ARGV); - die "implement me"; -} elsif ($cmd eq 'set') { - die "implement me"; -} elsif ($cmd eq 'create') { - die "implement me"; -} elsif ($cmd eq 'delete') { - die "implement me"; -} elsif ($cmd eq 'remote') { - PVE::APIClient::Commands::remote->run_cli_handler(); -} else { - print_usage(); +my $path_properties = {}; +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}; + $path_returns = $info->{returns}; } -exit(0); +$path_properties->{remote} = get_standard_option('pveclient-remote-name'); +$path_properties->{api_path} = { + description => "API path.", + type => 'string', + completion => sub { + my ($cmd, $pname, $cur, $args) = @_; + return PVE::APIClient::Helpers::complete_api_path($cur); + }, +}; + +my $format_result = sub { + my ($data, $format) = @_; + + return if $path_returns->{type} eq 'null'; + + # TODO: implement different output formats ($format) + print to_json($data, {utf8 => 1, allow_nonref => 1, canonical => 1, pretty => 1 }); +}; + +__PACKAGE__->register_method ({ + name => 'pveclient_get', + path => 'pveclient_get', + method => 'GET', + description => "call API GET on .", + parameters => { + additionalProperties => 0, + properties => $path_properties, + }, + returns => $path_returns, + 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); + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_set', + path => 'pveclient_set', + method => 'PUT', + description => "call API PUT on .", + parameters => { + additionalProperties => 0, + properties => $path_properties, + }, + returns => $path_returns, + code => sub { + my ($param) = @_; + + print Dumper($param); + + die "implement me"; + + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_create', + path => 'pveclient_create', + method => 'PUSH', + description => "call API PUSH on .", + parameters => { + additionalProperties => 0, + properties => $path_properties, + }, + returns => $path_returns, + code => sub { + my ($param) = @_; + + print Dumper($param); + + die "implement me"; + + }}); + +__PACKAGE__->register_method ({ + name => 'pveclient_delete', + path => 'pveclient_delete', + method => 'DELETE', + description => "call API DELETE on .", + parameters => { + additionalProperties => 0, + properties => $path_properties, + }, + returns => $path_returns, + code => sub { + my ($param) = @_; + + print Dumper($param); + + die "implement me"; + + }}); + + +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, + + 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'], {}, $format_result ], + set => [ __PACKAGE__, 'pveclient_set', ['remote', 'api_path'], {}, $format_result ], + create => [ __PACKAGE__, 'pveclient_create', ['remote', 'api_path'], {}, $format_result ], + delete => [ __PACKAGE__, 'pveclient_delete', ['remote', 'api_path'], {}, $format_result ], + }, +}; + + +__PACKAGE__->run_cli_handler();