allow saving the current state as profile in text installer

git-svn-id: svn://tug.org/texlive/trunk@43820 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 9 insertions, 1 deletions

diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 3b7f192b5cd..53349dbc1c7 100644
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -94,6 +94,7 @@ sub other_options {
     '+' => 'select all',
     'H' => 'help',
     'R' => 'return to main menu',
+    'P' => 'save installation profile to \'texlive.profile\' and exit',
     'Q' => 'quit'
       );
 
@@ -976,6 +977,12 @@ sub toggle_portable {
   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 @@ sub main_menu {
     '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 @@ EOF
     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"}) {