%
% prep of incoming phosend message
%
false !Fup.HasPsd
false !Fup.HasJpg
false !Fup.HasPng
empty !Fup.Outgo
false !Fup.MoreLink
empty !Fup.Rest
empty !Fup.ResXact

0 !Fup.Size

_Msg.bodyr hex2asc

%
% stack: msg-body
%
dup
"The PSD is http" slice
any?
{
%
% stack: msg-body left-part right-part
%
 ".psd" left$
%
% stack: msg-body left-part base-url
%
 Url.RelFile psd oflocal Fup.Mimage))
 true !Fup.HasPsd
}
{
%
% stack: msg-body msg-body (since no right slice)
%
 pop
%
% stack: msg-body
%
 dup
 "The PNG is http" slice
 any?
 {
%
% stack: msg-body left-part-png right-part
%
  ".png" left$
%
% stack: msg-body left-part-png base-url
%
  Url.RelFile png oflocal Fup.Mimage))
  true !Fup.HasPng
 }
 {
%
% stack: msg-body msg-body (since no right slice)
%
  pop
%
% stack: msg-body
%
  dup
  "The JPG is http" slice
  any?
  {
%
% stack: msg-body left-part-jpg right-part
%
   ".jpg" left$
%
% stack: msg-body left-part-jpg base-url
%
   Url.RelFile jpg oflocal 
%
% stack: msg-body left-part-jpg full-spec
%
   Fup.Mimage))
   true !Fup.HasJpg
  }
  {
%
% stack: msg-body msg-body (since no right slice)
%
   pop
  } ifelse
 } ifelse
} ifelse
%
% stack: msg-body
%
% get the original file name
%
"/#" slice trim !Fup.Outgo

%
% stack: msg-body-adj
%
"(PHONE)" found? !Fup.IsPhone

%
% all activity is based on phosend urls
%
_Fup.DestUrl &"/xact" found?
dup !Fup.MoreLink
{
 dup "results/" right$ !Fup.ResXact
 "T" !Fup.MoreDrive

/*
*fuplmafy
*/
 
} if

%
% substitute left part of jpg,psd,png decode
%
_Fup.Rest any?
{
 pop2nd
} if
%
% perform html unencode here
%
*unencode
!Cnv.SrcBody