pakfire: Change pingtest to use icmp again.

diff --git a/config/rootfiles/core/37/filelists/files b/config/rootfiles/core/37/filelists/files
index 3b1e88b1c9d6aa1bd0262a835ebac2a2973aa46c..c6ee131f0022fed9eb341d628343af865ad781af 100644 (file)
--- a/config/rootfiles/core/37/filelists/files
+++ b/config/rootfiles/core/37/filelists/files
@@ -20,3 +20,4 @@ usr/local/bin/sshctrl
 var/ipfire/langs/de.pl
 var/ipfire/langs/en.pl
 var/ipfire/langs/fr.pl
 var/ipfire/langs/de.pl
 var/ipfire/langs/en.pl
 var/ipfire/langs/fr.pl

+opt/pakfire/lib/pakfire.pl

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index 8d4a7da7db52b5a47a617fb3819bbaf67453cf18..5aaa5f41fa872220cda201f41ab80bdff5895560 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -116,7 +116,7 @@ sub usage {
 sub pinghost {
        my $host = shift;
        
 sub pinghost {
        my $host = shift;
        

-       $p = Net::Ping->new();
+       $p = Net::Ping->new("icmp");

   if ($p->ping($host)) {
         logger("PING INFO: $host is alive");
        return 1;
   if ($p->ping($host)) {
         logger("PING INFO: $host is alive");
        return 1;