From a648d376af26dd6efa8ed634b93b71efe268fb52 Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Mon, 29 Jul 2002 15:57:20 +0000 Subject: cleaned some debug info and erased a mismatched parenthesis --- firewall_wizard/scripts/FWconf.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'firewall_wizard') diff --git a/firewall_wizard/scripts/FWconf.pm b/firewall_wizard/scripts/FWconf.pm index abe480ab..0eb3badf 100644 --- a/firewall_wizard/scripts/FWconf.pm +++ b/firewall_wizard/scripts/FWconf.pm @@ -30,7 +30,6 @@ sub store_fwall { } sub do_it { - print "hello\n"; my $TCP_PUBLIC_SERVICES=""; my $UDP_PUBLIC_SERVICES=""; my $TCP_INTERNAL_SERVICES=""; @@ -88,7 +87,7 @@ sub do_it { "wiz_workgroup", "wiz_caching_dns"); foreach (@wiz_var) { - ${$_} = $mdk{$_} if defined $mdk{$_} && !($mdk{$_} =~ /^\s*$/); + ${$_} = $mdk{$_} if defined $mdk{$_} && !$mdk{$_} =~ /^\s*$/; } $file = "/etc/sysconfig/network-scripts/ifcfg-".$INTERNAL_IFACES; %mdk = Vareqval->get($file); @@ -198,7 +197,6 @@ sub do_it { Vareqval->commit($firewall_cfg, \%fw); system("chkconfig --level 345 bastille-firewall on"); system("service bastille-firewall start"); - print "bye\n"; } 1; -- cgit v1.2.1