1 import Network.DNS.DomainMap (DomainMap)
2 import Network.DNS.Message
3 import Network.DNS.Named
4 import Network.DNS.Named.Config
5 import Network.DNS.Named.Zone
6 import Network.Socket.IsString ()
9 main = runNamed cnf zones
13 cnfServerPort = "9090"
14 , cnfAllowTransfer = True
17 zones :: DomainMap SomeZone
19 [ wrapZone StaticZone {
20 szName = "cielonegro.org."
21 , szRecords = fromRecords
22 [ wrapRecord ResourceRecord {
23 rrName = "cielonegro.org."
27 , rrData = SOAFields {
28 soaMasterNameServer = "ns.cielonegro.org."
29 , soaResponsibleMailbox = "root.ns.cielonegro.org."
30 , soaSerialNumber = 2008022148
31 , soaRefreshInterval = 3600
32 , soaRetryInterval = 900
33 , soaExpirationLimit = 3600000
34 , soaMinimumTTL = 3600
37 , wrapRecord ResourceRecord {
38 rrName = "cielonegro.org."
42 , rrData = "ns.cielonegro.org."
44 , wrapRecord ResourceRecord {
45 rrName = "ns.cielonegro.org."
49 , rrData = "127.0.0.1"
51 , wrapRecord ResourceRecord {
52 rrName = "ns.cielonegro.org."
58 , wrapRecord ResourceRecord {
59 rrName = "www.cielonegro.org."
63 , rrData = "127.0.0.2"
65 , wrapRecord ResourceRecord {
66 rrName = "www.cielonegro.org."
70 , rrData = "fe80::216:cbff:fe39:56a4"
72 , wrapRecord ResourceRecord {
73 rrName = "git.cielonegro.org."
77 , rrData = "www.cielonegro.org."