blob: 39800b8851178e527685a6784e2e64ab1e6fe4f0 (
plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#
# PRE: update array
#
update request {
reply:Filter-Id := "filter"
request:Tunnel-Server-Endpoint += '192.0.1.1'
request:Tunnel-Server-Endpoint += '192.0.1.2'
request:Tunnel-Server-Endpoint:1 += '192.0.1.1'
request:Tunnel-Server-Endpoint:2 += '192.0.2.1'
request:Tunnel-Server-Endpoint:2 += '192.0.2.2'
request:Tunnel-Server-Endpoint:3 += '192.0.3.1'
}
#
# Copy all Tunnel-Server-Endpoint attributes
#
update request {
control:Tunnel-Server-Endpoint += &Tunnel-Server-Endpoint[*]
}
if ((&control:Tunnel-Server-Endpoint[0] != '192.0.1.1') || \
(&control:Tunnel-Server-Endpoint[1] != '192.0.1.2') || \
(&control:Tunnel-Server-Endpoint[2] != '192.0.1.1') || \
(&control:Tunnel-Server-Endpoint[3] != '192.0.2.1') || \
(&control:Tunnel-Server-Endpoint[4] != '192.0.2.2') || \
(&control:Tunnel-Server-Endpoint[5] != '192.0.3.1') || \
&control:Tunnel-Server-Endpoint[6]) {
update reply {
Filter-Id := "fail 0"
}
}
#
# Clear out control attributes...
#
update control {
Tunnel-Server-Endpoint !* ANY
}
#
# Copy all Tunnel-Server-Endpoint attributes with tag 2
#
update request {
control:Tunnel-Server-Endpoint += &Tunnel-Server-Endpoint:2[*]
}
if ((&control:Tunnel-Server-Endpoint[0] != '192.0.2.1') || \
(&control:Tunnel-Server-Endpoint[1] != '192.0.2.2') || \
&control:Tunnel-Server-Endpoint[2]) {
update reply {
Filter-Id := "fail 1"
}
}
#
# Clear out control attributes...
#
update control {
Tunnel-Server-Endpoint !* ANY
}
#
# Copy all Tunnel-Server-Endpoint attributes with no tag
#
update request {
control:Tunnel-Server-Endpoint += &Tunnel-Server-Endpoint:0[*]
}
if ((&control:Tunnel-Server-Endpoint[0] != '192.0.1.1') || \
(&control:Tunnel-Server-Endpoint[1] != '192.0.1.2') || \
&control:Tunnel-Server-Endpoint[2]) {
update reply {
Filter-Id := "fail 2"
}
}
#
# Clear out control attributes...
#
update control {
Tunnel-Server-Endpoint !* ANY
}
#
# Copy the first attribute with tag 2 (implicit)
#
update request {
control:Tunnel-Server-Endpoint += &Tunnel-Server-Endpoint:2
}
if ((&control:Tunnel-Server-Endpoint[0] != '192.0.2.1') || \
&control:Tunnel-Server-Endpoint[1]) {
update reply {
Filter-Id := "fail 3"
}
}
#
# Clear out control attributes...
#
update control {
Tunnel-Server-Endpoint !* ANY
}
#
# Copy the first attribute with tag 2 (explicit)
#
update request {
control:Tunnel-Server-Endpoint += &Tunnel-Server-Endpoint:2[0]
}
if ((&control:Tunnel-Server-Endpoint[0] != '192.0.2.1') || \
&control:Tunnel-Server-Endpoint[1]) {
update reply {
Filter-Id := "fail 4"
}
}
|
