(Perl) NetSuite OAuth1

See more OAuth1 Examples

Demonstrates adding OAUth1 authentication to a NetSuite REST API request.

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

$http->put_OAuth1(1);
$http->put_OAuthConsumerKey("CONSUMER_KEY");
$http->put_OAuthConsumerSecret("CONSUMER_SECRET");
$http->put_OAuthToken("ACCESS_TOKEN");
$http->put_OAuthTokenSecret("TOKEN_SECRET");
$http->put_OAuthRealm("ACCOUNT_ID");
$http->put_OAuthSigMethod("HMAC-SHA256");

# Not sure if this is needed for NetSuite requests.
$http->SetRequestHeader("Cookie","NS_ROUTING_VERSION=LAGGING");

# Replace ACCOUNT_ID with your actual account id, which is likely a 7-digit decimal number.
# resp is a HttpResponse
$resp = $http->QuickRequest("GET","https://ACCOUNT_ID.suitetalk.api.netsuite.com/services/rest/record/v1/salesOrder");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";
print "Response Body:" . "\r\n";
print $resp->bodyStr() . "\r\n";