From c9d8c22b600da044d563bf7a93d94d970c9cc288 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Fri, 1 Mar 2013 09:03:22 -0800 Subject: [PATCH] Use '--to-dest' for IPv6 rather than '--to-destination' Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Nat.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Nat.pm b/Shorewall/Perl/Shorewall/Nat.pm index e6dccf5e2..dc62f9347 100644 --- a/Shorewall/Perl/Shorewall/Nat.pm +++ b/Shorewall/Perl/Shorewall/Nat.pm @@ -714,19 +714,20 @@ sub handle_nat_rule( $$$$$$$$$$$$ ) { if ( $action eq 'DNAT' ) { $target = $action; + my $option = $family == F_IPV4 ? '--to-destination' : '--to-dest'; if ( $server ) { $serverport = ":$serverport" if $serverport; if ( $family == F_IPV4 ) { for my $serv ( split /,/, $server ) { - $target .= " --to-destination ${serv}${serverport}"; + $target .= " $option ${serv}${serverport}"; } } else { for my $serv ( split /,/, $server ) { - $target .= " --to-destination [${serv}]${serverport}"; + $target .= " $option \[${serv}]${serverport}"; } } } else { - $target .= " --to-destination :$serverport"; + $target .= " $option :$serverport"; } }