#!/usr/local/bin/perl use strict; use LWP::UserAgent; use Encode qw/ from_to /; use CGI; use URI::Escape; use URI::Escape qw(uri_escape); my $cgi = new CGI; my $q = $cgi->param('q'); my $s = $cgi->param('s'); my $m = $cgi->param('m'); my $mobile = $cgi->param('mobile'); if("$s" eq 'web'){ $q = &urlencode($q); print "Location: /s/se?q=$q\n\n"; exit; }elsif("$s" eq 'prd'){ $q = &urlencode($q); print "Location: http://www.tsukaerusite.com/se/se?q=$q\n\n"; exit; } my $msmall = '0.8em'; my @emj; my $powerdby; my $ca; if($ENV{'HTTP_USER_AGENT'} =~ /UP.Browser/i && $ENV{'HTTP_USER_AGENT'} !~ /Vodafone/i){ $mobile = 'k'; $ca = 2; }elsif($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo/i){ $mobile = 'd'; $ca = 1; }elsif($ENV{'HTTP_USER_AGENT'} =~ /J-PHONE/i || $ENV{'HTTP_USER_AGENT'} =~ /Vodafone/i || $ENV{'HTTP_USER_AGENT'} =~ /SoftBank/i){ $mobile = 'v'; $ca = 3; }elsif($ENV{'HTTP_USER_AGENT'} =~ /ASTEL/i || $ENV{'HTTP_USER_AGENT'} =~ /PDXGW/i || $ENV{'HTTP_USER_AGENT'} =~ /L-mode/i || $ENV{'HTTP_USER_AGENT'} =~ /DDIPOCKET/i || $ENV{'HTTP_USER_AGENT'} =~ /WILLCOM/i || $mobile){ if($mobile){ $mobile = $mobile; }else{ $mobile = 1; } } if(!$mobile){ print "Location: http://www.tukaerusite.com/\n\n"; exit; } if(!$ca){$ca = 99;} if($mobile eq 'k'){ $emj[0] = '';#郵便番号検索 $emj[1] = '';#占い $emj[2] = '';#プレゼント $emj[3] = '';#携帯電話 $emj[4] = '';#化粧品 $emj[5] = '';#ダイエット $emj[6] = '';#ファッション $emj[7] = '';#ショッピング $emj[8] = '';#宿泊予約 $emj[9] = '';#キャッシング $emj[10] = '';#結婚相談 $emj[11] = '';#食材・飲料 $emj[12] = '';#CD・DVD $emj[13] = '';#カタログ通販 $emj[14] = '';#ニュース $emj[15] = '';#注目マーク $emj[16] = '';#虫眼鏡 $emj[17] = '';#右矢印 $emj[18] = '';#家 $emj[19] = '';#カート $emj[20] = '';#中黒マーク $emj[21] = '';#着うた $emj[22] = '';#待ち受け画面 $emj[23] = '';#携帯ゲーム $emj[24] = '';#アバター $emj[25] = '';#パソコン $emj[26] = '';#家電 $emj[27] = '';#家具・キッチン・雑貨 $emj[28] = '';#ベビー・マタニティ $emj[29] = '';#ギフトショップ $emj[30] = '';#コンタクトレンズ $emj[31] = '';#カー用品 $emj[32] = '';#ペット $emj[33] = '';#おもちゃ・ゲーム $emj[34] = '';#書店 $emj[35] = '';#着メロ $emj[36] = '';#デコメ $emj[37] = '';#コミック $emj[38] = '';#求人 $emj[39] = '';#クレジットカード $emj[40] = '';#女性 $emj[41] = '';#ギャンブル }elsif($mobile eq 'd'){ $msmall = 'small'; $emj[0] = '';#郵便番号検索 $emj[1] = '';#占い $emj[2] = '';#プレゼント $emj[3] = '';#携帯 $emj[4] = '';#化粧品 $emj[5] = '';#ダイエット $emj[6] = '';#ファッション $emj[7] = '';#ショッピング $emj[8] = '';#宿泊予約 $emj[9] = '';#キャッシング $emj[10] = '';#結婚相談 $emj[11] = '';#食材・飲料 $emj[12] = '';#CD・DVD $emj[13] = '';#カタログ通販 $emj[14] = '';#ニュース $emj[15] = '';#注目マーク $emj[16] = '';#虫眼鏡 $emj[17] = '';#右矢印 $emj[18] = '';#家 $emj[19] = '';#カート $emj[20] = '';#中黒マーク $emj[21] = '';#着うた $emj[22] = '';#待ち受け画面 $emj[23] = '';#携帯ゲーム $emj[24] = '';#アバター $emj[25] = '';#パソコン $emj[26] = '';#家電 $emj[27] = '';#家具・キッチン・雑貨 $emj[28] = '';#ベビー・マタニティ $emj[29] = '';#ギフトショップ $emj[30] = '';#コンタクトレンズ $emj[31] = '';#カー用品 $emj[32] = '';#ペット $emj[33] = '';#おもちゃ・ゲーム $emj[34] = '';#書店 $emj[35] = '';#着メロ $emj[36] = '';#デコメ $emj[37] = '';#コミック $emj[38] = '';#求人 $emj[39] = '';#クレジットカード $emj[40] = ''; $emj[41] = ''; }elsif($mobile eq 'v'){ $emj[0] = '$Es';#郵便番号検索 $emj[1] = '$F^';#占い $emj[2] = '$E2';#プレゼント $emj[3] = '$G*';#携帯 $emj[4] = '$G%';#化粧品 $emj[5] = '$E5';#ダイエット $emj[6] = '$GT';#ファッション $emj[7] = '$E6';#ショッピング $emj[8] = '$E>';#宿泊予約 $emj[9] = '$Et';#キャッシング $emj[10] = '$P]';#結婚相談 $emj[11] = '$Gc';#食材・飲料 $emj[12] = '$EF';#CD・DVD $emj[13] = '$Eh';#カタログ通販 $emj[14] = '$Eb';#ニュース $emj[15] = '$E/';#注目マーク $emj[16] = '$E4';#虫眼鏡 $emj[17] = '$FT';#右矢印 $emj[18] = '$GV';#家 $emj[19] = '$E>';#カート $emj[20] = '$F9';#中黒マーク $emj[21] = '$G\';#着うた $emj[22] = '$Q"';#待ち受け画面 $emj[23] = '$EK';#携帯ゲーム $emj[24] = '$PH';#アバター $emj[25] = '$G,';#パソコン $emj[26] = '$EJ';#家電 $emj[27] = '$OX';#家具・キッチン・雑貨 $emj[28] = '$Q:';#ベビー・マタニティ $emj[29] = '$O&';#ギフトショップ $emj[30] = '$P9';#コンタクトレンズ $emj[31] = '$G;';#カー用品 $emj[32] = '$Gr';#ペット $emj[33] = '$PL';#おもちゃ・ゲーム $emj[34] = '$Eh';#書店 $emj[35] = '$O*';#着メロ $emj[36] = '$E#';#デコメ $emj[37] = '$Gv';#コミック $emj[38] = '$O"';#求人 $emj[39] = '$EE';#クレジットカード $emj[40] = '$G%'; $emj[41] = '$G:'; } my @cat; $cat[0] = 'web'; $cat[1] = 's_site'; $cat[2] = 's_motion'; $cat[3] = 's_image'; $cat[4] = 's_melo'; $cat[5] = 's_appl'; $cat[6] = 'prd'; $cat[7] = 's_ebook'; $cat[8] = 's_blog'; my @catn; $catn[0] = 'PCサイト'; $catn[1] = '携帯サイト'; $catn[2] = '動画・音声'; $catn[3] = '画像'; $catn[4] = '着メロ'; $catn[5] = 'アプリ'; $catn[6] = '通信販売'; $catn[7] = '電子書籍'; $catn[8] = 'ブログ'; my $cattag; my $selected; my $nowcat; for(my $i=0; $i<=$#cat;$i++){ if("$s" eq "$cat[$i]"){ $selected = 'selected'; $nowcat = $catn[$i]; }else{ $selected = ''; } $cattag .= "