iRule regex to normalize phone numbers?

Hey Mike, you might be able to cobble together what you're looking for from this Stack thread.

Hi Jason,

Thanks for linking that, it looks potentially helpful but also dangerously complicated. :) There is one suggestion in there which appears to me to be more helpful to our situation, which is to strip all non-numeric characters from the attribute and then use it as a variable, so I will talk to my colleague about it and see if we can figure out how to do that as that suggestion didn't get posted with a regex to do it, but just as a suggestion.

Do you need regex for this?

set num1 "123.456.7890"
set num2 "123-456-7890"
set num3 "123 456 7890"
set num4 "(123) 456-7890"

log local0. [string map {"." "" " " "" "-" "" "(" "" ")" ""} $num1]
log local0. [string map {"." "" " " "" "-" "" "(" "" ")" ""} $num2]
log local0. [string map {"." "" " " "" "-" "" "(" "" ")" ""} $num3]
log local0. [string map {"." "" " " "" "-" "" "(" "" ")" ""} $num4]

Output:

    1234567890
    1234567890
    1234567890
    1234567890

Or instead of string map, you can strip non-numeric characters:

%proc justNumbers {pn} {
  set nums "0 1 2 3 4 5 6 7 8 9"
  set newNumber ""
  foreach x [split $pn ""] {
    if { !([lsearch $nums $x] == -1) } {
      append newNumber $x
    }
  }
  return $newNumber
}
% set x1 "1-800-632-6223"
1-800-632-6223
% set x2 "1.800.632.6223"
1.800.632.6223
% set x3 "1(800)632-6223"
1(800)632-6223
% justNumbers $x1
18006326223
% justNumbers $x2
18006326223
% justNumbers $x3
18006326223

assuming of course you have 11.4 (procs support), you can use this function or a similar one with string map (might be a little faster) and call it as necessary from same or different iRules.

yeah, the string map (with these particular mappings) is far faster than my solution:

% time { string map {"." "" " " "" "-" "" "(" "" ")" ""} $x3 } 100000
1.10809 microseconds per iteration
% time { justNumbers $x3 } 100000
9.95664 microseconds per iteration

Getting ready to test this in a few minutes, hopefully it will be the solution we need. :)

when ACCESS_POLICY_AGENT_EVENT { expr srand([clock clicks]) set otp [string range [format "%08d" [expr int(rand() * 1e9)]] 1 6 ] set mail [ACCESS::session data get "session.ldap.last.attr.mail"] set mobile [ACCESS::session data get [string map {"." "" " " "" "-" "" "(" "" ")" "" "+" ""} "session.ldap.last.attr.mobile"]]

ACCESS::session data set session.user.otp.pw $otp ACCESS::session data set session.user.otp.mobile $mobile ACCESS::session data set session.user.otp.username [ACCESS::session data get "session.logon.last.username"] }

formatting got dorked up there 😞

when  ACCESS_POLICY_AGENT_EVENT {
expr srand([clock clicks])
set otp [string range [format "%08d" [expr int(rand() * 1e9)]] 1 6 ]
set mail [ACCESS::session data get "session.ldap.last.attr.mail"]
set mobile [ACCESS::session data get [string map {"." "" " " "" "-" "" "(" "" ")" "" "+" ""} "session.ldap.last.attr.mobile"]]
ACCESS::session data set session.user.otp.pw $otp
ACCESS::session data set session.user.otp.mobile $mobile
ACCESS::session data set session.user.otp.username [ACCESS::session data get "session.logon.last.username"]
}

I will update again after testing, a big Thank You to everyone to jumped in. 😄

Well, that did not work unfortunately. The variable "session.user.otp.mobile" is blank when the process failed to complete. I guess I can't do it all in one step maybe?

Try:

set mobile [string map {"." "" " " "" "-" "" "(" "" ")" "" "+" ""} [ACCESS::session data get session.ldap.last.attr.mobile]]