[pmg-devel] [PATCH pmg-api 1/4] partially fix #2077: pmgconfig: remove dependency on Term::ReadLine

[Stoiko Ivanov]

gave this a spin on a testsetup with the reproducer from:
https://forum.proxmox.com/threads/.170001/
(via https://bugzilla.proxmox.com/show_bug.cgi?id=6748)

issue was present without the patch.
with pve-common containing:
https://lore.proxmox.com/pve-devel/20250918135215.95188-2-f.ebner@proxmox.com/
and this patch applied - I got past the error-message and to the question
for EAB credentials.

Consider this:
Reviewed-by: Stoiko Ivanov <s.ivanov at proxmox.com>
Tested-by: Stoiko Ivanov <s.ivanov at proxmox.com>

On Thu, 18 Sep 2025 16:19:41 +0200
Fiona Ebner <f.ebner at proxmox.com> wrote:

> As a side-effect, this also fixes #6748.
> 
> Signed-off-by: Fiona Ebner <f.ebner at proxmox.com>
> ---
>  src/PMG/CLI/pmgconfig.pm | 19 +++++++------------
>  1 file changed, 7 insertions(+), 12 deletions(-)
> 
> diff --git a/src/PMG/CLI/pmgconfig.pm b/src/PMG/CLI/pmgconfig.pm
> index 9f3c679..e658806 100644
> --- a/src/PMG/CLI/pmgconfig.pm
> +++ b/src/PMG/CLI/pmgconfig.pm
> @@ -5,13 +5,12 @@ use warnings;
>  use IO::File;
>  use Data::Dumper;
>  
> -use Term::ReadLine;
> -
>  use PVE::SafeSyslog;
>  use PVE::Tools qw(extract_param);
>  use PVE::INotify;
>  use PVE::CLIHandler;
>  use PVE::JSONSchema qw(get_standard_option);
> +use PVE::PTY;
>  
>  use PMG::RESTEnvironment;
>  use PMG::RuleDB;
> @@ -277,13 +276,12 @@ __PACKAGE__->register_method({
>              }
>              print $i, ") Custom\n";
>  
> -            my $term = Term::ReadLine->new('pmgconfig');
>              my $get_dir_selection = sub {
> -                my $selection = $term->readline("Enter selection: ");
> +                my $selection = PVE::PTY::read_line("Enter selection: ");
>                  if ($selection =~ /^(\d+)$/) {
>                      $selection = $1;
>                      if ($selection == $i) {
> -                        $param->{directory} = $term->readline("Enter custom URL: ");
> +                        $param->{directory} = PVE::PTY::read_line("Enter custom URL: ");
>                          return;
>                      } elsif ($selection < $i && $selection >= 0) {
>                          $param->{directory} = $directories->[$selection]->{url};
> @@ -307,8 +305,7 @@ __PACKAGE__->register_method({
>          if ($meta->{termsOfService}) {
>              my $tos = $meta->{termsOfService};
>              print "Terms of Service: $tos\n";
> -            my $term = Term::ReadLine->new('pmgconfig');
> -            my $agreed = $term->readline('Do you agree to the above terms? [y|N]: ');
> +            my $agreed = PVE::PTY::read_line('Do you agree to the above terms? [y|N]: ');
>              die "Cannot continue without agreeing to ToS, aborting.\n"
>                  if ($agreed !~ /^y$/i);
>  
> @@ -319,18 +316,16 @@ __PACKAGE__->register_method({
>  
>          my $eab_enabled = $meta->{externalAccountRequired};
>          if (!$eab_enabled && $custom_directory) {
> -            my $term = Term::ReadLine->new('pmgconfig');
>              my $agreed =
> -                $term->readline('Do you want to use external account binding? [y|N]: ');
> +                PVE::PTY::read_line('Do you want to use external account binding? [y|N]: ');
>              $eab_enabled = ($agreed =~ /^y$/i);
>          } elsif ($eab_enabled) {
>              print "The CA requires external account binding.\n";
>          }
>          if ($eab_enabled) {
>              print "You should have received a key id and a key from your CA.\n";
> -            my $term = Term::ReadLine->new('pmgconfig');
> -            my $eab_kid = $term->readline('Enter EAB key id: ');
> -            my $eab_hmac_key = $term->readline('Enter EAB key: ');
> +            my $eab_kid = PVE::PTY::read_line('Enter EAB key id: ');
> +            my $eab_hmac_key = PVE::PTY::read_line('Enter EAB key: ');
>  
>              $param->{'eab-kid'} = $eab_kid;
>              $param->{'eab-hmac-key'} = $eab_hmac_key;