-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
use Getopt::Long;
use PVE::Tools qw(run_command);
use PVE::Cluster;
my ($res) = @_;
print "$res->{ticket}\n";
}],
+
+ passwd => [ 'PVE::API2::AccessControl', 'change_passsword', ['userid'] ],
+
useradd => [ 'PVE::API2::User', 'create_user', ['userid'] ],
usermod => [ 'PVE::API2::User', 'update_user', ['userid'] ],
userdel => [ 'PVE::API2::User', 'delete_user', ['userid'] ],
rolemod => [ 'PVE::API2::Role', 'update_role', ['roleid'] ],
roledel => [ 'PVE::API2::Role', 'delete_role', ['roleid'] ],
- aclmod => [ 'PVE::API2::ACL', 'update_acl', ['path', 'roles'], { delete => 0 }],
- acldel => [ 'PVE::API2::ACL', 'update_acl', ['path', 'roles'], { delete => 1 }],
+ aclmod => [ 'PVE::API2::ACL', 'update_acl', ['path'], { delete => 0 }],
+ acldel => [ 'PVE::API2::ACL', 'update_acl', ['path'], { delete => 1 }],
};
my $cmd = shift;
-if ($cmd && $cmd eq 'verifyapi') {
- PVE::RESTHandler::validate_method_schemas();
- exit 0;
-}
-
-PVE::CLIHandler::handle_cmd($cmddef, "pveum", $cmd, \@ARGV, $read_password);
+PVE::CLIHandler::handle_cmd($cmddef, "pveum", $cmd, \@ARGV, $read_password, $0);
exit 0;
=head1 SYNOPSIS
- pveum <COMMAND> [OPTIONS]
+=include synopsis
=head1 DESCRIPTION
-no description available
+No description available.
+
+=include pve_copyright