switch to crunch versions and update

avsm · Apr 18, 2012 · 9bd4ede · 9bd4ede
1 parent f7a7e35
commit 9bd4ede
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 5 deletions.
diff --git a/.gitignore b/.gitignore
@@ -12,8 +12,7 @@ dns/minios-*
 dns/data/output-*
 dns/data/result-*
 dns/data/input
-dns/app/server*.ml
-dns/app/deens*.mir
+dns/app/_build
 dns/dns-perf.pdf
 _build/
 .fuse_hidden*

diff --git a/dns/app/crunchDNS.mir b/dns/app/crunchDNS.mir
@@ -0,0 +1,2 @@
+ServerDNS.main
+Datax
diff --git a/dns/app/deensOpenmirage.mir b/dns/app/deensOpenmirage.mir
diff --git a/dns/app/serverOpenmirage.ml → dns/app/serverDNS.ml b/dns/app/serverOpenmirage.ml → dns/app/serverDNS.ml
@@ -42,10 +42,17 @@ let main () =
 
 let main () =
   Net.Manager.create (fun mgr interface id ->
+     let ip = Net.Nettypes.(
+      (ipv4_addr_of_tuple (10l,0l,0l,2l),
+       ipv4_addr_of_tuple (255l,255l,255l,0l),
+       [ipv4_addr_of_tuple (10l,0l,0l,1l)]
+      )) in
+    lwt () = Net.Manager.configure interface (`IPv4 ip) in
+
     let src = None, port in
     let zonefile = "zones.db" in
     lwt zb = get_file zonefile in
     match zb with
     |None -> fail (Failure "no zone")
-    |Some zb ->  Dns.Server.listen zb mgr src
+    |Some zonebuf ->  Dns.Server.listen ~mode:`none ~zonebuf mgr src
   )