(Perl) WhatsApp - Download/Retrieve Media

Demonstrates how to download media previously uploaded to the WhatsApp Business API client

For more information, see https://developers.facebook.com/docs/whatsapp/api/media#retrieve

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

use chilkat();

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

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

# Implements the following CURL command:

# curl -X GET \
#   https://your-webapp-hostname:your-webapp-port/v1/media/4b5bf27b-8672-4d55-bc21-d096dc200d0f \
#   -H 'Authorization: Bearer your-auth-token' \
#   -o path/filename

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Adds the "Authorization: Bearer your-auth-token" header.
$http->put_AuthToken("your-auth-token");

$bdResponseBody = chilkat::CkBinData->new();
$success = $http->QuickGetBd("https://your-webapp-hostname:your-webapp-port/v1/media/4b5bf27b-8672-4d55-bc21-d096dc200d0f",$bdResponseBody);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$respStatusCode = $http->get_LastStatus();
print "response status code = " . $respStatusCode . "\r\n";
print "response header = " . $http->lastResponseHeader() . "\r\n";

if ($respStatusCode != 200) {
    print "Error response body:" . "\r\n";
    print $bdResponseBody->getString("utf-8") . "\r\n";
    exit;
}

$success = $bdResponseBody->WriteFile("path/filename");