From 776936f45d38c2362720ab8497561d8ce9e62997 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Tue, 13 Jan 2004 10:09:10 +0000 Subject: add wiating dialog box --- proxy_wizard/Squid.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'proxy_wizard/Squid.pm') diff --git a/proxy_wizard/Squid.pm b/proxy_wizard/Squid.pm index 06b94cf3..f17889ca 100755 --- a/proxy_wizard/Squid.pm +++ b/proxy_wizard/Squid.pm @@ -213,6 +213,8 @@ sub port { sub do_it { $::testing and return; + my $in = 'interactive'->vnew('su', 'Squid Config'); + my $w = $in->wait_message(N("Squid proxy"), N("Configuring your system as a Proxy server...")); my $file="/etc/squid/squid.conf"; -f $file and MDK::Common::cp_af($file, $file.".orig"); MDK::Common::cp_af("__WIZ_HOME__/proxy_wizard/scripts/squid.conf.default", $file); @@ -270,5 +272,6 @@ level = $o->{var}{wiz_squid_level}"); } else { services::start('squid') } + undef $w; } 1; -- cgit v1.2.1