8 my $read_password = sub {
10 # return $ENV{PVE_PW_TICKET} if defined($ENV{PVE_PW_TICKET});
12 my $term = new Term
::ReadLine
('pveum');
13 my $attribs = $term->Attribs;
14 $attribs->{redisplay_function
} = $attribs->{shadow_redisplay
};
15 my $input = $term->readline('Enter new password: ');
16 my $conf = $term->readline('Retype new password: ');
17 die "Passwords do not match.\n" if ($input ne $conf);
22 # autmatically generate the private key if it does not already exists
23 PVE
::Cluster
::gen_auth_key
();
26 PVE
::CLI
::pveum-
>run_cli($read_password, undef, $prepare);