diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/draknfs | 7 |
1 files changed, 5 insertions, 2 deletions
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; |