blog.鶯梭庵

二〇〇四年葉月十九日木曜日

このブログでは、writeback プラグインを以下のように変更して使っている。

119行目

if ( request_method() eq 'POST' and (param('plugin') eq 'writeback' or $blosxom::flavour eq $trackback_flavour) ) {

を

if ( request_method() eq 'POST' and param('plugin') eq 'writeback' and param('name') ne '' and param('comment') ne '' ) {

に変更

・トラックバックの受信をしないようにした。

・名前またはコメントが空白の入力は受け付けないようにした。

130行目から131行目

$p =~ s/<.*?>//mg;

$p =~ s/\r?\n\r?/\r/mg;

を

my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"');

my $escape_re = join '|' => keys %escape;

$p =~ s/($escape_re)/$escape{$1}/g;

$p =~ s/\x0D\x0A/<br>/g;

$p =~ s/\x0D/<br>/g;

$p =~ s/\x0A/<br>/g;

に変更

・HTML 特殊文字をエスケープするようにした。

（このコードは blosxom 本体で使われていたものを拝借）

・改行が表示に反映されるようにした。

（このコードは Perl メモから拝借）