Limit domain name length

2017-08-20 20:41:00 +01:00 · 2017-08-20 20:41:00 +01:00 · f0a6048185
parent 3f87e18a6e
commit f0a6048185
1 changed files with 1 additions and 1 deletions
--- 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;