pakfire: Remove mirror health check

[ipfire-2.x.git] / src / pakfire / lib / functions.pl

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index dd4007a449271ad674dc02015b484958353b36e9..8685b3a11efafc60cb0d32ab046d1a556d7b8fc5 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -118,20 +118,6 @@ sub usage {
   exit 1;
 }
 
-sub pinghost {
-       my $host = shift;
-       
-       $p = Net::Ping->new("icmp");
-  if ($p->ping($host)) {
-        logger("PING INFO: $host is alive");
-       return 1;
-  } else {
-               logger("PING INFO: $host is unreachable");
-               return 0;
-       }
-  $p->close();
-}
-
 sub fetchfile {
        my $getfile = shift;
        my $gethost = shift;
@@ -349,10 +335,8 @@ sub selectmirror {
        ### Choose a random server and test if it is online
        #   If the check fails try a new server.
        #   This will never give up.
-       my $found = 0;
        my $servers = 0;
-       my $pingdelay = 1;
-       while ($found == 0) {
+       while (1) {
                $server = int(rand($scount) + 1);
                $servers = 0;
                my ($line, $proto, $path, $host);
@@ -364,22 +348,8 @@ sub selectmirror {
                                $proto = $templine[0];
                                $host = $templine[1];
                                $path = $templine[2];
-                               if ($pakfiresettings{'HEALTHCHECK'} eq "off") {
-                                       logger("PING INFO: Healthcheck is disabled");
-                                       $found = 1;
-                                       return ($proto, $host, $path);
-                               }
-                               elsif (pinghost("$host")) {
-                                       $found = 1;
-                                       return ($proto, $host, $path);
-                               }
-                               if ($found == 0) {
-                                       sleep($pingdelay);
-                                       $pingdelay=$pingdelay*2;
-                                       if ($pingdelay>1200) {
-                                               $pingdelay=1200;
-                                       }
-                               }
+
+                               return ($proto, $host, $path);
                        }
                }
        }