Perl

Twitter OAuth -- Tweet to Your Own Account

See more HTTP Examples

Demonstrates how to send a tweet (status update) to your own Twitter account using pre-known credentials, which includes:

1. Consumer Key
2. Consumer Secret
3. Access Token
4. Token Secret

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

$http->OAuth1(1);
$http->OAuthVerifier('');
$http->OAuthConsumerKey('my-consumer-key');
$http->OAuthConsumerSecret('my-consumer-secret');
$http->OAuthToken('my-access-token');
$http->OAuthTokenSecret('my-token-secret');

# Send the same status update as shown in this example:
# https://dev.twitter.com/docs/api/1.1/post/statuses/update

# IMPORTANT: Make sure this app has read/write access.
# Otherwise it cannot post an update (i.e. tweet) to the Twitter account.

my $req = Chilkat2::HttpRequest->new;
$req->AddParam('status', 'Maybe he\'ll finally find his keys. #peterfalk');

$req->HttpVerb('POST');
$req->ContentType('application/x-www-form-urlencoded');

my $resp = Chilkat2::HttpResponse->new;
my $success = $http->HttpReq('https://api.twitter.com/1.1/statuses/update.json', $req, $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

if ($resp->StatusCode == 200) {
    # Display the JSON response.
    print $resp->BodyStr, "\n";
} else {
    print $http->LastErrorText, "\n";
}