use strict;
use warnings;
use lib '/usr/share/pve-client';
+use lib '.';
use Data::Dumper;
use PVE::JSONSchema;
sub print_usage {
- die "Usage: implement me";
- exit(-1);
+ my $text = "pveclient usage:\n\n";
+
+ $text .= "pveclient remote <help|add|remove> {options}\n\n";
+
+ $text .= "pveclient <get/set/create/delete> <path> {options}\n\n";
+
+ print STDERR $text;
+
}
sub call_method {
#my $res = $conn->get("/", {});
#print to_json($res, { pretty => 1, canonical => 1});
-my $cmd = shift || print_usage();
+my $cmd = shift || (print_usage() && exit(-1));
if ($cmd eq 'get') {
my $method = 'GET';