lib/domain.dtl

   1 {{Configuring shared daemons with respect to a particular Internet domain name}}
   2
   3 extern type no_spaces;
   4 {{Any string with no space characters}}
   5
   6 extern type no_newlines;
   7 {{Any string with no newline characters}}
   8
   9 extern type ip;
  10 {{An IP address}}
  11
  12 extern type host;
  13 {{A hostname; that is, (more or less) an alphanumeric string}}
  14
  15 extern type domain;
  16 {{An Internet domain name}}
  17
  18 extern type your_domain;
  19 {{A domain that you're allowed to configure}}
  20
  21 extern type node;
  22 {{The name of a server controlled by domtool}}
  23
  24 extern type your_user;
  25 extern type your_group;
  26 {{UNIX users and groups that you're allowed to run as}}
  27
  28 extern type your_path;
  29 {{A filesystem path that you're allowed to use.
  30   The set of permitted values is generated from a set of roots by closing it
  31   under the subdirectory relation.}}
  32
  33 context Domain;
  34 {{Configuration directives specific to an Internet domain}}
  35
  36 extern type serial;
  37 {{Domain zone serial numbers}}
  38 extern val serialAuto : serial;
  39 {{Whenever DNS data changes, choose a sensible serial number automatically.}
  40 extern val serialConst : int -> serial;
  41 {{Use this particular serial number.}}
  42
  43 extern type soa;
  44 {{DNS start-of-authority record}}
  45 extern val soa : domain -> serial -> int -> int -> int -> int -> soa;
  46
  47 extern type master;
  48 {{Information on the master DNS server for a domain}}
  49 extern val externalMaster : ip -> master;
  50 {{A server not controlled by domtool will serve as master.}}
  51 extern val internalMaster : node -> master;
  52 {{A server controlled by domtool will serve as master.}}
  53
  54 extern type dnsKind;
  55 {{How should DNS for this domain be handled?}}
  56 extern val useDns : soa -> master -> [node] -> dnsKind;
  57 {{We do want DNS services for this domain. Specify the SOA record, information
  58   on the server in charge of zone data, and a list of slave servers.}}
  59 extern val noDns : dnsKind;
  60 {{No DNS services for this domain.}}
  61
  62 extern val domain : your_domain -> Domain => [Root] {DNS : dnsKind, TTL : int};
  63 {{Configure a domain to which you have access rights.}}