 
 (allow-subscribe local-client?)   ; Allow local access by default
 (allow-publish local-client?)
+(allow-publish "/meta/*")         ; Allow client to report meta events
 
 ;;;; Sending and receiving ;;;;
 

;;;; Default servlet and rule chains ;;;;

(defvar *subscribe-rules*
  (ref [])
  "Default rule chain for subscriptions.")

(defvar *publish-rules*
  (ref [])
  "Default rule chain for publishing.")

(defvar *cometd*

          type
          (recur (rest rules))))
      false)))

(defn create-security-policy
  "Create a extensible security policy for a cometd implementation."
  [subscribe-rules publish-rules]
