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

More 'here docs'

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5708 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-26 23:37:36 +00:00
parent 85ad25cb68
commit 49cad74e82
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
New/compiler.pl
View File

@ -298,7 +298,6 @@ stop_firewall() {
fi fi
rm -f \${VARDIR}/proxyarp rm -f \${VARDIR}/proxyarp
EOF EOF
emit ' delete_tc1' if $config{CLEAR_TC}; emit ' delete_tc1' if $config{CLEAR_TC};
@ -327,13 +326,13 @@ EOF
emit " \$IPTABLES -A OUTPUT -o $interface $dest -j ACCEPT"; emit " \$IPTABLES -A OUTPUT -o $interface $dest -j ACCEPT";
} }
emit " emit <<EOF;
for chain in INPUT OUTPUT; do for chain in INPUT OUTPUT; do
setpolicy \$chain DROP setpolicy \$chain DROP
done done
"; EOF
} else { } else {
emit " emit <<EOF;
for chain in INPUT OUTPUT; do for chain in INPUT OUTPUT; do
setpolicy \$chain ACCEPT setpolicy \$chain ACCEPT
done done
@ -341,7 +340,7 @@ EOF
setpolicy FORWARD DROP setpolicy FORWARD DROP
deleteallchains deleteallchains
"; EOF
for my $hosts ( @$criticalhosts ) { for my $hosts ( @$criticalhosts ) {
my ( $interface, $host ) = ( split /,/, $hosts ); my ( $interface, $host ) = ( split /,/, $hosts );
@ -352,16 +351,16 @@ EOF
emit " \$IPTABLES -A OUTPUT -o $interface $dest -j ACCEPT"; emit " \$IPTABLES -A OUTPUT -o $interface $dest -j ACCEPT";
} }
emit " emit <<EOF;
setpolicy INPUT DROP setpolicy INPUT DROP
for chain in INPUT FORWARD; do for chain in INPUT FORWARD; do
setcontinue \$chain setcontinue \$chain
done done
"; EOF
} }
} elsif ( ! $config{ADMINISABSENTMINDED} ) { } elsif ( ! $config{ADMINISABSENTMINDED} ) {
emit " emit <<EOF;
for chain in INPUT OUTPUT FORWARD; do for chain in INPUT OUTPUT FORWARD; do
setpolicy \$chain DROP setpolicy \$chain DROP
done done
@ -380,7 +379,8 @@ EOF
for chain in INPUT FORWARD; do for chain in INPUT FORWARD; do
setcontinue \$chain setcontinue \$chain
done done
";
EOF
} }
push_indent; push_indent;
@ -417,6 +417,7 @@ EOF
pop_indent; pop_indent;
emit <<EOF; emit <<EOF;
set_state \"Stopped\" set_state \"Stopped\"
logger -p kern.info \"\$PRODUCT Stopped\" logger -p kern.info \"\$PRODUCT Stopped\"
@ -434,7 +435,6 @@ EOF
;; ;;
esac esac
} }
EOF EOF
} }