From 42e5f09e742d3e9538df00d697194f9f9c52c86b Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 19 Oct 2004 16:23:37 +0000 Subject: Repair FTP supplementary media with overriding of rpmsrate and compssUsers.pl --- perl-install/install_any.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 33800b4b3..0b23d8a99 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -515,8 +515,13 @@ sub selectSupplMedia { log::l("psUsingHdlists failed: $@"); } else { #- copy latest compssUsers.pl and rpmsrate somewhere locally - getAndSaveFile("$url/media/media_info/compssUsers.pl", "/tmp/compssUsers.pl"); - getAndSaveFile("$url/media/media_info/rpmsrate", "/tmp/rpmsrate"); + if ($suppl_method eq 'ftp') { + getAndSaveFile("media/media_info/compssUsers.pl", "/tmp/compssUsers.pl"); + getAndSaveFile("media/media_info/rpmsrate", "/tmp/rpmsrate"); + } else { + getAndSaveFile("$url/media/media_info/compssUsers.pl", "/tmp/compssUsers.pl"); + getAndSaveFile("$url/media/media_info/rpmsrate", "/tmp/rpmsrate"); + } useMedium($prev_asked_medium); #- back to main medium return $suppl_method; } -- cgit v1.2.1