From 729eb6c755a0a4e1e30f25471e9b6c576f88624d Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 6 Jul 2005 02:54:57 +0000
Subject: fix ip/8 in comboboxentry

---
 perl-install/standalone/draknfs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index 474bde4f4..6a8f60b3f 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -73,7 +73,9 @@ sub reload_dialog {
 sub wait_action {
   my ($cmd) = @_;
   my $w = $in->wait_message(N("NFS server"), N("Restarting/reloading your NFS server..."));
-  eval { system($cmd) };
+  sleep(1);
+  system("$cmd");
+  sleep(1);
   my $err = $@;
   undef $w;
   if ($err) {
@@ -221,7 +223,7 @@ sub get_access_list {
   my @o = split(/\./, $ip_address);
   my $ipnet;
   if ($ip_address) {
-    $ipnet = $o[0] . "." . $o[1] . "." . $o[2] . "0";
+    $ipnet = $o[0] . "." . $o[1] . "." . $o[2] . ".0";
   } else { $ipnet = "ip_address" }
   my @all = split(", ", qq(*, $domain, $ipnet/8, $ipnet/24, $ipnet/32));
   return @all;
@@ -354,6 +356,7 @@ sub add_modify_entry {
 				 if ($lr->get_text =~ /yes/) { $lr_data = "ro" } elsif ($lr->get_text =~ /no/) { $lr_data = "rw" } else { $lr_data = "" }
 				 if ($lsecure->get_text =~ /yes/) { $lsecure_data = "secure" } elsif ($lsecure->get_text =~ /no/) { $lsecure_data = "insecure" } else { $lsecure_data = "" }
 				 my $all_right = join(",", grep { defined $_ } $luserid->get_text, $anonu, $anong, $lsync_data, $lsecure_data, $lr_data);
+				 print "---------- $all_right";
 				 if ($wanted =~ /add/) {
 				   my $test_dir = $dir->get_text;
 				   -d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;
-- 
cgit v1.2.1