2 # Should load from "ipset.cfg"
3 (constant 'TABLE "TIMO" 'NET "192.168.104.0/24"
6 # Apply "add" or "del" on the controllable as needed, and exit
7 (define (control cmd reason)
8 (let ((a (case cmd ("open" "del") ("close" "add") (true "XXX"))))
9 (when (!= cmd (if (exec (format "%s list %s | grep %s" IPSET TABLE NET))
11 (! (println (date-value) (format " ipset-control (%s): " reason)
12 (format "%s %s %s %s" IPSET a TABLE NET)))))