Perl

NetSuite OAuth1

See more OAuth1 Examples

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

use chilkat();

$success = 0;

# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("GET","https://ACCOUNT_ID.suitetalk.api.netsuite.com/services/rest/record/v1/salesOrder",$resp);
if ($success == 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";