Re: Validating The Form of an Email Address

And yet another version...

P IsValidEmailFmt...
P                 B                   export
D IsValidEMailFmt...
D                 PI             1N
D   address                   1024A   const varying

D RegPattern      S                   like( StdStr )
D RegString       S                   like( StdStr )
D reg             ds                  likeds(regex_t)
D match           ds                  likeds(regmatch_t)
D buf             s             80A
D rc              s             10I 0

 /free
  // Regex stolen from: http://www.regular-expressions.info/email.html
  // Note this is "extended syntax". Basic syntax doesn't handle the + sign.
  // Ignoring case, it checks for:
  // 1) starting at the beginning of the string
  // 2) "one or more" from the list of [A-Z0-9._%-]
  // 3) an '@' sign
  // 4) "one or more" from the list of [A-Z0-9._%-]
  // 5) a "." (the . must be escaped with the \ symbol)
  // 6) between 2-4 characters from the list of [A-Z]
  // 7) at the end of the string
  RegPattern = '^[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$';
  rc = regcomp(reg: %trimr(RegPattern): REG_EXTENDED+REG_ICASE+REG_NOSUB);
  RegString = address;
  rc = regexec(reg: %trim(RegString): 0: match: 0);
  if rc = 0;
    return *on;
  else;
    return *off;
  EndIf;
 /end-free

P IsValidEmailFmt...
P                 E

On 2/27/07, Brian Lewis <brian@xxxxxxxxx> wrote:

On Tue, 27 Feb 2007 15:35:01 -0600
"Bruce Collins" <bruce.collins@xxxxxxxxxxxxx> wrote:

Has any of youz guyz written some code I can use in an RPGLE program
to validate the construct of an email address?

Due to the very permissive description of email addresses, it is
extremely difficult to *strictly* validate the form of one.

That said, here is a plausible regular expression we use to validate
email addresses in one of our Java programs:

"^([^@\\s]+)@((?:[-a-z0-9]+\\.)+[a-z]{2,})$"

--
Brian Lewis
http://www.i5sec.com/

Just for the archives, if it helps anyone, here is the Regex pattern we
use:

"^((?>[a-zA-Z\d!#$%&'*+\-/=?^_`{|}~]+\x20*|""((?=[\x01-\x7f])[^""\\]|\\[\x01-\x7f])*""\x20*)*(?<angle><))?((?!\.)(?>\.?[a-zA-Z\d!#$%&'*+\-/=?^_`{|}~]+)+|""((?=[\x01-\x7f])[^""\\]|\\[\x01-\x7f])*"")@(((?!-)[a-zA-Z\d\-]+(?<!-)\.)+[a-zA-Z]{2,}|\[(((?(?<!\[)\.)(25[0-5]|2[0-4]\d|[01]?\d?\d)){4}|[a-zA-Z\d\-]*[a-zA-Z\d]:((?=[\x01-\x7f])[^\\\[\]]|\\[\x01-\x7f])+)\])(?(angle)>)$"

It wouldn't be pretty to implement in an RPG program...

--
Joel Cochran