diff options
| author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-29 02:03:21 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-09-29 02:03:21 +0200 |
| commit | 2bece6abde54881bb074dd44e7f87885eab4a777 (patch) | |
| tree | bde87a2c98476847ab5082facade40062cb52e70 /lib/Fripost/Schema/Mailbox.pm | |
| parent | aa3340e58fc5b993bfc88070edf543a2ed82ef94 (diff) | |
Proper escaping of URIs.
Diffstat (limited to 'lib/Fripost/Schema/Mailbox.pm')
| -rw-r--r-- | lib/Fripost/Schema/Mailbox.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Fripost/Schema/Mailbox.pm b/lib/Fripost/Schema/Mailbox.pm index 95e2d10..ce23d98 100644 --- a/lib/Fripost/Schema/Mailbox.pm +++ b/lib/Fripost/Schema/Mailbox.pm @@ -134,8 +134,8 @@ sub add { } eval { + die "Missing user name\n" unless $m->{user} =~ /^.+\@.+$/; my ($l,$d) = split /\@/, email_to_ascii($m->{user}), 2; - die "Missing user name\n" if $l eq ''; &_is_valid($m); die "‘".$m->{user}."’ already exists\n" if $self->local->exists($m->{user},%options); |