summaryrefslogtreecommitdiff
path: root/Master/tlpkg/doc
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2009-08-03 20:42:15 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2009-08-03 20:42:15 +0000
commit5a6870c92a91af362f2f511834a6094491774d46 (patch)
tree393ec593af4b59f3f150694394473704fcd10b14 /Master/tlpkg/doc
parent2f50607d91debd747655620b8228359416abd933 (diff)
W32client revisions 2009-08-03
git-svn-id: svn://tug.org/texlive/trunk@14522 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/doc')
-rwxr-xr-xMaster/tlpkg/doc/w32client40
1 files changed, 33 insertions, 7 deletions
diff --git a/Master/tlpkg/doc/w32client b/Master/tlpkg/doc/w32client
index 8f41ef065dc..cba880d609c 100755
--- a/Master/tlpkg/doc/w32client
+++ b/Master/tlpkg/doc/w32client
@@ -20,12 +20,38 @@ print "Version:\n" . give_version() . "\n";
print "Mirror:\n" . give_ctan_mirror() . "\n";
print "Master: " . $Master ."\n";
-# Only make user-level changes
-non_admin();
+$::opt_verbosity = 2;
-# Add TeX Live to path (not pretty...)
-unshift @ARGV, 'add';
-action_path();
+init_local_db();
+# Only make user-level changes even if admin
+#non_admin();
+$opts{'w32mode'} = 'user';
+TeXLive::TLUtils::w32_add_to_path(
+ $Master."\\bin\\win32", ($opts{'w32mode'} eq 'admin') ? 1 : 0
+);
+TeXLive::TLWinGoo::broadcast_env();
-# create a shortcut
-execute_action('postaction', 'install', 'shortcut', 'dviout.win32');
+# Add TeX Live to path (not pretty...)
+#unshift @ARGV, 'add';
+#action_path();
+#execute_action('path', 'add');
+
+# create some shortcuts
+unshift @ARGV, 'install', 'shortcut', 'dviout.win32', 'texworks',
+ 'texlive-en', 'tlpsv.win32';
+action_postaction();
+#execute_action('postaction', 'install', 'shortcut', 'dviout.win32');
+#execute_action('postaction', 'install', 'shortcut', 'texworks');
+#execute_action('postaction', 'install', 'shortcut', 'texlive-en');
+#execute_action('postaction', 'install', 'shortcut', 'tlpsv.win32');
+
+# File associations. 1: only new; 2: always, overriding existing settings
+$opts{'fileassocmode'} = 2;
+unshift @ARGV, 'install', 'fileassoc', 'dviout.win32', 'tlpsv.win32';
+action_postaction();
+#execute_action('postaction', 'install', 'fileassoc', 'dviout.win32');
+#execute_action('postaction', 'install', 'fileassoc', 'tlpsv.win32');
+
+# xetex font cache
+unshift @ARGV, 'install', 'script', 'xetex';
+action_postaction();