summaryrefslogtreecommitdiffstats
path: root/proxy_wizard/Squid.pm
diff options
context:
space:
mode:
Diffstat (limited to 'proxy_wizard/Squid.pm')
-rwxr-xr-xproxy_wizard/Squid.pm13
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;