From f0a6048185c35873356c7d27539d99fe9ffe9c31 Mon Sep 17 00:00:00 2001
From: Al Beano <albino@autistici.org>
Date: Sun, 20 Aug 2017 20:41:00 +0100
Subject: [PATCH] Limit domain name length

---
 lib/cyberman/Helper.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/cyberman/Helper.pm b/lib/cyberman/Helper.pm
index c4f1e23..17e9f51 100644
--- a/lib/cyberman/Helper.pm
+++ b/lib/cyberman/Helper.pm
@@ -65,7 +65,7 @@ sub hash_password {
 
 sub check_name {
 	my $name = shift;
-	if ($name =~ m/^[a-z0-9]([a-z0-9\-_]*[a-z0-9])?$/) {
+	if ($name =~ m/^[a-z0-9]([a-z0-9\-_]*[a-z0-9])?$/ && length($name) <= 63) {
 		return 1;
 	} else {
 		return 0;