TLUtils.pm: welcome messages added.

git-svn-id: svn://tug.org/texlive/trunk@8761 c570f23f-e606-0410-a88d-b1316a301751

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