2012年01月11日

yomiサーチでhtml表示のバグ

yomiサーチ(Ver4.19) をHTML表示にした時、空のページがいっぱい作成される不具合が生じ困っておりましたが、Ver4.20では下記の様に改善されていました

※pl/temp.cgi 681～682行目
local(@arg,$T3,$td_flag,$key,$value,$area,@AREA,@PR_below_kt);
@arg=@_;
を
local(@arg,$T3,$td_flag,$key,$value,$area,@AREA,@PR_below_kt,%Clog1);
@arg=@_; %Clog1=%Clog;
に修正。

※pl/temp.cgi 695行目
$Clog{"${LC_kt}_$1"}+=$Clog{$key};
を
$Clog1{"${LC_kt}_$1"}+=$Clog1{$key};
に修正。

※pl/temp.cgi 705行目
if(!$Clog{$key}){$Clog{$key}=0;}
を
if(!$Clog1{$key}){$Clog1{$key}=0;}
に修正。

※pl/temp.cgi 709行目
if($arg[1]){print"($Clog{$key})";}
を
if($arg[1]){print"($Clog1{$key})";}
に修正。



posted by ガンさん | Comment(0) | CGI改造 |

2006年10月24日

掲示板へのスパム投稿防止

最近、掲示板荒しが増えて対応に苦慮 ちっ（怒った顔）
cgiを改造してみてもよい手立てが無い
荒しのパターンはURLや英文のみ書き込みなので、日本語が全く含まれない書き込みを禁止するプログラム探していたら、いいのが見つかりました

if (&chkZenkaku($LINE) ne 'sjis') { &error; }
sub chkZenkaku {
local($line) = @_;
(@line) = &jcode'getcode(*line);
$line[1];
}

sub error {
print "<html><body><h3>書き込みできません</h3></body></html>¥n";
exit;
}

$LINE の部分をチェックしたいデータに置き換えればOKです

出典
http://www.rescue.ne.jp/study/spam/


タグ：掲示板
posted by ガンさん | Comment(0) | TrackBack(0) | CGI改造 |

2005年12月19日

外部からの書き込み禁止

最近、掲示板に不正書き込みが頻繁にあり、どうも外部から書き込みをしているようだ
使用している掲示板は、KENT WEB様が無償で配布している G-LIGHT の v4.61 で古いやつで外部書き込みを制御する機能がない
今は、Ver: 5.2 が配布されているが、自分なりにカスタマイズしており、新しいものに載せ替えるのは面倒くさい
そこで、cgiを次のように改造した

① 設定項目の中に次の行を挿入
# 他サイトから投稿排除
$baseUrl = '自分のBBSのURLをここに書く';

② sub regist { に次の行を挿入
# 投稿チェック
if ($baseUrl) { &refCheck; }

③ 次のサブルーチンを追加
sub refCheck {
local($ref) = $ENV{'HTTP_REFERER'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
$baseUrl =~ s/(\W)/\\$1/g;
if ($ref && $ref !~ /$baseUrl/i) { &error("不正なアクセスです"); }
}


posted by ガンさん | Comment(0) | TrackBack(0) | CGI改造 |

2005年05月23日

禁止ワードの設定

私の掲示板にアダルト系のいやらしい書き込みがやたら多くなり困っております
掲示板は、Kent WebのフリーCGI G-LIGHT v4.61 を使用しており、禁止ワード機能が無かったのでパターンマッチ演算子を使って次のように改造しました

sub regist {　の下に次の行を挿入
if ($FORM{'comment'} =~ /セックス|勃起|援助交際|サラ金|熟女/){ &error("書き込み出来ません"); }

|と|の間に次々と禁止ワードを入れてやればOK
注) 最後は |/ としないこと。また、CGIはちょっとしたこと(例えば ; と : や ~ と ～ の違いなど)でも動かなくなるので必ずバックアップしておくこと

初心者向けのPerl入門ページを参考にしました
http://www.kent-web.com/perl/

続きを読む

タグ：スパム
posted by ガンさん | Comment(0) | TrackBack(0) | CGI改造 |