From 109275b78cdb5565b15cc2af4f92112874453482 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 8 Aug 2008 08:04:47 +0000 Subject: 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 --- Master/tlpkg/bin/tl-update-install-pkg | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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/); -- cgit v1.2.3