Tcl

NetSuite OAuth1

See more OAuth1 Examples

Demonstrates adding OAUth1 authentication to a NetSuite REST API request. Tcl

load ./chilkat.dll

set success 0

# 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.
set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://ACCOUNT_ID.suitetalk.api.netsuite.com/services/rest/record/v1/salesOrder" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

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

delete_CkHttp $http
delete_CkHttpResponse $resp