ADDRESS CLUB

追記：2009/9/7
以下のカスタマイズは、MT4i Ver.3.0以降の場合となります。ver.3.0未満（テンプレートファイルが無いバージョン）の場合は、うごくひと2のマイページで取得したコードをほぼそのまま、mt4i.cgiに追加するのが宜しいかと思います。

******

MT4iを少しいじってみた（WolaWola様）

Mt4i × うごくひと2 の動的での導入方法（iyahooi.com:blog様）

ご覧いただきまして、ありがとうございます。ご指摘いただいた過不足およびうごくひと2の解析画面でページタイトルを取得する方法に辿り着きましたので、前回不完全な物を公開してしまったお詫びと共に、訂正版をここに記させていただきます。

1.うごくひと2のマイページ⇒HTMLタグ発行からコードを取得

MT4iはperlで書かれていますので、「Perlのコード」を拝借することにします。

▼サンプル
use URI::Escape qw(uri_escape);
use CGI;
my $UH2q = new CGI;
my $UH2url = "http://b14.ugo2.jp/?u=XXXXXX&h=XXXXXX&guid=ON&ut=1&qM=".uri_escape($UH2q->referer()."|Az|".$UH2q->server_port())."|".uri_escape($UH2q->server_name())."|".uri_escape($UH2q->url(-absolute => 1))."|P|&ch=UTF-8&sb=".uri_escape("[page title]");
print '<img src="'.$UH2url.'" width="1" height="1" alt="携帯アクセス解析" border="0" />';

※「XXXXXX」部分はユーザー・サイト毎に異なるので、ユーザー・サイト登録後、うごくひと2のマイページから取得した値の物を使用してください

2.「（MT4iディレクトリ）/mt4i.cgi」の編集

宣言に「use URI::Escape qw(uri_escape);」を追加する。具体的には、30行目付近にある

use strict;
use CGI;
use HTML::Template;
use Storable qw(lock_store lock_retrieve);
use FindBin qw($Bin);
use List::Util qw(first);

の後ろにくっつけて、

use strict;
use CGI;
use HTML::Template;
use Storable qw(lock_store lock_retrieve);
use FindBin qw($Bin);
use List::Util qw(first);
use URI::Escape qw(uri_escape);

こんな感じに。

3.（多分）3900行目付近にある「sub _tmpl_common {」内にコードを追加する。

##################################################
# Sub _Tmpl_Common - Fill the common parameter.
##################################################
sub _tmpl_common {

の箇所を探して、うごくひと2のマイページ＞HTMLタグ発行から取得したコードを一部修正してここに貼り付けます。

my $UH2q = new CGI;
my $UH2url = "http://b14.ugo2.jp/?u=XXXXXX&amp;h=XXXXXX&amp;guid=ON&amp;ut=1&amp;qM=".uri_escape($UH2q->referer()."|Az|".$UH2q->server_port())."|".uri_escape($UH2q->server_name())."|".uri_escape($UH2q->url(-absolute => 1))."|P|&amp;ch=UTF-8&amp;sb=".uri_escape("[page title]");
print '<img src="'.$UH2url.'" width="1" height="1" alt="携帯アクセス解析" border="0" />';

まず上記の赤文字部分を削除して、

$tmpl->param(UH2 => encode("shiftjis",decode("euc-jp",$UH2url)));

を追加し、

return $tmpl;

の直前に挿入します。

# Emoticon
$tmpl = __emoticon($tmpl);

my $UH2q = new CGI;
my $UH2url = "http://b14.ugo2.jp/?u=XXXXXX&amp;h=XXXXXX&amp;guid=ON&amp;ut=1&amp;qM=".uri_escape($UH2q->referer()."|Az|".$UH2q->server_port())."|".uri_escape($UH2q->server_name())."|".uri_escape($UH2q->url(-absolute => 1))."|P|&ch=UTF-8&sb=";
$tmpl->param(UH2 => encode("shiftjis",decode("euc-jp",$UH2url)));

return $tmpl;

こんなかんじ。ついでに、赤文字の部分がどうも間違ってる臭いので、修正しておきます。同時に、携帯はShiftJISなのでパラメーター「ch=」の部分も変更しておきます。

# Emoticon
$tmpl = __emoticon($tmpl);

use URI::Escape qw(uri_escape);
use CGI;
my $UH2q = new CGI;
my $UH2url = "http://b14.ugo2.jp/?u=XXXXXX&amp;h=XXXXXX&amp;guid=ON&amp;ut=1&amp;qM=".uri_escape($UH2q->referer())."|Az|".uri_escape($UH2q->server_port())."|".uri_escape($UH2q->server_name())."|".uri_escape($UH2q->url(-absolute => 1))."|P|&ch=SJIS&sb=";
$tmpl->param(UH2 => encode("shiftjis",decode("euc-jp",$UH2url)));

return $tmpl;

これで多分OK。

4.ページタイトル取得用に新しいテンプレート変数を用意する

ここが今回訂正のキモです。これをやらないと、解析画面でページタイトルが表示されるハズもないし、セキュリティ的にも少々×でした。すみませんでした。

追加するのは3箇所です。まずは600行目付近の

########################################
# Sub Individual - 単記事ページの描画
########################################

を探します。この中をぐーっと探して800行目付近でしょうか。

$template->param(ENTRY_TITLE => encode("shiftjis",decode("euc-jp",$d_f.&conv_euc_z2h($entry->title))));

という記述がありますので、その直後に追加して

$template->param(ENTRY_TITLE => encode("shiftjis",decode("euc-jp",$d_f.&conv_euc_z2h($entry->title))));
$template->param(ENTRY_TITLE_E => uri_escape(encode("shiftjis",decode("euc-jp",$d_f.&conv_euc_z2h($entry->title)))));

とします。同じように、次は1000行目付近の

########################################
# Sub Comment - コメント描画
########################################

を探して、

# 結果を変数に格納
$template->param(ENTRY_TITLE => encode("shiftjis",decode("euc-jp",&conv_euc_z2h($entry->title))));

に追加して

# 結果を変数に格納
$template->param(ENTRY_TITLE => encode("shiftjis",decode("euc-jp",&conv_euc_z2h($entry->title))));
$template->param(ENTRY_TITLE_E => uri_escape(encode("shiftjis",decode("euc-jp",&conv_euc_z2h($entry->title)))));

最後に、1800行目付近の

########################################
# Sub CommentForm - コメント投稿フォーム
########################################

を探して、

# 結果を変数に格納
$template->param(ENTRY_TITLE => encode("shiftjis",decode("euc-jp",&conv_euc_z2h($entry->title))));

に追加

# 結果を変数に格納
$template->param(ENTRY_TITLE => encode("shiftjis",decode("euc-jp",&conv_euc_z2h($entry->title))));
$template->param(ENTRY_TITLE_E => uri_escape(encode("shiftjis",decode("euc-jp",&conv_euc_z2h($entry->title)))));

これで（多分...）mt4i.cgiの修正は完了です。

5.フッターテンプレートにコードを追加する

次に「（MT4iディレクトリ）/tmpl/footer.tmpl」を開き、「うごくひと」の画像が表示されても良いところに

<a href="http://ugo2.jp/m/"><img src="<TMPL_VAR NAME="UH2"><TMPL_IF NAME="MODE_INDIVIDUAL"><TMPL_VAR NAME="ENTRY_TITLE_E">%3a</TMPL_IF><TMPL_VAR NAME="BLOG_TITLE">"></a>

を挿入します。ソース全体は

<p>
<center>
Powered by<br>
<TMPL_UNLESS NAME="ADMIN_MODE"><a href="http://hazama.nu/pukiwiki/?MT4i"></TMPL_UNLESS>MT4i <TMPL_VAR NAME="VERSION"><TMPL_UNLESS NAME="ADMIN_MODE"></a></TMPL_UNLESS>
</center>
</p>
<p align="center">
<!-- ugo -->
<a href="http://ugo2.jp/m/"><img src="<TMPL_VAR NAME="UH2"><TMPL_IF NAME="MODE_INDIVIDUAL"><TMPL_VAR NAME="ENTRY_TITLE_E">%3a</TMPL_IF><TMPL_VAR NAME="BLOG_TITLE">"></a>
<!-- ugo end -->
</p>

</body>
</html>

こんなかんじ。

できあがった2つのファイルをそれぞれアップロードして、PCでアクセスします。フッターのイメージした位置に「うごくひと」の画像が表示されていたら、第一段階はクリア。次はページのソースを確認します。

フッター部分の「<img src="http://b14.ugo2.jp/?u=...」で始まるタグの末尾、「sb=」直後に「%」で始まるエンコード文字がズラズラと表示されていたらOKです。暫く時間を置いて、うごくひと2のマイページ⇒どこを見たか⇒入口ページを確認して、ページタイトルが取得できているか、文字化けしていないか等を確認してください。

長くなりますが、

<a href="http://ugo2.jp/m/"><img src="<TMPL_VAR NAME="UH2"><TMPL_IF NAME="MODE_INDIVIDUAL"><TMPL_VAR NAME="ENTRY_TITLE_E">%3a</TMPL_IF><TMPL_VAR NAME="BLOG_TITLE">"></a>

部分を

<a href="http://ugo2.jp/m/"><img src="<TMPL_VAR NAME="UH2"><TMPL_IF NAME="MODE_INDIVIDUAL"><TMPL_VAR NAME="ENTRY_TITLE_E">%3a</TMPL_IF><TMPL_IF NAME="MODE_INDIVIDUAL_RCM"><TMPL_VAR NAME="ENTRY_TITLE_E">%3a</TMPL_IF><TMPL_IF NAME="MODE_COMMENT"><TMPL_VAR NAME="ENTRY_TITLE_E">%3aCOMMENT%3a</TMPL_IF><TMPL_IF NAME="MODE_COMMENT_RCM"><TMPL_VAR NAME="ENTRY_TITLE_E">%3aCOMMENT%3a</TMPL_IF><TMPL_IF NAME="MODE_COMMENTFORM"><TMPL_VAR NAME="ENTRY_TITLE_E">%3aPOST%20COMMENT%3a</TMPL_IF><TMPL_IF NAME="MODE_COMMENTFORM_RCM"><TMPL_VAR NAME="ENTRY_TITLE_E">%3aPOST%20COMMENT%3a</TMPL_IF><TMPL_IF NAME="MODE_TRACKBACK">TrackBack%3a</TMPL_IF><TMPL_VAR NAME="BLOG_TITLE">"></a>

などとすれば、コメントページやコメント投稿画面などでも、閲覧ページ名が詳細に記録されるようになる...と思います。今度こそ。なんだか端的に説明できなくてすみません。