diff options
Diffstat (limited to 'perl-install/network/nfs.pm')
-rw-r--r-- | perl-install/network/nfs.pm | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm deleted file mode 100644 index e1a39aa7a..000000000 --- a/perl-install/network/nfs.pm +++ /dev/null @@ -1,66 +0,0 @@ -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; - 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; |