Add a simple implementation of list
[pve-client.git] / pveclient
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use Cwd 'abs_path';
6 use lib '/usr/share/pve-client';
7 use lib '.';
8 use Data::Dumper;
9
10 use PVE::JSONSchema;
11 use PVE::CLIHandler;
12
13 use PVE::APIClient::LWP;
14 use PVE::APIClient::Helpers;
15 use PVE::APIClient::Commands::remote;
16 use PVE::APIClient::Commands::list;
17 use PVE::APIClient::Commands::lxc;
18 use PVE::APIClient::Commands::help;
19
20 use JSON;
21
22 sub call_method {
23     my ($path, $method, $args) = @_;
24
25     die "missing API path\n" if !defined($path);
26
27     my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method);
28     my $param = PVE::JSONSchema::get_options($info->{parameters}, $args);
29     print Dumper($param);
30
31     die "implement me";
32 }
33
34 my $cli_class_handlers = {
35     list => 'PVE::APIClient::Commands::list',
36     lxc => 'PVE::APIClient::Commands::lxc',
37     remote => 'PVE::APIClient::Commands::remote',
38     help => 'PVE::APIClient::Commands::help',
39 };
40
41 my $cmd = shift;
42 if (!defined($cmd)) {
43     PVE::APIClient::Commands::help->help({});
44     exit(-1);
45 }
46
47 if ($cmd eq 'get') {
48     my $method = 'GET';
49     my $path;
50     if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/)  {
51         $path = shift @ARGV;
52     }
53     my $res = call_method($path, $method, \@ARGV);
54     die "implement me";
55 } elsif ($cmd eq 'set') {
56     die "implement me";
57 } elsif ($cmd eq 'create') {
58     die "implement me";
59 } elsif ($cmd eq 'delete') {
60     die "implement me";
61 } elsif (my $class = $cli_class_handlers->{$cmd}) {
62     $class->run_cli_handler();
63 } elsif ($cmd eq 'bashcomplete') {
64
65     exit(0) if !(defined($ENV{COMP_LINE}) && defined($ENV{COMP_POINT}));
66
67     my $cmdlist = join('|', keys %$cli_class_handlers);
68     if ($ENV{COMP_LINE} =~ m/^(.*pveclient\s+($cmdlist)\s+)(.*)$/) {
69         my $cmd = $2;
70         my $class = $cli_class_handlers->{$cmd} || die "internal error";
71         $ENV{COMP_LINE} = "pveclient $3";
72         $ENV{COMP_POINT} = length($ENV{COMP_LINE});
73         @ARGV = ('bashcomplete', 'pveclient', $ARGV[1], $ARGV[2]);
74
75         $class->run_cli_handler();
76
77     } else {
78
79         my $cmdline = substr($ENV{COMP_LINE}, 0, $ENV{COMP_POINT});
80         my ($bash_command, $cur, $prev) = @ARGV;
81         $cmdline =~ s/$cur$//;
82
83         my $args = PVE::Tools::split_args($cmdline);
84
85         my @cmds = ('get', 'set', 'create', 'delete', keys %$cli_class_handlers);
86         if (scalar(@$args) == 1) {
87             foreach my $p (@cmds) {
88                 print "$p\n" if $p =~ m/^$cur/;
89             }
90         }
91     }
92
93 } elsif ($cmd eq 'packagedepends') {
94     # experimental code to print required perl packages
95     my $packages = {};
96     my $dir = Cwd::getcwd;
97
98     foreach my $k (keys %INC) {
99         my $file = abs_path($INC{$k});
100         next if $file =~ m/^\Q$dir\E/;
101         my $res = `dpkg -S '$file'`;
102         if ($res && $res =~ m/^(\S+): $file$/) {
103             my $debian_package = $1;
104             $debian_package =~ s/:amd64$//;
105             $packages->{$debian_package} = 1;
106         } else {
107             die "unable to find package for '$file'\n";
108         }
109     }
110     print join("\n", sort(keys %$packages)) . "\n";
111 } else {
112     PVE::APIClient::Commands::help->help({});
113 }
114
115 exit(0);