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

Minor fixes to comments

Browse Source
This commit is contained in:
Tom Eastep 2011-01-09 15:56:01 -08:00
parent 3392312cef
commit fd6afa7742
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Shorewall/Perl/Shorewall/Compiler.pm
View File

@ -311,7 +311,6 @@ sub generate_script_2() {
# #
# Generate code for loading the various files in /var/lib/shorewall[6][-lite] # Generate code for loading the various files in /var/lib/shorewall[6][-lite]
# Generate code to add IP addresses under ADD_IP_ALIASES and ADD_SNAT_ALIASES # Generate code to add IP addresses under ADD_IP_ALIASES and ADD_SNAT_ALIASES
#
# Generate the 'setup_netfilter()' function that runs iptables-restore. # Generate the 'setup_netfilter()' function that runs iptables-restore.
# Generate the 'define_firewall()' function. # Generate the 'define_firewall()' function.
# #
@ -639,7 +638,7 @@ sub compiler {
# #
validate_policy; validate_policy;
# #
# Process default actions # Process policy actions
# #
process_actions2; process_actions2;
# #

2
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1894,7 +1894,7 @@ sub read_a_line(;$) {
my $count = 0; my $count = 0;
# #
# Expand Shell Variables using %params and %ENV # Expand Shell Variables using %params and %actparms
# #
# $1 $2 $3 - $4 # $1 $2 $3 - $4
while ( $currentline =~ m( ^(.*?) \$({)? (\w+) (?(2)}) (.*)$ )x ) { while ( $currentline =~ m( ^(.*?) \$({)? (\w+) (?(2)}) (.*)$ )x ) {