%
% create the parameter string for temporary user hold
% will register with real name and email later
%
empty !Cust.Guid
_Cust.Phone !Shooter.Subject

"clienx"
&"&subject=" &_Cust.Phone
&"&sms=" &_Shooter.Phone
&"&xmail="
*finsures &"@" *finsures & &".com" asc2hex &
&"&password="
"Temporary" asc2hex &
%
% create this user on the public portal
%
*webhpulo
*webportn
*tellresx
%
% raw response for user id request
% stack: raw-response
%
"|" 0 5 1 parse
5 -1 roll
%
% stack: first last email created guid
any?
{
%
% valid guid and other data from user lookup/create
%
 !Cust.Guid
 !Cust.Created
 !Cust.Xemail
 !Cust.Last
 !Cust.Xfirst
}
{
 4 popoff
} ifelse
%
% indicate if there was a userid and whether we created a record
% 
_Cust.Guid
"cguid" log)(
any?
{
 _Mojo.EmptyGuid ne$
"chuid" log)(
}
{
 false
} ifelse
_Cust.Created
"ccre" log)(
"False" eq$
and
%
% stack: already-in
%