diff options
Diffstat (limited to 'proxy_wizard/Squid.pm')
-rwxr-xr-x | proxy_wizard/Squid.pm | 13 |
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; |