texlive[43820] Master/tlpkg/installer/install-menu-text.pl: allow

[commits+preining at tug.org]

Revision: 43820
          http://tug.org/svn/texlive?view=revision&revision=43820
Author:   preining
Date:     2017-04-16 04:12:47 +0200 (Sun, 16 Apr 2017)
Log Message:
-----------
allow saving the current state as profile in text installer

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

Modified: trunk/Master/tlpkg/installer/install-menu-text.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 00:40:55 UTC (rev 43819)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 02:12:47 UTC (rev 43820)
@@ -94,6 +94,7 @@
     '+' => 'select all',
     'H' => 'help',
     'R' => 'return to main menu',
+    'P' => 'save installation profile to \'texlive.profile\' and exit',
     'Q' => 'quit'
       );
 
@@ -976,6 +977,12 @@
   main_menu;
 }
 
+sub callback_save_profile {
+  create_profile("texlive.profile");
+  print "Installation profile saved to 'texlive.profile', exiting.\n";
+  exit(0);
+}
+
 sub main_menu {
   my $this_platform=platform_desc($vars{'this_platform'});
 
@@ -1017,6 +1024,7 @@
     'O' => \&options_menu,
     'Q' => \&quit,
     'V' => \&toggle_portable,
+    'P' => \&callback_save_profile,
   );
   if (!$vars{'in_place'}) {
     $command{'B'} = \&binary_menu if unix();
@@ -1118,7 +1126,7 @@
     print "\n <V> set up for portable installation\n";
   }
 
-  other_options qw(I H Q);
+  other_options qw(I P H Q);
   my $answer = prompt 'Enter command';
 
   if (defined $command{"\u$answer"}) {