%
% process the directive for the member's new Twilio magic number
% after provisioning the new number is available to the user
%
empty oftwil
empty
{
 "TWI_" nextext ?
"nextf" log)(
 filing
"provisioning" log)(
 0 !Install.ProvTry
 exec$
%
% a new twilio phone number will now be provisioned from the aamg account
% for the conduit Numbered xml response
% Number_1660238360322_45539.xtx
%
% get 20 of the numbers from Twilio regarding the desired area code.
%
% Reg\1660238360322_45539.sts
%
empty !Install.AreaCode
"Register_" ".xtx" ext*reg
/*
"6787867816" !Install.Phone
 "4a616d6573" !Install.First
 "4261636f6e" !Install.Last
 "678" !Install.AreaCode
 "6261636f6e6a696240676d61696c2e636f6d" !Install.Email
*/
_Install.AreaCode any)?
{
%
% proper registration info
%
_Arching.Localed
{
%
% this is a local server op prevent number issuance
% issue the test number in _run
%
_Arching.LocalSms any?
{
%
% stack: dir seed local-issue-num
%
!Install.Sms
"testing" !Install.SmsSid
0 !Install.ProvTry
empty !Install.SmsUri
empty !Install.SmsFbUri
empty
"Install.Random" sval
"Install.Stamp" sval
"Install.ProvTry" sval
"Install.SmsUri" sval
"Install.SmsFbUri" sval
"Install.Sms" sval
"Install.SmsSid" sval
"Number_" inst$ & &".wtw" ^4
 residue textover
"txter" log)(
%
% the Number_*.txt file will be processed for user xml of new magic number
%
}
{
%
% no local sms to issue, no issuance
%
} ifelse
 false

}
{
%
% not a localized run, allow thru
%
 true
} ifelse

%
% stack: dir seed allowed-thru
%
{
%
% no registration present prevent number issuance
%
"getprsrc&typer=areacode&areacode=" &_Install.AreaCode
dup logs
%
% command the localhost server Tell web app
%
% stack: command-and-params
%

servink
*webrespn
dup logs
%
% stack: web-response
%
tellx
dup logs
any?
{
%
% stack: dir seed arecds
%
% get the sixth phone number available
%
"|" 5 1 1 parse
"number to get" log)(
"(" empty replall
")" empty replall
" " empty replall
"-" empty replall
!Install.Sms

"https://phosend.com/Twid/Twid" !Install.SmsUri
"https://phosend.com/Twid/Twid" !Install.SmsFbUri

"getprsrc&typer=provsms&smsuri=" _Install.SmsUri asc2hex &
&"&smsfburi=" _Install.SmsFbUri asc2hex &
&"&phnum=" &_Install.Sms
&"&friend=" &_Install.Last *finsures 6 right asc2hex &
dup logs
%
% command the localhost server Tell web app
%
% stack: command-and-params
%
empty response!
servink
*webrespn
dup logs
%
% stack: web-response
%
response! *tellresx
dup logs
!Install.SmsSid
empty
"Install.Random" sval
"Install.Stamp" sval
"Install.ProvTry" sval
"Install.SmsUri" sval
"Install.SmsFbUri" sval
"Install.Sms" sval
"Install.SmsSid" sval
%
% the .wtw file remains as a residue of the provisioning process
%
"Number_" inst$ & &".wtw" ^4
"txter" log)(
residual textover
%
% the Number_*.txt file will be processed for user xml of new magic number
%
 *cndawipu
}
{
} ifelse

%%% stop

} if

}
{
%
% problem with no reg
%
} ifelse
%
% stack: dir seed
%
 count 2 ne { stop } if
 dup extension lower ".txt" ne$ { stop } if
 finaled
} loop
filing)