@@ -1,3 +1,6 @@
+0.17 2014-01-18
+ - Enable SSL for Twitter API calls
+
0.16 2013-06-13
- initial Twitter API v1.1 support (BinGOs)
@@ -45,4 +45,4 @@ requires:
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/semifor/twirc.git
-version: 0.16
+version: 0.17
@@ -4,7 +4,7 @@
"Marc Mims <marc@questright.com>"
],
"dynamic_config" : 0,
- "generated_by" : "Module::Install version 1.06, CPAN::Meta::Converter version 2.120921",
+ "generated_by" : "Module::Install version 1.06, CPAN::Meta::Converter version 2.133380",
"license" : [
"perl_5"
],
@@ -68,5 +68,5 @@
"url" : "git://github.com/semifor/twirc.git"
}
},
- "version" : "0.15"
+ "version" : "0.16"
}
@@ -140,6 +140,16 @@ TRACE. The default is WARN.
File used to store state information between sessions, including Twitter OAuth
access tokens, friends, and followers_ids.
+=item twitter_args
+
+Use this to pass additional parameters to L<Net::Twitter>'s constructor. For
+example, this version of Twirc uses SSL connections to the Twitter API. If
+you're using a service that requires non-SSL connections, add this to your
+configuration file:
+
+ twitter_args:
+ ssl: 0
+
=back
=head1 USING
@@ -81,7 +81,11 @@ sub run {
if ( $self->authenticate || !$state->access_token ) {
# bloody hack until Twitter restores xauth
- my $nt = Net::Twitter->new(traits => [qw/OAuth/], POE::Component::Server::Twirc->_twitter_auth);
+ my $nt = Net::Twitter->new(
+ traits => [qw/OAuth/],
+ POE::Component::Server::Twirc->_twitter_auth,
+ ssl => 1,
+ );
print "Authorize twirc at ", $nt->get_authorization_url, "\nThen, enter the PIN# provided: ";
my $pin = <STDIN>;
@@ -17,7 +17,7 @@ use Regexp::Common qw/URI/;
with 'MooseX::Log::Log4perl';
-our $VERSION = '0.16';
+our $VERSION = '0.17';
=head1 NAME
@@ -356,6 +356,7 @@ sub _net_twitter_opts {
useragent_class => 'LWP::UserAgent::POE',
useragent => "twirc/$VERSION",
decode_html_entities => 1,
+ ssl => 1,
%{ $self->twitter_args },
);
@@ -44,6 +44,7 @@ redisplaying
retweet
retweeting
spammers
+SSL
timeline
timelines
Twirc