summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-04-16 02:12:47 +0000
committerNorbert Preining <preining@logic.at>2017-04-16 02:12:47 +0000
commitfa3463297d7002eb61ebc188699aa49f1a70e5e9 (patch)
tree8ea1939148667729a395e01a07a7a9bd7f5ed0e4 /Master/tlpkg/installer/install-menu-text.pl
parent6e0f4c28e7f151be4edb133d318d95b49ec094d7 (diff)
allow saving the current state as profile in text installer
git-svn-id: svn://tug.org/texlive/trunk@43820 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-text.pl10
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"}) {