5 $slice_ip=`cat /etc/vservers/$slice/interfaces/0/ip`;
13 die ("Src and dst ports need to be numbers") if (($src_port=~/[^0-9]/) || ($src_port=~/[^0-9]/));
15 $IPTABLES_CMD="/sbin/iptables -t nat -A PREROUTING -m tcp -p tcp -d $slice_ip --dport $src_port -j DNAT --to-destination $slice_ip:$dst_port";
16 print "Invoking port forwarding command: $IPTABLES_CMD\n";
17 system($IPTABLES_CMD);