(Perl) WaTrend Send WhatsApp Text

See more WaTrend Examples

Send a WhatsApp text.

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
$req = chilkat::CkHttpRequest->new();
$req->AddParam("number","84933313xxx");
$req->AddParam("type","text");
$req->AddParam("message","This is a test message");
$req->AddParam("instance_id","609ACF283XXXX");
$req->AddParam("access_token","555555555555555555555555555555");

# Note: The WaTrend online documentation indicate a POST should be used.
# However, it seems you might actually need to send a GET request.
# It is unclear.  
# If a GET is neeed, you would just send to the URL w/ query params like this:
$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append("https://app.watrend.com/api/send.php?");
$sbUrl->Append($req->getUrlEncodedParams());
$responseBodyStr = $http->quickGetStr($sbUrl->getAsString());
# The responseBodyStr contains the JSON response from the server..

# If a POST is needed, then it is sent like this:
# resp is a HttpResponse
$resp = $http->PostUrlEncoded("https://app.watrend.com/api/send.php",$req);
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;
}

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

# Both success and failed responses use 200 status code.

# A success response contains this JSON in the response body:
# {"status":"success", ... }

# A failed response will contain something like this:
# {"status":"error","message":"License Invalidated"}

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

$status = $jResp->stringOf("status");
print "status: " . $status . "\r\n";