From 83eca6fa0dac3c5dbf68aff23d87ff5fca2e5a5c Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Tue, 15 Oct 2002 16:10:00 +0000
Subject: wiz update, nfs fixed

---
 nfs_wizard/scripts/NFSConf.pm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'nfs_wizard/scripts')

diff --git a/nfs_wizard/scripts/NFSConf.pm b/nfs_wizard/scripts/NFSConf.pm
index 673f571a..10387805 100644
--- a/nfs_wizard/scripts/NFSConf.pm
+++ b/nfs_wizard/scripts/NFSConf.pm
@@ -17,9 +17,6 @@ sub	network_mask {
 }
 
 sub	chooser {
-    if ($ENV{wiz_nfs_level} == 1) {
-	do_it();
-    }
     $ENV{wiz_nfs_level};
 }
 
@@ -35,15 +32,15 @@ sub	do_it {
     else {
 	$line = "$ENV{wiz_nfs_dir} *(rw,no_root_squash)\n";
     }
-    print "$line\n";
     my $t;
     foreach (cat_($file)) {
-	if (/.*(?!\#).*$ENV{wiz_nfs_dir}\s.*/) {
+	if (/^(?!\#).*$ENV{wiz_nfs_dir}\s.*/) {
 	    $t = $_;
 	    last;
 	}
     }
-    if ($t) {substInFile { s|.*(?!\#).*$ENV{wiz_nfs_dir}\s.*|\#$&|} $file }
+    substInFile { s|^(?!\#).*$ENV{wiz_nfs_dir}\s.*|\#$&|} $file;
     append_to_file($file, $line);
-    system("/usr/sbin/exportfs -a")
+    system("/usr/sbin/exportfs -a");
+    10;
 }
-- 
cgit v1.2.1