-- do a : # createlang plperlu UDD;

-- 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;