Changeset 554 for lang/perl/plagger/lib/Plagger/Plugin/Publish

Timestamp:

10/19/07 19:17:13 (14 months ago)

Author:

mattn

Message:

lang/perl/plagger/lib/Plagger/Plugin/Publish/GooBookmark.pm: fixed: workarround for tags.

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Publish/GooBookmark.pm (modified) (4 diffs)

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

@@ -33 +33 @@
 
     my @tags = @{$args->{entry}->tags};
+    foreach my $tag (@tags) { $tag =~ s/,/_/g; } # FIXME: goo bookmark don't allow ',' for tags.
     my $tag_string = @tags ? join(',', @tags) : '';
 
@@ -54 +55 @@
                     keywordlist => encode('utf-8', $tag_string),
                     comment     => $summary,
-                    publicno    => 0,
+                    publicno    => ($self->conf->{default_publicno} || 0),
                     point       => ($self->conf->{default_rate} || 1),
                 },
@@ -105 +106 @@
       interval: 2
       post_body: 1
-          default_rate: 1
+      default_rate: 1
+      default_publicno: 0
 
 =head1 DESCRIPTION
@@ -112 +114 @@
 L<http://bookmark.goo.ne.jp/>. It supports automatic tagging as well. It
 might be handy for synchronizing delicious feeds into goo bookmark.
+
+=head1 CONFIG
+
+=over 4
+
+=item username, password
+
+username and password for Goo Bookmark. Required.
+
+=item default_rate
+
+Optional. default rate value is 1.
+
+=item default_publicno
+
+Optional. default publish operation value is 0 as publish.
+
+=item interval
+
+Optional.
+
+=item timeout
+
+Optional.
+
+=back
 
 =head1 AUTHOR