Update of /cvsroot/hcoop/domtool2/src/plugins
In directory sc8-pr-cvs17:/tmp/cvs-serv8998/src/plugins
Modified Files:
bind.sml
Log Message:
Add default DNS mappings
Index: bind.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/plugins/bind.sml,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** bind.sml 29 Apr 2007 20:45:28 -0000 1.9
--- bind.sml 17 May 2007 20:23:52 -0000 1.10
***************
*** 50,53 ****
--- 50,54 ----
| MX of int * string
| NS of string
+ | DefaultA of string
val record = fn (EApp ((EApp ((EVar "dnsA", _), e1), _), e2), _) =>
***************
*** 65,68 ****
--- 66,71 ----
| (EApp ((EVar "dnsNS", _), e), _) =>
Option.map NS (Env.string e)
+ | (EApp ((EVar "dnsDefaultA", _), e), _) =>
+ Option.map DefaultA (Env.string e)
| _ => NONE
***************
*** 85,88 ****
--- 88,97 ----
write to;
write "\n")
+ | DefaultA to => (writeDom ();
+ write ".\t";
+ write (Int.toString ttl);
+ write "\tIN\tA\t";
+ write to;
+ write "\n")
| CNAME (from, to) => (write from;
write ".";
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
