Commit | Line | Data |
---|---|---|
6bb366c5 AC |
1 | {{The most common kinds of domain configuration}} |
2 | ||
60695e99 | 3 | val web_node : (web_node) = "mire"; |
15e529d6 AC |
4 | |
5 | val webAt = | |
60695e99 | 6 | \ n : (web_node) -> |
15e529d6 AC |
7 | \ host : (host) -> |
8 | \\ config : Vhost -> | |
60695e99 | 9 | (dns (dnsA host (ip_of_node (web_node_to_node n))); |
15e529d6 AC |
10 | |
11 | vhost host where | |
12 | WebNodes = [n] | |
13 | with | |
14 | config | |
15 | end); | |
16 | ||
17 | val web = webAt web_node; | |
6bb366c5 AC |
18 | |
19 | val dom = | |
20 | \ d : (your_domain) -> | |
21 | \\ config : Domain -> | |
22 | domain d with | |
23 | dns (dnsNS "ns.hcoop.net"); | |
24 | dns (dnsNS "ns2.hcoop.net"); | |
25 | ||
6bb366c5 AC |
26 | handleMail; |
27 | mailbox <- Mailbox; | |
28 | catchAllAlias mailbox; | |
29 | ||
15e529d6 | 30 | web "www" with |
6bb366c5 AC |
31 | end; |
32 | ||
33 | config | |
34 | end; | |
8c142ff5 AC |
35 | |
36 | val nameserver = \host -> dns (dnsNS host); | |
37 | val dnsIP = \from -> \to -> dns (dnsA from to); | |
38 | val dnsMail = \num -> \host -> dns (dnsMX num host); | |
39 | val dnsAlias = \from -> \to -> dns (dnsCNAME from to); |