From 412e7001b593088701dc9a2c5416f7d4b5790e85 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 18 Feb 2024 12:33:33 +0000 Subject: tlmgr bug: give some output git-svn-id: svn://tug.org/texlive/trunk@69956 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 26 +++++++++++++++++++++++--- 1 file changed, 23 insertions(+), 3 deletions(-) diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 36b5cfaad9b..6bf51a26233 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -7031,7 +7031,6 @@ sub action_bug { 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 action_bug { 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; } -- cgit v1.2.3