diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 55 |
1 files changed, 54 insertions, 1 deletions
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 |