test/misc/defined.ferm

   1 @def $a = 'AAA';
   2 chain INPUT {
   3     @if @defined($a) LOG log-prefix "a is defined: $a";
   4     @if @defined($b) LOG log-prefix "b is not defined: $b";
   5     @if @defined($c) LOG log-prefix "c is not yet defined: $c";
   6
   7     @def $c = 'CCC';
   8     @if @defined($c) LOG log-prefix "c is now defined: $c";
   9
  10     proto tcp {
  11         @def $c = 'CCC2';
  12         @def $d = 'DDD';
  13         @if @defined($a) LOG log-prefix "a is defined: $a";
  14         @if @defined($b) LOG log-prefix "b is not defined: $b";
  15         @if @defined($c) LOG log-prefix "c has new value: $c";
  16         @if @defined($d) LOG log-prefix "d is defined: $d";
  17
  18         @def &func($e) = LOG log-prefix $e;
  19         @if @defined(&func) LOG log-prefix "func is defined";
  20
  21         dport http {
  22         @if @defined($c) LOG log-prefix "c still has new value: $c";
  23             @if @defined($d) LOG log-prefix "d is still defined: $d";
  24             @if @defined(&func) LOG log-prefix "func is still defined";
  25         }
  26     }
  27
  28     @if @defined($c) LOG log-prefix "c is still defined: $c";
  29     @if @defined($d) LOG log-prefix "d is gone: $d";
  30     @if @defined(&func) LOG log-prefix "func is gone";
  31 }