(Perl) WhatsApp Cloud API Send Message

See more WhatsApp Examples

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

use chilkat();

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

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

# The following JSON is sent in the request body.

# {
#   "messaging_product": "whatsapp",
#   "to": "16302581871",
#   "type": "template",
#   "template": {
#     "name": "hello_world",
#     "language": {
#       "code": "en_US"
#     }
#   }
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("messaging_product","whatsapp");
$json->UpdateString("to","15555555555");
$json->UpdateString("type","template");
$json->UpdateString("template.name","hello_world");
$json->UpdateString("template.language.code","en_US");

$http->put_AuthToken("EAANrS5....yFB9Ma");
$http->SetRequestHeader("Content-Type","application/json");

# resp is a HttpResponse
$resp = $http->PostJson3("https://graph.facebook.com/v18.0/111111111111111/messages","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

# Here's a screenshot of our WhatsApp test app.

#