[sb]重複トラックバック防止
2005.02.17 Thursday 18:29
このごろ重複トラックバックが来るので対策打とうとsbのソースを見ていました。
一応、重複チェックは行っているんですね。
でも、Permalinkが同じで内容が違うトラックバックは受け付けてしまっている模様なので、以下のように修正してみました。
一応、重複チェックは行っているんですね。
でも、Permalinkが同じで内容が違うトラックバックは受け付けてしまっている模様なので、以下のように修正してみました。
sub sbres_check_redundancy {
my ($eid,$mode,$body,$name) = @_;
my $check = 1;
foreach my $hash ( @{$gData{'entry'}{$eid}{$mode}} ) {
next if ($$hash{'id'} eq '');
if ($mode eq 'com') {
$check = 0 if ($name eq $$hash{'auth'} and $body eq $$hash{'body'});
} else {
$check = 0 if ($name eq $$hash{'url'});
}
last if (!$check);
}
return($check);
}
つまり、 if ($name eq $$hash{'url'} and $body eq $$hash{'body'});をif ($name eq $$hash{'url'});に変えただけなんですが･･･
本当はurlが同じで内容が違う場合、表示内容を更新する方がいいんでしょうけど、とりあえずの対応ということで。
Comments
Comment Form