summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-29 06:38:07 +0000
committerNorbert Preining <preining@logic.at>2008-06-29 06:38:07 +0000
commitb352a643c267d8b2216b9f9f0048f439cbac190b (patch)
tree67504f2449be2b6241b041aab6705f23ff3037b5 /Master/install-tl
parente146530572262a4218bd5a4f0d396f3d4635239a (diff)
fix on one mirror, and allow restart, really
git-svn-id: svn://tug.org/texlive/trunk@9081 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl30
1 files changed, 22 insertions, 8 deletions
diff --git a/Master/install-tl b/Master/install-tl
index 319394c3716..10e8ba68d8d 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -139,10 +139,6 @@ our %vars=( # 'n_' means 'number of'.
'from_dvd' => 0,
);
-#
-# first process verbosity/quiet options
-process_logging_options();
-
# option handling
my $opt_media = "";
my $opt_from_dvd = "";
@@ -157,10 +153,25 @@ my $opt_help = 0;
my $opt_version = 0;
my $opt_gui = 0;
$opt_gui = 1 if (win32);
-
# default language for GUI installer
$::lang = "en";
+
+# if we find a file installation.profile we ask the user whether we should
+# continue with the installation
+# note, we are in the installer directory!
+if (-r "installation.profile") {
+ print "ABORTED INSTALLATION FOUND: $localpath/installation.profile!!!\n";
+ print "Do you want to continue with the exact same settings as before (y/N): ";
+ my $answer = <STDIN>;
+ if ($answer =~ m/^y(es)?$/i) {
+ $opt_profile = "installation.profile";
+ }
+}
+
+# first process verbosity/quiet options
+process_logging_options();
+# now the others
GetOptions("media=s" => \$opt_media,
"from_dvd" => \$opt_from_dvd,
"profile=s"=> \$opt_profile,
@@ -223,9 +234,6 @@ if ("$opt_profile" ne "") {
if ($opt_nonadmin and win32()) { non_admin(); }
-if ("$opt_url" ne "") {
- $TeXLiveURL = "$opt_url";
-}
# the TLPDB instances we will use. $tlpdb is for the one from the installation
# media, while $localtlpdb is for the new installation
@@ -317,6 +325,12 @@ if ($opt_from_dvd and ($::_media_ ne "DVD")) {
$vars{'from_dvd'} = $opt_from_dvd;
setup_programs("$::installerdir/tlpkg/installer", "$::_platform_");
+if ("$opt_url" ne "") {
+ $TeXLiveURL = "$opt_url";
+} else {
+ $TeXLiveURL = TeXLive::TLUtils::give_ctan_mirror();
+}
+info("Using URL $TeXLiveURL\n");
load_tlpdb();
log("Installer revision: $::installerrevision\n");