19 lines
884 B
Plaintext
19 lines
884 B
Plaintext
; 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"))) |