#!/usr/bin/perl # ****** まず上の行をあなたの環境に合わせて修正 ********* # ======================================================================== # ふりりん　　浅草DANCEナイト版 # Ver.4(03/4/3) # # このCGIプログラムは # PC、PDA、ケータイ、L-mode対応の振り分けCGIです。 # # (C)2004 kim # URL = http://w021.q.fiw-web.net/ # PC・PDA・ケータイ共通URL # E-mailはこちらのページから = http://w021.q.fiw-web.net/mail/form.shtml # ======================================================================== # ☆☆☆ 初期設定ここから ☆☆☆ # ======================================================================== # PDA用のページのURL $pda = 'http://www.goodman.co.jp/dance/i.htm'; # J-sky用のページのURL $j = 'http://www.goodman.co.jp/dance/i.htm'; # i-mode用のページのURL $i = 'http://www.goodman.co.jp/dance/i.htm'; # H"LINK用のページのURL（下の$hjumpが0の場合はこのCGIから見た相対URLを、1の場合はhttpから始まる絶対URLを記述） $h = 'http://www.goodman.co.jp/dance/i.htm'; # H"LINKページの表示方法 # （0=ふりりんがファイルを読み込んで表示、1=ワンクッション式でファイルを直接表示） $hjump = 1; # AirH"PHONE用のページのURL $hph = 'http://www.goodman.co.jp/dance/i.htm'; # EZweb WAP2.0端末用のページのURL $ex = 'http://www.goodman.co.jp/dance/i.htm'; # EZweb HDML端末用のページのURL $e = 'http://www.goodman.co.jp/dance/i.htm'; # HDMLページの表示方法 # （0=直接ジャンプ、1=ワンクッション式で表示） $ezjump = 0; # ドットi用のページのURL $di = 'http://www.goodman.co.jp/dance/i.htm'; # L-mode用のページのURL $l = 'http://www.goodman.co.jp/dance/i.htm'; # ブラウザOpela用のページのURL $op = 'http://www.goodman.co.jp/dance/i.htm'; # ブラウザMSIE3以前用のページのURL $ie3 = 'http://www.goodman.co.jp/dance/top.html'; # ブラウザMSIE4以降用のページのURL $ie4 = 'http://www.goodman.co.jp/dance/top.html'; # ブラウザNetscape3以前用のページのURL $nn3 = 'http://www.goodman.co.jp/dance/top.html'; # ブラウザNetscape4用のページのURL $nn4 = 'http://www.goodman.co.jp/dance/top.html'; # ブラウザNetscape6以降およびMozilla用のページのURL $nn6 = 'http://www.goodman.co.jp/dance/top.html'; # その他のソフト・端末用のページのURL $p = 'http://www.goodman.co.jp/dance/top.html'; # 対応ファイルがない端末のためのキメゼリフ $error = "すみません！　あなたの閲覧ソフトに対応したサイトがありません。"; # ======================================================================== # ☆☆☆ 初期設定ここまで ☆☆☆ # ======================================================================== # ※ここから下はむやみにいじらないでください。 # ======================================================================== if ($ENV{'HTTP_USER_AGENT'} =~ /PalmScape|sharp pda browser|Windows CE|WorldTALK|DreamPassport|WebTV|Xiino/ ) { # PDA判別 if (!$pda) { &nourl_k; } else { print "Location: $pda\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /J-PHONE/ ) { # J-SKY判別 if (!$j) { &nourl_k; } else { print "Location: $j\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo/ ) { # i-mode判別 if (!$i) { &nourl_k; } else { print "Location: $i\n\n" ; } } elsif (($ENV{'HTTP_USER_AGENT'} =~ /PDXGW/ ) || ($ENV{'HTTP_USER_AGENT'} =~ /Ginga/ )) { # H”LINK判別 if (!$h) { print <<"NOH"; Content-Type: text/plain From: $script_hmode Subject: $title Content-Type: Text/X-PmailDX $error NOH } else { if (!$hjump) { # H”読み込みファイル表示 @htextlist = (); print "Content-Type: text/plain\n\n" ; open(HFILE, $h); @htextlist = ; close(HFILE); chomp @htextlist; print join("\n",@htextlist) ; } else { # H”リンクページ表示 print <<"HURL"; Content-type: text/plain Content-Type: Text/X-PmailDX From: $h Subject: H"ページへ通話ボタンを押すとページへ移動します。 HURL } } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /DDIPOCKET/ ) { # AirH"PHONE判別 if (!$hph) { &nourl_k; } else { print "Location: $hph\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /UP.Browser/ ) { # EZweb判別 if ($ENV{'HTTP_USER_AGENT'} =~ /KDDI|OPWV|MMP/ ) { # WAP2端末判別 if (!$ex) { print <<"NOEZX"; Content-type: text/html $error NOEZX } else { print "Location: $ex\n\n" ; } } else { # HDML端末判別 if (!$e) { print <<"NOEZ"; Content-type: text/x-hdml;charset=Shift_JIS $error NOEZ } elsif ($ezjump){ # EZweb ジャンプページ表示 print <<"EZURL"; Content-Type: text/x-hdml;charset=Shift_JIS EZURL } else { print "Location: $e\n\n" ; } } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /ASTEL/ ) { # ドットi判別 if (!$di) { &nourl_k; } else { print "Location: $di\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /L-mode/ ) { # Lモード判別 if (!$l) { &nourl_k; } else { print "Location: $l\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /Opera/ ) { # Opera判別 if (!$op) { &nourl_p; } else { print "Location: $op\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/ ) { # MSIE判別 if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE 1|MSIE 2|MSIE 3/ ) { # MSIE3以前分岐 if (!$ie3) { &nourl_p; } else { print "Location: $ie3\n\n" ; } } else { # MSIE4以降分岐 if (!$ie4) { &nourl_p; } else { print "Location: $ie4\n\n" ; } } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /Gecko/ ) { # Netscape6以降&Mozilla判別 if (!$nn6) { &nourl_p; } else { print "Location: $nn6\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/ ) { # Netscape判別 if ($ENV{'HTTP_USER_AGENT'} !~ /Compatible/ ) { if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla\/1|Mozilla\/2|Mozilla\/3/ ) { # Netscape3以前分岐 if (!$nn3) { &nourl_p; } else { print "Location: $nn3\n\n" ; } } elsif ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla\/4/ ) { # Netscape4分岐 if (!$nn4) { &nourl_p; } else { print "Location: $nn4\n\n" ; } } else { if (!$p) { &nourl_p; } else { print "Location: $p\n\n" ; } } } else { if (!$p) { &nourl_p; } else { print "Location: $p\n\n" ; } } } else { # その他のブラウザ処理 if (!$p) { &nourl_p; } else { print "Location: $p\n\n" ; } } sub nourl_k { print <<"NOURLK"; Content-type: text/html $error NOURLK } sub nourl_p { print <<"NOURLP"; Content-type: text/html $error NOURLP } exit;