acs_mail_lite::parse_email_address (private)

 acs_mail_lite::parse_email_address -email email

Defined in packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl

Extracts the email address out of a mail address (like Joe User <joe@user.com>)

Switches:

-email (required)

Options:

-email

mail address to be parsed

Returns:

only the email address part of the mail address

Testcases:

No testcase defined.

Source code:

        if {![regexp {<([^>]*)>} $email all clean_email]} {
            return $email
        } else {
            return $clean_email
        }

Generic XQL file:

packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql

PostgreSQL XQL file:

packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql

Oracle XQL file:

packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql