Let's just show the whole script here for easier debugging...
#!/usr/bin/perl
use strict;
use Net::Twitter;
use Scalar::Util 'blessed';
use warnings;
my $wikiurl;
my $wikitxt;
my $wikckey;
my $wikcsec;
my $wikatok;
my $wikasec;
my $client;
my $tweet;
$wikiurl = $ENV{wikiurl};
$wikitxt = $ENV{wikitxt};
$wikckey = $ENV{wikckey};
$wikcsec = $ENV{wikcsec};
$wikatok = $ENV{wikatok};
$wikasec = $ENV{wikasec};
#debugging:
print "keys are\n";
print "$wikckey\n";
print "$wikcsec\n";
print "$wikatok\n";
print "$wikasec\n";
my $client = Net::Twitter->new(legacy => 0);
#traits => ['OAuth', 'API::REST'],
my $client = Net::Twitter->new(
traits => [qw/OAuth API::REST/],
consumer_key => '$wikckey',
consumer_secret => '$wikcsec',
access_token => '$wikatok',
access_token_secret => '$wikasec',
);
#binmode STDOUT, ":utf8";
$tweet = $wikiurl." ".$wikitxt;
#debugging:
print "$tweet\n";
my $res = $client->update('Hello');
#my $res = $client->update({ status => $tweet });
print "Tweeted: http://twitter.com/$res-
>{user}{screen_name}/status/$res->{id}\n";
Willem Kossen
wDOTkossenATgmailPUNKTcom
--
Twitter developer documentation and resources: http://dev.twitter.com/doc
API updates via Twitter: http://twitter.com/twitterapi
Issues/Enhancements Tracker: http://code.google.com/p/twitter-api/issues/list
Change your membership to this group:
http://groups.google.com/group/twitter-development-talk
