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