Clarify record naming with their conventional abbreviations

services/abstract/delegation.go

@@ -137,6 +137,10 @@ func init() {
 			Categories: []string{
 				"internal",
 			},
+			RecordTypes: []uint16{
+				dns.TypeNS,
+				dns.TypeDS,
+			},
 			Restrictions: svcs.ServiceRestrictions{
 				Alone:       true,
 				Leaf:        true,

services/abstract/email.go

@@ -306,11 +306,15 @@ func init() {
 		email_analyze,
 		svcs.ServiceInfos{
 			Name:        "E-Mail",
-			Description: "Send and receive e-mail with this domain.",
+			Description: "Sends and receives e-mail with this domain.",
 			Family:      svcs.Abstract,
 			Categories: []string{
 				"email",
 			},
+			RecordTypes: []uint16{
+				dns.TypeMX,
+				dns.TypeSPF,
+			},
 			Tabs: true,
 			Restrictions: svcs.ServiceRestrictions{
 				Single: true,

services/abstract/openpgp.go

@@ -184,6 +184,9 @@ func init() {
 			Categories: []string{
 				"email",
 			},
+			RecordTypes: []uint16{
+				dns.TypeOPENPGPKEY,
+			},
 			Restrictions: svcs.ServiceRestrictions{
 				NearAlone: true,
 				NeedTypes: []uint16{
@@ -205,6 +208,9 @@ func init() {
 			Categories: []string{
 				"email",
 			},
+			RecordTypes: []uint16{
+				dns.TypeSMIMEA,
+			},
 			Restrictions: svcs.ServiceRestrictions{
 				NearAlone: true,
 				NeedTypes: []uint16{

services/abstract/origin.go

@@ -49,8 +49,8 @@ type Origin struct {
 	Ns          string          `json:"mname" happydomain:"label=Name Server,placeholder=ns0,required,description=The domain name of the name server that was the original or primary source of data for this zone."`
 	Mbox        string          `json:"rname" happydomain:"label=Contact Email,required,description=A <domain-name> which specifies the mailbox of the person responsible for this zone."`
 	Serial      uint32          `json:"serial" happydomain:"label=Zone Serial,required,description=The unsigned 32 bit version number of the original copy of the zone.  Zone transfers preserve this value.  This value wraps and should be compared using sequence space arithmetic."`
-	Refresh     common.Duration `json:"refresh" happydomain:"label=Slave Refresh Time,required,description=The time interval before the zone should be refreshed by others name servers than the primary."`
-	Retry       common.Duration `json:"retry" happydomain:"label=Retry Interval on failed refresh,required,description=The time interval a slave name server should elapse before a failed refresh should be retried."`
+	Refresh     common.Duration `json:"refresh" happydomain:"label=Slave Refresh Time,required,description=The time interval before the zone should be refreshed by name servers other than the primary."`
+	Retry       common.Duration `json:"retry" happydomain:"label=Retry Interval on failed refresh,required,description=The time interval that should elapse before a failed refresh should be retried by a slave name server."`
 	Expire      common.Duration `json:"expire" happydomain:"label=Authoritative Expiry,required,description=Time value that specifies the upper limit on the time interval that can elapse before the zone is no longer authoritative."`
 	Negttl      common.Duration `json:"nxttl" happydomain:"label=Negative Caching Time,required,description=Maximal time a resolver should cache a negative authoritative answer (such as NXDOMAIN ...)."`
 	NameServers []string        `json:"ns" happydomain:"label=Zone's Name Servers"`
@@ -136,6 +136,10 @@ func init() {
 			Categories: []string{
 				"internal",
 			},
+			RecordTypes: []uint16{
+				dns.TypeSOA,
+				dns.TypeNS,
+			},
 			Restrictions: svcs.ServiceRestrictions{
 				RootOnly: true,
 				Single:   true,

services/abstract/server.go

@@ -153,11 +153,16 @@ func init() {
 		server_analyze,
 		svcs.ServiceInfos{
 			Name:        "Server",
-			Description: "A computer will respond to some requests.",
+			Description: "A system to respond to specific requests.",
 			Family:      svcs.Abstract,
 			Categories: []string{
 				"server",
 			},
+			RecordTypes: []uint16{
+				dns.TypeA,
+				dns.TypeAAAA,
+				dns.TypeSSHFP,
+			},
 			Restrictions: svcs.ServiceRestrictions{
 				GLUE: true,
 			},

services/caa.go

@@ -257,6 +257,9 @@ func init() {
 			Categories: []string{
 				"tls",
 			},
+			RecordTypes: []uint16{
+				dns.TypeCAA,
+			},
 			Restrictions: ServiceRestrictions{
 				Single: true,
 				NeedTypes: []uint16{

services/cname.go

@@ -136,10 +136,13 @@ func init() {
 		alias_analyze,
 		ServiceInfos{
 			Name:        "Alias",
-			Description: "An alias to another domain.",
+			Description: "Maps an alias to another (canonical) domain.",
 			Categories: []string{
 				"internal",
 			},
+			RecordTypes: []uint16{
+				dns.TypeCNAME,
+			},
 			Restrictions: ServiceRestrictions{
 				Alone:  true,
 				Single: true,

services/interfaces.go

@@ -71,6 +71,7 @@ type ServiceInfos struct {
 	Description  string              `json:"description"`
 	Family       string              `json:"family"`
 	Categories   []string            `json:"categories"`
+	RecordTypes  []uint16            `json:"record_types"`
 	Tabs         bool                `json:"tabs,omitempty"`
 	Restrictions ServiceRestrictions `json:"restrictions,omitempty"`
 }

services/srv.go

@@ -147,10 +147,13 @@ func init() {
 		srv_analyze,
 		ServiceInfos{
 			Name:        "Service Record",
-			Description: "Indicate to dedicated software existance of the given service in the domain.",
+			Description: "Indicates to dedicated software the existance of the given service in the domain.",
 			Categories: []string{
 				"service",
 			},
+			RecordTypes: []uint16{
+				dns.TypeSRV,
+			},
 			Restrictions: ServiceRestrictions{
 				NearAlone: true,
 				NeedTypes: []uint16{

services/tlsa.go

@@ -173,6 +173,9 @@ func init() {
 			Categories: []string{
 				"tls",
 			},
+			RecordTypes: []uint16{
+				dns.TypeTLSA,
+			},
 			Restrictions: ServiceRestrictions{
 				NearAlone: true,
 				Single:    true,

services/txt.go

@@ -89,8 +89,11 @@ func init() {
 		},
 		txt_analyze,
 		ServiceInfos{
-			Name:        "Text record",
-			Description: "Publish some text in your zone.",
+			Name:        "Text Record",
+			Description: "Publishes a text string in your zone.",
+			RecordTypes: []uint16{
+				dns.TypeTXT,
+			},
 			Restrictions: ServiceRestrictions{
 				NeedTypes: []uint16{
 					dns.TypeTXT,