diff options
author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2013-01-29 21:47:51 +0100 |
---|---|---|
committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2013-01-29 23:08:37 +0100 |
commit | 0dbcef539b19bd4d50d4bbc904b32f53ebdcf102 (patch) | |
tree | a3aafafcc282e4bab6377602f0379be719d89f25 /lib/Fripost/Schema/Auth.pm | |
parent | 465f8ed1b317afb1c7aefde04e53118a19be1a18 (diff) |
HTML tags are not longer allowed in descriptions.
Diffstat (limited to 'lib/Fripost/Schema/Auth.pm')
-rw-r--r-- | lib/Fripost/Schema/Auth.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Fripost/Schema/Auth.pm b/lib/Fripost/Schema/Auth.pm index f06ce4f..3bdda8f 100644 --- a/lib/Fripost/Schema/Auth.pm +++ b/lib/Fripost/Schema/Auth.pm @@ -23,7 +23,7 @@ use Net::LDAP; use Net::LDAP::Extension::SetPassword; use Authen::SASL; use Fripost::Schema::Util qw/canonical_dn ldap_explode_dn ldap_error - split_addr assert softdie/; + split_addr email_valid assert softdie/; =head1 METHODS @@ -163,7 +163,7 @@ sub auth { $self->whoami( join ',', @{$options{ldap_bind_dn}} ); } else { - return unless defined $user; + return unless email_valid($user, -nodie => 1, -exact => 1); $self->whoami( $self->mail2dn($user) ); } |