%
% 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://textmylogos.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"
}
*/

empty ofsrvc
empty
{
 "Conf_confput_" textwild
 nextfile ?
"nextf" log)(
 execing

"confirmed" log)(

/*
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
*/

/*    for conduit purchase, these are the xact and tack of others
 _Order.Xact !Install.Random
 _Order.Tack !Install.Stamp
*/

%
% XC_6787867816_1661703045794_63797289471067.txt
%
% check any matching XC_ to this confirmation
%

 false !Test.Purch

 empty ofpurch
 empty
 {
  "XC_" nextext ?
"nextfp" log)(
  reading
%
% get the possible purchasers phone number
%
  second term2 !Install.Subject

  dup `"redirect_url": https right$ "/Tell?" left$
  dup !website
  <
  |textmyphotos.com   *purchprd
  %%% |textmyname.com     *purchprd
  |textmylogos.com    *purchprd
  %%% |textmyexcel.com    *purchprd
  |phosend.com     *purchcnd

  > not
  {
   false !Test.Purch
  } if

  _Test.Purch
  ?
 } loop
 filing)

 _Test.Purch
"purchsetestA" log)(
 {
%
% there is an XC_ match
%
  _website
  <
  |textmyphotos.com   *purchpre
%%%  |textmyname.com     *purchpre
  |textmylogos.com    *purchpre
%%%  |textmyexcel.com    *purchpre
  |phosend.com     *purchcne

  > not
  {
  } if

%
% stack: dir seed
%
 finaled

%
% final out the XC also
%
  _Test.Pfile ofpurch ".xtx" overext

 }
 {
%
% no XC match, flag the confput file as a problem
%
%
% stack: dir seed
%
  filing ".err" overext

 } ifelse

} loop
filing)