summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-install-pkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-08-08 08:04:47 +0000
committerNorbert Preining <preining@logic.at>2008-08-08 08:04:47 +0000
commit109275b78cdb5565b15cc2af4f92112874453482 (patch)
tree2925398483047630effa29ee87944211b242f305 /Master/tlpkg/bin/tl-update-install-pkg
parentb8f8f487dce46cc934833b199832e1d7251b1641 (diff)
tl-update-install-pkg: add option to include the texive-XX doc files (html pdf)
git-svn-id: svn://tug.org/texlive/trunk@10167 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-install-pkg')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-install-pkg16
1 files changed, 16 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg
index d1d91f77dbc..a6abe2c39ef 100755
--- a/Master/tlpkg/bin/tl-update-install-pkg
+++ b/Master/tlpkg/bin/tl-update-install-pkg
@@ -33,6 +33,7 @@ $Getopt::Long::autoabbrev=0;
$opt_help=0;
$opt_verbose=0;
+$opt_texlivedocs = 0;
sub usage
{
@@ -45,6 +46,7 @@ from the network.
Options:
-h|--help Print this message and exit.
+ -t|--texlivedocs Include the pdf and html versions of the texlive guide
-o|--outputdir Target directory. Must exist and be writable.
-v|--verbose Extra messages.
EOF
@@ -57,6 +59,7 @@ usage if (@ARGV<1);
TeXLive::TLUtils::process_logging_options();
GetOptions(
"verbose|v",
+ "texlivedocs|t",
"outputdir|o=s",
"help|h") or usage;
@@ -120,6 +123,19 @@ my @unix;
push @unix, $tlp->runfiles;
push @unix, $tlpinfra->runfiles;
push @unix, $tlp->docfiles;
+
+#
+# add the texlive-XX docs in pdf and html format if the option is given
+if ($opt_texlivedocs) {
+ foreach my $p (qw/texlive-en texlive-de texlive-fr texlive-cz texlive-pl texlive-ru texlive-zh-cn/) {
+ my $tlpdocs = $tlpdb->get_package($p);
+ if (!defined($tlpdocs)) {
+ warn("Cannot find package $p in tlpdb!");
+ next;
+ }
+ push @unix, $tlpdocs->docfiles;
+ }
+}
my %tlpbin = %{$tlp->binfiles};
foreach my $a (keys %tlpbin) {
next if ($a =~ m/win32/);