mia
/
cyberman
forked from .cyb/cyberman
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Limit domain name length

This commit is contained in:
Al Beano 2017-08-20 20:41:00 +01:00
parent 3f87e18a6e
commit f0a6048185
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/cyberman/Helper.pm
View File

@ -65,7 +65,7 @@ sub hash_password {
sub check_name { sub check_name {
my $name = shift; 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; return 1;
} else { } else {
return 0; return 0;