#!/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 .= "