-
Notifications
You must be signed in to change notification settings - Fork 0
/
curl.jl
37 lines (36 loc) · 1018 Bytes
/
curl.jl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#curl -X POST -d '{ "method" : "account_info", "params" : [ { "account" : "rHb9CJAWyB4rj91VRWn96DkukG4bwdtyTh"} ] }' https://s1.ripple.com:51234
function makemethod(cmd)
return """{"method":"$cmd"}"""
end
function makemethod(cmd,ops::Array) #ops=["ledger_hash" "2A213C0B2EA3A2585039658CB8CB13819815CD85B0FD592B37811E5A4B1ECDB1"; "transactions" "true"]
request="""{"method":"$cmd","params":[{ """
nops=length(ops[:,1])
if nops<1
error("Empty options vector")
end
if ops[1,2][1]!='{'
request*=""" "$(ops[1,1])":"$(ops[1,2])" """
else
request*=""" "$(ops[1,1])":$(ops[1,2]) """
end
for nop in 2:nops
q=""
if ops[nop,2][1]!='{'
q="\""
end
request*=""","$(ops[nop,1])":$q$(ops[nop,2])$q """
end
request*="}]}"
end
function curlreq(request)
run(`curl -X POST -d $request https://s1.ripple.com:51234` |> "reply.txt")
rf=open("reply.txt","r")
reply=readall(rf)
close(rf)
Rm.sto.reply=reply
return reply
end
function curlreq(cmd,ops::Array)
request=makemethod(cmd,ops)
curlreq(request)
end