File: defined.ferm

package info (click to toggle)
ferm 2.7-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,140 kB
  • sloc: perl: 2,839; sh: 126; makefile: 120
file content (31 lines) | stat: -rw-r--r-- 1,137 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
@def $a = 'AAA';
chain INPUT {
    @if @defined($a) LOG log-prefix "a is defined: $a";
    @if @defined($b) LOG log-prefix "b is not defined: $b";
    @if @defined($c) LOG log-prefix "c is not yet defined: $c";

    @def $c = 'CCC';
    @if @defined($c) LOG log-prefix "c is now defined: $c";

    proto tcp {
        @def $c = 'CCC2';
        @def $d = 'DDD';
        @if @defined($a) LOG log-prefix "a is defined: $a";
        @if @defined($b) LOG log-prefix "b is not defined: $b";
        @if @defined($c) LOG log-prefix "c has new value: $c";
        @if @defined($d) LOG log-prefix "d is defined: $d";

        @def &func($e) = LOG log-prefix $e;
        @if @defined(&func) LOG log-prefix "func is defined";

        dport http {
        @if @defined($c) LOG log-prefix "c still has new value: $c";
            @if @defined($d) LOG log-prefix "d is still defined: $d";
            @if @defined(&func) LOG log-prefix "func is still defined";
        }
    }

    @if @defined($c) LOG log-prefix "c is still defined: $c";
    @if @defined($d) LOG log-prefix "d is gone: $d";
    @if @defined(&func) LOG log-prefix "func is gone";
}