extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-24 07:08:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixes for IPv6 DNAT

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-02-26 10:24:25 -08:00
parent 45d53bdb1d
commit 78babf0941
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Shorewall/Perl/Shorewall/Nat.pm
View File

@ -690,10 +690,16 @@ sub handle_nat_rule( $$$$$$$$$$$$ ) {
validate_range( $1, $2 );
} else {
my ( $addr1, $addr2 ) = ( $1, $2 );
$addr1 = $1 if $addr1 =~ /^\[(.+)\]$/;
$addr2 = $1 if $addr2 =~ /^\[(.+)\]$/;
if ( $server =~ /^\[(.+)\]$/ ) {
$server = $1;
fatal_error "Correct address range syntax is '[<addr1>-<addr2>]'" if $server =~ /]-\[/;
assert( $server =~ /^(.+)-(.+)$/ );
( $addr1, $addr2 ) = ( $1, $2 );
}
validate_range( $addr1, $addr2 );
$server = join '-', $addr1, $addr2
$server = join( '-', $addr1, $addr2 );
}
} else {
unless ( $server eq ALLIP ) {
@ -713,7 +719,6 @@ sub handle_nat_rule( $$$$$$$$$$$$ ) {
}
} else {
for my $serv ( split /,/, $server ) {
$serv =~ s/-/]-[/; #In case this is a range.
$target .= " --to-destination [${serv}]${serverport}";
}
}