_Fup.PhoSend
">>>?>>s>?" log)(
_Twi.MMx "jpg" eq$
">>>?>>t>?" log)(
_Twi.MMx "png" eq$ or
">>>?>>p>?" log)(
and
">>>?>>u>?" log)(
{
%
% this is a phosend routed mms jpg
% tag the UTC msec as a basis for unique id
%
 estnow

 _Sms.From -2 left !Msg.dialr
 _Fup.PhoNum !Msg.numbr

 empty !Msg.mintro
 *smsdecod asc2hex !Msg.bodyr
%
% anchor the mms image url to the current server
%
 _Twi.Mfile filename ^"/Work/Twid/" ^_Arching.DomBase
">>>?>>>?>>>?" log)(
 asc2hex !Msg.muri

 empty
 "Msg.msec" sval
 "Msg.numbr" sval
 "Msg.dialr" sval
 "Msg.mintro" sval
 "Msg.bodyr" sval
 "Msg.extra" sval
 "Msg.muri" sval
 "Msg.date" sval
 "Msg.xact" sval
 "Msg.msgid" sval
 "Mms_" &_Msg.msec ofmms text
">>>?>>>?>>>?" log)(
 write

}
{

%
% not routed, rename incoming file out of circulation
%
 _Twi.Mfile ".no" &_Twi.MMx overext

} ifelse