lxc.pm: add test code to read config from ~/.pveclient

diff --git a/PVE/APIClient/Commands/lxc.pm b/PVE/APIClient/Commands/lxc.pm
index 469bcf11309d2a02cf25c56b41e5405466abbdeb..67af931eb835cc2923e00d5b7d769a2d6415faf1 100644 (file)
--- a/PVE/APIClient/Commands/lxc.pm
+++ b/PVE/APIClient/Commands/lxc.pm
@@ -2,11 +2,57 @@ package PVE::APIClient::Commands::lxc;
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;

+use JSON;
+use File::HomeDir;

 
 

+use PVE::Tools;

 use PVE::CLIHandler;
 
 use base qw(PVE::CLIHandler);
 
 use PVE::CLIHandler;
 
 use base qw(PVE::CLIHandler);
 

+my $load_config = sub {
+
+    my $filename = home() . '/.pveclient';
+    my $conf_str = PVE::Tools::file_get_contents($filename);
+
+    my $filemode = (stat($filename))[2] & 07777;
+    if ($filemode != 0600) {
+       die sprintf "wrong permissions on '$filename' %04o (expected 0600)\n", $filemode;
+    }
+
+    return decode_json($conf_str);
+};
+
+my $load_remote_config = sub {
+    my ($remote) = @_;
+
+    my $conf = $load_config->();
+
+    my $remote_conf = $conf->{"remote_$remote"} ||
+       die "no such remote '$remote'\n";
+
+    foreach my $opt (qw(hostname username password fingerprint)) {
+       die "missing option '$opt' (remote '$remote')" if !defined($remote_conf->{$opt});
+    }
+
+    return $remote_conf;
+};
+
+my $get_remote_connection = sub {
+    my ($remote) = @_;
+
+    my $conf = $load_remote_config->($remote);
+
+    return PVE::APIClient::LWP->new(
+       username => $conf->{username},
+       password => $conf->{password},
+       host => $conf->{hostname},
+       cached_fingerprints => {
+           $conf->{fingerprint} => 1
+       });
+};
+
+

 __PACKAGE__->register_method ({
     name => 'enter',
     path => 'enter',
 __PACKAGE__->register_method ({
     name => 'enter',
     path => 'enter',


@@ -15,6 +61,10 @@ __PACKAGE__->register_method ({
     parameters => {
        additionalProperties => 0,
        properties => {
     parameters => {
        additionalProperties => 0,
        properties => {

+           remote => {
+               description => "The name of the remote.",
+               type => 'string',
+           },

            vmid => {
                description => "The container ID",
                type => 'string',
            vmid => {
                description => "The container ID",
                type => 'string',


@@ -25,6 +75,14 @@ __PACKAGE__->register_method ({
     code => sub {
        my ($param) = @_;
 
     code => sub {
        my ($param) = @_;
 

+       my $conn = $get_remote_connection->($param->{remote});
+       my $node = 'localhost'; # ??
+
+       my $api_path = "api2/json/nodes/$node/lxc/$param->{vmid}";
+
+       my $res = $conn->get($api_path, {});
+
+       print to_json($res, { pretty => 1, canonical => 1});

        die "implement me";
 
     }});
        die "implement me";
 
     }});


@@ -53,7 +111,7 @@ __PACKAGE__->register_method ({
 
 
 our $cmddef = {
 
 
 our $cmddef = {

-    enter => [ __PACKAGE__, 'enter', ['vmid']],
+    enter => [ __PACKAGE__, 'enter', ['remote', 'vmid']],

     list => [ __PACKAGE__, 'list', ['remote']],
 };
 
     list => [ __PACKAGE__, 'list', ['remote']],
 };