summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-03-17 01:40:41 +0000
committerNorbert Preining <preining@logic.at>2012-03-17 01:40:41 +0000
commita248a234963ec9fd6e3664bb066005338178f9c7 (patch)
treee0d0706d1278f02b17c76214797433bbb664e6fa /Master/tlpkg/installer/install-menu-text.pl
parente27d7d6de12aaf0b37cf624941e5c62e65f116cc (diff)
add installer option for adjusting the repository after installation
defaults to yes asked only in text and pertk installer, not in wizard git-svn-id: svn://tug.org/texlive/trunk@25668 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl14
1 files changed, 14 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 4a4f64dab42..d2f4fbb1b64 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -14,6 +14,7 @@ use vars qw(@::end_install_hook $::opt_no_cls);
our %vars;
our $tlpdb;
our @media_available;
+our $media;
our $previoustlpdb;
our @collections_std;
our @collections_lang;
@@ -832,6 +833,7 @@ sub options_menu {
my $b_src=button($vars{'option_src'});
my $b_fmt=button($vars{'option_fmt'});
my $b_letter=button($vars{'option_letter'});
+ my $b_adjustrepo=button($vars{'option_adjustrepo'});
my $b_deskint=button($vars{'option_desktop_integration'});
my $b_admin=button($vars{'option_w32_multi_user'});
my $b_addoneditor=button($vars{'collection-texworks'});
@@ -893,6 +895,9 @@ EOF
if (win32() || $::opt_all_options) {
print " <W> install TeXworks front end: $b_addoneditor\n";
}
+ if ($media ne "NET") {
+ print " <Y> Setup default repo for network updates: $b_adjustrepo\n";
+ }
other_options qw(R Q diskspace);
my $answer = prompt 'Enter command';
@@ -993,6 +998,10 @@ EOF
toggle 'collection-texworks';
return $command{'self'};
+ } elsif ("\u$answer" eq 'Y' and $media ne "NET") {
+ toggle 'option_adjustrepo';
+ return $command{'self'};
+
} else {
print "Unknown or unsupported command: $answer\n\n";
return $command{'self'};
@@ -1040,6 +1049,7 @@ sub main_menu {
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_adjustrepo=button($vars{'option_adjustrepo'});
my $warn_nobin;
@@ -1162,6 +1172,10 @@ EOF
($vars{'portable'} || win32());
}
+ if ($media ne 'NET') {
+ print " $b_adjustrepo setup default repository for network updates\n";
+ }
+
if ($vars{'portable'}) {
print "\n <V> set up for regular installation to hard disk\n";
} else {