pveclient

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use lib '/usr/share/pve-client';
   6 use Data::Dumper;
   7
   8 use PVE::JSONSchema;
   9 use PVE::CLIHandler;
  10
  11 use PVE::APIClient::LWP;
  12 use PVE::APIClient::Helpers;
  13 use PVE::APIClient::Commands::remote;
  14
  15 use JSON;
  16
  17 sub print_usage {
  18
  19     die "Usage: implement me";
  20     exit(-1);
  21 }
  22
  23 sub call_method {
  24     my ($path, $method, $args) = @_;
  25
  26     die "missing API path\n" if !defined($path);
  27
  28     my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method);
  29     my $param = PVE::JSONSchema::get_options($info->{parameters}, $args);
  30     print Dumper($param);
  31
  32     die "implement me";
  33 }
  34
  35 # NOTE: This binary is just a placeholer - nothing implemented so far!
  36
  37 #my $hostname = 'localhost';
  38 #my $username = 'root@pam';
  39 #
  40 #my $conn = PVE::APIClient::LWP->new(
  41 #    username => $username,
  42 #    #password => 'yourpassword',
  43 #    #ticket => $ticket,
  44 #    #csrftoken => $csrftoken,
  45 #    host => $hostname,
  46 #    # allow manual fingerprint verification
  47 #    manual_verification => 1,
  48 #    );
  49
  50 #my $res = $conn->get("/", {});
  51 #print to_json($res, { pretty => 1, canonical => 1});
  52
  53 my $cmd = shift || print_usage();
  54
  55 if ($cmd eq 'get') {
  56     my $method = 'GET';
  57     my $path;
  58     if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/)  {
  59         $path = shift @ARGV;
  60     }
  61     my $res = call_method($path, $method, \@ARGV);
  62     die "implement me";
  63 } elsif ($cmd eq 'set') {
  64     die "implement me";
  65 } elsif ($cmd eq 'create') {
  66     die "implement me";
  67 } elsif ($cmd eq 'delete') {
  68     die "implement me";
  69 } elsif ($cmd eq 'remote') {
  70     PVE::APIClient::Commands::remote->run_cli_handler();
  71 } else {
  72     print_usage();
  73 }
  74
  75 exit(0);