HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
domain: ipv6 support for nodes, new your_ipv6 type
[hcoop/domtool2.git]
/
lib
/
domain.dtl
diff --git
a/lib/domain.dtl
b/lib/domain.dtl
index
c3e16b5
..
664066c
100644
(file)
--- a/
lib/domain.dtl
+++ b/
lib/domain.dtl
@@
-15,6
+15,10
@@
extern type your_ip;
extern val your_ip_to_ip : your_ip -> ip;
{{An IP address that you're authorized to use; e.g., for an SSL web host}}
extern val your_ip_to_ip : your_ip -> ip;
{{An IP address that you're authorized to use; e.g., for an SSL web host}}
+extern type your_ipv6;
+extern val your_ipv6_to_ipv6 : your_ipv6 -> ipv6;
+{{An IPv6 address that you're authorized to use; e.g., for an SSL web host}}
+
extern type host;
{{A hostname; that is, (more or less) an alphanumeric string}}
extern type host;
{{A hostname; that is, (more or less) an alphanumeric string}}
@@
-33,6
+37,9
@@
extern type node;
extern val ip_of_node : node -> ip;
{{Look up the IP address of a node.}}
extern val ip_of_node : node -> ip;
{{Look up the IP address of a node.}}
+extern val ipv6_of_node : node -> ipv6;
+{{Look up the IPv6 address of a node.}}
+
extern type user;
extern type group;
{{UNIX users and groups}}
extern type user;
extern type group;
{{UNIX users and groups}}
@@
-66,7
+73,7
@@
extern type soa;
{{DNS start-of-authority record}}
extern val soa : domain -> serial -> int -> int -> int -> int -> soa;
{{DNS start-of-authority record}}
extern val soa : domain -> serial -> int -> int -> int -> int -> soa;
-val defaultSoa = soa "
deleuze
.hcoop.net" serialAuto 86400 1800 1209600 3600;
+val defaultSoa = soa "
gibran
.hcoop.net" serialAuto 86400 1800 1209600 3600;
extern type dns_node;
{{A node offering DNS services}}
extern type dns_node;
{{A node offering DNS services}}
@@
-78,10
+85,6
@@
extern val externalMaster : ip -> master;
{{A server not controlled by domtool will serve as master.}}
extern val internalMaster : dns_node -> master;
{{A server controlled by domtool will serve as master.}}
{{A server not controlled by domtool will serve as master.}}
extern val internalMaster : dns_node -> master;
{{A server controlled by domtool will serve as master.}}
-extern val dns_master_node : dns_node;
-{{Internal master DNS node}}
-extern val dns_slave_nodes : [dns_node];
-{{Internal slave DNS nodes}}
extern type dnsKind;
{{How should DNS for this domain be handled?}}
extern type dnsKind;
{{How should DNS for this domain be handled?}}