tb-standaloneを設定

BulknewsのTatsuhiko Miyagawa のスクリプトを設置してみた。
http://blog.bulknews.net/mt/archives/000383.html

Perl5.8だと、足りないモジュール JCode と MIME:Liteを入れて

値を変えたら完了
http://www.movabletype.org/docs/tb-standalone.html
のマニュアルの意味が少しよくわかんなかったけど、なっとく
tb_idに/は使わない方がいいです。

あと気になったのは __mode=send_form 機能
なんか、中継されそうなので、無効にした。

そこで、トラックバック数はどう出すのと疑問に思ったが、
コード読む気力がなかったので、自分で書いてみた。
ちなみに、Perlは仕事でもつかってるけど初心者です。perl4の時から成長してません。

        • -

#!/usr/bin/perl
#Licensed under LGPL
use CGI qw/:standard/;
use Storable;
$query=new CGI();
$id=$query->param("tb_id");

$id="ax2";

$id=~s/\//_/g;
$path="trackbackdir/$id.stor";
#print $path;

my $cache = eval { Storable::retrieve($path) } || {};

$indexSize=@$cache;
print "content-type:text/plain\n\n";
print $indexSize;

      • -

StorableってJavaのシリアライズみたいなものね。便利といえば便利だ。
でも、他の言語でどうやって解析するんでしょうか。
これを、SSIとかで使うんだけど、負荷が高そうなので、前ページにつけるのは難しいかな。