%
% create the html row record for this entry
% write into dest
%
% results/ dialr / numbr /  flxR
%
% Mimage copied into it and split
%

/*
  *fuplprer

  "___Type___"
*/

_Fup.HasPsd
"))))))psd" log)(
{
 _Cnv.SrcBody "(." found)?
 {
  _Cnv.SrcBody "(." right$ ")" left$
  lower ^"."
 }
 {
   ".psd"
 } ifelse
%
% uploaded extension
%
 Fup.!Fsplit
}
{
 _Fup.HasJpg
"))))))jpg" log)(
 {
  ".jpg"
  Fup.!Fsplit
 }
 {
  _Fup.HasPng
"))))))png" log)(
  {
   ".png"
   Fup.!Fsplit
  }
  {
   _Fup.MoreLink
   {
    ".jpg"
    Fup.!Fsplit
   }
   {
    empty
   } ifelse
  } ifelse
 } ifelse
} ifelse

!Msgr.Type

"To" !Msgr.Dir

/*
  &" <<<"
  replall
*/

/*
  "___Message___"
*/

/*
_Cnv.SrcBody
"(PSD)" empty replall
"(JPG)" empty replall
"/#" left$
*/

Fup.UnTag !Msgr.Body

/*
  replall
*/

%%%  "___Date___"
_Msg.msec frombase$ " " left$ !Msgr.Date
%%% replall
%%%  "___Time___"
_Msg.msec dup !Msgr.Msec frombase$ " " right$ !Msgr.Time
%%% replall
%%%  "___File___"
%%% _Msg.msec 
_Msg.dialr !Msgr.Phone
_Fup.Outgo filename !Msgr.OrigFile
_Msg.dialr !Msgr.SrcPh
_Msg.numbr !Msgr.DestPh

*fupljrow

&'MsgrFinal();
'
&'MsgRow++;
'
%%%  "R" Fup.!Ftext

"J" Fup.!Ftext