use base qw(PVE::CLIHandler);
+sub setup_environment {
+ PVE::RPCEnvironment->setup_default_cli_env();
+}
+
+sub read_password {
+ # return $ENV{PVE_PW_TICKET} if defined($ENV{PVE_PW_TICKET});
+
+ my $term = new Term::ReadLine ('pveum');
+ my $attribs = $term->Attribs;
+ $attribs->{redisplay_function} = $attribs->{shadow_redisplay};
+ my $input = $term->readline('Enter new password: ');
+ my $conf = $term->readline('Retype new password: ');
+ die "Passwords do not match.\n" if ($input ne $conf);
+ return $input;
+}
+
our $cmddef = {
ticket => [ 'PVE::API2::AccessControl', 'create_ticket', ['username'], undef,
sub {
};
1;
-
-__END__
-
-=head1 NAME
-
-pveum - PVE User Manager
-
-=head1 SYNOPSIS
-
-=include synopsis
-
-=head1 DESCRIPTION
-
-No description available.
-
-=include pve_copyright