YTPXのブックマーク - はてなブックマーク

Plagger::Plugin::Filter::POPFile - Charsbar::Note

そーいやPOPFileってXMLRPC通信できるんだよなあと思い出したので作ってみた。SpamAssassinも悪くはないけど、こっちの方がウェブインタフェース用意されている分使いやすいかな。ちなみにPOPFileにはWindows版インストーラもあるんですが、どうもこいつの設定がよろしくないらしく、POPFile直下のlibディレクトリにふだん使っているActivePerlのlibディレクトリから lib/auto/List/Util/ lib/List/ lib/Scalar/以下の内容をコピってやらないとXMLRPCが動作しませんでした。もちろん詳細設定でxmlrpc_enabledをtrueにしたときにはPOPFileを一度再起動しないといけないというのもお忘れなく。 package Plagger::Plugin::Filter::POPFile; use strict; us

YTPX 2006/08/08

リンク

Plagger::Plugin::Publish::PowerPoint - Charsbar::Note

ファイル名まわりとか、Plagger::Pluginあたりに入れてもらった方がすっきりするかもなあと思いつつ。 package Plagger::Plugin::Publish::PowerPoint; use strict; use base qw( Plagger::Plugin ); our $VERSION = '0.01'; use Win32::PowerPoint; use Encode; use File::Path; sub register { my($self, $context) = @_; $context->register_hook( $self, 'publish.init' => \&connect_powerpoint, 'publish.feed' => \&publish_presentation, ); } sub publish_presenta

YTPX 2006/06/30

Plagger

リンク

Win32::PowerPoint - Charsbar::Note

Putty越しのコンパイル祭りの合間にちょろっと逃避。PODにはSporkやSporxの変換用なんて書いておいたけど、もちろん本意がPlagger::Plugin::Publish::PowerPointにあることは言うまでもない。とりあえずこんな感じで。もうちょいまわりを書けばPPPPPになるはず。 use Win32::PowerPoint; my $pp = Win32::PowerPoint->new; $pp->new_presentation; foreach my $entry (@entries) { $pp->new_slide; $pp->add_text($entry->title_text, { size => 40, bold => 1 }); $pp->add_text($entry->body_text); } $pp->save_presentation('

YTPX 2006/06/29

Plagger

リンク

Plagger::Plugin::Filter::POPFile v0.03 - Charsbar::Note

miyagawaさんにいろいろ助言をいただいてだいぶすっきり。Ruleの使い方がいまいちよくわかっていなかったのですが、これでPublish::POPFileはお蔵入りです。v0.02までのadd_tags_to_titleとdeleteについてはまた別プラグインで実装ということで。 # さらに指摘を受けたので微妙にverup. # もひとつ気づいたことがあるので微妙にup. package Plagger::Plugin::Filter::POPFile; use strict; use base qw( Plagger::Plugin ); our $VERSION = '0.03_02'; use XMLRPC::Lite; use File::Temp (); use Encode; sub register { my ($self, $context) = @_; $contex