print FH generate_rss($tb_id, $data, 15);こんな感じにしました。4 行追加するだけ。
close FH;
}
respond_exit();
} elsif ($mode eq 'list') {
print FH generate_rss($tb_id, $data, 15);これで、ping を受けるたびに tb_data/[TrackBackID].js というファイルが作成されるようになります。
close FH;
}
if (open(FH, ">" . catfile($DataDir, $tb_id . '.js'))) {
print FH "document.write('@{[scalar(grep {$_} @$data)]}');\n";
close FH;
}
respond_exit();
} elsif ($mode eq 'list') {
document.write('3');これを日記ページに以下のように貼りつけて使います。
<a href="tb/tb.cgi?__mode=list&tb_id=20030924"chalow で日毎に上記のタグを出力するようにちょっと改造。
onclick="window.open(this.href, 'trackback',
'width=480,height=480,scrollbars=yes,status=yes'); return
false">TrackBack(<script language="JavaScript"
src="tb/tb_data/20030924.js"></script>)</a>