on *:SOCKREAD:TICKET*: {
sockread &data
if (*BinarySecurityToken Id="PPToken1">t=* iswm $bvar(&data,1-).text) {
var %start = $calc($bfind(&data,1,BinarySecurityToken Id="PPToken1">t=) + 34), %end = $bvar(&data,1,</wsse:BinarySecurityToken>)
var %str = $remove($left($bvar(&data,$+(%start,-,%end)).text,401),amp;)
echo -a %str
}
}