mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
69 lines
1.9 KiB
Forth
69 lines
1.9 KiB
Forth
This demonstrates using pipes and curl to send an SMS using the zipwhip api.
|
|
|
|
A thin wrapper over the generic Unix pipe facility.
|
|
|
|
~~~
|
|
:pipe> (s-s) file:R unix:popen [ file:read-line ] [ unix:pclose ] bi ;
|
|
:>pipe> (ss-s) swap 'echo_"%s"_|_%s s:format dup s:put nl pipe> ;
|
|
:>pipe (ss-) >pipe> drop ;
|
|
~~~
|
|
|
|
Construct a `curl` command.
|
|
|
|
~~~
|
|
'URL d:create #128 allot
|
|
'Params d:create #2048 allot
|
|
'Flags d:create #2048 allot
|
|
'Data d:create #8192 allot
|
|
'Headers d:create #4096 allot
|
|
|
|
:target: ;
|
|
:params: &Params buffer:set ;
|
|
:flags: &Flags buffer:set ;
|
|
:data: &Data buffer:set ;
|
|
:header: &Headers buffer:set ;
|
|
:set-url &URL s:copy ;
|
|
:flag [ buffer:add ] s:for-each ASCII:SPACE buffer:add ;
|
|
:param swap '-d_%s=%s s:format flag ;
|
|
:header '--header_'%s' s:format flag ;
|
|
:urlencode swap '--data-urlencode_'%s=%s' s:format flag ;
|
|
|
|
:generate-request
|
|
&Data &Headers &Params &URL &Flags 'curl_-s_%s_%s_%s_%s_%s s:format ;
|
|
~~~
|
|
|
|
Authenticate, get session token.
|
|
|
|
~~~
|
|
target:
|
|
'https://api.zipwhip.com/user/login set-url
|
|
params:
|
|
'username '"username" param
|
|
'password '"password" param
|
|
flags:
|
|
'-X flag
|
|
'POST flag
|
|
generate-request pipe>
|
|
|
|
'"response":" s:split/string drop #12 + s:chop s:chop s:keep 'SESSION s:const
|
|
~~~
|
|
|
|
Send a message using the session token.
|
|
|
|
~~~
|
|
target:
|
|
'https://api.zipwhip.com/message/send set-url
|
|
header:
|
|
'Content-Type:_application/x-www-form-urlencoded header
|
|
data:
|
|
'username '"username" param
|
|
'password '"password" param
|
|
'body 'Greetings! urlencode
|
|
'session SESSION urlencode
|
|
'contact 'phonenumber urlencode
|
|
flags:
|
|
'--location flag
|
|
'--request flag
|
|
'POST flag
|
|
generate-request s:format pipe> drop
|
|
~~~
|