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-perltk.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-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index de91f4e0a53..e4cbd30516f 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -80,6 +80,7 @@ my $fileassocyesno = $::fileassocdesc[$vars{'option_file_assocs'}]; my $editoryesno = ( $vars{'addon_editor'} ? __("Yes") : __("No") ); my $adminallyesno = ( $vars{'option_w32_multi_user'} ? __("Yes") : __("No") ); my $docyesno = ( $vars{'option_doc'} ? __("Yes") : __("No") ); +my $restrictedyesno = ( $vars{'option_restricted'} ? __("Yes") : __("No") ); $::run_menu = \&run_menu_perltk; @@ -253,6 +254,11 @@ sub run_menu_perltk { $fr->Label(-anchor => 'w', -textvariable => \$fmtyesno)->grid(-row => $row, -column => 2, -padx => "2m"); $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'option_fmt'}, \$fmtyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); + $row++; + $fr->Label(-text => __('Allow execution of restricted list of programs via \write18'), -anchor => 'w')->grid(-row => $row, -column => 1, -sticky => 'w'); + $fr->Label(-anchor => 'w', -textvariable => \$restrictedyesno)->grid(-row => $row, -column => 2, -padx => "2m"); + $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'option_restricted'}, \$restrictedyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); + if ($vars{'doc_splitting_supported'}) { $row++; $fr->Label(-text => __('Install font/macro doc tree'), -anchor => 'w')->grid(-row => $row, -column => 1, -sticky => 'w'); |