%
% pull collage mms images
%

"4702906325"
%
% stack: sms-number
%
 &"_" _Arching.TwidSpec
%%% "twspec" log)(
 "??????????_" slice
 ^3) &
"pullspec" log)(
%
% stack: sms-filespec
%

%
% stack: conn-spec 
%
% take the path part of the connector spec for destination
% file saving
%

dup "\" left$/
"tpr" log)(
!Response.Path

%
% pull specific filespecs from server
%
asc2hex
^"pull&spec="

"https://phosend.com"
&'/' &_Arching.Command ^

"tpull" log)(
*webrespn
%
% stack: web-response
%
response!

%
% pull file from server connector area
%
"response" conntext read
dup "*****y" right$ "y*****" left$
dup !Response.File
any)?
{
 dup hexresp
dup ^"=======" logs
 !Response.Content
 empty
 "Response.Path" sval
 "Response.File" sval
 "Response.Content" sval
 "response" clogged
 _Response.Content _Response.Path &"\" _Response.File "|" left$ & text!conn
} if
"tellresp" log)(
pop

"endtellresp" log#

%
% check for response, time stamp
% impose requested time stamp
%
_Response.File any?
{
 "|" slicex
 _Response.Content
 tuck
 _Response.Path
 any?
 {
  &"\" ^
 } if
 conntext
%%% dup log#
 write@
} if