%
% pull collage multimedia files
%
0 !mcounter
"Twid\" ofconn
empty
{
"4702906325_" textwild
nextfile ?
"-,-,-,-," log)(
reading !Sms.Raw
"+14702906325" !Sms.To
%
% MMS, record the incoming images into Twid
%
_Sms.Raw
dup "" right$ "" left$ !Sms.From
"Twid\MMS_"
_Sms.From -2 left
dup !Shooter.Subject
dup !Subject
_Sms.To -2 left !Shooter.Sms
&
Time.Now Time.FullOrder & &"_"
ofconn
-1 left ^"c"
%
% retrieve image(s) from url(s) within Twilio MMS message
%
% stack: msg-xml dest-spec
%
!Twi.Dest
%%% _Twi "Mode" *aamgnums
empty !builder
/*
"Twid\Test" ofconn !Twi.Dest
"AC2aef6b1f0dfc20676cd2f9e95ef6d7d7+13524436787ARCHERUSFL32618MMf427497420a69888e00773f2b81c6ed0+15022378584FRANKFORTUSKY406011image/jpeg68747470733A2F2F6170692E7477696C696F2E636F6D2F323031302D30342D30312F4163636F756E74732F414332616566366231663064666332303637366364326639653935656636643764372F4D657373616765732F4D4D66343237343937343230613639383838653030373733663262383163366564302F4D656469612F4D453764633733363162333230653934306232353961333231646236666332393233"
*/
"" right$
"" slice
exch dup !Twi.NumMedia
countup
{
- dup !idxr
^"" right$
"<" slicex "Twi.MMType" &_idxr !
">" right$
"" right$
"<" slicex hex2asc
"Twi.MMUrl" &_idxr !
">" right$
_builder
"Twi.MMType" &_idxr sval
"Twi.MMUrl" &_idxr sval
!builder
} for
pop
_builder
"Twi.NumMedia" sval
"_twi" text!bin
%
% response.txt in connector has response of tell
%
empty !Twi.MMlog
_Twi.NumMedia countup
{
- !idxr
"geturl&format="
"Twi.MMType" _idxr & _ "jpeg" found)?
{
"jpg" dup !Twi.MMx &
}
{
"png" dup !Twi.MMx &
} ifelse
&"&body="
"Twi.MMUrl" _idxr & _
asc2hex &
&"&dest="
_Twi.Dest
_Sms.Raw "" right$ "" left$ !Sms.Body
*smsdecod
%%% *custxcap
%%% &"_"
60 left asc2hex
&
%%% exch
/*
%%% &
&_Shooter.Tem
&"_" &_Twi
&"_" &_Shooter.Color
&"_"
&_Arching.Vtype
&"_" ^
&"_" &_Shooter.Crop
*/
/*
"Tem0" &"." &_Twi.MMx oftem
second &"." &_Twi.MMx
copyfile
*/
dup &"." &_Twi.MMx !Twi.Mfile
asc2hex
&
"Local" *webtelln
"response" text_conn &:Twi.MMlog
_Twi.Mfile
"%*%*%*" &2 logs
exists
{
}
{
"Error* no file" &:Twi.MMlog
} ifelse
} for
_Twi.MMlog
"Error*" found?
dup !Twi.Error
{
}
{
_Aamg.Testing
{
}
{
/*
"Mtext" *aamgnums
_Msg.Thank
"cvp" log)(
*twilrcvd
*/
} ifelse
} ifelse
_Twi.Dest &"_" +mcounter 3 prezero & &".log"
write
_Twi.Error
{
}
{
finaled
} ifelse
} loop
filing)