Perl楽しいから好き

Perlをはじめとしたプログラミング周りのあれこれについて。モダーンなPerlを楽しんでいます。

MovableTypeの役に立たないプラグインを作ってみた

Perlの学習にもってこいだし、仕事に使わなくもないのでMTのプラグイン開発の真似事を少し始めてみた。


プログラミング入門にお決まりの「Hello World!」表示がお題になっていたが、面白くないのでオリジナルメッセージに変更。

プラグイン名も無駄にオリジナルに。


↑自分が作ったプラグインが表示されるとテンション上がる



↑早速役に立たないMTタグをテンプレートに挿入っ!!



↑そして、役に立たない表示がされるのであった!!




プラグインのソースは下記の通り。
pluginフォルダにILoveAKB48フォルダを作り、i_love_akb48.plとして保存。




package MT::Plugin::ILoveAKB48;

use strict;
use warnings;

use base qw( MT::Plugin );

my $plugin = MT::Plugin::ILoveAKB48->new({
id => 'iloveakb48',
key => __PACKAGE__,
name => 'ILoveAKB48',
registry => {
tags => {
function => {
'ILoveAKB48' => \&hdlr_iloveakb48,
},
},
}
});
MT->add_plugin($plugin);

sub hdlr_iloveakb48 {
return 'I Love AKB48!!';
}

1;



もちっと役に立つプラグインを作れるようにならなくっちゃ。