summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-17 07:10:38 +0000
committerNorbert Preining <preining@logic.at>2008-04-17 07:10:38 +0000
commit4138cce94dafad3e60fc79ca2452ebc3dc98ab7f (patch)
tree985673cd59e9611b82f3e25d57369d4d28eabc74 /Master/tlpkg/TeXLive/TLUtils.pm
parent6814ab14be67c0030628aa4c274bb2c26c144440 (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.pm24
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