小粋空間  -  a cheap joke and a play on words site

SCode プラグインでコメントスパムを制限する（その2：Typekeyサイン・インとの競合制御）

その1：基本設定ではプラグインの導入によってコメントフォームにセキュリティコードが表示されるようになりましたが、Typekey 認証を利用している場合、左のスクリーンショットのようにサイン・イン後もセキュリティコードの入力が要求されます。これは過度なセキュリティであり、ユーザビリティ上も好ましくありません。

ということで、ご質問を頂きましたので、本エントリーでは Typekey サイン・イン状態の場合、セキュリティコードの入力欄を非表示にし（左図）、チェック機能を無効にするカスタマイズを紹介します。 3.1x 時代に MT-SCode を紹介した時に同じカスタマイズを行っていたのですが、質問を頂いて思い出しました。全く忘却の彼方でした。すいません。

以下、カスタマイズ方法です。注：カスタマイズは、その１：基本設定で SCode プラグインの設定が完了していることが前提となります。

１．テンプレートの修正

管理メニューより個別エントリーアーカイブテンプレートを開き、前回の４項で追加したセキュリティコード表示部分に対して、青色で示す id 属性および JavaScript を追加します。この追加によりサイン・イン状態を判定して、サイン・イン状態であればセキュリティコード入力エリアを表示しないようになります。

<p id="securitycode">
   <label for="scode">Security Code:</label>
   <input type="hidden" id="code" name="code" value="<$MTSecurityCode$>" />
   <img class="scode" src="<$MTCGIPath$><$MTSecurityImage$>?code=<$MTSecurityCode$>" /><input id="scode" name="scode" />
</p>
 
<MTIfNonEmpty tag="MTTypeKeyToken">
<script type="text/javascript">
<!--
if (commenter_name) {
   document.getElementById('securitycode').style.display = 'none';
}
// -->
</script>
</MTIfNonEmpty>

コメント・プレビュー画面やコメント・エラー画面にコメントフォームを表示し、SCode を適用している場合、同様の修正を行ってください。

２．プラグイン の修正

１項の作業は画面上セキュリティコードを非表示にするだけなので、これでコメントを投稿するとセキュリティコードが入力されていない状態と同じです。
ということで、cookie に保持されているサイン・イン状態を取得・判定して、サイン・インされていればセキュリティコードチェックを実施しない処理を追加します。

アップロードした SCode プラグインのディレクトリにある plugins/SCode/SCode.pl をダウンロードし、下記のパッチ、

--- SCode.pl.bak        Wed May 31 01:40:56 2006
+++ SCode.pl    Wed May 31 01:42:15 2006
@@ -174,11 +174,20 @@
     my $scode = $q->param('scode');
     my $sscode = SCode::scode_get($code);
 
-    if ($scode ne $sscode) {
+    my $class = $ENV{MOD_PERL} ? 'Apache::Cookie' : 'CGI::Cookie';
+    eval "use $class;";
+    my $cookies = $class->fetch;
+    my $commenter_name = "";
+    if ($cookies && $cookies->{commenter_name} && $cookies->{commenter_name}->value()) {
+        $commenter_name = MT::I18N::encode_text($cookies->{commenter_name}->value(),'utf-8',undef);
+    }
+    if (!$commenter_name) {
+        if ($scode ne $sscode) {
                 my $score = -3;
                 my $msg = "Comment junked due to incorrect code entered";
                  return ($score, [$msg]);
-    }
+        }
+    }
         SCode::scode_delete($code);
         SCode::scode_create($code);
     }
@@ -196,8 +205,18 @@
     my $code = $q->param('code');
     my $scode = $q->param('scode');
     my $sscode = SCode::scode_get($code);
-    if ($scode ne $sscode) {
-        return 0;
+
+    my $class = $ENV{MOD_PERL} ? 'Apache::Cookie' : 'CGI::Cookie';
+    eval "use $class;";
+    my $cookies = $class->fetch;
+    my $commenter_name = "";
+    if ($cookies && $cookies->{commenter_name} && $cookies->{commenter_name}->value()) {
+        $commenter_name = MT::I18N::encode_text($cookies->{commenter_name}->value(),'utf-8',undef);
+    }
+    if (!$commenter_name) {
+        if ($scode ne $sscode) {
+            return 0;
+        }
     }
     SCode::scode_delete($code);
     SCode::scode_create($code);

をあてます。
パッチのあて方が分からない場合は、ダウンロードした SCode.pl を任意のエディタで開き、下記の青色部分を追加してください。

if($config->{action} == 1 && $blog_config && $blog_config->{scode_enable} == 1) {
my $code = $q->param('code');
my $scode = $q->param('scode');
my $sscode = SCode::scode_get($code);
 
my $class = $ENV{MOD_PERL} ? 'Apache::Cookie' : 'CGI::Cookie';
eval "use $class;";
my $cookies = $class->fetch;
my $commenter_name = "";
if ($cookies && $cookies->{commenter_name} && $cookies->{commenter_name}->value()) {
    $commenter_name = MT::I18N::encode_text($cookies->{commenter_name}->value(),'utf-8',undef);
}
if (!$commenter_name) {
    if ($scode ne $sscode) {
            my $score = -3;
            my $msg = "Comment junked due to incorrect code entered";
             return ($score, [$msg]);
    }    
}
    SCode::scode_delete($code);
    SCode::scode_create($code);
　　　　　　：
　　　　（中略）
　　　　　　：
my $code = $q->param('code');
my $scode = $q->param('scode');
my $sscode = SCode::scode_get($code);
 
my $class = $ENV{MOD_PERL} ? 'Apache::Cookie' : 'CGI::Cookie';
eval "use $class;";
my $cookies = $class->fetch;
my $commenter_name = "";
if ($cookies && $cookies->{commenter_name} && $cookies->{commenter_name}->value()) {
    $commenter_name = MT::I18N::encode_text($cookies->{commenter_name}->value(),'utf-8',undef);
}
if (!$commenter_name) {
    if ($scode ne $sscode) {
        return 0;
    }
}
SCode::scode_delete($code);
SCode::scode_create($code); 

SCode.pl を修正したら元のディレクトリにアップロードしてください。

以上です。
これでサイン・インを行うとセキュリティコードが非表示・無効になります。

2006.05.31 追記
Junk Comment に設定した場合に有効にならない不具合がありましたのでパッチおよび改変内容を修正しました。