use rpcinfo instead of Ping

This works for NFS servers behind firewalls.
2012-08-01 08:45:33 +02:00
parent f3d4ef4626
commit 86a9a680de
1 changed files with 12 additions and 2 deletions
--- a/PVE/Storage/NFSPlugin.pm
+++ b/PVE/Storage/NFSPlugin.pm
@ -166,8 +166,18 @@ sub check_connection {
    my ($class, $storeid, $scfg) = @_;

    my $server = $scfg->{server};
-    my $p = Net::Ping->new();
-    return $p->ping($server, 2);

+    # test connection to portmapper
+    my $cmd = ['/usr/bin/rpcinfo', '-p', $server];
+
+    eval {
+	run_command($cmd, timeout => 2, outfunc => sub {}, errfunc => sub {});
+    };
+    if (my $err = $@) {
+	return 0;
+    }
+
+    return 1;
 }
+
 1;