diff options
author | Norbert Preining <preining@logic.at> | 2009-08-14 06:50:18 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-08-14 06:50:18 +0000 |
commit | 608d80efb6ecb33200f881b804aa19a144da0f14 (patch) | |
tree | 6e15758e7c3f5517f7e4fc76d1e5415a332361a9 /Master/tlpkg/installer/install-menu-text.pl | |
parent | 8f2e28e54ec62dd309cd948efcd373f9c50d4d21 (diff) |
implement option in text and perltk installer to deactivate
restricted execution of programs via write18
git-svn-id: svn://tug.org/texlive/trunk@14659 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index b43077c3e65..a670ce4de3c 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -700,6 +700,7 @@ sub options_menu { my $b_deskint=button($vars{'option_desktop_integration'}); my $b_admin=button($vars{'option_w32_multi_user'}); my $b_addoneditor=button($vars{'addon_editor'}); + my $b_restricted = button($vars{'option_restricted'}); my $sys_bin=$vars{'option_sys_bin'}; my $sys_man=$vars{'option_sys_man'}; @@ -721,6 +722,7 @@ sub options_menu { print <<"EOF"; <P> use letter size instead of A4 by default: $b_letter <F> create format files: $b_fmt + <E> execution of restricted list of programs: $b_restricted EOF ; if ($vars{'doc_splitting_supported'} and !$vars{'from_dvd'}) { @@ -827,6 +829,10 @@ EOF toggle 'option_fmt'; return $command{'self'}; + } elsif ("\u$answer" eq 'E') { + toggle 'option_restricted'; + return $command{'self'}; + } elsif ("\u$answer" eq 'S' and !$vars{'from_dvd'}) { toggle 'option_src'; return $command{'self'}; @@ -880,6 +886,7 @@ sub main_menu { my $b_deskint=button($vars{'option_desktop_integration'}); my $b_admin=button($vars{'option_w32_multi_user'}); my $b_addoneditor=button($vars{'addon_editor'}); + my $b_restricted = button($vars{'option_restricted'}); my $warn_nobin; @@ -977,6 +984,7 @@ print <<"EOF"; <O> options: $b_letter use letter size instead of A4 by default $b_fmt create all format files + $b_restricted allow execution of restricted list of programs via \write18 EOF if (!$vars{'from_dvd'}) { |