$title

#!/usr/local/bin/perl # # # #============# # 設定項目 # #============# # ケイタイの転送設定 # # 一部の機種で相対パスでのジャンプが出来ないので、絶対パス http://.... で書くか # 相対パスで書くときは取り込みモードで使ってみてください。 # $url[*] = "移動先のURL"; # $inc[*] = "移動のモード"; 0:ジャンプ　1:取り込み # # 0: ジャンプモードそのアドレスにジャンプします。 # 1: 取り込みモードそのアドレスのファイルを取り込み表示します。 # 　ジャンプモードがうまくいかないときは取り込みモードでやってみてください。 # 　この場合相対パスでファイル名まで指定。フォルダ指定不可です。 # 　なおＣＧＩのある場所にファイルの相対パスがかわります。 # # $UserAgent[*] = "環境変数 HTTP_USER_AGENT に含む文字列"; #i-mode $url[1] = "http://www.mypl.net/itami-city_jp/index_i.html"; $inc[1]=0; $UserAgent[1] = "^DoCoMo/"; #vodafone $url[2] = "http://www.mypl.net/itami-city_jp/index_v.html"; $inc[2]=0; $UserAgent[2] = "^J-PHONE/"; $url[3] = "http://www.mypl.net/itami-city_jp/index_v.html"; $inc[3]=0; $UserAgent[3] = "^Vodafone/"; $url[4] = "http://www.mypl.net/itami-city_jp/index_v.html"; $inc[4]=0; $UserAgent[4] = "^MOT-V980/"; $url[5] = "http://www.mypl.net/itami-city_jp/index_v.html"; $inc[5]=0; $UserAgent[5] = "^MOT-C980/"; $url[12] = "http://www.mypl.net/itami-city_jp/index_v.html"; $inc[12]=0; $UserAgent[12] = "^SoftBank/"; #EZWEB $url[6] = "http://www.mypl.net/itami-city_jp/index_ez.html"; $inc[6]=0; $UserAgent[6] = "^UP\.Browser/"; $url[7] = "http://www.mypl.net/itami-city_jp/index_ez.html"; $inc[7]=0; $UserAgent[7] = "^KDDI"; #willcom $url[8] = "http://www.mypl.net/itami-city_jp/index_i.html"; $inc[8]=0; $UserAgent[8] = "PDXGW\/\d\.\d"; #ドットi $url[9] = "http://www.mypl.net/itami-city_jp/index_i.html"; $inc[9]=0; $UserAgent[9] = "ASTEL"; #ザウルス $url[10] = "http://www.mypl.net/itami-city_jp/index_i.html"; $inc[10]=0; $UserAgent[10] = "sharp pda browser"; #L-mode $url[11] = "http://www.mypl.net/itami-city_jp/index_i.html"; $inc[11]=0; $UserAgent[11] = "L-mode"; #Air H $url[13] = "http://www.mypl.net/itami-city_jp/index_i.html"; $inc[13]=0; $UserAgent[13] = "DDIPOCKET"; # それ以外、おおむねPCとみなす。 $url[0] = "http://amagasaki.mypl.org/"; # 転送先のURL $mode = "0"; # 転送モードフレーム:1 直転送:0 # フレーム転送時のタイトル、メタタグ等 $title = 'まいぷれ'; $keywords = '兵庫県の各地域別地域情報サイト'; $description = 'コメント'; #============# # 設定完了 # #============# $i = 1; while ($url[$i]) { if ($ENV{'HTTP_USER_AGENT'} =~ /$UserAgent[$i]/){ if(!$inc[$i]){print "Location: $url[$i]\n\n";} else { print "Content-type: text/html\n\n"; open (IN,$url[$i]); while(){print $_;};close(IN); exit; } }; $i++; } if ($mode eq "0"){ print "Location: $url[0]\n\n" } else { print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "$title\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; }