diff options
author | Norbert Preining <preining@logic.at> | 2009-11-30 23:58:57 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-11-30 23:58:57 +0000 |
commit | bd8fb7edb6aacdb3e1085385f6956c832fbf3d99 (patch) | |
tree | 86a69cc7cb22a74da475731f85c10621b534aa72 /Master | |
parent | ce2e88e887ec0346123a83fff7c4ae2f2d32940f (diff) |
show catalogue license/date/version if present in tlmgr show
git-svn-id: svn://tug.org/texlive/trunk@16254 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 0fbe9e8d9f1..f8835a4ed04 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -896,13 +896,19 @@ sub action_show { # include arbitrary package in the list of collections, but # only collectons: @colls = grep {m;^collection-;} @colls; - print "package: ", $tlp->name, "\n"; - print "category: ", $tlp->category, "\n"; - print "shortdesc: ", $tlp->shortdesc, "\n" if ($tlp->shortdesc); - print "longdesc: ", $tlp->longdesc, "\n" if ($tlp->longdesc); - print "installed: ", ($installed ? "Yes" : "No"), "\n"; - print "revision: ", $tlp->revision, "\n" if ($installed); - print "collection: ", @colls, "\n" if (@colls); + print "package: ", $tlp->name, "\n"; + print "category: ", $tlp->category, "\n"; + print "shortdesc: ", $tlp->shortdesc, "\n" if ($tlp->shortdesc); + print "longdesc: ", $tlp->longdesc, "\n" if ($tlp->longdesc); + print "installed: ", ($installed ? "Yes" : "No"), "\n"; + print "revision: ", $tlp->revision, "\n" if ($installed); + print "cat-version: ", $tlp->cataloguedata->{'version'}, "\n" + if $tlp->cataloguedata->{'version'}; + print "cat-date: ", $tlp->cataloguedata->{'date'}, "\n" + if $tlp->cataloguedata->{'date'}; + print "cat-license: ", $tlp->cataloguedata->{'license'}, "\n" + if $tlp->cataloguedata->{'license'}; + print "collection: ", @colls, "\n" if (@colls); if ($opts{"list"}) { if ($tlp->category eq "Collection" || $tlp->category eq "Scheme") { # in the case of collections of schemes we list the deps |