holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

rename ipseczones() to haveipseczones()

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6274 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-05-07 22:20:00 +00:00
parent ab7c4200b1
commit cf3650bbe3
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shorewall-perl/Shorewall/Hosts.pm
View File

@ -125,7 +125,7 @@ sub validate_hosts_file()
progress_message " Host \"$line\" validated";
}
$capabilities{POLICY_MATCH} = '' unless $ipsec || ipseczones;
$capabilities{POLICY_MATCH} = '' unless $ipsec || haveipseczones;
}
#
# Returns a reference to a array of host entries. Each entry is a

4
Shorewall-perl/Shorewall/Zones.pm
View File

@ -39,7 +39,7 @@ our @EXPORT = qw( NOTHING
determine_zones
zone_report
dump_zone_contents
ipseczones
haveipseczones
@zones
%zones
@ -286,7 +286,7 @@ sub determine_zones()
#
# Return true of we have any ipsec zones
#
sub ipseczones() {
sub haveipseczones() {
for my $zoneref ( values %zones ) {
return 1 if $zoneref->{type} eq 'ipsec4';
}