diff options
-rwxr-xr-x | Master/install-tl | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 55 |
2 files changed, 55 insertions, 2 deletions
diff --git a/Master/install-tl b/Master/install-tl index 59ee145f1c7..c11a5300c7c 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -47,7 +47,7 @@ use TeXLive::TLUtils qw(initialize_installer media platform platform_desc which getenv win32 unix program_exists info log debug tlwarn ddebug get_system_tmpdir member process_logging_options mkdirhier make_var_skeleton make_local_skeleton install_package copy - install_packages dirname setup_programs); + install_packages dirname setup_programs welcome welcome_paths); use TeXLive::TLPOBJ; use TeXLive::TLPDB; use TeXLive::TLConfig; diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index dad20e0e8e6..21aacdf16ba 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -109,6 +109,8 @@ BEGIN { &download_file &merge_into &process_logging_options + &welcome + &welcome_paths ); @EXPORT = qw(setup_programs download_file info log debug ddebug tlwarn process_logging_options win32); } @@ -1319,7 +1321,58 @@ sub kpsewhich { =pod -=item C<conv_to_win_path($path)> +=item C<welcome> + +The welcome message. + +=cut + +sub welcome { + my $welcome=<<"EOF"; + + See ./index.html for links to documentation. The TeX Live web site + (http://tug.org/texlive/) contains any updates and corrections. + + TeX Live is a joint project of the TeX user groups around the world; + please consider supporting it by joining the group best for you. + The list of groups is available on the web at http://tug.org/usergroups.html. + + Welcome to TeX Live! +EOF + return $welcome; +} + +=pod + +=item C<welcome> + +The same welcome message as above but with hints about C<PATH>, C<MANPATH>, +and C<INFOPATH>. + +=cut + +sub welcome_paths { + my $welcome=<<"EOF"; + + See ./index.html for links to documentation. The TeX Live web site + (http://tug.org/texlive/) contains any updates and corrections. + + TeX Live is a joint project of the TeX user groups around the world; + please consider supporting it by joining the group best for you. + The list of groups is available on the web at + http://tug.org/usergroups.html. + + Add $::vars{'TEXDIR'}/texmf/doc/man to MANPATH. + Add $::vars{'TEXDIR'}/texmf/doc/info to INFOPATH. + Most importantly, add $::vars{'TEXDIR'}/bin/$::vars{'this_platform'} + to your PATH for current and future sessions. + + Welcome to TeX Live! +EOF + return $welcome; +} + +=pod This function returns a "windowsified" path, i.e., replacing all forward slashes to backslashes, and adding additional " around (in case of spaces |