Add a increasing delay after a pingtest failure

diff --git a/config/rootfiles/updater/filelists/core18 b/config/rootfiles/updater/filelists/core18
index 8408c3cf0738967e8d80fea6b7fb4e5c2560fad1..6b9302fdc1649ef23ab650ce07c02c77f51d90f5 100644 (file)
--- a/config/rootfiles/updater/filelists/core18
+++ b/config/rootfiles/updater/filelists/core18
@@ -1,4 +1,5 @@
 opt/pakfire/db/core/mine
+opt/pakfire/lib/functions.pl
 etc/mkinitcpio.conf
 etc/init.d/mISDN
 etc/modprobe.d/blacklist

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index 650976281f348f2a3ec5c56a2a835258d475fdfd..491c4b076c283897b310c952dab76cd1c56a404b 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -311,6 +311,7 @@ sub selectmirror {
        #   This will never give up.
        my $found = 0;
        my $servers = 0;
+       my $pingdelay = 1;
        while ($found == 0) {
                $server = int(rand($scount) + 1);
                $servers = 0;
@@ -327,6 +328,13 @@ sub selectmirror {
                                        $found = 1;
                                        return ($proto, $host, $path);
                                }
+                               if ($found == 0) {
+                                       sleep($pingdelay);
+                                       $pingdelay=$pingdelay*2;
+                                       if ($pingdelay>1200) {
+                                               $pingdelay=1200;
+                                       }
+                               }
                        }
                }
        }