1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
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 {
my $pid = open(my $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) = @_;
my @l;
run_program::raw({ timeout => 1 }, "showmount", '>', \@l, "-e", $server->{ip} || $server->{name});
shift @l; #- drop first line
map { /(\S+)\s*(\S+)/; { name => $1, comment => $2, server => $server } } @l;
}
1;
|
