aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost/Schema/Auth.pm
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@fripost.org>2013-01-29 21:47:51 +0100
committerGuilhem Moulin <guilhem.moulin@fripost.org>2013-01-29 23:08:37 +0100
commit0dbcef539b19bd4d50d4bbc904b32f53ebdcf102 (patch)
treea3aafafcc282e4bab6377602f0379be719d89f25 /lib/Fripost/Schema/Auth.pm
parent465f8ed1b317afb1c7aefde04e53118a19be1a18 (diff)
HTML tags are not longer allowed in descriptions.
Diffstat (limited to 'lib/Fripost/Schema/Auth.pm')
-rw-r--r--lib/Fripost/Schema/Auth.pm4
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) );
}