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

Fix deletion of aliases (some more)

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6148 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-04-29 04:23:10 +00:00
parent fbec94e465
commit 8c497548ca
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Shorewall-perl/compiler.pl
View File

@ -529,6 +529,18 @@ sub generate_script_2 () {
''
);
if ( $capabilities{NAT_ENABLED} && ! $config{RETAIN_ALIASES} ) {
emitj( '',
'if [ -f ${VARDIR}/nat ]; then',
' while read external interface; do',
' del_ip_addr $external $interface',
' done < ${VARDIR}/nat',
'',
' rm -f ${VARDIR}/nat',
'fi',
'' );
}
emit "delete_tc1\n" if $config{CLEAR_TC};
emit "disable_ipv6\n" if $config{DISABLE_IPV6};
setup_mss( $config{CLAMPMSS} ) if $config{CLAMPMSS};
@ -559,7 +571,7 @@ sub generate_script_3() {
dump_zone_contents;
emit_unindented '__EOF__';
emit '> ${VARDIR}/nat';
emit '> ${VARDIR}/nat' unless $config{RETAIN_ALIASES};
add_addresses;