Mt4i　×　うごくひと2　の動的での導入方法

うごくひと2をMt4iで動的に導入したくて調べてみた。

Mt4iはPerlで書かれているのでPerlで導入した。

MT4iでうごくひと2の上級版機能を使ってみよう (ADDRESS CLUB)
こちらのページを参考に導入してみました。

ちなみに僕の使っているバージョンは3.0.8です。

まずはmt4i.cgiの3906行目にある

##############################
# Sub _Tmpl_Common - Fill the common parameter.
##############################

っていうサブルーチンのreturn $tmpl;前にこんな感じで入れます。

# うごくひと2
use URI::Escape qw(uri_escape);
use CGI;
my $UH2q = new CGI;
my $UH2url = "http://b08.ugo2.jp/?u=5000385&h=14e68d&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=shiftjis&sb=";
$tmpl->param(UH2 => encode("shiftjis",decode("euc-jp",$UH2url)));

return $tmpl;

return $tmpl;は目印なので2回書く必要はないです。

*******の部分はうごくひと2のPerlで発行されているものを入れる。

テンプレートのほうには、適当なところに下記を挿入。うごくひと2のバナーが出ます。

<a href="http://ugo2.jp/m/"><img src="<TMPL_VAR NAME="UH2"><TMPL_IF NAME="MODE_INDIVIDUAL"><TMPL_VAR NAME="ENTRY_TITLE">:</TMPL_IF><TMPL_IF NAME="MODE_INDIVIDUAL_RCM"><TMPL_VAR NAME="ENTRY_TITLE">:</TMPL_IF><TMPL_IF NAME="MODE_COMMENT"><TMPL_VAR NAME="ENTRY_TITLE">へのｺﾒﾝﾄ:</TMPL_IF><TMPL_IF NAME="MODE_COMMENT_RCM"><TMPL_VAR NAME="ENTRY_TITLE">へのｺﾒﾝﾄ:</TMPL_IF><TMPL_IF NAME="MODE_COMMENTFORM"><TMPL_VAR NAME="ENTRY_TITLE">へのｺﾒﾝﾄ投稿:</TMPL_IF><TMPL_IF NAME="MODE_COMMENTFORM_RCM"><TMPL_VAR NAME="ENTRY_TITLE">へのｺﾒﾝﾄ投稿:</TMPL_IF><TMPL_IF NAME="MODE_TRACKBACK">このEntryへの最近のﾄﾗｯｸﾊﾞｯｸ:</TMPL_IF><TMPL_VAR NAME="BLOG_TITLE">"></a>

これで、動的に入ってる感じなんだけど、ページタイトルが取れてない感じがする・・・
とりあえずこれで、しばらく様子見て、あとでまたよく見てみよ～

« このカテゴリの新しい記事 | 「Movable Type」記事一覧 | このカテゴリの古い記事 »