Yomi-Search FAN!の掲示板で見つけてkazuking searchでも導入しているんですが、Yomi-Search FAN!はご存知の通り・・・。
取り合えずスパム対策に物凄い威力を発揮しているんで記事にしてみます。住さんのアドオンではなかったので問題は無いと思うんですが駄目ならご一報くだされ。改造するのは、regist_ys.cgiと、pl/mail_ys.cgiと2つのファイルの新規作成です。
regist_ys.cgiの383~386行目
- ##仮登録モードの場合の設定
- if($EST{user_check} && $FORM{changer} ne "admin" && $FORM{mode} eq "act_regist"){
- $Slog[14]=join("<1>",$FORM{Fsougo},$FORM{Fadd_kt},$FORM{'Fto_admin'})
- }
の下に以下を追加
- ##認証パスワード(16)
- if($FORM{changer} ne "admin" && $FORM{mode} eq "act_regist" && $FORM{check} ne "on"){
- $att_pass = int rand(99999);
- $Slog[16]= sprintf("%05d",$att_pass); # (A)16の値はデフォルトの状態。保存ログを追加している場合、最後の値に1プラスした値にする
- }
734~736行目
- local($new,$new_id,@hyouji_log);
- #$new=>追加データ書き込み用/%TASK=>更新するカテゴリリスト
- #@hyouji_log=>結果表示用のログデータ
の下に以下を追加
- #$att_pass => 認証用パスワード
- #$att_id => 認証用ログID
- #$att_file => パスワード認証ログ
- #$att_days => 認証期間(日数)
- $att_pass,$att_id;
- $att_file = "att.cgi";
- $att_days = "3";
750行目
- ✓ #入力内容のチェック
を以下に修正
- if($FORM{check} ne "on"){
- ✓ #入力内容のチェック
- }
754行目~の
- #ID取得&2重URL登録チェック
- $Cgane_pre=0; #総登録数
- if($EST_reg{nijyu_url}){$new_id=&get_id_url_ch(1);}
- else{$new_id=&get_id;}
の下に以下を追加
- if($FORM{changer} ne "admin" && $FORM{mode} eq "act_regist" && $FORM{check} ne "on"){
- $new_id=&get_checklog_id;
- }
759行目
- &join_fld($new_id); #入力内容の整形
を以下に修正
- if($FORM{check} eq "on"){
- if(!$FORM{att_id}){&unlock();&mes("IDが見つかりません","登録認証エラー","java");}
- elsif(!$FORM{att_pass}){&unlock();&mes("パスワードが見つかりません","登録認証エラー","java");}
- local(@ATT,@CATE,$str);
- open(IN,"$EST{log_path}$att_file"); # 仮仮データからログを探す
- while(<IN>){
- @ATT = split(/<>/,$_);
- if($ATT[0] eq $FORM{att_id}){
- if($ATT[16] eq $FORM{att_pass}){ # ログを増やしている場合には、ログ番号を変える
- @CATE = split(/&/,$ATT[10]);
- foreach (1 .. $EST_reg{kt_max}){
- $FORM{"Fkt$_"} = $CATE[$_ - 1];
- }
- pop @ATT;$ATT[0] = $new_id;@Slog = @ATT;$str=1;last;
- }
- }
- }
- close(IN);
- if($str ne "1"){&unlock();&mes("無効なIDです。","登録認証エラー","java");} # ログが見つからなかった場合
- }
- else{
- &join_fld($new_id); #入力内容の整形
- }
769行目~の
- if($EST{user_check} && $FORM{changer} ne "admin" && $FORM{mode} eq "act_regist"){ #<仮登録時>
#仮登録ログデータに追加書き込み
- open(OUT,">>$EST{log_path}$EST{temp_logfile}");
- print OUT $new;
- close(OUT);
を以下に変更
- if($EST{user_check} && $FORM{changer} ne "admin" && $FORM{mode} eq "act_regist"){ #<仮登録時>
- local(@ATT,@TIME);$times=time();
- if($FORM{check} ne "on"){ #<仮仮登録時>
- open(IN,"$EST{log_path}$att_file"); # 仮仮データのログを調整
- while(<IN>){ # 期間超過分のログを省く
- @ATT = split(/<>/,$_);
- @TIME=split(/_/,$ATT[11]);
- if($TIME[0] > $times - (60*60*24*$att_days)){push(@ATTLOG,$_);}
- }
- close(IN);
#仮登録ログデータに追加書き込み
- open(OUT,">$EST{log_path}$att_file");
- print OUT @ATTLOG;
- print OUT $new;
- close(OUT);
- }
- elsif($FORM{check} eq "on"){ #<仮登録時>
- open(IN,"$EST{log_path}$att_file"); # 仮仮データのログを調整
- while(<IN>){ # 期間超過分のログと、今回のログを省く
- @ATT = split(/<>/,$_);
- if($ATT[0] ne $FORM{att_id}){
- @TIME=split(/_/,$ATT[11]);
- if($TIME[0] > $times - (60*60*24*$att_days)){push(@ATTLOG,$_);}
- }
- }
- close(IN);
#仮仮登録ログデータを更新
- open(OUT,">$EST{log_path}$att_file");
- print OUT @ATTLOG;
- close(OUT);
#仮登録ログデータに追加書き込み
- open(OUT,">>$EST{log_path}$EST{temp_logfile}");
- print OUT $new;
- close(OUT);
- }
770行目~の
- ##メールを送信
- #件名に付けるマークを設定
- local($PR_mail_add_line,$PR_mail_sougo,$PR_mail_com,$PR_mail_kt);
- &kenmei_put_mark;
- sub kenmei_put_mark{
- if($FORM{Fsougo}){$PR_mail_sougo="(link)";}
- else{$PR_mail_sougo="";}
- if($FORM{Fto_admin}){$PR_mail_com="(com)";}
- else{$PR_mail_com="";}
- if($FORM{Fadd_kt}){$PR_mail_kt="(kt)";}
- else{$PR_mail_kt="";}
- $PR_mail_add_line=$PR_mail_sougo . $PR_mail_com . $PR_mail_kt;
- }
- $Slog[6]=~s/<br>/\n/g; $Slog[7]=~s/<br>/\n/g;
- if($EST{mail_temp}){require "pl/mail_ys.cgi";}
- if($EST{mail_to_admin} && $EST{mail_temp}){ #管理人へメール送信
- &mail($EST{admin_email},$Slog[9],"$EST{search_name} 仮登録完了通知$PR_mail_add_line","temp","admin",*Slog,$FORM{Fsougo},$FORM{Fadd_kt},$FORM{Fto_admin});
- }
- if($EST{mail_to_register} && $EST{mail_temp}){ #登録者へメール送信
- &mail($Slog[9],$EST{admin_email},"$EST{search_name} 仮登録完了通知","temp","",*Slog,$FORM{Fsougo},$FORM{Fadd_kt},$FORM{Fto_admin});
- }
- $Slog[6]=~s/\n/<br>/g; $Slog[7]=~s/\n/<br>/g;
を以下に変更
- ##メールを送信
- #件名に付けるマークを設定
- local($PR_mail_add_line,$PR_mail_sougo,$PR_mail_com,$PR_mail_kt);
- if($FORM{check} ne "on"){ # 認証メールを送る場合
- if($EST{mail_temp}){require "pl/mail_ys.cgi";}
- if($EST{mail_to_register} && $EST{mail_temp}){ #登録者へ認証用メール送信
- &mail($Slog[9],$EST{admin_email},"$EST{search_name} 仮登録認証メール","att","",*Slog);
- }
- }
- else{
- &kenmei_put_mark;
- sub kenmei_put_mark{
- if($FORM{Fsougo}){$PR_mail_sougo="(link)";}
- else{$PR_mail_sougo="";}
- if($FORM{Fto_admin}){$PR_mail_com="(com)";}
- else{$PR_mail_com="";}
- if($FORM{Fadd_kt}){$PR_mail_kt="(kt)";}
- else{$PR_mail_kt="";}
- $PR_mail_add_line=$PR_mail_sougo . $PR_mail_com . $PR_mail_kt;
- }
- $Slog[6]=~s/<br>/\n/g; $Slog[7]=~s/<br>/\n/g;
- if($EST{mail_temp}){require "pl/mail_ys.cgi";}
- if($EST{mail_to_admin} && $EST{mail_temp}){ #管理人へメール送信
- &mail($EST{admin_email},$Slog[9],"$EST{search_name} 仮登録完了通知$PR_mail_add_line","temp","admin",*Slog,$FORM{Fsougo},$FORM{Fadd_kt},$FORM{Fto_admin});
- }
- if($EST{mail_to_register} && $EST{mail_temp}){ #登録者へメール送信
- &mail($Slog[9],$EST{admin_email},"$EST{search_name} 仮登録完了通知","temp","",*Slog,$FORM{Fsougo},$FORM{Fadd_kt},$FORM{Fto_admin});
- }
- $Slog[6]=~s/\n/<br>/g; $Slog[7]=~s/\n/<br>/g;
- }
798行目
- require "$EST{temp_path}regist_new_end_temp.html";
を以下に変更
- if($FORM{check} ne "on"){
- require "$EST{temp_path}regist_new_end_att.html";
- }
- else{
- require "$EST{temp_path}regist_new_end_temp.html";
- }
801行目
- } #</仮登録時>
- else{ #<新規登録時>
#本体ログデータに追加書き込み
- open(OUT,">>$EST{log_path}$EST{logfile}");
- print OUT $new;
- close(OUT);
を以下に修正
- } #</仮登録時>
- else{ #<新規登録時>
- if($FORM{changer} ne "admin" && $FORM{check} ne "on"){
- local(@ATT,@TIME);$times=time();
- open(IN,"$EST{log_path}$att_file"); # 仮仮データのログを調整
- while(<IN>){ # 期間超過分のログを省く
- @ATT = split(/<>/,$_);
- @TIME=split(/_/,$ATT[11]);
- if($TIME[0] > $times - (60*60*24*$att_days)){push(@ATTLOG,$_);}
- }
- close(IN);
#仮仮登録ログデータに書き込み
- open(OUT,">$EST{log_path}$att_file");
- print OUT @ATTLOG;
- print OUT $new;
- close(OUT);
- }
- elsif($FORM{changer} ne "admin" && $FORM{check} eq "on"){
- local(@ATT,@TIME);$times=time();
- open(IN,"$EST{log_path}$att_file"); # 仮仮データのログを調整
- while(<IN>){ # 期間超過分のログと登録されるログを省く
- @ATT = split(/<>/,$_);
- if($ATT[0] ne $FORM{att_id}){
- @TIME=split(/_/,$ATT[11]);
- if($TIME[0] > $times - (60*60*24*$att_days)){push(@ATTLOG,$_);}
- }
- }
- close(IN);
#仮仮登録ログデータを更新
- open(OUT,">$EST{log_path}$att_file");
- print OUT @ATTLOG;
- close(OUT);
#本体ログデータに追加書き込み
- open(OUT,">>$EST{log_path}$EST{logfile}");
- print OUT $new;
- close(OUT);
- }
- else{
- #本体ログデータに追加書き込み
- open(OUT,">>$EST{log_path}$EST{logfile}");
- print OUT $new;
- close(OUT);
- }
869行目~931行目
- ##メールを送信
- unless($FORM{FCmail} eq "no" && $FORM{changer} eq "admin"){ #送信する設定なら
- #件名に付けるマークを設定
- local($PR_mail_sougo,$PR_mail_com,$PR_mail_kt);
- &kenmei_put_mark;
- $Slog[6]=~s/<br>/\n/g; $Slog[7]=~s/<br>/\n/g;
- }
#更新するカテゴリリストを作成
<<途中省略>>
##総登録数を記録
- open(OUT,">$EST{log_path}total_url.log");
- print OUT $Cgane_pre+1;
- close(OUT);
&unlock(); #ロック解除
を以下に変更
- ##メールを送信
- unless($FORM{FCmail} eq "no" && $FORM{changer} eq "admin"){ #送信する設定なら
- #件名に付けるマークを設定
- local($PR_mail_sougo,$PR_mail_com,$PR_mail_kt);
- if($FORM{changer} ne "admin" && $FORM{check} ne "on"){ # 認証メールを送る場合
- if($EST{mail_temp}){require "pl/mail_ys.cgi";}
- if($EST{mail_to_register} && $EST{mail_temp}){ #登録者へ認証用メール送信
- &mail($Slog[9],$EST{admin_email},"$EST{search_name} 本登録認証メール","att","",*Slog);
- }
- }
- else{
- &kenmei_put_mark;
- $Slog[6]=~s/<br>/\n/g; $Slog[7]=~s/<br>/\n/g;
- if($EST{mail_new}){require "pl/mail_ys.cgi";}
- if($EST{mail_to_admin} && $EST{mail_new}){ #管理人へメール送信
- &mail($EST{admin_email},$Slog[9],"$EST{search_name} 新規登録完了通知$PR_mail_add_line","new","admin",*Slog,$FORM{Fsougo},$FORM{Fadd_kt},$FORM{Fto_admin});
- }
- if($EST{mail_to_register} && $EST{mail_new}){ #登録者へメール送信
- &mail($Slog[9],$EST{admin_email},"$EST{search_name} 新規登録完了通知","new","",*Slog,$FORM{Fsougo},$FORM{Fadd_kt},$FORM{Fto_admin});
- }
- $Slog[6]=~s/\n/<br>/g; $Slog[7]=~s/\n/<br>/g;
- }
- }
- if($FORM{changer} eq "admin" || $FORM{check} eq "on"){
- #更新するカテゴリリストを作成
<<途中省略>>
##総登録数を記録
- open(OUT,">$EST{log_path}total_url.log");
- print OUT $Cgane_pre+1;
- close(OUT);
- }
- &unlock(); #ロック解除
936行目
- require "$EST{temp_path}regist_new_end.html";
を以下に変更
- if($FORM{changer} ne "admin" && $FORM{check} ne "on"){
- require "$EST{temp_path}regist_new_end_att.html";
- }
- else{
- require "$EST{temp_path}regist_new_end.html";
- }
973行目
- sub get_id{
- ##新規登録用のIDを取得
- local($id,$line);
- if($FORM{changer} ne "admin" && $EST{user_check} && $FORM{mode} eq "act_regist"){ #仮登録モードでユーザの新規登録時
- open(IN,"$EST{log_path}$EST{temp_logfile}");
- }
- else{ #その他
- open(IN,"$EST{log_path}$EST{logfile}");
- }
- while(<IN>){$line=$_; $Cgane_pre++;}
- close(IN);
- ($id)=split(/<>/,$line);
- return $id+1;
- }
の下に以下を追加
- sub get_checklog_id{
- ##仮仮データ登録用のIDを取得
- local($id,$line);
- open(IN,"$EST{log_path}$att_file");
- while(<IN>){$line=$_;}
- close(IN);
- ($id)=split(/<>/,$line);
- return $id+1;
- }
pl/mail_ys.cgiのデフォルト267行目
- #(6)メール送信処理(&mail)
の上に以下を追加
- #(5_2)登録認証メール設定(&att_mail)
- sub att_mail{
- if($EST{user_check}){ # 仮登録設定の場合
- $honbun=<<"EOM";
- このたびは、$EST{search_name} への仮登録ありがとうございます。
- 仮登録を正式に完了させるには、以下のリンクをクリックする必要があります。
- なお、登録から$att_days日以内にクリックをしなかった場合は、
- 以後クリックしても無効になってしまいます。ご注意ください。
$EST{cgi_path_url}regist_ys.cgi?mode=act_regist&att_id=$log[0]&att_pass=$log[16]&check=on
このメールに覚えがない場合、お手数ですが破棄頂きますようお願します。
+-------------------------------------+
- $EST{search_name} 管理人 $EST{admin_name}
- HP: $EST{admin_hp}
- E-Mail: $EST{admin_email}
- +-------------------------------------+
EOM
- }
- elsif(!$EST{user_check}){ # 仮登録設定でない場合
- $honbun=<<"EOM";
- このたびは、$EST{search_name} への登録ありがとうございます。
- 本登録を正式に完了させるには、以下のリンクをクリックする必要があります。
- なお、登録から$att_days日以内にクリックをしなかった場合は、
- 以後クリックしても無効になってしまいます。ご注意ください。
$EST{cgi_path_url}regist_ys.cgi?mode=act_regist&att_id=$log[0]&att_pass=$log[16]&check=on
このメールに覚えがない場合、お手数ですが破棄頂きますようお願します。
+-------------------------------------+
- $EST{search_name} 管理人 $EST{admin_name}
- HP: $EST{admin_hp}
- E-Mail: $EST{admin_email}
- +-------------------------------------+
EOM
- }
- }
334行目
- elsif($mail_mode eq "any"){&any_mail;}
の下に以下を追加
- elsif($mail_mode eq "att"){&att_mail;} # 認証用メール送信
logフォルダに、
att.cgi
を作成(中身は空で良い)
templateフォルダに
regist_new_end_att.html
を作成し、以下のタグを挿入
- print<<"<!--HTML-->";
- <html>
- <head>
- <!-- あ -->
- <title>新規登録完了</title>
- <LINK rel="stylesheet" href="$EST{html_path_url}style.css" type="text/css">
- </head>
- <body><a name=top></a>
- <!-- メニューバー -->
- <div align=right><font id=small>
- <!--HTML-->
- #<!--(↓修正不可↓)
- &menu_bar;
- # (↑修正不可↑)-->
- print<<"<!--HTML-->";
- </font></div>
- <hr>
- <table width="100%"><tr><td id="title-bar">
- <b>新規登録完了</b>
- </td></tr></table>
- <ol>
- 登録メールアドレスに認証用メールを送信しました。<br>
- <br>
- 正常に申\請を完了するには、認証用メールアドレスに記載されている<br>
- URLをクリックする必要があります。<br>
- <br>
- 期間は、$att_days日間となっておりますので、それまでにクリックして下さい。<br>
- メールが届かない場合には、登録メールアドレスの入力ミスが考えられます。<br>
- 再度、メールアドレスをお確かめの上、登録して下さい。<br>
- <br>
- <br>
- 【 <a href="$EST{home}">ホームに戻る</a> 】
- </ol>
- <hr>
- <!--HTML-->
- &cr;
- print<<"<!--HTML-->";
- </body>
- </html>
- <!--HTML-->
1;
長いですがこれで問題ないです。最後のHTMLの部分はYomi-Searchのテンプレートをベースに書かれているんで手直しするところは各自で♪ちなみにこの件で設置できなかった等のコメントなどは受け付けません!私は設置できましたんで(笑)
Comments - 2 -
はじめまして
スパム登録排除のため導入してみました。ありがとうございます。
設置し、動作はしますが・・・
パスワードと管理人へのメッセージが表示されず、相互リンクの有無は登録時に「相互リンクする」としても仮登録完了画面では「相互リンクしない」になっています。
管理室で見ると「する」になっています。
当方、あまりよくわからないのでどこを弄ればよいのか???です。
kazukingさんのサイトではどうですか?
Posted by るる on 2008年03月26日 20:23
素晴らしいプログラムをお作り頂いてありがとう御座います。
上のタグをコピーしただけでは一部改行がおかしくなる部分があるので、そこだけ修正した方が良いかと思われます。
Posted by りり on 2009年01月07日 13:27