; Zone-example using the functions from dnsd/rr-def.scm and lib/dns.scm
; ---------------------------------------------------------------------

(let ((mc (message-class in))
      (ttl (* 60 60 24)))
  (list
   (dns-rr-soa  "my.example." mc ttl
		(list "nameserver.my.example." "webmaster.my.example"
		      20051203 7200 600 300000 1111))
   (dns-rr-a "my.example." mc ttl "192.168.2.1")
   (dns-rr-ns "my.example." mc ttl "nameserver.my.example.")
   (dns-rr-a "on.my.example." mc ttl "192.168.2.2")
   (dns-rr-a "*.my.example." mc ttl "192.168.2.3")
   (dns-rr-mx "my.example" mc ttl (list 11 "mx.my.example"))
   (dns-rr-cname "cname.my.example" mc ttl "my.example")
   (dns-rr-a "mx.my.example" mc ttl "192.168.2.4")
   (dns-rr-ns "ns.my.example" mc ttl "ns.test.")
   (dns-rr-ns "more.my.example" mc ttl "ns2.my.example")
   (dns-rr-a "ns2.my.example" mc ttl "192.168.2.11")))