diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/fs/remote/nfs.pm | 31 |
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; |