From 45a700d5dbf0400231c5de8b99e3988251507274 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Fri, 30 Aug 2002 14:36:37 +0000
Subject: first release

---
 nfs_wizard/scripts/NFSConf.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 nfs_wizard/scripts/NFSConf.pm

(limited to 'nfs_wizard/scripts')

diff --git a/nfs_wizard/scripts/NFSConf.pm b/nfs_wizard/scripts/NFSConf.pm
new file mode 100644
index 00000000..942380d9
--- /dev/null
+++ b/nfs_wizard/scripts/NFSConf.pm
@@ -0,0 +1,27 @@
+#! /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")
+}
-- 
cgit v1.2.1