3 files changed, 27 insertions, 24 deletions

diff --git a/perl-install/fs/remote/davfs.pm b/perl-install/fs/remote/davfs.pm
index 6c31b9ea6..890530cb9 100644
--- a/perl-install/fs/remote/davfs.pm
+++ b/perl-install/fs/remote/davfs.pm
@@ -1,4 +1,4 @@
-package fs::remote::davfs; # $Id: smb.pm 231184 2007-10-24 14:36:29Z pixel $
+package fs::remote::davfs;
 
 use strict;
 use diagnostics;
@@ -25,7 +25,7 @@ sub save_credentials {
     @$credentials or return;
 
     output_with_perm(secrets_file(), 0600, 
-		     map { to_double_quoted($_->{mntpoint}, $_->{username}, $_->{password}, $_->{comment}) . "\n" } @$credentials);
+		     map { to_double_quoted($_->{mntpoint}, $_->{username}, $_->{password}) . "\n" } @$credentials);
 }
 
 sub mountpoint_credentials_save {
diff --git a/perl-install/fs/remote/nfs.pm b/perl-install/fs/remote/nfs.pm
index 7ebda3b11..f7a98cb69 100644
--- a/perl-install/fs/remote/nfs.pm
+++ b/perl-install/fs/remote/nfs.pm
@@ -1,10 +1,11 @@
-package fs::remote::nfs; # $Id: nfs.pm 254157 2009-03-17 16:13:42Z eugeni $
+package fs::remote::nfs;
 
 use strict;
 use diagnostics;
 
 use common;
 use fs::remote;
+use network::tools;
 use log;
 
 our @ISA = 'fs::remote';
@@ -28,34 +29,36 @@ sub to_dev_raw {
 
 sub check {
     my ($_class, $in) = @_;
-    $in->do_pkgs->ensure_binary_is_installed('nfs-utils-clients', 'showmount') or return;
+    $in->do_pkgs->ensure_files_are_installed([ [ qw(nfs-utils showmount) ] , [ qw(nmap nmap) ] ]);
     require services;
-    services::start_not_running_service('portmap');
+    services::start_not_running_service('rpcbind');
     services::start('nfs-common'); #- TODO: once nfs-common is fixed, it could use start_not_running_service()
     1;
 }
 
 sub find_servers {
-    open(my $F2, "rpcinfo-flushed -b mountd 2 |");
-    open(my $F3, "rpcinfo-flushed -b mountd 3 |");
-
-    common::nonblock($F2);
-    common::nonblock($F3);
-    my $domain = chomp_(`domainname`);
-    my ($s, %servers);
-    my $quit;
-    while (!$quit) {
-	$quit = 1;
-	sleep 1;
-	while ($s = <$F2> || <$F3>) {
-	    $quit = 0;
-	    my ($ip, $name) = $s =~ /(\S+)\s+(\S+)/ or log::explanations("bad line in rpcinfo output"), next;
-	    $name =~ s/\.$//;
-	    $domain && $name =~ s/\Q.$domain\E$//
-	      || $name =~ s/^([^.]*)\.local$/$1/;
-	    $servers{$ip} ||= { ip => $ip, if_($name ne '(unknown)', name => $name) };
+    my @hosts;
+    my %servers;
+    my @routes = cat_("/proc/net/route");
+    @routes = reverse(@routes) if common::cmp_kernel_versions(c::kernel_version(), "2.6.39") >= 0;
+    foreach (@routes) {
+	if (/^(\S+)\s+([0-9A-F]+)\s+([0-9A-F]+)\s+[0-9A-F]+\s+\d+\s+\d+\s+(\d+)\s+([0-9A-F]+)/) {
+	    my $net = network::tools::host_hex_to_dotted($2);
+	    my $gateway = $3;
+	    # get the netmask in binary and remove leading zeros
+	    my $mask = unpack('B*', pack('h*', $5));
+	    $mask =~ s/^0*//;
+	    push @hosts, $net . "/" . length($mask) if $gateway eq '00000000' && $net ne '169.254.0.0';
 	}
+     }
+    # runs the nmap command on the local subnet
+    my $cmd = "/usr/bin/nmap -p 111 --open --system-dns -oG - " . (join ' ',@hosts);
+    open my $FH, "$cmd |" or die "Could not perform nmap scan - $!";
+    foreach (<$FH>) { 
+      my ($ip, $name) = /^H\S+\s(\S+)\s+\((\S*)\).+Port/ or next;
+      $servers{$ip} ||= { ip => $ip, name => $name || $ip };
     }
+    close $FH;
     values %servers;
 }
 
diff --git a/perl-install/fs/remote/smb.pm b/perl-install/fs/remote/smb.pm
index 616636807..d440fc174 100644
--- a/perl-install/fs/remote/smb.pm
+++ b/perl-install/fs/remote/smb.pm
@@ -1,4 +1,4 @@
-package fs::remote::smb; # $Id: smb.pm 258615 2009-07-27 06:26:03Z pterjan $
+package fs::remote::smb;
 
 use strict;
 use diagnostics;