coder
diff --git a/‎coderd/apidoc/docs.go
+4 b/‎coderd/apidoc/docs.go
+4
diff --git a/‎coderd/apidoc/swagger.json
+4 b/‎coderd/apidoc/swagger.json
+4
diff --git a/‎coderd/apikey.go
+1-1 b/‎coderd/apikey.go
+1-1
diff --git a/‎coderd/database/errors.go
+22 b/‎coderd/database/errors.go
+22
diff --git a/‎coderd/database/foreign_key_constraint.go
+49 b/‎coderd/database/foreign_key_constraint.go
+49
diff --git a/‎coderd/database/unique_constraint.go
+2-2 b/‎coderd/database/unique_constraint.go
+2-2
diff --git a/‎coderd/httpapi/url.go
+9-1 b/‎coderd/httpapi/url.go
+9-1
diff --git a/‎coderd/httpapi/url_test.go
+10 b/‎coderd/httpapi/url_test.go
+10
@@ -91,7 +91,7 @@ func (api *API) postToken(rw http.ResponseWriter, r *http.Request) {
 		TokenName:        tokenName,
 	})
 	if err != nil {
-		if database.IsUniqueViolation(err, database.UniqueIndexApiKeyName) {
+		if database.IsUniqueViolation(err, database.UniqueIndexAPIKeyName) {
 			httpapi.Write(ctx, rw, http.StatusConflict, codersdk.Response{
 				Message: fmt.Sprintf("A token with name %q already exists.", tokenName),
 				Validations: []codersdk.ValidationError{{
 
@@ -37,6 +37,28 @@ func IsUniqueViolation(err error, uniqueConstraints ...UniqueConstraint) bool {
 	return false
 }
 
+// IsForeignKeyViolation checks if the error is due to a foreign key violation.
+// If one or more specific foreign key constraints are given as arguments,
+// the error must be caused by one of them. If no constraints are given,
+// this function returns true for any foreign key violation.
+func IsForeignKeyViolation(err error, foreignKeyConstraints ...ForeignKeyConstraint) bool {
+	var pqErr *pq.Error
+	if errors.As(err, &pqErr) {
+		if pqErr.Code.Name() == "foreign_key_violation" {
+			if len(foreignKeyConstraints) == 0 {
+				return true
+			}
+			for _, fc := range foreignKeyConstraints {
+				if pqErr.Constraint == string(fc) {
+					return true
+				}
+			}
+		}
+	}
+
+	return false
+}
+
 // IsQueryCanceledError checks if the error is due to a query being canceled.
 func IsQueryCanceledError(err error) bool {
 	var pqErr *pq.Error
 
@@ -2,6 +2,7 @@ package httpapi
 
 import (
 	"fmt"
+	"hash/crc32"
 	"net"
 	"regexp"
 	"strings"
@@ -18,6 +19,8 @@ var (
 		nameRegex))
 
 	validHostnameLabelRegex = regexp.MustCompile(`^[a-z0-9]([-a-z0-9]*[a-z0-9])?$`)
+
+	crcTable = crc32.MakeTable(crc32.IEEE)
 )
 
 // ApplicationURL is a parsed application URL hostname.
@@ -39,7 +42,12 @@ func (a ApplicationURL) String() string {
 	_, _ = appURL.WriteString(a.WorkspaceName)
 	_, _ = appURL.WriteString("--")
 	_, _ = appURL.WriteString(a.Username)
-	return appURL.String()
+	hostname := appURL.String()
+
+	if len(hostname) < 64 { // max length for the subdomain level
+		return hostname
+	}
+	return fmt.Sprintf("app-%08x", crc32.Checksum([]byte(hostname), crcTable))
 }
 
 // ParseSubdomainAppURL parses an ApplicationURL from the given subdomain. If
 
@@ -42,6 +42,16 @@ func TestApplicationURLString(t *testing.T) {
 			},
 			Expected: "8080--agent--workspace--user",
 		},
+		{
+			Name: "LongAppName",
+			URL: httpapi.ApplicationURL{
+				AppSlugOrPort: "0123456789012345678901234567890123456789",
+				AgentName:     "agent",
+				WorkspaceName: "workspace",
+				Username:      "user",
+			},
+			Expected: "app-90667f72",
+		},
 	}
 
 	for _, c := range testCases {