diff options
Diffstat (limited to 'nfs_wizard/scripts')
| -rw-r--r-- | nfs_wizard/scripts/NFSConf.pm | 30 |
1 files changed, 24 insertions, 6 deletions
diff --git a/nfs_wizard/scripts/NFSConf.pm b/nfs_wizard/scripts/NFSConf.pm index 10387805..e21327bb 100644 --- a/nfs_wizard/scripts/NFSConf.pm +++ b/nfs_wizard/scripts/NFSConf.pm @@ -1,16 +1,34 @@ -#! /usr/bin/perl -w +#!/usr/bin/perl + +# Drakwizard + +# Copyright (C) 2002 MandrakeSoft Arnaud Desmons (adesmons@mandrakesoft.com) +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. package NFSConf; require "__WIZ_HOME__/common/scripts/Vareqval.pm"; -require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm"; +require "__WIZ_HOME__/common/scripts/IFCFG.pm"; use MDK::Common; use strict; -my $o = DrakconnectConf->new(); +my $o = IFCFG->new(); sub network_mask { - my $wiz_ip_server = $o->get_from_known_dev("IP"); - my $mask = $o->get_from_known_dev("Mask"); + my $wiz_ip_server = $o->itf_get("IPADDR"); + my $mask = $o->itf_get("NETMASK"); $mask = $mask ? $mask : "255.255.255.0"; $wiz_ip_server = $wiz_ip_server ? $wiz_ip_server : "192.168.1.0"; "$1.$2.$3.0/$mask" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; @@ -26,7 +44,7 @@ sub do_it { chomp($ENV{wiz_nfs_dir}); -f $file and cp_af($file, $file.".orig"); if ($ENV{wiz_nfs_level} == 2) { - my $mask = $o->get_from_known_dev("Mask"); + my $mask = $o->itf_get("NETMASK"); $line = "$ENV{wiz_nfs_dir} $ENV{wiz_netmask}(rw,no_root_squash)\n"; } else { |