test/misc/subchain-var.ferm

   1 # test expanded subchain names, substr and length
   2 @def $string10 = "abcdefghij";
   3 @def $string20 = "abcdefghijabcdefghij";
   4 @def $twelve = 12;
   5
   6 domain ip table filter chain INPUT proto udp @subchain @substr($string20,0,$twelve) {
   7     dport domain ACCEPT;
   8 }
   9
  10 domain ip table filter chain INPUT proto udp @subchain @substr($string20,0,@length($string10)) {
  11     dport domain ACCEPT;
  12 }
  13
  14 @def $iface = "tap0";
  15 domain ip table filter chain INPUT proto udp @subchain @cat("interface_", $iface) {
  16     dport domain ACCEPT;
  17 }