#:*default-mx-priority* #:*default-zone-admin*
#:zone-find #:zone-parse #:zone-write #:zone-create #:defzone
#:defrevzone #:zone-save
+ #:defzoneparse #:zone-parse-host
#:timespec-seconds #:make-zone-serial))
(in-package #:zone)
(rec :name (zone-parse-host a zname)
:type :cname
:data name)))
+(defzoneparse :net (name data rec)
+ ":net (NETWORK*)"
+ (dolist (net (listify data))
+ (let ((n (net-get-as-ipnet net)))
+ (rec :name (zone-parse-host "net" name)
+ :type :a
+ :data (ipnet-net n))
+ (rec :name (zone-parse-host "mask" name)
+ :type :a
+ :data (ipnet-mask n))
+ (rec :name (zone-parse-host "broadcast" name)
+ :type :a
+ :data (ipnet-broadcast n)))))
(defzoneparse (:rev :reverse) (name data rec)
":reverse ((NET :bytes BYTES) ZONE*)"