use a more logical key/value order in shorewall redirects hash

1 files changed, 2 insertions, 4 deletions

diff --git a/bin/drakgw b/bin/drakgw
index 85c9d03..bbd50cd 100755
--- a/bin/drakgw
+++ b/bin/drakgw
@@ -345,14 +345,12 @@ sub end_step() {
 }
 
 sub delete_proxy_ports() {
-    my $r = $shorewall->{redirects}{tcp};
-    my @ports = grep { $r->{$_} eq 'www' } keys %$r;
-    delete $r->{$_} foreach @ports;
+    delete $shorewall->{redirects}{tcp}{www};
 }
 
 sub set_proxy_port {
     my ($port) = @_;
-    $shorewall->{redirects}{tcp}{$port} = 'www';
+    $shorewall->{redirects}{tcp}{www} = $port;
 }
 
 sub gw_disable() {