use strict;
use warnings;
-use Data::Dumper;
use PVE::SafeSyslog;
use PVE::Exception qw(raise raise_param_exc);
};
__PACKAGE__->register_method ({
- name => 'help',
+ name => 'help',
path => 'help',
method => 'GET',
description => "Get help about specified command.",
parameters => {
- additionalProperties => 0,
+ additionalProperties => 0,
properties => {
cmd => {
description => "Command name",
},
},
returns => { type => 'null' },
-
+
code => sub {
my ($param) = @_;
if (!$cmd) {
if ($verbose) {
print_usage_verbose();
- } else {
+ } else {
print_usage_short(\*STDOUT);
}
return undef;
my $get_exe_name = sub {
my ($class) = @_;
-
+
my $name = $class;
$name =~ s/^.*:://;
$name =~ s/_/-/g;
__EOD__
}
-sub find_cli_class_source {
- my ($name) = @_;
-
- my $filename;
-
- $name =~ s/-/_/g;
-
- my $cpath = "PVE/CLI/${name}.pm";
- my $spath = "PVE/Service/${name}.pm";
- foreach my $p (@INC) {
- foreach my $s (($cpath, $spath)) {
- my $testfn = "$p/$s";
- if (-f $testfn) {
- $filename = $testfn;
- last;
- }
- }
- last if defined($filename);
- }
-
- return $filename;
-}
-
sub generate_asciidoc_synopsys {
my ($class) = @_;
$class->generate_asciidoc_synopsis();
initlog($exename);
- if ($class !~ m/^PVE::Service::/) {
- die "please run as root\n" if $> != 0;
- }
-
no strict 'refs';
my $def = ${"${class}::cmddef"};