splitting domain name from UPN session variable

when RULE_INIT {

set static::citrix_sf25_DEBUG 1 } when ACCESS_POLICY_AGENT_EVENT { switch [ACCESS::policy agent_id] { "CERTPROC" { ACCESS::session data set session.logon.last.logonname [lindex [split [findstr [ACCESS::session data get session.logon.last.username]"@" 0] "@"] 0] ACCESS::session data set session.logon.last.domain [lindex [split [findstr [ACCESS::session data get session.logon.last.username]"@" 1] "@"] 1] if {$static::citrix_sf25_DEBUG} {log local0. "Event CERTPROC, Certificate extension equals: [ACCESS::session data get session.logon.last.username]"} if {$static::citrix_sf25_DEBUG} {log local0. "Event CERTPROC, User name set as: [ACCESS::session data get session.logon.last.logonname]"} if {$static::citrix_sf25_DEBUG} {log local0. "Event CERTPROC, Domain name set as: [ACCESS::session data get session.logon.last.domain]"} } } }