diff options
author | lpsolit%gmail.com <> | 2005-07-21 04:24:19 +0000 |
---|---|---|
committer | lpsolit%gmail.com <> | 2005-07-21 04:24:19 +0000 |
commit | b8a33eb39a2fb1e994f84dc013440375b9f45dcc (patch) | |
tree | d7d11e164b306f3724a762a99a9d09c98eb7afb5 /Bugzilla/Util.pm | |
parent | deaa3dcc512cc90d608c9242e754ad7de034e7ec (diff) | |
download | bugs-b8a33eb39a2fb1e994f84dc013440375b9f45dcc.tar bugs-b8a33eb39a2fb1e994f84dc013440375b9f45dcc.tar.gz bugs-b8a33eb39a2fb1e994f84dc013440375b9f45dcc.tar.bz2 bugs-b8a33eb39a2fb1e994f84dc013440375b9f45dcc.tar.xz bugs-b8a33eb39a2fb1e994f84dc013440375b9f45dcc.zip |
Bug 301453: Move CheckEmailSyntax out of CGI.pl - Patch by Frédéric Buclin <LpSolit@gmail.com> r=mkanat a=myk
Diffstat (limited to 'Bugzilla/Util.pm')
-rw-r--r-- | Bugzilla/Util.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index 1ac25d1aa..256be5c31 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -39,7 +39,7 @@ use base qw(Exporter); trim wrap_comment find_wrap_point format_time format_time_decimal file_mod_time - bz_crypt); + bz_crypt check_email_syntax); use Bugzilla::Config; use Bugzilla::Error; @@ -342,6 +342,14 @@ sub bz_crypt ($) { return $cryptedpassword; } +sub check_email_syntax { + my ($addr) = (@_); + my $match = Param('emailregexp'); + if ($addr !~ /$match/ || $addr =~ /[\\\(\)<>&,;:"\[\] \t\r\n]/) { + ThrowUserError("illegal_email_address", { addr => $addr }); + } +} + sub ValidateDate { my ($date, $format) = @_; my $date2; |