(Perl) WaTrend Create Instance

See more WaTrend Examples

Create a new WaTrend Instance ID.

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

use chilkat();

# 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 is a HttpResponse
$resp = $http->QuickRequest("GET","https://app.watrend.com/api/createinstance.php?access_token=555555555555555555555555555555");
if ($http->get_LastMethodSuccess() == 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";