From 25a03a501e1c0d3a2beedb1c8ca46393092e1c55 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 5 Mar 2008 00:04:25 +0000 Subject: add icon and title --- lib/network/shorewall.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lib/network/shorewall.pm') diff --git a/lib/network/shorewall.pm b/lib/network/shorewall.pm index a78416e..d191808 100644 --- a/lib/network/shorewall.pm +++ b/lib/network/shorewall.pm @@ -58,13 +58,17 @@ sub get_zones { my @all_intf = grep { !/:/ } uniq(keys(%{$net->{ifcfg}}), detect_devices::get_net_interfaces()); my %net_zone = map { $_ => undef } @all_intf; $net_zone{$_} = 1 foreach get_net_zone_interfaces($net, \@all_intf); - $o_in and $o_in->ask_from('', N("Please select the interfaces that will be protected by the firewall. + $o_in and $o_in->ask_from_({ + title => N("Firewall configuration"), + icon => 'banner-security', + messages => N("Please select the interfaces that will be protected by the firewall. All interfaces directly connected to Internet should be selected, while interfaces connected to a local network may be unselected. Which interfaces should be protected? -"), [ +"), + }, [ map { { text => network::tools::get_interface_description($net, $_), val => \$net_zone{$_}, type => 'bool' }; } (sort keys %net_zone) ]); -- cgit v1.2.1