summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-29 17:39:12 +0000
committerNorbert Preining <preining@logic.at>2007-11-29 17:39:12 +0000
commitb7091f4e85bde1ac671bc3aaa4a491b2a9a64764 (patch)
tree3c65066f4fd91659569d0fc2c34a6fde3f536100 /Master/install-tl.pl
parent495401a178913dd4622aacc25978c252a6a1ca91 (diff)
add -url option to the installer
git-svn-id: svn://tug.org/texlive/trunk@5651 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl34
1 files changed, 20 insertions, 14 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 5b9864c56bd..f3c29a6cf49 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -33,8 +33,26 @@ use Cwd;
$default_scheme='scheme-full';
-###$texlive_url='http://localhost/texlive/Contents/inst';
-$texlive_url='http://tug.org/svn/texlive/trunk/Master';
+# option handling
+my $opt_media = "";
+my $opt_url = "";
+
+GetOptions("media=s" => \$opt_media,
+ "url=s" => \$opt_url ) or die("No pod doc till now!");
+
+if ("$opt_media" eq "CD") {
+ $::_media_ = "CD";
+} elsif ("$opt_media" eq "NET") {
+ $::_media_ = "NET";
+} elsif ("$opt_media" eq "DVD") {
+ $::_media_ = "DVD";
+}
+
+if ("$opt_url" ne "") {
+ $texlive_url = "$opt_url";
+} else {
+ $texlive_url='http://tug.org/svn/texlive/trunk/Master';
+}
$texlive_db_url="$texlive_url/$TeXLive::TLConfig::InfraLocation";
# The maximum number of binary systems on the CD. This number must be
@@ -1139,18 +1157,6 @@ sub parse_executes_and_create_files {
}
-# option handling
-my $opt_media = "";
-GetOptions("media=s" => \$opt_media) or die("No pod doc till now!");
-
-if ("$opt_media" eq "CD") {
- $::_media_ = "CD";
-} elsif ("$opt_media" eq "NET") {
- $::_media_ = "NET";
-} elsif ("$opt_media" eq "DVD") {
- $::_media_ = "DVD";
-}
-
load_tlpdb;
set_platforms_supported;
set_texlive_default_dirs;