diff options
author | Karl Berry <karl@freefriends.org> | 2010-01-19 00:03:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-01-19 00:03:51 +0000 |
commit | 87b9fcc51d40096cfb1c444b0105e9d57acd455d (patch) | |
tree | fdd4d7b5b72872a3f590123d7ba417c2f81cae3b /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | e65c74e7551529b3db597eef51915ea683e96e7e (diff) |
warn at end of install if envvars contain "tex"; move welcome() and welcome_paths() to install-tl from TLUtils.pm
git-svn-id: svn://tug.org/texlive/trunk@16780 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 60ddcc4dff1..1e66119079e 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -139,8 +139,6 @@ BEGIN { &conv_to_w32_path &untar &merge_into - &welcome - &welcome_paths &give_ctan_mirror &give_ctan_mirror_base &tlmd5 @@ -2988,92 +2986,6 @@ sub process_logging_options { } -=item C<welcome> - -Return the welcome message. - -=cut - -sub welcome { - my $welcome=<<"EOF"; - - See - $::vars{'TEXDIR'}/index.html - for links to documentation. The TeX Live web site (http://tug.org/texlive/) - contains 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; -} - - -=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 = welcome (); - - # ugly, remove welcome msg; better than repeating the whole text, though. - $welcome =~ s/\n Welcome to TeX Live!\n//; - - $welcome .= <<"EOF"; - - Add $::vars{'TEXDIR'}/texmf/doc/man to MANPATH. - Add $::vars{'TEXDIR'}/texmf/doc/info to INFOPATH. -EOF - - if ($::vars{'from_dvd'} and !win32()) { - $welcome .= <<"EOF"; - Set TEXMFCNF to $::vars{'TEXMFSYSVAR'}/web2c. -EOF - } - - $welcome .= <<"EOF"; - - Most importantly, add $::vars{'TEXDIR'}/bin/$::vars{'this_platform'} - to your PATH for current and future sessions. -EOF - - # check for tex-related envvars. - my $texenvs = ""; - for my $evar (sort keys %ENV) { - next if $evar =~ /^(SHELLOPTS|PATH|.*PWD|_)$/; # don't worry about these - if ("$evar $ENV{$evar}" =~ /tex/i) { # check both key and value - $texenvs .= " $evar=$ENV{$evar}\n"; - } - } - if (0 && $texenvs) { - $welcome .= <<"EOF"; - - ---------------------------------------------------------------------- - The following environment variables contain the string "tex" - (case-independent). If you're doing anything but adding personal - directories to the system paths, they may well cause trouble with - some parts of running TeX. If you encounter problems, try unsetting - them. (And please ignore any spurious matches that are unrelated to TeX.) - -$texenvs ---------------------------------------------------------------------- -EOF - } - - $welcome .= <<"EOF"; - - Welcome to TeX Live! -EOF - - return $welcome; -} - =pod This function returns a "windowsified" version of its single argument |