summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-17 08:04:37 +0000
committerNorbert Preining <preining@logic.at>2008-04-17 08:04:37 +0000
commit6a500e6fe3d04f86e2bbb31ba3d90ef85d727259 (patch)
treecc8cf846fea0e1097fff95e6b9ad2cbb42d2ccaa /Master
parent0057c38056386ec2fa7171c13972417cd3d01241 (diff)
remove the now useless fucnmtion architectures_available (from net/disk)
git-svn-id: svn://tug.org/texlive/trunk@7465 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm64
1 files changed, 0 insertions, 64 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index efd3aece132..4e7b187e4ce 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -46,8 +46,6 @@ C<TeXLive::TLUtils> -- utilities used in the TeX Live infrastructure
TeXLive::TLUtils::media;
TeXLive::TLUtils::initialze_installer;
- TeXLive::TLUtils::architectures_available;
- TeXLive::TLUtils::additional_architectures_available_from_net;
TeXLive::TLUtils::make_var_skeleton($path);
TeXLive::TLUtils::make_local_skeleton($path);
TeXLive::TLUtils::create_fmtutil($tlpdb,$dest,$localconf);
@@ -93,8 +91,6 @@ BEGIN {
&install_packages
&media
&initialize_installer
- &architectures_available
- &additional_architectures_available_from_net
&make_var_skeleton
&sub make_local_skeleton
&create_fmtutil
@@ -913,66 +909,6 @@ sub initialize_installer {
=pod
-=item C<architectures_available>
-
-The function C<architectures_available> returns a list of
-supported platforms.
-
-=cut
-
-sub architectures_available {
- my @dir;
- my @platforms;
- if (&media eq "CD") {
- opendir DIR, "$::installerdir/$DiskArchive";
- @dir=readdir DIR;
- chomp @dir;
- for (@dir) {
- if ((/bin-kpathsea\.(.*)\.tar\.lzma$/) or (/bin-kpathsea\.(.*)\.zip$/)) {
- push(@platforms, $1) unless (($1 eq 'doc') || ($1 eq 'source'));
- }
- }
- } elsif (&media eq "DVD") {
- opendir DIR, "$::installerdir/bin";
- @dir=readdir DIR;
- chomp @dir;
- for my $platform (@dir) {
- push @platforms, $platform unless ($platform=~/^\./);
- }
- } else {
- foreach my $arch ($::tlpdb->available_architectures) {
- push @platforms, $arch;
- }
- }
- return @platforms;
-}
-
-=pod
-
-=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 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 $location="$TeXLiveURL";
-
- my $nettlpdb = TeXLive::TLPDB->new($location);
- for my $platform ($nettlpdb->available_architectures) {
- unless (defined $vars->{"diskbin_$platform"}) {
- push @platforms, $platform;
- }
- }
- return @platforms;
-}
-
-=pod
-
=item C<make_var_skeleton($prefix)>
Generate a skeleton of empty directories in the C<TEXMFSYSVAR> tree.