From 5a6870c92a91af362f2f511834a6094491774d46 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 3 Aug 2009 20:42:15 +0000 Subject: W32client revisions 2009-08-03 git-svn-id: svn://tug.org/texlive/trunk@14522 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/doc/w32client | 40 +++++++++++++++++++++++++++++++++------- 1 file 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(); -- cgit v1.2.3