From 9b99f1cb8292fdffb398e4816a8406021c269618 Mon Sep 17 00:00:00 2001
From: Frederic Lepied <flepied@mandriva.com>
Date: Sun, 7 Mar 2004 21:53:32 +0000
Subject: added support for sourceforge mirrors

---
 rpmbuildupdate | 86 +++++++++++++++++++++++++++++++++++++++-------------------
 1 file changed, 58 insertions(+), 28 deletions(-)

(limited to 'rpmbuildupdate')

diff --git a/rpmbuildupdate b/rpmbuildupdate
index 09475c7..b969ddf 100755
--- a/rpmbuildupdate
+++ b/rpmbuildupdate
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# rpmbuildupdate by Julien Danjou <jdanjou at mandrakesoft dot com>
+# rpmbuildupdate by Julien Danjou
 #
 # Copyright (c) 2003-2004 by MandrakeSoft
 #
@@ -27,6 +27,44 @@ sub build_from_src
 	{ &build($1, $nv, $_); }
 }
 
+sub fetch
+{
+    my ($url) = @_;
+    my $basename = `basename $url`; chomp($basename);
+    my ($temp, $turl);
+    my $wget = "wget -N -q";
+
+    system("rm -f $basename");
+    
+    print "Trying to fetch $url...\n";
+    system("$wget $url");
+
+    if (! -f $basename)
+    {
+	($turl = $url) =~ s/bz2/gz/;
+	$temp = `basename $turl`; chomp($temp);
+	print "Trying to fetch $turl...\n";
+	system("$wget $turl; [ -f $temp ] && bzme $temp");
+    }
+    
+    if (! -f $basename)
+    {
+	($turl = $url) =~ s/\.tar\.bz2/.tgz/;
+	$temp = `basename $turl`; chomp($temp);
+	print "Trying to fetch $turl...\n";
+	system("$wget $turl; [ -f $temp ] && bzme $temp");
+    }
+
+    if (! -f $basename)
+    {
+	($turl = $url) =~ s/\.tar\.bz2/.zip/;
+	$temp = `basename $turl`; chomp($temp);
+	print "Trying to fetch $turl...\n";
+	system("$wget $turl; [ -f $temp ] && bzme $temp");
+    }
+    return (-f $basename);
+}
+
 sub build
 {
 	my $pkg = shift;
@@ -143,7 +181,7 @@ sub build
 
 		my $basename = `basename $_`; chomp($basename);
 		
-
+		# download from Fedora
 		if(/ftp\.redhat\.com/)
 		{
 			opendir(MP, $config{fedora}) or die "$config{fedora} is not a directory";
@@ -170,36 +208,28 @@ sub build
 			    wait;
 			}
 		}
+		# download from sourceforge mirrors
+		if (m@http://prdownloads.sourceforge.net@)
+		{
+		    foreach my $site ("http://heanet.dl.sourceforge.net/sourceforge/",
+				      "http://aleron.dl.sourceforge.net/sourceforge/",
+				      "http://keihanna.dl.sourceforge.net/sourceforge/",
+				      "http://belnet.dl.sourceforge.net/sourceforge/",
+				      "http://unc.dl.sourceforge.net/sourceforge/",
+				      "http://twtelecom.dl.sourceforge.net/sourceforge/",
+				      )
+		    {
+			(my $dest = $_) =~ s@http://prdownloads.sourceforge.net/@$site@;
+			last if (fetch($dest));
+		    }
+		}
+		# download specified url
 		if (! -f "${top}/SOURCES/$basename")
 		{
-			print "Trying $_...\n";
-			
-			system("wget -N ".$_);
-			if($basename =~ /gz/)
-			{
-				s/gz/bz2/;
-				$basename = `basename $_`; chomp($basename);
-				print "Trying to fetch .bz2...\n";
-				system("wget -N ".$_);
-			}
-			elsif($basename =~ /bz2/)
-			{
-				s/bz2/gz/;
-				print "Trying to fetch .gz...\n";
-				system("wget -N ".$_);
-				$basename = `basename $_`; chomp($basename);
-				# If gz was downloaded, recompressing it in bz2
-				if(-f $basename)
-				{
-					system("bzme ".$basename);
-					$basename =~ s/bz2/gz/;
-				}
-			}
+		    fetch($_);
 		}
 
-		$found = 1 if(-e $basename);
-		$basename =~ s/bz2/gz/;
-		$found = 1 if(-e $basename);
+		$found++ if(-e $basename);
 	}
 	
 	open(SPECFILE, ">../SPECS/".$pkg.".spec") or die "Unable to open $pkg.spec";
-- 
cgit v1.2.1