本日 　昨日

■ ｉモードとJフォンのどちらも見れるようにするには

1. mode.plの組み込み：
   組み込み先CGIの実行文の先頭に require './mode.pl'; を追加

   組み込み先CGI中の以下文字を右側の文字に置き換えます。
   具体的な記述はCGI中の「記述方法」を参照。

   画像データ拡張子：xxx.gif ⇒ xxx.$pfix

   ダイレクト選択：accesskey ⇒ $key

   入力モード：istyle=4 ⇒ $style

   キーNo表示：＆＃63879 ⇒ $no[1]

mode.plのソース

#!/usr/local/bin/perl #↑プロバイダーに合わせてPerlのパスを変更してください。 ############################################################################# # mode.pl v1.0 (i-mode用とJ-sky用パラメータの自動設定) # reqire命令でCGIに組み込んでi-mode用とJ-sky用パラメータを自動設定する # パラメータの説明 i-mode J-sky # (1)画像データ拡張子 $pfix gif png # (2)ダイレクト選択 $key accesskey directkey # (3)入力モード $style istyle mode # (4)キーNo表示 $no[1]〜[0] 絵文字数字 空白 # 記述方法 # (1) <img src="xxxx.$pfix"> # (2) $no[0]<a href="index.htm" $key="0">ﾄｯﾌﾟ</a> # (3) <input name=yy size=4 $style> # Copyright (c) 2000.9.30 菊池さん <http://kikuchisan.net/> ############################################################################# #i-mode/J-skyの判定 $HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}; $HTTP_USER_AGENT =~ s/</&lt;/g; $HTTP_USER_AGENT =~ s/>/&gt;/g; if ($HTTP_USER_AGENT =~ /DoCoMo/i) { $mode = 1; } #i-mode if ($HTTP_USER_AGENT =~ /J-PHONE/i) { $mode = 2; } #J-sky if ($HTTP_USER_AGENT =~ /UP\.Browser/i) { $mode = 3; } #EZweb #$mode = 1; #テスト用 #i-mode用/J-sky用パラメータの自動設定 if ($mode == 1) { $pfix='gif';$key='accesskey'; $style='istyle=4'; $no[1]='&#63879;'; $no[2]='&#63880;'; $no[3]='&#63881;'; $no[4]='&#63882;'; $no[5]='&#63883;'; $no[6]='&#63884;'; $no[7]='&#63885;'; $no[8]='&#63886;'; $no[9]='&#63887;'; $no[0]='&#63888;'; } elsif ($mode == 2) { $pfix='png';$key='directkey'; $style='mode=numeric'; $no[1]=' '; $no[2]=' '; $no[3]=' '; $no[4]=' '; $no[5]=' '; $no[6]=' '; $no[7]=' '; $no[8]=' '; $no[9]=' '; $no[0]=' '; } else { $pfix='gif';$key=' '; $style=' '; $no[1]=' '; $no[2]=' '; $no[3]=' '; $no[4]=' '; $no[5]=' '; $no[6]=' '; $no[7]=' '; $no[8]=' '; $no[9]=' '; $no[0]=' '; }