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

Cosmetic changes to Compiler.pm

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2010-02-15 14:07:35 -08:00
parent 5d08d51fe5
commit 4546394531
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,6 +75,9 @@ sub initialize_package_globals() {
# Copy prog.header to the generated script. # Copy prog.header to the generated script.
# Generate the various user-exit jacket functions. # Generate the various user-exit jacket functions.
# #
# Note: This function is not called when $command eq 'check'. So it must have no side effects other
# than those related to writing to the output script file.
#
sub generate_script_1() { sub generate_script_1() {
if ( $test ) { if ( $test ) {
@ -503,6 +506,7 @@ EOF
pop_indent; pop_indent;
setup_forwarding( $family , 1 ); setup_forwarding( $family , 1 );
push_indent; push_indent;
emit<<'EOF'; emit<<'EOF';
set_state "Started" set_state "Started"
run_restored_exit run_restored_exit
@ -511,6 +515,7 @@ else
chainlist_reload chainlist_reload
EOF EOF
setup_forwarding( $family , 0 ); setup_forwarding( $family , 0 );
emit<<'EOF'; emit<<'EOF';
run_refreshed_exit run_refreshed_exit
do_iptables -N shorewall do_iptables -N shorewall
@ -521,6 +526,7 @@ EOF
conditionally_flush_conntrack conditionally_flush_conntrack
EOF EOF
setup_forwarding( $family , 0 ); setup_forwarding( $family , 0 );
emit<<'EOF'; emit<<'EOF';
run_start_exit run_start_exit
do_iptables -N shorewall do_iptables -N shorewall
@ -704,11 +710,11 @@ sub compiler {
push_indent; push_indent;
} }
# #
# Do all of the zone-independent stuff # Do all of the zone-independent stuff (mostly /proc)
# #
add_common_rules; add_common_rules;
# #
# /proc stuff # More /proc
# #
if ( $family == F_IPV4 ) { if ( $family == F_IPV4 ) {
setup_arp_filtering; setup_arp_filtering;