summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-06-15 22:15:20 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-06-15 22:15:20 +0000
commit37b0e2c6c7d7340e5b9ed112ebac65f4836963ac (patch)
treebbdc7571e94d8396640528d0f077ac9da0c7695c /Master/tlpkg
parentc737b2d68f97a31b03691994f603fe7d2287bdf7 (diff)
TLUtils.pm: welcome messages added.
git-svn-id: svn://tug.org/texlive/trunk@8761 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm55
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