diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-06 05:22:16 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-06 05:22:16 +0000 |
| commit | 571386775f006caa24ce2690fd99ef9440b48e32 (patch) | |
| tree | ca33d44c3d829dd0e31c985307da59e06a5ac4d2 /perl-install/standalone/draknfs | |
| parent | c5c6032f343bb804472fe00fddf38aeee29439aa (diff) | |
| download | drakx-backup-do-not-use-571386775f006caa24ce2690fd99ef9440b48e32.tar drakx-backup-do-not-use-571386775f006caa24ce2690fd99ef9440b48e32.tar.gz drakx-backup-do-not-use-571386775f006caa24ce2690fd99ef9440b48e32.tar.bz2 drakx-backup-do-not-use-571386775f006caa24ce2690fd99ef9440b48e32.tar.xz drakx-backup-do-not-use-571386775f006caa24ce2690fd99ef9440b48e32.zip | |
display wait message box while reloading/restarting nfs server
Diffstat (limited to 'perl-install/standalone/draknfs')
| -rw-r--r-- | perl-install/standalone/draknfs | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs index 71d1c6b9e..2e410931c 100644 --- a/perl-install/standalone/draknfs +++ b/perl-install/standalone/draknfs @@ -63,25 +63,18 @@ sub quit_all() { } sub restart_dialog { - wait_action("system nfs restart"); + wait_action("service nfs restart"); } sub reload_dialog { - wait_action("system nfs reload"); + wait_action("service nfs reload"); } sub wait_action { - my ($cmd) = @_; - my $w = $in->wait_message(N("NFS server"), N("Restarting/reloading your NFS server...")); - sleep(1); - system("$cmd"); - sleep(1); - my $err = $@; - undef $w; - if ($err) { - err_dialog(N("Error"), N("NFS server cant restart:") . "\n\n" . $err); - } - undef $w; + my ($cmd) = @_; + my $w = $in->wait_message(N("NFS server"), N("Restarting/Reloading NFS server...")); + run_program::get_stdout($cmd) !~ /unknown|error/ or err_dialog(N("Error!"), N("Error Restarting/Reloading NFS server")) and return; + undef $w; } my %size_groups = map { $_ => Gtk2::SizeGroup->new('horizontal') } qw(label widget button); @@ -130,7 +123,8 @@ sub write_conf { } } -my $help_access = N("<span weight=\"bold\">NFS clients</span> may be specified in a number of ways: +my $help_access; +$help_access = N("<span weight=\"bold\">NFS clients</span> may be specified in a number of ways: <span foreground=\"royalblue3\">single host:</span> a host either by an abbreviated name recognized be the resolver, fully qualified domain name, or an IP address @@ -142,7 +136,7 @@ my $help_access = N("<span weight=\"bold\">NFS clients</span> may be specified i <span foreground=\"royalblue3\">wildcards:</span> machine names may contain the wildcard characters * and ?. For instance: *.cs.foo.edu matches all hosts in the domain cs.foo.edu. -<span foreground=\"royalblue3\">IP networks:</span> you can also export directories to all hosts on an IP (sub-)network simultaneously. for example, either `/255.255.252.0' or `\/22' appended to the network base address result. +<span foreground=\"royalblue3\">IP networks:</span> you can also export directories to all hosts on an IP (sub-)network simultaneously. for example, either `/255.255.252.0' or `/22' appended to the network base address result. "); my $help_userid = N("<span weight=\"bold\">User ID options</span> |