summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-01 10:51:01 +0000
committerNorbert Preining <preining@logic.at>2008-05-01 10:51:01 +0000
commit355d7f47dc5f2aeed17531d1e859188b1dd7128b (patch)
treee8188b19875ee86996544eeeaaa313bc78ec9b57 /Master/texmf
parent5da52e60faad7756ed31731b38aa3a7b4b0fe844 (diff)
new tlmgr/tl-package-manager command "show:
tlmgr show bin-xetex foobar now gives details about the package git-svn-id: svn://tug.org/texlive/trunk@7772 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/tl-package-manager.pl35
1 files changed, 34 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tl-package-manager.pl b/Master/texmf/scripts/texlive/tl-package-manager.pl
index 135e8945978..a1b0650d5d3 100755
--- a/Master/texmf/scripts/texlive/tl-package-manager.pl
+++ b/Master/texmf/scripts/texlive/tl-package-manager.pl
@@ -299,12 +299,39 @@ if ($action =~ m/^generate$/i) {
next if ($pkg =~ m/\./);
my $t = $tlpdb->get_package($pkg)->shortdesc;
$t |= "";
- if (($pkg =~ m/$r/) || ($t =~ m/$r/)) {
+ my $lt = $tlpdb->get_package($pkg)->longdesc;
+ $lt |= "";
+ if (($pkg =~ m/$r/) || ($t =~ m/$r/) || ($lt =~ m/$r/)) {
$ret .= " $pkg - $t\n";
}
}
print "$ret";
exit(0);
+} elsif ($action =~ m/^show$/i) {
+ foreach my $pkg (@ARGV) {
+ my $tlmediatlpdb;
+ my $tlp = $localtlpdb->get_package($pkg);
+ my $installed = 0;
+ if (!$tlp) {
+ if (!$tlmediatlpdb) {
+ my $tlmediasrc = TeXLive::TLMedia->new($location);
+ $tlmediatlpdb = $tlmediasrc->tlpdb;
+ }
+ $tlp = $tlmediatlpdb->get_package($pkg);
+ } else {
+ $installed = 1;
+ }
+ if ($tlp) {
+ 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\n":"No\n");
+ print "\n";
+ } else {
+ printf STDERR "Cannot find $pkg\n";
+ }
+ }
} elsif ($action =~ m/^remove$/i) {
# we do the following:
# - (not implemented) order collections such that those depending on
@@ -650,6 +677,12 @@ for the given argument (interpreted as regexp).
Search the names and short descriptions of all packages available on
the install media.
+=item B<show [pkg [pkg [...]]]>
+
+Shows for each given package the name, category, installation status,
+short and long description. Does search in the remote installation
+source for finding the package if it is not installed.
+
=item B<list [collections|schemes]>