On Mon, Aug 17, 2009 at 06:43:54AM +0200, Pavel Stehule wrote:
> Hello
>
> 2009/8/16 Andre Lopes <lopes80andre@gmail.com>:
> > Hi,
> >
> > I need a plpgsql function to validade e-mail addresses. I have google but I
> > can't find any.
> >
> > My question: Anyone have a function to validate e-mails?
> >
> > Best Regards,
> > André.
> >
>
> You don't need plpgsql. Important is only an using of regular expression.
>
> very strong validation should be done via plperlu
>
> CREATE OR REPLACE FUNCTION check_email(varchar)
> RETURNS boolean AS $$
> use strict;
> use Email::Valid;
> my $address = $_[0];
> my $checks = {
> -address => $address,
> -mxcheck => 1,
> -tldcheck => 1,
> -rfc822 => 1,
> };
> if (defined Email::Valid->address( %$checks )) {
> return 'true'
> }
> elog(WARNING, "address failed $Email::Valid::Details check.");
> return 'false';
> $$ LANGUAGE plperlu IMMUTABLE STRICT;
If the network interface can ever be down, this function is not in
fact immutable, as it will fail on data that it passed before.
Cheers,
David.
--
David Fetter <david@fetter.org> http://fetter.org/
Phone: +1 415 235 3778 AIM: dfetter666 Yahoo!: dfetter
Skype: davidfetter XMPP: david.fetter@gmail.com
Remember to vote!
Consider donating to Postgres: http://www.postgresql.org/about/donate