Changeset 16821 for lang/perl/plagger

Timestamp:

07/30/08 07:40:33 (4 months ago)

Author:

hsbt

Message:

add channel_update and templatize.

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Publish/Wassr.pm (modified) (3 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Publish/Wassr.pm

@@ -32 +32 @@
 
     my $body = $self->templatize('wassr.tt', $args);
+    unless ($self->conf->{templatize}) {
+        $body = $args->{entry}->body_text;
+    }
+
     # TODO: FIX when Summary configurable.
     if ( length($body) > 159 ) {
@@ -37 +41 @@
     }
     $context->log(info => "Updating Wassr status to '$body'");
-    $self->{wassr}->update( {status => encode_utf8($body)} ) or $context->error("Can't update wassr status");
-
+    if ($self->conf->{channel}) {
+        $self->{wassr}->channel_update( {name_en => $self->conf->{channel}, body => encode_utf8($body)} ) or $context->error("Can't update wassr status");
+    } else {
+        $self->{wassr}->update( {status => encode_utf8($body)} ) or $context->error("Can't update wassr status");
+    }
     my $sleeping_time = $self->conf->{interval} || 15;
     $context->log(info => "sleep $sleeping_time.");
@@ -57 +64 @@
       username: wassr-id
       password: wassr-password
+      channel: name_en
+      templatize: 1
 
 =head1 DESCRIPTION