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

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]>