%
% 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
%
empty ofmms
empty
{
 "Sms_" nextext ?
"fuplmakf " log)(
 empty !Msg.numbr
 execing
 _Msg.numbr any)?
 {
%
% prep of incoming phosend message
%
  *fuplmafa

  *fuplmlnj

%
% create the sms icon,
% temporary for thumbnails if image
%
  "Sms" Fup.!Fmark

  "Sms" Fup.!Gmark

%
% for base file types create the thumbnail temp
% where the source image is located
%
  Fup._PsdPngJpg
  {
   "Sms" ofmark
   _Fup.Mimage "X.jpg" reextend
   copyfile
  } if

%
% clear other source extensions, not applicable yet
%
  Fup.UnSame

%
% create the html row record for this entry
% write into dest
%
  *fuplmafb
%%%  *fupljafb
%
% create the duplicate identity row for the source except if message sent
% by source is to identity or is MoreLink
%
  _Msg.dialr _Msg.numbr eq$
/*
_Msg.dialr "5557654321" ne$
"___dialr___" &_Msg.dialr log)(
or
*/
  _Fup.MoreLink or
  {

  }
  {
%
% create the duplicate row for the source identity except if message sent
% by source is already to self
%
   *fuplmafc

%
% make the duplicate identity row for the dest except if message sent
% by source is already to self
%
   *fuplmafd

  } ifelse

  _Fup.MoreLink
  {
  }
  {
%
% create the html row record for this entry
% write into source
%
   *fuplmafe
  } ifelse

%
% make the thumbnail activator if not file type
%
 Fup._PsdPngJpg _Fup.MoreLink or
 {
  empty
  "Msg.msec" sval
  "Msg.numbr" sval
  "Msg.xact" sval
  "Msg.msgid" sval
  "Msg.dialr" sval
  "Msg.mintro" sval
  "Msg.extra" sval
  "Cnv.SrcBody" sval
  "Fup.Fbase" sval
  "Fup.Gbase" sval
  "Fup.Mimage" sval
  "Fup.MoreLink" sval
  _Fup.MoreLink
  {
   "Fup.MoreDrive" sval
   "Fup.MoreType" sval
  } if

%
% write the thumbnail activator into Mms of Work
%
  dup %%% for flx writes
%
% stack: thumbdata thumbdata
%
  _Cnv.SrcBody "(." found)?
  {
%
% stack: thumbdata thumbdata
%
  }
  {
%
% prevent thumbnailing if is alternate type file
%
% stack: thumbdata thumbdata
%
   dup
   Xact.Msg$ &"_" &_Msg.dialr &".fly" ofmms ".flx" safeto
  } ifelse

%
% stack: thumbdata thumbdata
%
% also write into flx sources
%
  empty !Fup.Fflex

  _Fup.MoreLink
  {
   pop
  }
  {
   empty !Fup.Gflex
  } ifelse

 } if

 _Fup.MoreLink
 {
 }
 {
%
% make the sms record for dest phosend
%
  *fuplmaff

%
% make the sms record for phone sender except if identity
% possible phosend destination
%
  *fuplmafg

 } ifelse

%
% create the team records
%
 _Cnv.SrcBody 5 left lower "allow" eq$
 _Cnv.SrcBody 6 left lower "refuse" eq$
 _Cnv.SrcBody 6 left lower "avatar" eq$
 or or
"makf teams" log)(
 _Fup.MoreLink or
 {
%
% tier 2 result, not sent to teams
%
 }
 {

%
% not tier 2
% repeat this message for all team members if it is not the linked colab PhoSend
% or the colab number itself
%
% this is the linked PhoSend Gating directory
%
  false !Fup.InTeamA
  false !Fup.InTeamB
  false !Fup.InTeamC
  false !Fup.InTeamD
  Fup.From ofgate dup !Fup.TeamGate
  empty
  {
%
% check for team inclusion of our colab number
%
   Fup.To &"?" text !wilder nextfile ?
%
% 
%
   dup -10 left 1 left ^"Fup.InTeam" true exch !

  } loop
  filing)

%
% now have identified teams our non-identity colab is part of
%
% write an xml message to the team members in case they are
% another PhoSend
%
  "A" *fuplsngs
  "B" *fuplsngs
  "C" *fuplsngs
  "D" *fuplsngs

  "A" *fuplsnfs
  "B" *fuplsnfs
  "C" *fuplsnfs
  "D" *fuplsnfs

  } ifelse

  finaled
 }
 {
%
% improper upload values
%
  filing ".err" overext
 } ifelse
 
} loop
filing)