#!/bin/sh 
#
#  This is automatically generated file. DO NOT MODIFY !
#
#  Firewall Builder  fwb_ipt v5.0.2.3596
#
#  Generated Sun Mar 18 21:16:56 2012 PDT by vadim
#
# files: * firewall5.fw /etc/fw/firewall5.fw
#
# Compiled for iptables (any version)
#
# testing firewall_is_part_of_any_and_networks. Also testing SNAT and DNAT rules when external interface has dynamic address.

# dynamic interface ppp0 has an address object attached to it (interface used to be static and had an address, then got converted to dynamic but address object is still there). Compiler should ignore this address object and issue a warning.

# All "configure interfaces" options are off, testing shell functions for this case.

# firewall5::: error: Dynamic interface ppp0 should not have an IP address object attached to it. This IP address object will be ignored.


FWBDEBUG=""

PATH="/sbin:/usr/sbin:/bin:/usr/bin:${PATH}"
export PATH



LSMOD="/sbin/lsmod"
MODPROBE="/sbin/modprobe"
IPTABLES="/sbin/iptables"
IP6TABLES="/sbin/ip6tables"
IPTABLES_RESTORE="/sbin/iptables-restore"
IP6TABLES_RESTORE="/sbin/ip6tables-restore"
IP="/sbin/ip"
IFCONFIG="/sbin/ifconfig"
VCONFIG="/sbin/vconfig"
BRCTL="/sbin/brctl"
IFENSLAVE="/sbin/ifenslave"
IPSET="/usr/sbin/ipset"
LOGGER="/usr/bin/logger"

log() {
    echo "$1"
    which "$LOGGER" >/dev/null 2>&1 && $LOGGER -p info "$1"
}

getInterfaceVarName() {
    echo $1 | sed 's/\./_/'
}

getaddr_internal() {
    dev=$1
    name=$2
    af=$3
    L=$($IP $af addr show dev $dev |  sed -n '/inet/{s!.*inet6* !!;s!/.*!!p}' | sed 's/peer.*//')
    test -z "$L" && { 
        eval "$name=''"
        return
    }
    eval "${name}_list=\"$L\"" 
}

getnet_internal() {
    dev=$1
    name=$2
    af=$3
    L=$($IP route list proto kernel | grep $dev | grep -v default |  sed 's! .*$!!')
    test -z "$L" && { 
        eval "$name=''"
        return
    }
    eval "${name}_list=\"$L\"" 
}


getaddr() {
    getaddr_internal $1 $2 "-4"
}

getaddr6() {
    getaddr_internal $1 $2 "-6"
}

getnet() {
    getnet_internal $1 $2 "-4"
}

getnet6() {
    getnet_internal $1 $2 "-6"
}

# function getinterfaces is used to process wildcard interfaces
getinterfaces() {
    NAME=$1
    $IP link show | grep ": $NAME" | while read L; do
        OIFS=$IFS
        IFS=" :"
        set $L
        IFS=$OIFS
        echo $2
    done
}

diff_intf() {
    func=$1
    list1=$2
    list2=$3
    cmd=$4
    for intf in $list1
    do
        echo $list2 | grep -q $intf || {
        # $vlan is absent in list 2
            $func $intf $cmd
        }
    done
}

find_program() {
  PGM=$1
  which $PGM >/dev/null 2>&1 || {
    echo "\"$PGM\" not found"
    exit 1
  }
}
check_tools() {
  find_program which
  find_program $IPTABLES 
  find_program $IP 
}
reset_iptables_v4() {
  $IPTABLES -P OUTPUT  DROP
  $IPTABLES -P INPUT   DROP
  $IPTABLES -P FORWARD DROP

cat /proc/net/ip_tables_names | while read table; do
  $IPTABLES -t $table -L -n | while read c chain rest; do
      if test "X$c" = "XChain" ; then
        $IPTABLES -t $table -F $chain
      fi
  done
  $IPTABLES -t $table -X
done
}

reset_iptables_v6() {
  $IP6TABLES -P OUTPUT  DROP
  $IP6TABLES -P INPUT   DROP
  $IP6TABLES -P FORWARD DROP

cat /proc/net/ip6_tables_names | while read table; do
  $IP6TABLES -t $table -L -n | while read c chain rest; do
      if test "X$c" = "XChain" ; then
        $IP6TABLES -t $table -F $chain
      fi
  done
  $IP6TABLES -t $table -X
done
}


P2P_INTERFACE_WARNING=""

missing_address() {
    address=$1
    cmd=$2

    oldIFS=$IFS
    IFS="@"
    set $address
    addr=$1
    interface=$2
    IFS=$oldIFS



    $IP addr show dev $interface | grep -q POINTOPOINT && {
        test -z "$P2P_INTERFACE_WARNING" && echo "Warning: Can not update address of interface $interface. fwbuilder can not manage addresses of point-to-point interfaces yet"
        P2P_INTERFACE_WARNING="yes"
        return
    }

    test "$cmd" = "add" && {
      echo "# Adding ip address: $interface $addr"
      echo $addr | grep -q ':' && {
          $FWBDEBUG $IP addr $cmd $addr dev $interface
      } || {
          $FWBDEBUG $IP addr $cmd $addr broadcast + dev $interface
      }
    }

    test "$cmd" = "del" && {
      echo "# Removing ip address: $interface $addr"
      $FWBDEBUG $IP addr $cmd $addr dev $interface || exit 1
    }

    $FWBDEBUG $IP link set $interface up
}

list_addresses_by_scope() {
    interface=$1
    scope=$2
    ignore_list=$3
    $IP addr ls dev $interface | \
      awk -v IGNORED="$ignore_list" -v SCOPE="$scope" \
        'BEGIN {
           split(IGNORED,ignored_arr);
           for (a in ignored_arr) {ignored_dict[ignored_arr[a]]=1;}
         }
         (/inet |inet6 / && $0 ~ SCOPE && !($2 in ignored_dict)) {print $2;}' | \
        while read addr; do
          echo "${addr}@$interface"
	done | sort
}


update_addresses_of_interface() {
    ignore_list=$2
    set $1 
    interface=$1 
    shift

    FWB_ADDRS=$(
      for addr in $*; do
        echo "${addr}@$interface"
      done | sort
    )

    CURRENT_ADDRS_ALL_SCOPES=""
    CURRENT_ADDRS_GLOBAL_SCOPE=""

    $IP link show dev $interface >/dev/null 2>&1 && {
      CURRENT_ADDRS_ALL_SCOPES=$(list_addresses_by_scope $interface 'scope .*' "$ignore_list")
      CURRENT_ADDRS_GLOBAL_SCOPE=$(list_addresses_by_scope $interface 'scope global' "$ignore_list")
    } || {
      echo "# Interface $interface does not exist"
      # Stop the script if we are not in test mode
      test -z "$FWBDEBUG" && exit 1
    }

    diff_intf missing_address "$FWB_ADDRS" "$CURRENT_ADDRS_ALL_SCOPES" add
    diff_intf missing_address "$CURRENT_ADDRS_GLOBAL_SCOPE" "$FWB_ADDRS" del
}

clear_addresses_except_known_interfaces() {
    $IP link show | sed 's/://g' | awk -v IGNORED="$*" \
        'BEGIN {
           split(IGNORED,ignored_arr);
           for (a in ignored_arr) {ignored_dict[ignored_arr[a]]=1;}
         }
         (/state/ && !($2 in ignored_dict)) {print $2;}' | \
         while read intf; do
            echo "# Removing addresses not configured in fwbuilder from interface $intf"
            $FWBDEBUG $IP addr flush dev $intf scope global
            $FWBDEBUG $IP link set $intf down
         done
}

check_file() {
    test -r "$2" || {
        echo "Can not find file $2 referenced by address table object $1"
        exit 1
    }
}

check_run_time_address_table_files() {
    :
    
}

load_modules() {
    :
    
}

verify_interfaces() {
    :
    
}

prolog_commands() {
    echo "Running prolog script"
    
}

epilog_commands() {
    echo "Running epilog script"
    
}

run_epilog_and_exit() {
    epilog_commands
    exit $1
}

configure_interfaces() {
    :
    # Configure interfaces
    getaddr ppp0  i_ppp0
    getaddr6 ppp0  i_ppp0_v6
    getnet ppp0  i_ppp0_network
    getnet6 ppp0  i_ppp0_v6_network
    getaddr ppp1  i_ppp1
    getaddr6 ppp1  i_ppp1_v6
    getnet ppp1  i_ppp1_network
    getnet6 ppp1  i_ppp1_v6_network
}

script_body() {
    echo 30 > /proc/sys/net/ipv4/tcp_fin_timeout 
     echo 1800 > /proc/sys/net/ipv4/tcp_keepalive_intvl 


    # ================ IPv4




    # ================ Table 'nat',  rule set NAT
    # 
    # Rule 0 (NAT)
    # 
    echo "Rule 0 (NAT)"
    # 
    $IPTABLES -t nat -A POSTROUTING -o ppp0   -s 192.168.1.0/24  -j MASQUERADE
    $IPTABLES -t nat -A POSTROUTING -o ppp1   -s 192.168.1.0/24  -j MASQUERADE
    $IPTABLES -t nat -A POSTROUTING -o eth2   -s 192.168.1.0/24  -j SNAT --to-source 192.168.2.1
    # 
    # Rule 1 (NAT)
    # 
    echo "Rule 1 (NAT)"
    # 
    $IPTABLES -t nat -A POSTROUTING -o eth+   -s 192.168.1.0/24  -j SNAT --to-source 22.22.22.23
    $IPTABLES -t nat -A POSTROUTING -o ppp+   -s 192.168.1.0/24  -j SNAT --to-source 22.22.22.23
    # 
    # Rule 2 (NAT)
    # 
    echo "Rule 2 (NAT)"
    # 
    $IPTABLES -t nat -A POSTROUTING -o eth+   -s 77.77.77.77  -j SNAT --to-source 22.22.22.23
    $IPTABLES -t nat -A POSTROUTING -o ppp+   -s 77.77.77.77  -j SNAT --to-source 22.22.22.23
    $IPTABLES -t nat -A POSTROUTING -o eth+   -s 192.168.1.1  -j SNAT --to-source 22.22.22.23
    $IPTABLES -t nat -A POSTROUTING -o ppp+   -s 192.168.1.1  -j SNAT --to-source 22.22.22.23
    $IPTABLES -t nat -A POSTROUTING -o eth+   -s 192.168.2.1  -j SNAT --to-source 22.22.22.23
    $IPTABLES -t nat -A POSTROUTING -o ppp+   -s 192.168.2.1  -j SNAT --to-source 22.22.22.23
    # 
    # Rule 3 (NAT)
    # 
    echo "Rule 3 (NAT)"
    # 
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -t nat -A PREROUTING -p tcp -m tcp   -d $i_ppp0   --dport 22 -j DNAT --to-destination 192.168.1.10:22 
    done
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp1" && $IPTABLES -t nat -A PREROUTING -p tcp -m tcp   -d $i_ppp1   --dport 22 -j DNAT --to-destination 192.168.1.10:22 
    done
    $IPTABLES -t nat -A PREROUTING -p tcp -m tcp   -d 192.168.1.1  --dport 22 -j DNAT --to-destination 192.168.1.10:22
    $IPTABLES -t nat -A PREROUTING -p tcp -m tcp   -d 192.168.2.1  --dport 22 -j DNAT --to-destination 192.168.1.10:22



    # ================ Table 'filter', rule set Policy
    # 
    # Rule 0 (ppp0)
    # 
    echo "Rule 0 (ppp0)"
    # 
    $IPTABLES -N Cid3E4A05B9.0
    $IPTABLES -A INPUT -i ppp0   -j Cid3E4A05B9.0
    $IPTABLES -A FORWARD -i ppp0   -j Cid3E4A05B9.0
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -A Cid3E4A05B9.0  -s $i_ppp0   -j RETURN 
    done
    $IPTABLES -A Cid3E4A05B9.0  -s 192.168.1.0/24   -j RETURN
    $IPTABLES -N In_RULE_0_3
    $IPTABLES -A Cid3E4A05B9.0  -j In_RULE_0_3
    $IPTABLES -A In_RULE_0_3  -j LOG
    $IPTABLES -A In_RULE_0_3  -j DROP
    # 
    # Rule 1 (ppp1)
    # 
    echo "Rule 1 (ppp1)"
    # 
    $IPTABLES -N Cid3E8F5B72.0
    $IPTABLES -A INPUT -i ppp1   -j Cid3E8F5B72.0
    $IPTABLES -A FORWARD -i ppp1   -j Cid3E8F5B72.0
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -A Cid3E8F5B72.0  -s $i_ppp0   -j RETURN 
    done
    $IPTABLES -A Cid3E8F5B72.0  -s 192.168.1.0/24   -j RETURN
    $IPTABLES -N In_RULE_1_3
    $IPTABLES -A Cid3E8F5B72.0  -j In_RULE_1_3
    $IPTABLES -A In_RULE_1_3  -j LOG
    $IPTABLES -A In_RULE_1_3  -j DROP
    # 
    # Rule 2 (ppp1,ppp0)
    # 
    echo "Rule 2 (ppp1,ppp0)"
    # 
    $IPTABLES -N Cid212010X42308.0
    $IPTABLES -A INPUT -i ppp0   -j Cid212010X42308.0
    $IPTABLES -A INPUT -i ppp1   -j Cid212010X42308.0
    $IPTABLES -A FORWARD -i ppp0   -j Cid212010X42308.0
    $IPTABLES -A FORWARD -i ppp1   -j Cid212010X42308.0
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -A Cid212010X42308.0  -s $i_ppp0   -j RETURN 
    done
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp1" && $IPTABLES -A Cid212010X42308.0  -s $i_ppp1   -j RETURN 
    done
    $IPTABLES -A Cid212010X42308.0  -s 192.168.1.0/24   -j RETURN
    $IPTABLES -N In_RULE_2_3
    $IPTABLES -A Cid212010X42308.0  -j In_RULE_2_3
    $IPTABLES -A In_RULE_2_3  -j LOG
    $IPTABLES -A In_RULE_2_3  -j DROP
    # 
    # Rule 3 (global)
    # 
    echo "Rule 3 (global)"
    # 
    $IPTABLES -N RULE_3
    for i_ppp0 in $i_ppp0_list
    do
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp0" && test -n "$i_ppp1" && $IPTABLES -A INPUT  -s $i_ppp0   -d $i_ppp1   -j RULE_3 
    done
    done
    for i_ppp0 in $i_ppp0_list
    do
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp0" && test -n "$i_ppp1" && $IPTABLES -A OUTPUT  -s $i_ppp0   -d $i_ppp1   -j RULE_3 
    done
    done
    $IPTABLES -A RULE_3  -j LOG
    $IPTABLES -A RULE_3  -j DROP
    # 
    # Rule 4 (global)
    # 
    echo "Rule 4 (global)"
    # 
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -A OUTPUT -p tcp -m tcp  -d $i_ppp0   --dport 22  -m state --state NEW  -j ACCEPT 
    done
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp1" && $IPTABLES -A OUTPUT -p tcp -m tcp  -d $i_ppp1   --dport 22  -m state --state NEW  -j ACCEPT 
    done
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -A INPUT -p tcp -m tcp  -d $i_ppp0   --dport 22  -m state --state NEW  -j ACCEPT 
    done
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp1" && $IPTABLES -A INPUT -p tcp -m tcp  -d $i_ppp1   --dport 22  -m state --state NEW  -j ACCEPT 
    done
    # 
    # Rule 5 (global)
    # 
    echo "Rule 5 (global)"
    # 
    # hostF has the same IP address as firewal.
    $IPTABLES -N RULE_5
    $IPTABLES -A OUTPUT -p icmp  -m icmp  -d 192.168.1.1   --icmp-type 8/0   -m state --state NEW  -j RULE_5
    $IPTABLES -A INPUT -p icmp  -m icmp  -d 192.168.1.1   --icmp-type 8/0   -m state --state NEW  -j RULE_5
    $IPTABLES -A RULE_5  -j LOG
    $IPTABLES -A RULE_5  -j ACCEPT
    # 
    # Rule 6 (global)
    # 
    echo "Rule 6 (global)"
    # 
    $IPTABLES -N Cid3E4A0454.0
    $IPTABLES -A OUTPUT -p tcp -m tcp  --dport 22  -m state --state NEW  -j Cid3E4A0454.0
    for i_ppp1 in $i_ppp1_list
    do
    test -n "$i_ppp1" && $IPTABLES -A Cid3E4A0454.0  -d $i_ppp1   -j ACCEPT 
    done
    for i_ppp0 in $i_ppp0_list
    do
    test -n "$i_ppp0" && $IPTABLES -A Cid3E4A0454.0  -d $i_ppp0   -j ACCEPT 
    done
    $IPTABLES -A Cid3E4A0454.0  -d 192.168.1.1   -j ACCEPT
    $IPTABLES -A Cid3E4A0454.0  -d 192.168.2.1   -j ACCEPT
    $IPTABLES -A INPUT -p tcp -m tcp  --dport 22  -m state --state NEW  -j ACCEPT
    # 
    # Rule 7 (global)
    # 
    echo "Rule 7 (global)"
    # 
    $IPTABLES -A OUTPUT -p tcp -m tcp  -d 192.168.1.1   --dport 22  -m state --state NEW  -j ACCEPT
    $IPTABLES -A INPUT -p tcp -m tcp  -d 192.168.1.1   --dport 22  -m state --state NEW  -j ACCEPT
    # 
    # Rule 8 (global)
    # 
    echo "Rule 8 (global)"
    # 
    $IPTABLES -A OUTPUT -p tcp -m tcp  -m multiport  -d 192.168.1.1   --dports 22,23  -m state --state NEW  -j ACCEPT
    $IPTABLES -A INPUT -p tcp -m tcp  -m multiport  -d 192.168.1.1   --dports 22,23  -m state --state NEW  -j ACCEPT
    # 
    # Rule 9 (global)
    # 
    echo "Rule 9 (global)"
    # 
    $IPTABLES -N Cid3E987157.0
    $IPTABLES -A OUTPUT -p tcp -m tcp  -m multiport  --dports 22,23  -m state --state NEW  -j Cid3E987157.0
    $IPTABLES -A Cid3E987157.0  -d 77.77.77.77   -j ACCEPT
    $IPTABLES -A Cid3E987157.0  -d 192.168.1.1   -j ACCEPT
    $IPTABLES -A Cid3E987157.0  -d 192.168.2.1   -j ACCEPT
    $IPTABLES -N Cid3E987157.1
    $IPTABLES -A FORWARD -p tcp -m tcp  -m multiport  --dports 22,23  -m state --state NEW  -j Cid3E987157.1
    $IPTABLES -A Cid3E987157.1  -d 77.77.77.77   -j ACCEPT
    $IPTABLES -A Cid3E987157.1  -d 192.168.1.1   -j ACCEPT
    $IPTABLES -A Cid3E987157.1  -d 192.168.2.1   -j ACCEPT
    # 
    # Rule 10 (global)
    # 
    echo "Rule 10 (global)"
    # 
    $IPTABLES -N Cid3E9871F4.0
    $IPTABLES -A OUTPUT -p tcp -m tcp  -m multiport  --dports 22,23  -m state --state NEW  -j Cid3E9871F4.0
    $IPTABLES -N RULE_10
    $IPTABLES -A Cid3E9871F4.0  -d 77.77.77.77   -j RULE_10
    $IPTABLES -A Cid3E9871F4.0  -d 192.168.1.1   -j RULE_10
    $IPTABLES -A Cid3E9871F4.0  -d 192.168.2.1   -j RULE_10
    $IPTABLES -N Cid3E9871F4.1
    $IPTABLES -A FORWARD -p tcp -m tcp  -m multiport  --dports 22,23  -m state --state NEW  -j Cid3E9871F4.1
    $IPTABLES -A Cid3E9871F4.1  -d 77.77.77.77   -j RULE_10
    $IPTABLES -A Cid3E9871F4.1  -d 192.168.1.1   -j RULE_10
    $IPTABLES -A Cid3E9871F4.1  -d 192.168.2.1   -j RULE_10
    $IPTABLES -A RULE_10  -j LOG
    $IPTABLES -A RULE_10  -j ACCEPT
    # 
    # Rule 11 (global)
    # 
    echo "Rule 11 (global)"
    # 
    # firewall is part of Any, so compiler should
    # generate code in both FORWARD and
    # OUTPUT chains
    $IPTABLES -A OUTPUT  -d 200.200.200.200   -m state --state NEW  -j ACCEPT
    $IPTABLES -A FORWARD  -d 200.200.200.200   -m state --state NEW  -j ACCEPT
    # 
    # Rule 12 (global)
    # 
    echo "Rule 12 (global)"
    # 
    # firewall is part of Any, compiler should
    # generate code for both FORWARD and
    # INPUT chains
    $IPTABLES -A INPUT  -s 200.200.200.200   -m state --state NEW  -j ACCEPT
    $IPTABLES -A FORWARD  -s 200.200.200.200   -m state --state NEW  -j ACCEPT
    # 
    # Rule 13 (global)
    # 
    echo "Rule 13 (global)"
    # 
    # because firewall has interface on network
    # internal_net, compiler should generate code
    # for both FORWARD and INPUT chains
    $IPTABLES -A INPUT  -s 192.168.1.10   -d 192.168.1.0/24   -m state --state NEW  -j ACCEPT
    $IPTABLES -A FORWARD  -s 192.168.1.10   -d 192.168.1.0/24   -m state --state NEW  -j ACCEPT
    # 
    # Rule 14 (global)
    # 
    echo "Rule 14 (global)"
    # 
    $IPTABLES -N Cid3B19C5CA.0
    $IPTABLES -A OUTPUT  -d 200.200.200.200   -m state --state NEW  -j Cid3B19C5CA.0
    $IPTABLES -A Cid3B19C5CA.0  -s 192.168.1.0/24   -j ACCEPT
    $IPTABLES -A Cid3B19C5CA.0  -s 192.168.2.0/24   -j ACCEPT
    $IPTABLES -N Cid3B19C5CA.1
    $IPTABLES -A FORWARD  -d 200.200.200.200   -m state --state NEW  -j Cid3B19C5CA.1
    $IPTABLES -A Cid3B19C5CA.1  -s 192.168.1.0/24   -j ACCEPT
    $IPTABLES -A Cid3B19C5CA.1  -s 192.168.2.0/24   -j ACCEPT
    # 
    # Rule 15 (global)
    # 
    echo "Rule 15 (global)"
    # 
    # Automatically generated 'catch all' rule
    $IPTABLES -N RULE_15
    $IPTABLES -A OUTPUT  -j RULE_15
    $IPTABLES -A INPUT  -j RULE_15
    $IPTABLES -A FORWARD  -j RULE_15
    $IPTABLES -A RULE_15  -j LOG
    $IPTABLES -A RULE_15  -j DROP
}

ip_forward() {
    :
    
}

reset_all() {
    :
    reset_iptables_v4
}

block_action() {
    reset_all
}

stop_action() {
    reset_all
    $IPTABLES -P OUTPUT  ACCEPT
    $IPTABLES -P INPUT   ACCEPT
    $IPTABLES -P FORWARD ACCEPT
}

check_iptables() {
    IP_TABLES="$1"
    [ ! -e $IP_TABLES ] && return 151
    NF_TABLES=$(cat $IP_TABLES 2>/dev/null)
    [ -z "$NF_TABLES" ] && return 152
    return 0
}
status_action() {
    check_iptables "/proc/net/ip_tables_names"
    ret_ipv4=$?
    check_iptables "/proc/net/ip6_tables_names"
    ret_ipv6=$?
    [ $ret_ipv4 -eq 0 -o $ret_ipv6 -eq 0 ] && return 0
    [ $ret_ipv4 -eq 151 -o $ret_ipv6 -eq 151 ] && {
        echo "iptables modules are not loaded"
    }
    [ $ret_ipv4 -eq 152 -o $ret_ipv6 -eq 152 ] && {
        echo "Firewall is not configured"
    }
    exit 3
}

# See how we were called.
# For backwards compatibility missing argument is equivalent to 'start'

cmd=$1
test -z "$cmd" && {
    cmd="start"
}

case "$cmd" in
    start)
        log "Activating firewall script generated Sun Mar 18 21:16:56 2012 by vadim"
        check_tools
         prolog_commands 
        check_run_time_address_table_files
        
        load_modules "nat "
        configure_interfaces
        verify_interfaces
        
         reset_all 
        
        script_body
        ip_forward
        epilog_commands
        RETVAL=$?
        ;;

    stop)
        stop_action
        RETVAL=$?
        ;;

    status)
        status_action
        RETVAL=$?
        ;;

    block)
        block_action
        RETVAL=$?
        ;;

    reload)
        $0 stop
        $0 start
        RETVAL=$?
        ;;

    interfaces)
        configure_interfaces
        RETVAL=$?
        ;;

    test_interfaces)
        FWBDEBUG="echo"
        configure_interfaces
        RETVAL=$?
        ;;



    *)
        echo "Usage $0 [start|stop|status|block|reload|interfaces|test_interfaces]"
        ;;

esac

exit $RETVAL