diff options
author | Eugeni Dodonov <eugeni@mandriva.org> | 2009-03-17 15:01:11 +0000 |
---|---|---|
committer | Eugeni Dodonov <eugeni@mandriva.org> | 2009-03-17 15:01:11 +0000 |
commit | 1604251d3771c61ee4bb93e7a0d77a1fc1d988dc (patch) | |
tree | 1d3223ea4ff11f7c9a567715a05cad3b303dece4 /perl-install | |
parent | 8186e714dd0bdc6a09a2fea8ad3aaeeb2b3844cb (diff) | |
download | drakx-backup-do-not-use-1604251d3771c61ee4bb93e7a0d77a1fc1d988dc.tar drakx-backup-do-not-use-1604251d3771c61ee4bb93e7a0d77a1fc1d988dc.tar.gz drakx-backup-do-not-use-1604251d3771c61ee4bb93e7a0d77a1fc1d988dc.tar.bz2 drakx-backup-do-not-use-1604251d3771c61ee4bb93e7a0d77a1fc1d988dc.tar.xz drakx-backup-do-not-use-1604251d3771c61ee4bb93e7a0d77a1fc1d988dc.zip |
Added find_server_options function to determine fixed NFS ports.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/fs/remote/nfs.pm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/perl-install/fs/remote/nfs.pm b/perl-install/fs/remote/nfs.pm index 816c152a5..c62750ba4 100644 --- a/perl-install/fs/remote/nfs.pm +++ b/perl-install/fs/remote/nfs.pm @@ -68,4 +68,35 @@ 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; |