summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl8
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'}) {