CallbackTest01
構成
$MT_DIR/
|__ plugins/
| |__ CallbackTest01/
| |__ config.yaml
| |__ lib/
| | |__ CallbackTest01
| |__ Callback.pm
ソース
config.yaml
id: callback01
key: CallbackTest01
name: CallbackTest01
version: 0.00
callbacks:
# テンプレート構築後に実行
build_page: $CallbackTest01::CallbackTest01::Callback::hdlr_func01
lib/CallbackTest01/Callback.pm
package CallbackTest01::Callback;
use strict;
use MT::FileMgr;
use Data::Dumper;
sub hdlr_func01{
# 引数を取得
# $cb : コールバッククラスオブジェクト
# %args : 各オブジェクトのハッシュ
my ($cb, %args) = @_;
# ブログ情報
my $blog = $args{blog};
# ファイルパス
my $file = $args{file};
# 記事、ウェブページ情報
my $entry = $args{entry};
# アーカイブタイプ
my $archive_type = $args{archive_type};
# 生成されたHTML情報
my $content = $args{content};
debug($blog);
# 置き換えデータ
my $html = $blog->name . ":" . $entry->title . "(" . $entry->class . ")";
# 取得データを置き換えて作成
$$content =~ s!</body>!$html\n</body>!;
}
sub debug{
my ($data) = @_;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;
my $dump = Dumper($data);
my $file = "/home/httpd/cgi-bin/mt/aaa.txt";
my $fmgr = MT::FileMgr->new('Local');
$fmgr->put_data($dump, $file);
}
1;
最終更新:2012年02月04日 10:40