Changeset 27228 for lang/perl/plagger

Timestamp:

12/22/08 19:39:38 (4 years ago)

Author:

otsune

Message:

opps. fix error

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Notify/ImKayac.pm (modified) (3 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Notify/ImKayac.pm

@@ -3 +3 @@
 use base qw( Plagger::Plugin );
 
-use Encode;
 use Plagger::UserAgent;
 use HTTP::Request::Common;
@@ -13 +12 @@
     $context->register_hook(
         $self,
-        'plugin.init'      => \&initialize,
-        'publish.entry'    => \&notify_entry,
+        'plugin.init'   => \&initialize,
+        'publish.entry' => \&notify_entry,
     );
 }
@@ -54 +53 @@
         POST "http://im.kayac.com/api/post/$username", $post_body
     );
-
     my $data = JSON::Syck::Load($res->content);
     if (ref $data ne 'HASH') {
-        $context->log(error => "json parse error: $data");
+        $context->log(error => "json parse error: " . $res->content);
         return;
     }
     if ($data->{result} eq 'posted'){
-        $context->log(debug => "Post entry success: $uri");
+        $context->log(info  => "Post entry success: " . $args->{entry}->title );
     } else {
-        $context->log(debug => "Post entry failed: @{[$data->{error}]}");
+        $context->log(error => "Post entry failed: " . $data->{error} );
     }