Prev / Next / /home/pochi/ChangeLog

手軽な「くっつきBBS」が出たみたい[chalow][computer]

2007-01-05

http://nais.to/~yto/clog/2006-11-30-3.html

この日記は、たつをさんが作ったくっつきBBSを元に、
書きこみがあるとメールが来るように改造し(-->[2004-11-16-3])
スパム対策をしたものを使っている(-->[2006-01-25-2])。

でも同じような外部サービスがあるなら自前でやる理由もないかなあ。
スパムは本当に沢山くるからね。

今のスパム対策用のコードは、以下のような感じになっている。
場当たり的にコードを追加してるため相当美しくない。

if ($mode eq "write") {
    $name = $noname if ($name =~ /^\s*$/sm);

    # anti spam
    if (($body ne "") && ($body !~ m/[\x80-\xff]/)) {die('error')};
    if ($body =~ m/deai-jiten.com/) {die('error')};
    if ($body =~ m/rution.info/) {die('error')};
    if ($body =~ m/nottion.info/) {die('error')};
    if ($body =~ m/comu2.com/) {die('error')};
    if ($body =~ m/.nm.ru/) {die('error')};
    if ($body =~ m/.alice.it/) {die('error')};
    if ($body =~ m/solisearch.net/) {die('error')};
    if ($body =~ m/porno/) {die('error')};
    if ($body =~ m/girl/) {die('error')};
    if ($body =~ m/antivirus/) {die('error')};
    if ($mail_or_url =~ "successlifestyle") {die('error')};

permlink