diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 9 | ||||
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 4 |
2 files changed, 7 insertions, 6 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 43223a99cf8..f5b499dd7ba 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -254,10 +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_write18_restricted'}, \$restrictedyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); +# until more secure ... +# $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_write18_restricted'}, \$restrictedyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); if ($vars{'doc_splitting_supported'}) { $row++; diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 33c5881b142..d28d3c5e0b4 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -720,8 +720,8 @@ 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 +# until secure ... <E> execution of restricted list of programs: $b_restricted ; if ($vars{'doc_splitting_supported'} and !$vars{'from_dvd'}) { print " <D> install font/macro doc tree: $b_doc\n"; @@ -982,8 +982,8 @@ 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 +# until secure ... $b_restricted allow execution of restricted list of programs via \\write18 if (!$vars{'from_dvd'}) { if ($vars{'doc_splitting_supported'}) { |