aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--catdap.yml1
-rw-r--r--lib/CatDap/Controller/register.pm3
2 files changed, 3 insertions, 1 deletions
diff --git a/catdap.yml b/catdap.yml
index 253d655..62d0331 100644
--- a/catdap.yml
+++ b/catdap.yml
@@ -32,6 +32,7 @@ Model::User:
start_tls: 1
register:
+ login_regex: ^[a-z][a-z0-9_-]*$
login_blacklist:
- apache
diff --git a/lib/CatDap/Controller/register.pm b/lib/CatDap/Controller/register.pm
index 1aef176..2ef3fce 100644
--- a/lib/CatDap/Controller/register.pm
+++ b/lib/CatDap/Controller/register.pm
@@ -39,7 +39,8 @@ sub check : Local {
my @errors;
$c->stash(errors => []);
# Check username, start with letter, followed by letters or numbers
- if ($username !~ /^[a-z][a-z0-9_-]*$/) {
+ my $login_regex = ${$c->config}{'register'}{'login_regex'};
+ if ($username !~ /$login_regex/) {
push @errors, $c->loc('Invalid username');
}
my $email = $c->request->params->{mail1};