Config.pm: add new defaults sections
[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::config;
16 use PVE::APIClient::Commands::remote;
17 use PVE::APIClient::Commands::list;
18 use PVE::APIClient::Commands::lxc;
19 use PVE::APIClient::Commands::help;
20
21 use JSON;
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
36 my $cli_class_handlers = {
37     list => 'PVE::APIClient::Commands::list',
38     lxc => 'PVE::APIClient::Commands::lxc',
39     remote => 'PVE::APIClient::Commands::remote',
40     config => 'PVE::APIClient::Commands::config',
41     help => 'PVE::APIClient::Commands::help',
42 };
43
44 my $cmd = shift;
45 if (!defined($cmd)) {
46     PVE::APIClient::Commands::help->help({});
47     exit(-1);
48 }
49
50 my $method_map = {
51     create => 'POST',
52     set => 'PUT',
53     get => 'GET',
54     delete => 'DELETE',
55 };
56
57 if (my $method = $method_map->{$cmd}) {
58     my $path;
59     if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/)  {
60         $path = shift @ARGV;
61     }
62     my $res = call_method($path, $method, \@ARGV);
63     die "implement me";
64 } elsif (my $class = $cli_class_handlers->{$cmd}) {
65     $class->run_cli_handler();
66 } elsif ($cmd eq 'bashcomplete') {
67
68     exit(0) if !(defined($ENV{COMP_LINE}) && defined($ENV{COMP_POINT}));
69
70     my $cmdlist = join('|', keys %$cli_class_handlers);
71     if ($ENV{COMP_LINE} =~ m/^(.*pveclient\s+($cmdlist)\s+)(.*)$/) {
72         my $cmd = $2;
73         my $class = $cli_class_handlers->{$cmd} || die "internal error";
74
75         if ($cmd eq 'list') { # simple commands
76             $ENV{COMP_LINE} = "pveclient $3";
77             $ENV{COMP_POINT} = length($ENV{COMP_LINE});
78             @ARGV = ('bashcomplete', 'pveclient', $ARGV[1], $ARGV[2]);
79         } else {
80             $ENV{COMP_LINE} = "pveclient $3";
81             $ENV{COMP_POINT} = length($ENV{COMP_LINE});
82             @ARGV = ('bashcomplete', 'pveclient', $ARGV[1], $ARGV[2]);
83         }
84         $class->run_cli_handler();
85
86     } else {
87
88         my $cmdline = substr($ENV{COMP_LINE}, 0, $ENV{COMP_POINT});
89         my ($bash_command, $cur, $prev) = @ARGV;
90         $cmdline =~ s/\Q$cur\E$//;
91
92         my $args = PVE::Tools::split_args($cmdline);
93
94         my @cmds = (keys %$method_map, keys %$cli_class_handlers);
95         if (scalar(@$args) == 1) {
96             foreach my $p (@cmds) {
97                 print "$p\n" if $p =~ m/^$cur/;
98             }
99         } elsif (scalar(@$args) == 2) {
100             if (my $method = $method_map->{$args->[1]}) {
101                 PVE::APIClient::Helpers::complete_api_path($cur);
102             }
103         } elsif (scalar(@$args) >= 3) {
104             my $path = $args->[2];
105             if (my $method = $method_map->{$args->[1]}) {
106                 if (my $info = PVE::APIClient::Helpers::lookup_api_method($path, $method, 1)) {
107                     my $prop = $info->{parameters}->{properties};
108                     PVE::APIClient::Helpers::complete_api_call_options($method, $prop, $prev, $cur, $args);
109                 }
110             }
111         }
112     }
113
114 } elsif ($cmd eq 'packagedepends') {
115     # experimental code to print required perl packages
116     my $packages = {};
117     my $dir = Cwd::getcwd;
118
119     foreach my $k (keys %INC) {
120         my $file = abs_path($INC{$k});
121         next if $file =~ m/^\Q$dir\E/;
122         my $res = `dpkg -S '$file'`;
123         if ($res && $res =~ m/^(\S+): $file$/) {
124             my $debian_package = $1;
125             $debian_package =~ s/:amd64$//;
126             $packages->{$debian_package} = 1;
127         } else {
128             die "unable to find package for '$file'\n";
129         }
130     }
131     print join("\n", sort(keys %$packages)) . "\n";
132 } else {
133     PVE::APIClient::Commands::help->help({});
134 }
135
136 exit(0);