now use check_started

1 files changed, 9 insertions, 1 deletions

diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm
index 4ee36853..91d138d4 100755
--- a/samba_wizard/Samba.pm
+++ b/samba_wizard/Samba.pm
@@ -56,7 +56,7 @@ my $o = {
 	    if (-f $file) {
 		$old = read_conf($file);
 	    } else {
-		return (0, N("%s does not exist.", $file))
+		return 0, N("%s does not exist.", $file)
 	    }
 	}
 };
@@ -229,6 +229,13 @@ configure Samba.") . "\n\n" . N("To accept these values, and configure your serv
       end => 1,
       next => 0
     },
+	       error_end => {
+			     name => N("Failed"),
+                             data => [ { label => N("Relaunch drakwizard, and try to change some parameters.") } ],
+                             no_back => 1,
+                             end => 1,
+                             next => 0,
+                            },
 };
 
 sub new {
@@ -518,5 +525,6 @@ sub do_it {
         services::start('smb')
     }
     undef $w;
+    check_started('smbd');
 }
 1;