summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2024-02-18 12:33:33 +0000
committerNorbert Preining <preining@logic.at>2024-02-18 12:33:33 +0000
commit412e7001b593088701dc9a2c5416f7d4b5790e85 (patch)
tree69cf1041b1721c8e1e115a677ef23aeca0f7d9f5
parent8f61f36d3263d679869acbe88cc0fd538708eb24 (diff)
tlmgr bug: give some output
git-svn-id: svn://tug.org/texlive/trunk@69956 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl26
1 files 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;
}