(Tcl) NetSuite OAuth1

See more OAuth1 Examples

Note: This examples requires Chilkat v9.5.0.94 or later. (Or a hotfix from Chilkat for v9.5.0.93)

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# It requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

CkHttp_put_OAuth1 $http 1
CkHttp_put_OAuthConsumerKey $http "CONSUMER_KEY"
CkHttp_put_OAuthConsumerSecret $http "CONSUMER_SECRET"
CkHttp_put_OAuthToken $http "ACCESS_TOKEN"
CkHttp_put_OAuthTokenSecret $http "TOKEN_SECRET"
CkHttp_put_OAuthRealm $http "ACCOUNT_ID"
CkHttp_put_OAuthSigMethod $http "HMAC-SHA256"

# Not sure if this is needed for NetSuite requests.
CkHttp_SetRequestHeader $http "Cookie" "NS_ROUTING_VERSION=LAGGING"

# Replace ACCOUNT_ID with your actual account id, which is likely a 7-digit decimal number.
# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $http "GET" "https://ACCOUNT_ID.suitetalk.api.netsuite.com/services/rest/record/v1/salesOrder"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"
puts "Response Body:"
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttp $http