%
% send MMS to customer for multi-purpose communication
%
% stack: current-dir next-file msg-type
%
false !mustcopy
false !routing
dup !Cust.MsgType "Mtext" *aamgnums dup ^"Msg." _
"%2" empty chained *custsrvr ^ replall
!Customer.Message
%
% stack: current-dir next-file msg-type
%
"route" log)(
<
%
% formulate an MMS image to customer for the new capture and reg
% this branch is for just registered wait for action from TMP downstream
%
|Thank
%
% stack: current-dir next-file
%
 *xactsubj pop
 *xactmmtx

%
% construct Tack target links for the outgoing MMS
% registered, making image, portal account
%
 *tackwaiu
 dup !Xact
"tsth" log)(

 false !routing

/*
%
% send the Thank MMS to the Customer
%
 "Thank" *allseter
%
% stack: tem-filename
%
 *tmplvirz
*/

%
% message generated from final xact phase, fully composited
%
|Xact
 *xactsubj pop
 *xactmmtx
 _Arching.Atype
 <
 |Mosaic
  "Yp61.jpg"
 > not
 {
  _Axu.Message
  <
  |Direct
   "Present_1.jpg"
  |Present
   "Present_1.jpg"
  |Products
   "ProdMMS_1.jpg"
  |Animated
   "AurU.gif"
  > not
  {
   "Db.jpg"
  } if
 } if
%
% stack: xact-filename
%
% this link prefix must be an externally accessible ip
% for Twilio
%
 *twilverz
 false !routing
 pop
%
% message generated from final xact phase, fully composited
%
|Invite
 _Shooter.Subject
 *xactsubj pop
 *xactmmtx
 !Shooter.Subject
%
 "Invite" *allseter
"cvq" log)(
%
% stack: tem-filename
%
% this link prefix must be an externally accessible ip
% for Twilio
%
 *tmplvirz
%
% message generated from final xact phase, fully composited
%
|First
 *xactsubj pop
 *xactmmtx
%
% send the first letter in the default product
% if the remaining name product plates do not exist
%
 *custnmng
 _Tem.NameSup ^"(name:" &")" !Customer.Addtl
%
% a "your name" substitute will be sent when the default product
% in the default font is not available for this name
%
 _Tem.NameFile
dup logs
 "Db.jpg" ofxact copyfile
 "Db.jpg"

%
% stack: prod-filename
%
% this link prefix must be an externally accessible ip
% for Twilio
%
 *twilverz

%
% message generated from final xact phase, fully composited
%
|New
 *xactsubj pop
 *xactmmtx
%
% send the first letter in the default product
% if the name product plate does not exist
%
 *custnmng
%
% a "your name" substitute will be sent when the default product
% in the default font is not available for this name
%
 _Tem.NameFile
dup logs
 "Db.jpg" ofxact copyfile
 "Db.jpg"

%
% stack: prod-filename
%
% this link prefix must be an externally accessible ip
% for Twilio
%
 *twilverz

%
% message generated for products composite built phase
%
|Prods
 *xactsubj pop
 *xactmmtx

 _Axu.Message
 <
 |Direct
 "ProdMMT_1.jpg"
 |Present
  "ProdMMT_1.jpg"
 |Products
  "ProdMMS_1.jpg"
 |Animated
  "ProdMMT_1.jpg"
 > not
 {
  "Db.jpg"
 } if
%
% stack: current-dir next-file xact-filename
%
% this link prefix must be an externally accessible ip for Twilio
%
  *twilverz
> not
{
} if

_routing
%
% stack: current-dir next-file image-ref routing
%
"_routed" log)(
{
%
% stack: image-ref
%
% response.txt in connector has response of tell
%

 _Axu.Outgoing
"&$&$&$&$" log)(
 <
 |MMS
  1

  '<Type value="MMout"/>'

  _Customer.Addtl &_Customer.Message
"cvp" log)(

%
% stack: img-ref msg-xml-ins msg-body
%

%
% non-test messages are for outside customer reference
%
  _Shooter.Subject
%
% stack: msg-xml-ins msg-body phone-number
%
"outph" log)(
  *twiloutm

 |None
%
% log the message that was assembled, don't send any message
%
  !Customer.Image
  empty

  "Fup.PhoSend" sval
  "Fup.PhoNum" sval
  "Msg.xact" sval
  "Customer.Message" sval
  "Customer.Image" sval
  "Customer.Addtl" sval
  "Cust.MsgType" sval
  "Shooter.Subject" sval
  "Shooter.Twi" sval
"$$$unsent" log)(
  dup "Unsent_" &_Cust.MsgType &"_" basenow &
"###unsent" log)(
  safe!xact

  "Unsent_" &_Cust.MsgType &"_" &_Xact
  &"_" &_Shooter.Subject &"_" &_Shooter.Twi
/*
 &"_"
_Customer.Addtl 26 left asc2hex &
&"_" _Customer.Image asc2hex &
&"_" &_Fup.PhoSend &"_" &_Fup.PhoNum
&"_" _Msg.xact asc2hex &
*/
  &".xaa"

  2 copy
  ofmsg
  safetext
%
% Unsent_Xact_62247958_5594928743_B__68747470733A2F2F746578746D7970686F746F732E636F6D2F726573756C74732F7861637436323234373935382F50726573656E745F312E6A7067.txt
%
  ^"Sent_" ofxact write

 > not
 {
%
% send SMS text alternate to MMS image response
%
  pop
 } if

} if
%
% stack: current-dir next-file
%
"routez" log)(