diff options
Diffstat (limited to 'Master/tlpkg/doc/w32client')
-rwxr-xr-x | Master/tlpkg/doc/w32client | 40 |
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(); |