#!/usr/bin/perl
# $Id: masqrule,v 1.5 2001/02/15 13:11:34 stes Exp $

$IPLOG=$ENV{'IPLOG'};

$i=0;
$flag=$ARGV[$i++];
$chain=$ARGV[$i++];
$num=$ARGV[$i++];
$dev=$ARGV[$i++];
$addr=$ARGV[$i++];
$proto=$ARGV[$i++];
$port=$ARGV[$i++];

$num="" if $num == 0;
$cmd="iptables -t nat $flag $chain $num -j MASQUERADE";

$dev=~s/All//;
$dev=~s/Any//;
if ("x$dev" ne "x") {
  $cmd="$cmd -o $dev";
}
if ("x$addr" ne "x" and "$addr" ne "All" and "$addr" ne "Any") {
  $cmd="$cmd -s $addr";
}
if ("x$proto" ne "x" and "$proto" ne "All" and "$proto" ne "Any") {
  $cmd="$cmd -p $proto";
  if ("x$port" ne "x" and "$port" ne "Default") {
     $cmd="$cmd --to-ports $port";
  } 
}

system("$cmd") if "x$cmd" ne "x";
system("echo \"$cmd\" >> $IPLOG");

