summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-08-14 06:50:18 +0000
committerNorbert Preining <preining@logic.at>2009-08-14 06:50:18 +0000
commit608d80efb6ecb33200f881b804aa19a144da0f14 (patch)
tree6e15758e7c3f5517f7e4fc76d1e5415a332361a9 /Master/tlpkg/installer/install-menu-text.pl
parent8f2e28e54ec62dd309cd948efcd373f9c50d4d21 (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-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'}) {