W32client revisions 2009-08-03

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

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();