package fs::remote::nfs; # $Id: nfs.pm 254157 2009-03-17 16:13:42Z eugeni $ use strict; use diagnostics; use common; use fs::remote; use log; our @ISA = 'fs::remote'; sub to_fstab_entry { my ($class, $e) = @_; $class->to_fstab_entry_raw($e, 'nfs'); } sub comment_to_string { my ($_class, $comment) = @_; member($comment, qw(* 0.0.0.0/0.0.0.0 (everyone))) ? '' : $comment; } sub from_dev { my ($_class, $dev) = @_; $dev =~ m|(.*?):(.*)|; } sub to_dev_raw { my ($_class, $server, $name) = @_; $server . ':' . $name; } sub check { my ($_class, $in) = @_; $in->do_pkgs->ensure_binary_is_installed('nfs-utils', 'showmount') or return; require services; services::start_not_running_service('portmap'); 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) }; } } values %servers; } sub find_exports { my ($_class, $server) = @_; my @l; run_program::raw({ timeout => 1 }, "showmount", '>', \@l, "--no-headers", "-e", $server->{ip} || $server->{name}); map { if_(/(\S+(\s*\S+)*)\s+(\S+)/, { name => $1, comment => $3, server => $server }) } @l; } 1;