X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=DDNS%2FDB.hs;fp=DDNS%2FDB.hs;h=8f20df9743183ef726394eff6968386a47f929d6;hp=0000000000000000000000000000000000000000;hb=f46e263327d20c700179b2d3a5896be82d3b4aca;hpb=23aa8a3221ebacf5891def22006b9850497437de

diff --git a/DDNS/DB.hs b/DDNS/DB.hs
new file mode 100644
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