diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/tlpkg/bin/tl-update-install-pkg | 16 |
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/); |