HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lib: add AAAA record for mailman hosts
[hcoop/domtool2.git]
/
lib
/
domain.dtl
diff --git
a/lib/domain.dtl
b/lib/domain.dtl
index
08606a6
..
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}}