(Perl) Twitter - Tweet with Multiple Images

Example to post a status update with multiple associated images/photos (or videos).

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

use chilkat();

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

# ----------------------------------------------------------------------
# This initial setup, which involves setting the OAuth1 properties and connecting
# to api.twitter.com, is only required once at the beginning.  Once connected, the same
# object instance may be re-used, and if necessary, it will automatically reconnect
# as needed.

# Assume we've previously obtained an access token and saved it to a JSON file..
$json = chilkat::CkJsonObject->new();
$success = $json->LoadFile("qa_data/tokens/twitter.json");

$rest = chilkat::CkRest->new();
$oauth1 = chilkat::CkOAuth1->new();

$oauth1->put_ConsumerKey("TWITTER_CONSUMER_KEY");
$oauth1->put_ConsumerSecret("TWITTER_CONSUMER_SECRET");
$oauth1->put_Token($json->stringOf("oauth_token"));
$oauth1->put_TokenSecret($json->stringOf("oauth_token_secret"));
$oauth1->put_SignatureMethod("HMAC-SHA1");
$oauth1->GenNonce(16);

$rest->SetAuthOAuth1($oauth1,0);

$bAutoReconnect = 1;
$success = $rest->Connect("api.twitter.com",443,1,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# This ends the initial setup...
# ----------------------------------------------------------------------

$tweetContent = "This is a test tweet with multiple images.";

# Send a tweet...
$rest->ClearAllQueryParams();
$rest->AddQueryParam("status",$tweetContent);

# Add list of comma separated media_ids to associate with the Tweet. 
# You may include up to 4 photos or 1 animated GIF or 1 video in a Tweet.
# The image needs to have been previously uploaded.  The upload response gave us
# the media ID we'll use to associate this tweet with the image (or video)
# See Twitter Upload Media for sample code.
$rest->AddQueryParam("media_ids","793137045996646400,793192201392041984");

$resp = $rest->fullRequestFormUrlEncoded("POST","/1.1/statuses/update.json");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->put_EmitCompact(0);
$jsonResponse->Load($resp);

if ($rest->get_ResponseStatusCode() != 200) {
    print $jsonResponse->emit() . "\r\n";
    exit;
}

# Show the successful response:
print $jsonResponse->emit() . "\r\n";
print "Success." . "\r\n";