summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-01-19 00:03:51 +0000
committerKarl Berry <karl@freefriends.org>2010-01-19 00:03:51 +0000
commit87b9fcc51d40096cfb1c444b0105e9d57acd455d (patch)
treefdd4d7b5b72872a3f590123d7ba417c2f81cae3b /Master/tlpkg/TeXLive
parente65c74e7551529b3db597eef51915ea683e96e7e (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')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm88
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