texlive[43826] Master: write18_restricted is an installer option,

[commits+preining at tug.org]

Revision: 43826
          http://tug.org/svn/texlive?view=revision&revision=43826
Author:   preining
Date:     2017-04-16 04:13:30 +0200 (Sun, 16 Apr 2017)
Log Message:
-----------
write18_restricted is an installer option, adjust naming

Modified Paths:
--------------
    trunk/Master/install-tl
    trunk/Master/tlpkg/installer/install-menu-perltk.pl
    trunk/Master/tlpkg/installer/install-menu-text.pl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2017-04-16 02:13:23 UTC (rev 43825)
+++ trunk/Master/install-tl	2017-04-16 02:13:30 UTC (rev 43826)
@@ -147,6 +147,7 @@
         'instopt_portable' => 0,
         'instopt_letter' => 0,
         'instopt_adjustrepo' => 1,
+        'instopt_write18_restricted' => 1,
     );
 
 # option handling
@@ -1273,7 +1274,7 @@
   # default in texmf-dist/web2c/texmf.cnf is
   #   shell_escape = p
   # so we write that only if the user *deselected* this option
-  if (!$vars{"option_write18_restricted"}) {
+  if (!$vars{"instopt_write18_restricted"}) {
     print TMF <<EOF;
 
 % Disable system commands via \\write18{...}.  See texmf-dist/web2c/texmf.cnf.
@@ -1328,7 +1329,7 @@
   }
   print TMFLUA "    },\n";
   print TMFLUA "  },\n";
-  if (!$vars{"option_write18_restricted"}) {
+  if (!$vars{"instopt_write18_restricted"}) {
     print TMFLUA <<EOF;
   directives = {
        -- Disable system commands.  See texmf-dist/web2c/texmfcnf.lua
@@ -1636,9 +1637,6 @@
   $vars{'option_sys_bin'} = $tlpdb->option("sys_bin");
   $vars{'option_sys_man'} = $tlpdb->option("sys_man");
   $vars{'option_sys_info'} = $tlpdb->option("sys_info");
-  $vars{'option_write18_restricted'} = $tlpdb->option("write18_restricted");
-  # this option is not stored in tlpdb if an existing installation is used
-  $vars{'option_write18_restricted'} ||= 1;
 
   # check that the default scheme is actually present, otherwise switch to
   # scheme-minimal

Modified: trunk/Master/tlpkg/installer/install-menu-perltk.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-perltk.pl	2017-04-16 02:13:23 UTC (rev 43825)
+++ trunk/Master/tlpkg/installer/install-menu-perltk.pl	2017-04-16 02:13:30 UTC (rev 43826)
@@ -137,7 +137,7 @@
   $editoryesno = $::yesno[$vars{'collection-texworks'}];
   $adminallyesno = $::yesno[$vars{'option_w32_multi_user'}];
   $docyesno = $::yesno[$vars{'option_install_docfiles'}];
-  $restrictedyesno = $::yesno[$vars{'option_write18_restricted'}];
+  $restrictedyesno = $::yesno[$vars{'instopt_write18_restricted'}];
   $adjustrepoyesno = $::yesno[$vars{'instopt_adjustrepo'}];
 }
 
@@ -478,7 +478,7 @@
     -text => __("Toggle"),
     -command => sub {
       toggle_and_set_opt_variable(
-        \$vars{'option_write18_restricted'},
+        \$vars{'instopt_write18_restricted'},
         \$restrictedyesno); })
     ->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m");
 

Modified: trunk/Master/tlpkg/installer/install-menu-text.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 02:13:23 UTC (rev 43825)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 02:13:30 UTC (rev 43826)
@@ -768,7 +768,7 @@
     $vars{'option_desktop_integration'}, \@::deskintdesc);
   my $b_admin=obutton($vars{'option_w32_multi_user'});
   my $b_addoneditor=obutton($vars{'collection-texworks'});
-  my $b_restricted=obutton($vars{'option_write18_restricted'});
+  my $b_restricted=obutton($vars{'instopt_write18_restricted'});
 
   my $sys_bin=$vars{'option_sys_bin'};
   my $sys_man=$vars{'option_sys_man'};
@@ -920,7 +920,7 @@
     return $command{'self'};
 
   } elsif ("\u$answer" eq 'E') {
-    toggle 'option_write18_restricted';
+    toggle 'instopt_write18_restricted';
     return $command{'self'};
 
   } elsif ("\u$answer" eq 'S' and !$opt_in_place) {
@@ -998,7 +998,7 @@
   }
   my $b_admin=button($vars{'option_w32_multi_user'});
   my $b_addoneditor=button($vars{'collection-texworks'});
-  my $b_restricted=button($vars{'option_write18_restricted'});
+  my $b_restricted=button($vars{'instopt_write18_restricted'});
   my $b_adjustrepo=button($vars{'instopt_adjustrepo'});
 
   my $warn_nobin;