ケンヤム
2000/05/29(月) 20:44:10
いきなりcgiに飛ばす。
たとえば携帯からアドレスをうつ。
http://www.abc.net/henkan.cgi
henkan.cgiの中身はこう↓
（但し、このcgiは固定でprintしてるだけなので、original.htmlを読込・表示したいなら、ifの後の真のところにファイル読込・printを書かないといけませんよ！）
#!/usr/bin/perl
#require "/home/httpd/cgi-bin/lib/CGI-LIB.PL";
#require "/home/httpd/cgi-bin/lib/JCODE.PL";
#&ReadParse;
#$ENV{'HTTP_USER_AGENT'}にブラウザ情報が入ってくる
#例えば、ドコモだったらDoCoMo/・・・と言う文字が入ってきます。
#だから$adrはDoCoMo/・・・
$adr = $ENV{'HTTP_USER_AGENT'};
#substrは$adrの中に入ってある文字の頭２バイト分を取っています。
#だから$strはDOになります。
$str = substr($adr, 0, 2);
#keyにDoと言う文字をセット
$key = "Do";
#もし頭の２バイトの文字がDoだったら
if ($str eq $key) {
print "Content-type: text/html\n\n";
print "<html><head></head>\n<body>imode</body>\n</html>\n";
}else{
exit;
}
※動作確認はしていません