Using monkey to call an api behind https?

[Taiphoz Participant]

Does monkey support https yet ? not touched anything monkey related or code related for a long while now so very much out of the loop, but something’s come up recently that if I even bother trying to code it would require me being able to call a https uri to grab some json or xml output..

also nice to see the site is still here.

[jondecker76 Participant]

I’m currently using monkey to interface with a few different REST APIs over https with no problem

[Taiphoz Participant]

any chance i could see an example ?

[jondecker76 Participant]

Monkey

Method post<T>:T(action:String,api:API) Local params:=New Map<String,String> Return post<T>(action,params,api) End Method post<T>:T(action:String,params:Map<String,String>,api:API) Global id:=0 id+=1 #If __TARGET__="windows" tmp=GetEnv( "TMP" )+"mx2_wget-"+id+".txt" #Else tmp="/tmp/mx2_wget-"+id+".txt" #endif</p> <p> Local p:=parameters.Copy() ' We need to add the Action, Version and Timestamp DebugPrint("POST ACTION: " + action) p.Add("Action", UrlEncode(action)) p.Add("Timestamp", UrlEncode(UTC())) p.Add("Version", UrlEncode(api.version))</p> <p> ' Add in extra parameters For Local i:=Eachin params p.Add(i.Key,UrlEncode(i.Value)) Next</p> <p> Local stringToSign:=calculateStringToSignV2(p,api) DebugPrint("StringToSign: " + stringToSign) 'sign and base64 encode Local signature64:=HMAC256_64(stringToSign,Self.secretKey) p.Add("Signature",UrlEncode(signature64))</p> <p> ' build wget cmd Local cmd:String cmd="wget --content-on-error -q -T 10 -O ~q" + Self.tmp +"~q --method=POST --body-data=~q" + BuildParamString(p) + "~q ~q" + api.url + "~q"</p> <p> DebugPrint("Command String:") DebugPrint(cmd) DebugPrint("URL:") Local httpRequest:=api.url+"?"+BuildParamString(p) DebugPrint(httpRequest) Local result:=system(cmd) DebugPrint("Result: " + result) Local ldstr:=LoadString(Self.tmp) DebugPrint("LoadStr: "+ldstr) If ldstr="" Then DebugPrint("LdStr successful")</p> <p> Return New T(httpRequest,result,ldstr) End</p> <p> Method calculateStringToSignV2:String(params:Map<String,String>,api:API) Local ret:String</p> <p> ret="POST~n" ret+=region.endpoint.Replace("https://","")+"~n" ret+="/" + api.section + "/" + api.version + "~n" ret+=Self.BuildParamString(params) Return ret End

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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

Method post<T>:T(action:String,api:API) Local params:=New Map<String,String> Return post<T>(action,params,api) End Method post<T>:T(action:String,params:Map<String,String>,api:API) Global id:=0 id+=1 #If __TARGET__="windows" tmp=GetEnv( "TMP" )+"mx2_wget-"+id+".txt" #Else tmp="/tmp/mx2_wget-"+id+".txt" #endif   Local p:=parameters.Copy() ' We need to add the Action, Version and Timestamp DebugPrint("POST ACTION: " + action) p.Add("Action", UrlEncode(action)) p.Add("Timestamp", UrlEncode(UTC())) p.Add("Version", UrlEncode(api.version)) ' Add in extra parameters For Local i:=Eachin params p.Add(i.Key,UrlEncode(i.Value)) Next Local stringToSign:=calculateStringToSignV2(p,api) DebugPrint("StringToSign: " + stringToSign) 'sign and base64 encode Local signature64:=HMAC256_64(stringToSign,Self.secretKey) p.Add("Signature",UrlEncode(signature64)) ' build wget cmd Local cmd:String cmd="wget --content-on-error -q -T 10 -O ~q" + Self.tmp +"~q --method=POST --body-data=~q" + BuildParamString(p) + "~q ~q" + api.url + "~q" DebugPrint("Command String:") DebugPrint(cmd) DebugPrint("URL:") Local httpRequest:=api.url+"?"+BuildParamString(p) DebugPrint(httpRequest) Local result:=system(cmd) DebugPrint("Result: " + result) Local ldstr:=LoadString(Self.tmp) DebugPrint("LoadStr: "+ldstr) If ldstr="" Then DebugPrint("LdStr successful") Return New T(httpRequest,result,ldstr) End Method calculateStringToSignV2:String(params:Map<String,String>,api:API) Local ret:String ret="POST~n" ret+=region.endpoint.Replace("https://","")+"~n" ret+="/" + api.section + "/" + api.version + "~n" ret+=Self.BuildParamString(params) Return ret End

This is straight from my current Amazon MWS API wrapper.  It’s kind of specific to what I’m doing, but that part that builds a request to send is the line starting with cmd=….

 

You should be able to modify this for your own needs pretty easily (and get rid of the the generic return type if you just need a string)

In my case as above, the type T has a constructor which accepts:
– httpRequest (the original httpRequest, which is useful for debugging and logging)

-result (the result integer returned from the wget command.  Also useful for logging, debugging and filtering

– ldstr (the actual string returned by the API call. In my case it’s XML, but it could be anything

 

Here is the New() method of the base class for all of my <T> return types (if that helps)

Monkey

Method New(httpRequest:String,result:String,xmlStr:String) Self.request=httpRequest Self.xml=xmlStr Self.cmdResult=result</p> <p> If xml="" Then ' Probably a network connection error? Local type:="Client" Local code:="Blank XML Response. cmdResult=" + cmdResult Local message:="Probably a network connection issue" error=New MWSError(type,code,message) Else ' Determine if there has been an error, and handle accordingly Self.doc=New XMLDocument() Self.doc.Parse(Self.xml) Self.requestId=GetRequestID() Self.ns=GetNamespace() 'Print "Checking For error" Local err:=GetNode("Error",doc)</p> <p> If err Then ' an error node was found! lets process! Local type:=GetNodeValue("Type",err) Local code:=GetNodeValue("Code",err) + " cmdResult=" + cmdResult Local message:=GetNodeValue("Message",err) error=New MWSError(type,code,message) Else 'Print "No error" error=Null Endif Endif End

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

Method New(httpRequest:String,result:String,xmlStr:String) Self.request=httpRequest Self.xml=xmlStr Self.cmdResult=result If xml="" Then ' Probably a network connection error? Local type:="Client" Local code:="Blank XML Response. cmdResult=" + cmdResult Local message:="Probably a network connection issue" error=New MWSError(type,code,message) Else ' Determine if there has been an error, and handle accordingly Self.doc=New XMLDocument() Self.doc.Parse(Self.xml) Self.requestId=GetRequestID() Self.ns=GetNamespace() 'Print "Checking For error" Local err:=GetNode("Error",doc) If err Then ' an error node was found!  lets process! Local type:=GetNodeValue("Type",err) Local code:=GetNodeValue("Code",err) + " cmdResult=" + cmdResult Local message:=GetNodeValue("Message",err) error=New MWSError(type,code,message) Else 'Print "No error" error=Null Endif Endif End

An an example of a return type that extends the above…

Monkey

Class ListOrders Extends MWSResponse Field NextToken:String Field LastUpdatedBefore:String Field CreatedBefore:String Field Orders:Order[]</p> <p> Method New(httpRequest:String,result:String,xmlStr:String) Super.New(httpRequest,result,xmlStr) Local node:=doc NextToken=GetNodeValue("NextToken",node) LastUpdatedBefore=GetNodeValue("LastUpdatedBefore",node) CreatedBefore=GetNodeValue("CreatedBefore",node) Orders=GetNodeArray<Order>("Orders",node) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Class ListOrders Extends MWSResponse Field NextToken:String Field LastUpdatedBefore:String Field CreatedBefore:String Field Orders:Order[] Method New(httpRequest:String,result:String,xmlStr:String) Super.New(httpRequest,result,xmlStr) Local node:=doc NextToken=GetNodeValue("NextToken",node) LastUpdatedBefore=GetNodeValue("LastUpdatedBefore",node) CreatedBefore=GetNodeValue("CreatedBefore",node) Orders=GetNodeArray<Order>("Orders",node) End End

Here is an example of an actual request class calling the generic post method:

Monkey

Class AmazonMWS Extension Method ListOrderItems:ListOrderItems(orderNumber:String) DebugPrint("Calling ListOrderItems") Local p:=New Parameters p.Map("AmazonOrderId",UrlEncode(orderNumber)) Return post<ListOrderItems>("ListOrderItems",p,orders) End

1 2 3 4 5 6 7

Class AmazonMWS Extension Method ListOrderItems:ListOrderItems(orderNumber:String) DebugPrint("Calling ListOrderItems") Local p:=New Parameters p.Map("AmazonOrderId",UrlEncode(orderNumber)) Return post<ListOrderItems>("ListOrderItems",p,orders) End

[Author]

Posts