summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/fs/remote/nfs.pm31
2 files changed, 0 insertions, 33 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index c3db1ad70..733175712 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,5 +1,3 @@
-- nfs backend:
- o added find_server_options function to detect fixed NFS ports.
- handle new drivers:
o wireless: wl
- diskdrake:
diff --git a/perl-install/fs/remote/nfs.pm b/perl-install/fs/remote/nfs.pm
index c62750ba4..816c152a5 100644
--- a/perl-install/fs/remote/nfs.pm
+++ b/perl-install/fs/remote/nfs.pm
@@ -68,35 +68,4 @@ sub find_exports {
map { if_(/(\S+(\s*\S+)*)\s+(\S+)/, { name => $1, comment => $3, server => $server }) } @l;
}
-sub find_server_options {
- my $statd_port = 4001;
- my $statd_outgoing_port = 4001;
- my $lockd_tcp_port = 4002;
- my $lockd_udp_port = 4002;
- my $rpc_mountd_port = 4003;
- my $rpc_rquotad_port = 4004;
- if (-f "/etc/sysconfig/nfs-common") {
- foreach (cat_("/etc/sysconfig/nfs-common")) {
- $_ =~ /^STATD_OPTIONS=.*(--port|-p) (\d+).*$/ and $statd_port = $2;
- $_ =~ /^STATD_OPTIONS=.*(--outgoing-port|-o) (\d+).*$/ and $statd_outgoing_port = $2;
- $_ =~ /^LOCKD_TCPPORT=(\d+)/ and $lockd_tcp_port = $1;
- $_ =~ /^LOCKD_UDPPORT=(\d+)/ and $lockd_udp_port = $1;
- }
- }
- if (-f "/etc/sysconfig/nfs-server") {
- foreach (cat_("/etc/sysconfig/nfs-server")) {
- $_ =~ /^RPCMOUNTD_OPTIONS=.*(--port|-p) (\d+).*$/ and $rpc_mountd_port = $2;
- $_ =~ /^RPCRQUOTAD_OPTIONS=.*(--port|-p) (\d+).*$/ and $rpc_rquotad_port = $2;
- }
- }
-
- { statd_port => $statd_port,
- statd_outgoing_port => $statd_outgoing_port,
- lockd_tcp_port => $lockd_tcp_port,
- lockd_udp_port => $lockd_udp_port,
- rpc_mountd_port => $rpc_mountd_port,
- rpc_rquotad_port => $rpc_rquotad_port,
- }
-}
-
1;