CREATE FUNCTION email_phrase (text) RETURNS text AS $$
use  Email::Address;
my $value = $_[0];
my $address = ( Email::Address->parse($value) )[0];
if ($address) {
return $address->phrase;
} else {return '';};
$$ LANGUAGE plperlu;

CREATE FUNCTION email_address (text) RETURNS text AS $$
use  Email::Address;
my $value = $_[0];
my $address = ( Email::Address->parse($value) )[0];
if ($address) {
return $address->address;
} else {return '';};
$$ LANGUAGE plperlu;

CREATE FUNCTION sha1mailto (text) RETURNS text AS $$
use Digest::SHA1;
return Digest::SHA1::sha1_hex('mailto:'.$_[0]);
$$ LANGUAGE plperlu;


CREATE FUNCTION sha1mail (text) RETURNS text AS $$
use Digest::SHA1;
return Digest::SHA1::sha1_hex($_[0]);
$$ LANGUAGE plperlu;