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"; 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 # 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 determine_zones
zone_report zone_report
dump_zone_contents dump_zone_contents
ipseczones haveipseczones
@zones @zones
%zones %zones
@ -286,7 +286,7 @@ sub determine_zones()
# #
# Return true of we have any ipsec zones # Return true of we have any ipsec zones
# #
sub ipseczones() { sub haveipseczones() {
for my $zoneref ( values %zones ) { for my $zoneref ( values %zones ) {
return 1 if $zoneref->{type} eq 'ipsec4'; return 1 if $zoneref->{type} eq 'ipsec4';
} }