package network::nfs; # $Id$ use strict; use diagnostics; use common; use network::network; use network::smbnfs; use log; our @ISA = 'network::smbnfs'; 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_is_installed('nfs-utils-clients', '/usr/sbin/showmount'); } sub find_servers { local *F; my $pid = open F, "rpcinfo-flushed -b mountd 2 |"; $SIG{ALRM} = sub { kill(15, $pid) }; alarm 1; my $domain = chomp_(`domainname`); my @servers; local $_; while (<F>) { chomp; my ($ip, $name) = /(\S+)\s+(\S+)/ or log::l("bad line in rpcinfo output"), next; $name =~ s/\Q.$domain//; $name =~ s/\.$//; push @servers, { ip => $ip, if_($name ne '(unknown)', name => $name) }; } @servers; } sub find_exports { my ($class, $server) = @_; local *F; my $s = $server->{ip} || $server->{name}; my $pid = open F, "showmount -e $s |"; $SIG{ALRM} = sub { kill(15, $pid) }; alarm 5; my (undef, @l) = <F>; map { /(\S+)\s*(\S+)/; { name => $1, comment => $2, server => $server } } @l; } 1;