diff options
author | Norbert Preining <preining@logic.at> | 2024-02-18 12:33:33 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2024-02-18 12:33:33 +0000 |
commit | 412e7001b593088701dc9a2c5416f7d4b5790e85 (patch) | |
tree | 69cf1041b1721c8e1e115a677ef23aeca0f7d9f5 /Master/texmf-dist/scripts | |
parent | 8f61f36d3263d679869acbe88cc0fd538708eb24 (diff) |
tlmgr bug: give some output
git-svn-id: svn://tug.org/texlive/trunk@69956 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 26 |
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; } |