+++ /dev/null
-#
-# PRE: update
-#
-update request {
- NAS-Port := 1000
-}
-
-#
-# Filtering
-#
-update request {
- NAS-Port == 1000
-}
-
-if (NAS-Port != 1000) {
- update reply {
- Filter-Id += "fail 1"
- }
-}
-
-update request {
- NAS-Port <= 500
-}
-
-if (NAS-Port != 500) {
- update reply {
- Filter-Id += "fail 2"
- }
-}
-
-update request {
- NAS-Port >= 2000
-}
-
-if (NAS-Port != 2000) {
- update reply {
- Filter-Id += "fail 3"
- }
-}
-
-# non-existent attribute
-update request {
- Class -= 0xabcdef
-}
-
-update request {
- Class -= &Class
-}
-
-update request {
- NAS-Port -= &NAS-Port
-}
-
-if (!reply:Filter-Id) {
- update control {
- Cleartext-Password := 'hello'
- }
-
- update reply {
- Filter-Id := "filter"
- }
-}