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

Remove anacronistic comments

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5472 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-09 02:50:57 +00:00
parent ad74efe6fa
commit 3b6df009f2
1 changed files with 5 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
New/compiler.pl
View File

@ -388,16 +388,7 @@ sub parse_zone_option_list($)
} }
# #
# Parse the zones file. Generates the Zone Table # Parse the zones file.
#
# zones => <zone type>
# zone_children => <Ref to Empty List>
# zone_parents => <List of parent zones>
# zone_options => in_out => mss => <mss value>
# => ipsec => "ipsec selection string"
# => routeback => 1
# in ...
# out ...
# #
sub determine_zones() sub determine_zones()
{ {
@ -461,7 +452,6 @@ sub determine_zones()
$zone_hash{complex} = ($type eq 'ipsec4' || $options || $in_options || $out_options ? 1 : 0); $zone_hash{complex} = ($type eq 'ipsec4' || $options || $in_options || $out_options ? 1 : 0);
$zoneref->{options} = \%zone_hash; $zoneref->{options} = \%zone_hash;
$zoneref->{interfaces} = {}; $zoneref->{interfaces} = {};
$zoneref->{children} = []; $zoneref->{children} = [];
$zoneref->{hosts} = {}; $zoneref->{hosts} = {};
@ -491,13 +481,6 @@ sub determine_zones()
} }
} }
#
# Add an entry to the zone_hosts hash.
#
# %zone_hosts -> zone => (ipsec|ipv4) => <interface> => <Array> => options => <option1> => value1
# <option2> => value2
# => hosts = <network>
#
sub add_group_to_zone($$$$$) sub add_group_to_zone($$$$$)
{ {
my ($zone, $type, $interface, $networks, $options) = @_; my ($zone, $type, $interface, $networks, $options) = @_;
@ -553,15 +536,7 @@ sub add_group_to_zone($$$$$)
} }
# #
# Parse the interfaces file. Generates the following information # Parse the interfaces file.
#
# @interfaces => File-ordered list of interfaces from interfaces file.
# %interfaces => Interface name without trailing '+'; this hash is extended as names are found to match wildcards.
# %interface_broadcast => List of broadcast addresses (or detect).
# %interface_options => Option1 => Value1
# => Option2 => Value2
# ...
# %interface_zone => Zone associated with interface, if any.
# #
sub validate_interfaces_file() sub validate_interfaces_file()
{ {
@ -723,7 +698,7 @@ sub known_interface($)
} }
# #
# Validates the hosts file. Generates entries in %zone{..}{hosts} as described above. # Validates the hosts file. Generates entries in %zone{..}{hosts}
# #
sub validate_hosts_file() sub validate_hosts_file()
{ {
@ -808,12 +783,10 @@ sub dump_zone_info()
my $zoneref = $zones{$zone}; my $zoneref = $zones{$zone};
my $typeref = $zoneref->{hosts}; my $typeref = $zoneref->{hosts};
my $optionref = $zoneref->{options}; my $optionref = $zoneref->{options};
my $groupref; my $zonetype = $zoneref->{type};
print "Zone: $zone\n"; print "Zone: $zone\n";
my $zonetype = $zoneref->{type};
print " Type: $zonetype\n"; print " Type: $zonetype\n";
print " Parents:\n"; print " Parents:\n";
@ -901,7 +874,6 @@ sub zone_report()
my $hostref = $zoneref->{hosts}; my $hostref = $zoneref->{hosts};
my $type = $zoneref->{type}; my $type = $zoneref->{type};
my $optionref = $zoneref->{options}; my $optionref = $zoneref->{options};
my $groupref;
progress_message " $zone ($type)"; progress_message " $zone ($type)";