- (let ((a (case cmd ("open" "del") ("close" "add") (true "XXX"))))
- (when (!= cmd (if (exec (format "%s list %s | grep %s" IPSET TABLE NET))
- "close" "open"))
- (! (println (date-value) (format " ipset-control (%s): " reason)
- (format "%s %s %s %s" IPSET a TABLE NET)))))
- (exit 0))
+ (when (!= cmd (current-status))
+ (let ((todo (case cmd ("open" "del") ("close" "add") (true "XXX"))))
+ (! (println (date-value)
+ (format " ipset-control (%s): " reason)
+ (format "%s %s %s %s" IPSET todo TABLE NET)))))
+ )