remove the now useless fucnmtion architectures_available (from net/disk)

git-svn-id: svn://tug.org/texlive/trunk@7465 c570f23f-e606-0410-a88d-b1316a301751

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.