diff options
author | Norbert Preining <preining@logic.at> | 2008-04-17 07:10:38 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-17 07:10:38 +0000 |
commit | 4138cce94dafad3e60fc79ca2452ebc3dc98ab7f (patch) | |
tree | 985673cd59e9611b82f3e25d57369d4d28eabc74 /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 6814ab14be67c0030628aa4c274bb2c26c144440 (diff) |
remove any trace of texlive.pkgver
git-svn-id: svn://tug.org/texlive/trunk@7462 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 24 |
1 files changed, 5 insertions, 19 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 429ad8741b3..e0fa075e473 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -968,37 +968,23 @@ sub architectures_available { =item C<additional_architectures_available_from_net (\%vars)> The function C<additional_architectures_available_from_net> returns a -list of additional platforms supported by the TeX Live server. It -downloads the file C<$TeXLiveURL/$NetArchive/texlive.pkgver> and -creates a new object c<$::tlpdb_netbin>. The argument is a reference of -the global C<%vars> hash. +list of additional platforms supported by the TeX Live server by reading +the remove TLPDB. The argument is a reference of the global C<%vars> hash. =cut sub additional_architectures_available_from_net { my $vars=shift; my @platforms; - my $database="$TeXLiveURL/$NetArchive/texlive.pkgver"; + my $location="$TeXLiveURL"; - tllog($::LOG_NORMAL, "Loading '$database' ...\n"); - my $wget = "wget"; - if (win32()) { - $wget = conv_to_win_path("$::installerdir/tlpkg/bin/wget.exe"); - } - open(WGET, "$wget -q --output-document=- $database|") or - tllog($::LOG_NORMAL, "Cannot load list of available archs from the net!\n"); - while (<WGET>) { - chop; - my $line=$_; - push @::pkgverlines,$line; - next unless /\s+-1$/; - ($platform, undef)=split " ", $line; + my $nettlpdb = TeXLive::TLPDB->new($location); + for my $platform ($nettlpdb->available_architectures) { unless (defined $vars->{"diskbin_$platform"}) { push @platforms, $platform; } } return @platforms; - close WGET; } =pod |