]>
git.proxmox.com Git - pve-client.git/blob - pveclient
6 use lib
'/usr/share/pve-client';
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
;
22 my ($path, $method, $args) = @_;
24 die "missing API path\n" if !defined($path);
26 my $info = PVE
::APIClient
::Helpers
::lookup_api_method
($path, $method);
27 my $param = PVE
::JSONSchema
::get_options
($info->{parameters
}, $args);
33 my $cli_class_handlers = {
34 lxc
=> 'PVE::APIClient::Commands::lxc',
35 remote
=> 'PVE::APIClient::Commands::remote',
36 help
=> 'PVE::APIClient::Commands::help',
41 PVE
::APIClient
::Commands
::help-
>help({});
48 if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/) {
51 my $res = call_method
($path, $method, \
@ARGV);
53 } elsif ($cmd eq 'set') {
55 } elsif ($cmd eq 'create') {
57 } elsif ($cmd eq 'delete') {
59 } elsif (my $class = $cli_class_handlers->{$cmd}) {
60 $class->run_cli_handler();
61 } elsif ($cmd eq 'bashcomplete') {
63 exit(0) if !(defined($ENV{COMP_LINE
}) && defined($ENV{COMP_POINT
}));
65 my $cmdlist = join('|', keys %$cli_class_handlers);
66 if ($ENV{COMP_LINE
} =~ m/^(.*pveclient\s+($cmdlist)\s+)(.*)$/) {
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]);
73 $class->run_cli_handler();
77 my $cmdline = substr($ENV{COMP_LINE
}, 0, $ENV{COMP_POINT
});
78 my ($bash_command, $cur, $prev) = @ARGV;
79 $cmdline =~ s/$cur$//;
81 my $args = PVE
::Tools
::split_args
($cmdline);
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/;
91 } elsif ($cmd eq 'packagedepends') {
92 # experimental code to print required perl packages
94 my $dir = Cwd
::getcwd
;
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;
105 die "unable to find package for '$file'\n";
108 print join("\n", sort(keys %$packages)) . "\n";
110 PVE
::APIClient
::Commands
::help-
>help({});