#! /usr/bin/perl -w

package NFSConf;
require "__WIZ_HOME__/common/scripts/Vareqval.pm";
require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm";
use MDK::Common;
use strict;

my $o = DrakconnectConf->new();

sub	do_it {
    my $file = "/etc/exports";
    my $ip = "$1.$2.$3.0" if $o->get_from_known_dev("IP") =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
    my $mask = $o->get_from_known_dev("Mask");
    my $line = "$ENV{wiz_nfs_dir} $ip/$mask(rw,no_root_squash)\n";
    my $t;

    foreach (cat_($file)) {
	if (/^\s*(?!\#)\s*\$ENV{wiz_nfs_dir}.*/) {
	    $t = $_;
	    last;
	}
    }
    if ($t) { substInFile { s|$t|\#$&$line|} $file }
    else { append_to_file($file, $line) }
    system("/usr/sbin/exportfs -a")
}