Perl

WaTrend Create Instance

See more WaTrend Examples

Create a new WaTrend Instance ID. Perl

use chilkat();

$success = 0;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# Use your actual access token instead of 555555555555555555555555555555
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("GET","https://app.watrend.com/api/createinstance.php?access_token=555555555555555555555555555555",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$sbResponseBody = chilkat::CkStringBuilder->new();
$resp->GetBodySb($sbResponseBody);

$respStatusCode = $resp->get_StatusCode();
print "Response Status Code = " . $respStatusCode . "\r\n";
if ($respStatusCode >= 400) {
    print "Response Header:" . "\r\n";
    print $resp->header() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# Both success and failed responses use 200 status code.

# A success response contains this JSON in the response body:
# {"status":"success","message":"Instance ID generated successfully","instance_id":"638EE5A76D3AA"}

# A failed response will contain something like this:
# {"status":"error","message":"Access token does not exist"}

print $resp->bodyStr() . "\r\n";

$jResp = chilkat::CkJsonObject->new();
$jResp->LoadSb($sbResponseBody);

$status = $jResp->stringOf("status");
$instanceId = "";
if ($jResp->HasMember("instance_id") == 1) {
    $instanceId = $jResp->stringOf("instance_id");
}

print "status: " . $status . "\r\n";
print "instance_id: " . $instanceId . "\r\n";