Changeset 11639

Timestamp:

05/15/08 22:37:39 (5 years ago)

Author:

kan

Message:

X:C:Twitter can update

Files:

• lang/perl/XIRCD/trunk/lib/XIRCD/Component/Twitter.pm (modified) (3 diffs)

lang/perl/XIRCD/trunk/lib/XIRCD/Component/Twitter.pm

@@ -4 +4 @@
 with qw(MooseX::POE::Aliased);
 
+use Encode;
 use HTTP::Request::Common;
 use HTTP::Date ();
@@ -62 +63 @@
 }
 
+event send_message => sub {
+    my $self = shift;
+    my ($status,) = get_args(@_);
+
+    my $req = HTTP::Request::Common::POST(
+        $self->config->{apiurl} . '/update.json',
+        [ status => encode('utf-8',$status) ],
+    );  
+    $req->authorization_basic($self->config->{twitter}->{username}, $self->config->{twitter}->{password});
+
+    POE::Kernel->post($self->http_alias => request => 'http_response', $req);
+};
+
 event read_twitter_friend_timeline => sub {
     my $self = shift;
@@ -117 +131 @@
 };
 
+event update_success => sub {
+    my $self = shift;
+
+    my ( $response, ) = get_args(@_);
+
+    if ( $response->is_success ) {
+        my $ret = JSON::Any->jsonToObj($response->content);
+        POE::Kernel->post( ircd => publish_notice => $self->config->{channel}, $ret->{text} );
+    }
+};
+
 
 1;