summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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/);