From ac112f8b9454b5e4ec4bac614358318ef7c3b664 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Fri, 6 Jul 2012 16:42:13 +0000
Subject: add option to change the regex used to validate username

---
 catdap.yml                        | 1 +
 lib/CatDap/Controller/register.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

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};
-- 
cgit v1.2.1