DB thingy

[blackboard-dns.git] / DDNS / DB.hs

diff --git a/DDNS/DB.hs b/DDNS/DB.hs
new file mode 100644 (file)
index 0000000..8f20df9
--- /dev/null
+++ b/DDNS/DB.hs
@@ -0,0 +1,39 @@
+---------------------------------------------------------------------------
+-- Generated by DB/Direct
+---------------------------------------------------------------------------
+module DDNS.DB where
+
+import Database.HaskellDB.DBLayout
+
+import qualified DDNS.DB.Zones
+import qualified DDNS.DB.Records
+
+blackboardDNS :: DBInfo
+blackboardDNS = DBInfo {dbname = "BlackboardDNS",
+                        opts = DBOptions {useBString = False},
+                        tbls = [TInfo {tname = "zones",
+                                       cols = [CInfo {cname = "zone",
+                                                      descr = (StringT, False)},
+                                               CInfo {cname = "ns",
+                                                      descr = (StringT, False)},
+                                               CInfo {cname = "owner",
+                                                      descr = (StringT, False)},
+                                               CInfo {cname = "serial",
+                                                      descr = (IntT, False)},
+                                               CInfo {cname = "refresh",
+                                                      descr = (IntT, False)},
+                                               CInfo {cname = "retry",
+                                                      descr = (IntT, False)},
+                                               CInfo {cname = "expire",
+                                                      descr = (IntT, False)},
+                                               CInfo {cname = "minTTL",
+                                                      descr = (IntT, False)}]},
+                                TInfo {tname = "records",
+                                       cols = [CInfo {cname = "name",
+                                                      descr = (StringT, False)},
+                                               CInfo {cname = "zone",
+                                                      descr = (StringT, False)},
+                                               CInfo {cname = "recType",
+                                                      descr = (StringT, False)},
+                                               CInfo {cname = "recData",
+                                                      descr = (StringT, False)}]}]}
\ No newline at end of file