%
% seek Sms_stamp.txt files in Work\Mms
% copy sms symbol to Cphone\Tphone area of results Upl_ time stampX.jpg
% the Twid style message already delivered in Work\Twix
% for Cphone conduit consumption
%
% route tier 2 mms_ from twix
%
*fuplmakj
%
% process emails from mms, the EMA_ files
% moved into special function VM
%
%%% *fuplmakh
%
% process printer requests, Prt_ in mms
%
*fuplmakk

%
% mms requests are for various reasons
%
empty ofmms
empty
{
 "Mms_" nextext ?
%
% validate mms request data
%
 Msg.*?
 {
%
% valid message request
%
  *fuplmafa

  *fuplmlnj

  Fup.UnSame

  _Msg.bodyr hex2asc dup !Sms.Body *fuplrtep

  _Msg.muri hex2asc Url.RelBase !Fup.PartUrl

  _Msg.muri hex2asc Url.RelFile oflocal !Fup.Mimage

  empty !Fup.Xpand
  false !Fup.Xtend
%
% for morelink types
%
  _Fup.MoreLink
  {
   *fuplmlnk
  }
  {
%
% not a morelink type
%
  } ifelse

  _Fup.Xtend
",.,.,.,." log)(
  {
%
% morelink type
%
  }
  {
%
% not morelink type
%
   "Mms" Fup.!Fmark

   "Mms" Fup.!Gmark

   _Fup.PhoSend
   {
    "Mms" Fup.!Fmarf

    "Mms" Fup.!Gmarf
   }
   {
   } ifelse

  } ifelse
",2.,.,.,." log)(

  Fup.!Fxmage

  Fup.!Gxmage

  _Fup.PhoSend
  {
   Fup.!Fxmagf

   Fup.!Gxmagf

  }
  {
  } ifelse
",3.,.,.,." log)(

  _Fup.Xtend
  {
   *fuplmlnh
  }
  {
%
% create the html row record for this entry
% write into dest
%
   *fuplprer
",4.,.,.,." log)(

   "___Type___" ".jpg" dup !Msgr.Type replall

   _Fup.PhoSend
   {
    _Msg.xact any)?
    {
     "From"
    }
    {
     "To"
    } ifelse
   }
   {
    "From"
   } ifelse

   !Msgr.Dir
",5.,.,.,." log)(

   "___Message___" _Cnv.SrcBody Fup.Phone/ dup !Msgr.Body replall

   Xact.DTrepl

   "___File___" _Msg.dialr dup !Msgr.Phone &" " _Fup.Outgo filename & replall
   "___Extra___" _Msg.extra replall

   "R" Fup.!Ftext
",6.,.,.,." log)(

   *fupljrow

   &'MsgrFinal();
'
   &'MsgRow++;
'
   dup "J" Fup.!Ftext
   _Fup.PhoSend
   {
    "J" Fup.!Ftexf
   }
   {
    pop
   } ifelse
",7.,.,.,." log)(

   *fuplmlid
",8.,.,.,." log)(

   *fuplmlnf
",9.,.,.,." log)(

   _Fup.MoreLink
   {
   }
   {
    *fuplmlne
   } ifelse
",a.,.,.,." log)(

  } ifelse    %%% for Fup.Xtend

 }
 {
%
% improper mms values
%
  filing ".err" overext
 } ifelse
",b.,.,.,." log)(

 finaled
 
} loop
filing)