This commit was manufactured by cvs2svn to create branchtopic/PCMCIA_CS_DISTRO

'PCMCIA_CS_DISTRO'.

1 files changed, 0 insertions, 43 deletions

diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
deleted file mode 100644
index f4a153665..000000000
--- a/perl-install/network/nfs.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-package network::nfs;
-
-use common;
-use network::network;
-use log;
-
-sub check {
-    my ($in) = @_;
-
-    my $f = '/usr/sbin/showmount';
-    -e $f or $in->do_pkgs->install('nfs-utils-clients');
-    -e $f or $in->ask_warn('', "Mandatory package nfs-utils-clients is missing"), return;
-    1;
-}
-
-
-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 ($server) = @_;
-
-    my (undef, @l) = `showmount -e $server->{ip}`;
-    map { /(\S+)\s*(\S+)/; { name => $1, comment => $2 } } @l;
-}
-
-1;
-