Forums Scripts & Popups handling massive string through bin vars

on *:sockread:creds.*: {
 sockread &data
 if ($bfind(&data, 1, BinarySecurityToken Id="PPToken1">t=)) {
  ;...append original line
  while (!$bfind(&data, %start,  </wsse:BinarySecurityToken>)) {
   ;...append data
   sockread &data
  }
  ;...There'll be some data at the end, append it too.
 }
}