diff options
author | Norbert Preining <preining@logic.at> | 2007-11-29 17:39:12 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-11-29 17:39:12 +0000 |
commit | b7091f4e85bde1ac671bc3aaa4a491b2a9a64764 (patch) | |
tree | 3c65066f4fd91659569d0fc2c34a6fde3f536100 /Master/install-tl.pl | |
parent | 495401a178913dd4622aacc25978c252a6a1ca91 (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-x | Master/install-tl.pl | 34 |
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; |