APM Cookbook: Single Sign On (SSO) using Kerberos

I have chosen the TCL way. AD query consumes time :)

Variable assign contains:

session.sso.token.last.username = expr { [regsub {(.+\|^)} [mcget {session.logon.last.username}] "" x; set username $x; regsub {(\@.+)} $username "" y; set username $y]}

session.ad.last.actualdomain = expr { [regsub {(\.+)} [mcget {session.logon.last.username}] "" x; set username $x; regsub {(.+\@)} $username "" y; set username $y]}

This splits the krb username@realm into two variables