lib/Mubot4FB/Tweet.pm

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (c) 2012 ISHIKAWA Mutsumi <ishikawa@hanzubon.jp>
   4 # This program is covered by the GNU General Public License 2
   5 #
   6 package Mubot4FB::Tweet;
   7
   8 use strict;
   9 use utf8;
  10
  11 use Net::Twitter::Lite;
  12 use Encode;
  13
  14 use Data::Dumper;
  15
  16 use base 'Mubot4FB::Common';
  17
  18 sub init {
  19         my ($me) = @_;
  20
  21         $me->{twitter} = Net::Twitter::Lite->new(consumer_key => $me->{cfg}->{twitter}->{consumer_key},
  22                                                  consumer_secret => $me->{cfg}->{twitter}->{consumer_secret},
  23                                                  legacy_list_api => 0);
  24
  25         $me->{twitter}->access_token($me->{cfg}->{twitter}->{access_token});
  26         $me->{twitter}->access_token_secret($me->{cfg}->{twitter}->{access_secret});
  27
  28         return $me->{twitter};
  29 }
  30
  31 sub publish {
  32         my ($me, $text, $uri, $in_reply_to) = @_;
  33
  34         $text = substr($text, 0, 110) . '...' if (length($text) > 110);
  35
  36         my $o = {status => $text . ' ' . $uri};
  37         $o->{in_reply_to_status_id} = $in_reply_to if (defined $in_reply_to);
  38
  39         my $status;
  40         eval {$status = $me->{twitter}->update($o)};
  41         return $status;
  42 }
  43
  44 sub remove {
  45         my ($me, $tweet_id) = @_;
  46         my $status;
  47         eval {$status = $me->{twitter}->destroy_status($tweet_id)};
  48         return $status;
  49 }
  50
  51 1;