%
% pick up the payment confirmation issued after the user
% purchases the subscription and the new Twilio magic number
% is satisfied, the new number is available to the user
%
/*
XC_6787867816_1661703045794_63797289471067.txt
{
  "id": "CBASEFHrnyiPgBg9HWzEj3vAsHU",
  "checkout_page_url": "https://connect.squareup.com/v2/checkout?c=CBASEFHrnyiPgBg9HWzEj3vAsHU&l=D816M4D7VD9DS",
  "ask_for_shipping_address": false,
  "merchant_support_email": "Iot@aamediaweb.com",
  "pre_populate_buyer_email": "baconjib@gmail.com",
  "redirect_url": "https://aamediaweb.com/Tell?command=confput&subject=6787867816&xact=68827&tack=1661703045794&amount=200",
  "order": {
    "id": "fCTbQIeF46eQt2cRA3ST37N4SvZZY",
    "location_id": "D816M4D7VD9DS",
    "reference_id": "1661703045794",
    "source": {
      "name": "Binfo"
    },
    "line_items": [
      {
        "name": "Cart 1661703045794",
        "quantity": "1",
        "note": "Based on install code 1661703045794-68827 for MMS phone number .\nPurchase for MMS Conduit from Text My Photos\n10.00 for monthly subscription, 10.00 for Usage Fill-Up.\nThis is NOT a recurring charge, you will be reminded when the\nnext Usage Fill-up (10.00) or the monthly subscription\nof 10.00 will be due.\nThere is no minimum usage, and you are charged only\nwhat you use against your Fill-up total.\nIf you choose not to re-subscribe for 60 days,\nwe will reclaim your Magic number and refund any\nunused Usage Fill-up amount.\n",
        "base_price_money": {
          "currency": "USD",
          "amount": 200
        },
        "gross_sales_money": {
          "currency": "USD",
          "amount": 200
        },
        "total_tax_money": {
          "currency": "USD",
          "amount": 0
        },
        "total_discount_money": {
          "currency": "USD",
          "amount": 0
        },
        "total_money": {
          "currency": "USD",
          "amount": 200
        }
      }
    ],
    "total_money": {
      "currency": "USD",
      "amount": 200
    },
    "total_tax_money": {
      "currency": "USD",
      "amount": 0
    },
    "total_discount_money": {
      "currency": "USD",
      "amount": 0
    }
  },
  "created_at": "2022-08-28T17:17:53Z"
}
*/

/*   conduit type
Conf_confput_63797289603817.txt

"200"           !Order.Amount
"6787867816"    !Order.Subject
"68827"         !Order.Xact
"1661703045794" !Order.Tack
"1661703045794" !Order.Ref
"CBASEFHrnyiPgBg9HWzEj3vAsHU" !Order.Chk
"" !Order.Id
"fCTbQIeF46eQt2cRA3ST37N4SvZZY" !Order.Trans
"63797289603817" !Order.Stamp
*/

%
% there is an XC_ match, process the info for the TWI request for a new number
%
% check the pool of recycled numbers for a matching area code to issue
%
% Register_1661703045794_68827.xtx
%
 empty !Install.AreaCode
 "Register_" ".xtx" ext*reg
/*
"6787867816" !Install.Phone
 "4a616d6573" !Install.First
 "4261636f6e" !Install.Last
 "808" !Install.AreaCode
 "6261636f6e6a696240676d61696c2e636f6d" !Install.Email
68827 !Install.Random
1661703045794 !Install.Stamp
*/

 _Install.AreaCode
"areacode" log)(
 any?
 {
%
% there is a matching reg
%
  empty !Install.Number
  &"" textwild
  "Recyc" oftwil folder
  empty
  {
   nextfile ?
"nextfr" log)(
%
% have an available recycled number
%
   execing
   dup filename !Install.Number
   finaled
   true ?
  } loop
  filing)
  _Install.Number
"recyc" log)(
 any?
  {
%
% issue this number directly
% it is xtx because of finaled in loop above
%
   "Recyc" oftwil folder ^
   &".xtx" exec$
   _Test.Stamp !Install.Stamp _Test.Random !Install.Random
/*
was Number_1661704083785_64973.xtx

in Recyc it is 6789905641.txt

"64973" !Install.Random
"1661704083785" !Install.Stamp
"0" !Install.ProvTry
"https://textmyphotos.com/Twid/Twid" !Install.SmsUri
"https://textmylogos.com/Twid/Twid" !Install.SmsFbUri
"6789905641" !Install.Sms
"PNdc40bd147229d834edbdd2b3f2a8c333" !Install.SmsSid
*/
empty
"Install.Random" sval
"Install.Stamp" sval
"Install.ProvTry" sval
"Install.SmsUri" sval
"Install.SmsFbUri" sval
"Install.Sms" sval
"Install.SmsSid" sval

"Number_" inst$ & text oftwil write

  }
  {
%
% must provision a new Twilio number
%
empty
"Install.Random" sval
"Install.Stamp" sval
"Install.Subject" sval

%
% a new twilio phone number will be provisioned from the aamg account
% the .vtv file remains as a residue of the numbered process
%
 "TWI_" inst$ & &".vtv" oftwil
 residue textover
"txter" log)(
%
% the TWI_*.txt file will be processed for new twilio number issuance
%

  } ifelse
 }
 {
%
% no matching reg
%
 } ifelse