texlive[69956] Master/texmf-dist/scripts/texlive/tlmgr.pl: tlmgr bug:

[commits+preining at tug.org]

Revision: 69956
          https://tug.org/svn/texlive?view=revision&revision=69956
Author:   preining
Date:     2024-02-18 13:33:33 +0100 (Sun, 18 Feb 2024)
Log Message:
-----------
tlmgr bug: give some output

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2024-02-18 12:33:25 UTC (rev 69955)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2024-02-18 12:33:33 UTC (rev 69956)
@@ -7031,7 +7031,6 @@
       print "Number out of range, exiting.\n";
       return $F_ERROR;
     }
-    print "PKGINDEX = $pkgidx\n";
     if ($pkgidx <= $#deschit) {
       $pkg = $deschit[$pkgidx - 1][0];
     } else {
@@ -7053,8 +7052,29 @@
 
 sub issue_bug_info_for_package {
   my $tlp = shift;
-  print $tlp->name, " ", $tlp->revision, "\n";
-  print "TODO\n";
+  print "Package: ", $tlp->name, "\n";
+  if (defined($tlp->cataloguedata->{'ctan'})) {
+    print "CTAN link: https://mirror.ctan.org" . $tlp->cataloguedata->{'ctan'} . "\n";
+  }
+  my $output = '';
+  if (defined($tlp->cataloguedata->{'contact-bugs'})) {
+    $output .= "Bug contact address: " . $tlp->cataloguedata->{'contact-bugs'} . "\n";
+  }
+  my $other_output = '';
+  for my $k (keys %{$tlp->cataloguedata}) {
+    if ($k =~ m/^contact-/) {
+      next if ($k eq 'contact-bugs');
+      $other_output .= "$k: " . $tlp->cataloguedata->{$k} . "\n";
+    }
+  }
+  if ($other_output) {
+    $output .= "Other contact points:\n$other_output\n";
+  }
+  if ($output) {
+    print $output;
+  } else {
+    print "No other information could be found!\n";
+  }
   return $F_OK;
 }