diff options
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'}) { |