03cb8ed944636725029cfbc2ab01809a1f257d67
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
;
22 my $text = "pveclient usage:\n\n";
24 $text .= "pveclient remote <help|add|remove> {options}\n\n";
26 $text .= "pveclient lxc <help|create|destroy|...> {options}\n\n";
28 $text .= "pveclient <get/set/create/delete> <path> {options}\n\n";
35 my ($path, $method, $args) = @_;
37 die "missing API path\n" if !defined($path);
39 my $info = PVE
::APIClient
::Helpers
::lookup_api_method
($path, $method);
40 my $param = PVE
::JSONSchema
::get_options
($info->{parameters
}, $args);
46 # NOTE: This binary is just a placeholer - nothing implemented so far!
48 #my $hostname = 'localhost';
49 #my $username = 'root@pam';
51 #my $conn = PVE::APIClient::LWP->new(
52 # username => $username,
53 # #password => 'yourpassword',
55 # #csrftoken => $csrftoken,
57 # # allow manual fingerprint verification
58 # manual_verification => 1,
61 #my $res = $conn->get("/", {});
62 #print to_json($res, { pretty => 1, canonical => 1});
64 my $cli_class_handlers = {
65 lxc
=> 'PVE::APIClient::Commands::lxc',
66 remote
=> 'PVE::APIClient::Commands::remote',
69 my $cmd = shift || (print_usage
() && exit(-1));
74 if (scalar(@ARGV) && $ARGV[0] !~ m/^\-/) {
77 my $res = call_method
($path, $method, \
@ARGV);
79 } elsif ($cmd eq 'set') {
81 } elsif ($cmd eq 'create') {
83 } elsif ($cmd eq 'delete') {
85 } elsif (my $class = $cli_class_handlers->{$cmd}) {
86 $class->run_cli_handler();
87 } elsif ($cmd eq 'bashcomplete') {
89 exit(0) if !(defined($ENV{COMP_LINE
}) && defined($ENV{COMP_POINT
}));
91 my $cmdlist = join('|', keys %$cli_class_handlers);
92 if ($ENV{COMP_LINE
} =~ m/^(.*pveclient\s+($cmdlist)\s+)(.*)$/) {
94 my $class = $cli_class_handlers->{$cmd} || die "internal error";
95 $ENV{COMP_LINE
} = "pveclient $3";
96 $ENV{COMP_POINT
} = length($ENV{COMP_LINE
});
97 @ARGV = ('bashcomplete', 'pveclient', $ARGV[1], $ARGV[2]);
99 $class->run_cli_handler();
103 my $cmdline = substr($ENV{COMP_LINE
}, 0, $ENV{COMP_POINT
});
104 my ($bash_command, $cur, $prev) = @ARGV;
105 $cmdline =~ s/$cur$//;
107 my $args = PVE
::Tools
::split_args
($cmdline);
109 my @cmds = ('get', 'set', 'create', 'delete', keys %$cli_class_handlers);
110 if (scalar(@$args) == 1) {
111 foreach my $p (@cmds) {
112 print "$p\n" if $p =~ m/^$cur/;
117 } elsif ($cmd eq 'packagedepends') {
118 # experimental code to print required perl packages
120 my $dir = Cwd
::getcwd
;
122 foreach my $k (keys %INC) {
123 my $file = abs_path
($INC{$k});
124 next if $file =~ m/^\Q$dir\E/;
125 my $res = `dpkg -S '$file'`;
126 if ($res && $res =~ m/^(\S+): $file$/) {
127 my $debian_package = $1;
128 $debian_package =~ s/:amd64$//;
129 $packages->{$debian_package} = 1;
131 die "unable to find package for '$file'\n";
134 print join("\n", sort(keys %$packages)) . "\n";