2020-04-23 23:53:00 +03:00
|
|
|
/- *s3
|
|
|
|
|
|%
|
|
|
|
|
++ json-to-action
|
|
|
|
|
|= =json
|
|
|
|
|
^- action
|
|
|
|
|
|^ (parse-json json)
|
2020-04-24 00:30:59 +03:00
|
|
|
++ parse-json
|
|
|
|
|
%- of:dejs:format
|
|
|
|
|
:~ [%set-endoint so:dejs:format]
|
|
|
|
|
[%set-access-key-id so:dejs:format]
|
|
|
|
|
[%set-secret-access-key so:dejs:format]
|
|
|
|
|
==
|
2020-04-23 23:53:00 +03:00
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ update-to-json
|
|
|
|
|
|= upd=update
|
|
|
|
|
^- json
|
|
|
|
|
%+ frond:enjs:format %s3-update
|
|
|
|
|
%- pairs:enjs:format
|
|
|
|
|
:~ ?- -.upd
|
2020-04-24 00:30:59 +03:00
|
|
|
%set-endpoint [%set-endpoint s+endpoint.upd]
|
|
|
|
|
%set-access-key-id [%set-access-key-id s+access-key-id.upd]
|
|
|
|
|
%set-secret-access-key
|
|
|
|
|
[%set-secret-access-key s+secret-access-key.upd]
|
|
|
|
|
::
|
2020-04-23 23:53:00 +03:00
|
|
|
%credentials
|
2020-04-24 00:30:59 +03:00
|
|
|
:- %credentials
|
|
|
|
|
%- pairs:enjs:format
|
|
|
|
|
:~ [%endpoint s+endpoint.credentials.upd]
|
|
|
|
|
[%access-key-id s+access-key-id.credentials.upd]
|
|
|
|
|
[%secret-access-key s+secret-access-key.credentials.upd]
|
|
|
|
|
==
|
2020-04-23 23:53:00 +03:00
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
--
|
