diff options
Diffstat (limited to 'lib/Fripost/Schema/List.pm')
| -rw-r--r-- | lib/Fripost/Schema/List.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Fripost/Schema/List.pm b/lib/Fripost/Schema/List.pm index 7753bd1..18eeb29 100644 --- a/lib/Fripost/Schema/List.pm +++ b/lib/Fripost/Schema/List.pm @@ -18,7 +18,7 @@ use utf8; use parent 'Fripost::Schema'; use Fripost::Schema::Util qw/concat explode must_attrs email_valid - split_addr canonical_dn ldap_explode_dn/; + split_addr canonical_dn/; use Net::IDN::Encode qw/domain_to_ascii email_to_ascii email_to_unicode/; use Mail::GnuPG; use MIME::Entity; @@ -143,9 +143,7 @@ sub add { # Ask the list manager to create the list now. - my $whoami = ldap_explode_dn( $self->whoami ); - my $member = email_valid( $whoami->[0]->{fvu} .'@'. $whoami->[1]->{fvd} - , -exact => 1 ); + my $member = email_valid( $self->_dn2fvu($self->whoami), -exact => 1); my $to = email_valid( 'mklist+'.$l->{transport}.'@fripost.org' , -exact => 1 ); |