pveum

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::CLI::pveum;
   7
   8 my $read_password = sub {
   9
  10     # return $ENV{PVE_PW_TICKET} if defined($ENV{PVE_PW_TICKET});
  11
  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);
  18     return $input;
  19 };
  20
  21 my $prepare = sub {
  22     # autmatically generate the private key if it does not already exists
  23     PVE::Cluster::gen_auth_key();
  24 };
  25
  26 PVE::CLI::pveum->run_cli($read_password, undef, $prepare);