summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/install-tl2
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm55
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