now use check_started

1 files changed, 11 insertions, 2 deletions

diff --git a/proxy_wizard/Squid.pm b/proxy_wizard/Squid.pm
index ae8254cb..e2687b33 100755
--- a/proxy_wizard/Squid.pm
+++ b/proxy_wizard/Squid.pm
@@ -26,7 +26,7 @@ use strict;
 
 use common;
 use services;
-require MDK::Wizard::Wizcommon;
+use MDK::Wizard::Wizcommon;
 
 my $wiz = new MDK::Wizard::Wizcommon;
 my $df = -d '/var/spool/squid' ? `/bin/df -m /var/spool/squid` : `/bin/df -m /var/spool`;
@@ -172,7 +172,15 @@ $o->{pages} = {
 	        name => N("Congratulations") . N("The wizard have successfully configured your proxy server."), 
 		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 {
@@ -273,5 +281,6 @@ level = $o->{var}{wiz_squid_level}");
         services::start('squid')
     }
     undef $w;
+    check_started('squid');
 }
 1;