Fix regression: functions containing domain (ip ip6)
[ferm.git] / test / ipv6 / mixed.ferm
blobb043adcd808aa2a79ff9eb2bce1a2bb2dcc74e77
1 def $both = (ip ip6);
3 domain ip chain INPUT DROP;
5 domain (ip6 ip) chain OUTPUT policy DROP;
7 domain (ip6 ip) chain INPUT {
8     proto tcp dport ssh ACCEPT;
9     LOG log-prefix $DOMAIN;
12 @def &SERVICE($proto, $port) = {
13         domain (ip ip6) chain INPUT {
14                 proto $proto dport $port ACCEPT;
15         }
17 &SERVICE(tcp, smtp);
19 domain $both chain INPUT @if (@eq($DOMAIN,ip)) LOG log-prefix "four";
20 domain $both chain INPUT @if (@eq($DOMAIN,ip6)) LOG log-prefix "six";
22 domain $both chain INPUT @if (@eq($DOMAIN,ip))
23     LOG log-prefix "four2";
24 @else
25     LOG log-prefix "six2";
27 domain $both chain INPUT {
28     @if (@eq($DOMAIN,ip6)) {
29         LOG log-prefix "six3";
30     } @else {
31         LOG log-prefix "four3";
32     }
35 chain INPUT REJECT;