1 package PVE
::CLI
::pveum
;
6 use PVE
::Tools
qw(run_command);
9 use PVE
::AccessControl
;
10 use File
::Path
qw(make_path remove_tree);
13 use PVE
::RPCEnvironment
;
18 use PVE
::API2
::AccessControl
;
19 use PVE
::JSONSchema
qw(get_standard_option);
22 use base
qw(PVE::CLIHandler);
24 sub setup_environment
{
25 PVE
::RPCEnvironment-
>setup_default_cli_env();
29 # return $ENV{PVE_PW_TICKET} if defined($ENV{PVE_PW_TICKET});
31 my $term = new Term
::ReadLine
('pveum');
32 my $attribs = $term->Attribs;
33 $attribs->{redisplay_function
} = $attribs->{shadow_redisplay
};
34 my $input = $term->readline('Enter new password: ');
35 my $conf = $term->readline('Retype new password: ');
36 die "Passwords do not match.\n" if ($input ne $conf);
42 add
=> [ 'PVE::API2::User', 'create_user', ['userid'] ],
43 modify
=> [ 'PVE::API2::User', 'update_user', ['userid'] ],
44 delete => [ 'PVE::API2::User', 'delete_user', ['userid'] ],
47 add
=> [ 'PVE::API2::Group', 'create_group', ['groupid'] ],
48 modify
=> [ 'PVE::API2::Group', 'update_group', ['groupid'] ],
49 delete => [ 'PVE::API2::Group', 'delete_group', ['groupid'] ],
52 add
=> [ 'PVE::API2::Role', 'create_role', ['roleid'] ],
53 modify
=> [ 'PVE::API2::Role', 'update_role', ['roleid'] ],
54 delete => [ 'PVE::API2::Role', 'delete_role', ['roleid'] ],
57 modify
=> [ 'PVE::API2::ACL', 'update_acl', ['path'], { delete => 0 }],
58 delete => [ 'PVE::API2::ACL', 'update_acl', ['path'], { delete => 1 }],
60 ticket
=> [ 'PVE::API2::AccessControl', 'create_ticket', ['username'], undef,
63 print "$res->{ticket}\n";
66 passwd
=> [ 'PVE::API2::AccessControl', 'change_password', ['userid'] ],
68 useradd
=> { alias
=> 'user add' },
69 usermod
=> { alias
=> 'user modify' },
70 userdel
=> { alias
=> 'user delete' },
72 groupadd
=> { alias
=> 'group add' },
73 groupmod
=> { alias
=> 'group modify' },
74 groupdel
=> { alias
=> 'group delete' },
76 roleadd
=> { alias
=> 'role add' },
77 rolemod
=> { alias
=> 'role modify' },
78 roledel
=> { alias
=> 'role delete' },
80 aclmod
=> { alias
=> 'acl modify' },
81 acldel
=> { alias
=> 'acl delete' },