#!/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]  = '<img localsrc="214">';#郵便番号検索
	$emj[1]  = '<img localsrc="197">';#占い
	$emj[2]  = '<img localsrc="144">';#プレゼント
	$emj[3]  = '<img localsrc="161">';#携帯電話
	$emj[4]  = '<img localsrc="295">';#化粧品
	$emj[5]  = '<img localsrc="218">';#ダイエット
	$emj[6]  = '<img localsrc="72">';#ファッション
	$emj[7]  = '<img localsrc="290">';#ショッピング
	$emj[8]  = '<img localsrc="224">';#宿泊予約
	$emj[9]  = '<img localsrc="205">';#キャッシング
	$emj[10] = '<img localsrc="51">';#結婚相談
	$emj[11] = '<img localsrc="114">';#食材・飲料
	$emj[12] = '<img localsrc="300">';#CD・DVD
	$emj[13] = '<img localsrc="122">';#カタログ通販
	$emj[14] = '<img localsrc="56">';#ニュース
	$emj[15]  = '<img localsrc="77">';#注目マーク
	$emj[16]  = '<img localsrc="119">';#虫眼鏡
	$emj[17]  = '<img localsrc="63">';#右矢印
	$emj[18]  = '<img localsrc="112">';#家
	$emj[19]  = '<img localsrc="83">';#カート
	$emj[20]  = '<img localsrc="10">';#中黒マーク
	$emj[21]  = '<img localsrc="289">';#着うた
	$emj[22]  = '<img localsrc="309">';#待ち受け画面
	$emj[23]  = '<img localsrc="232">';#携帯ｹﾞｰﾑ
	$emj[24]  = '<img localsrc="274">';#ｱﾊﾞﾀｰ
	$emj[25]  = '<img localsrc="288">';#ﾊﾟｿｺﾝ
	$emj[26]  = '<img localsrc="162">';#家電
	$emj[27]  = '<img localsrc="112">';#家具･ｷｯﾁﾝ･雑貨
	$emj[28]  = '<img localsrc="68">';#ﾍﾞﾋﾞｰ・ﾏﾀﾆﾃｨ
	$emj[29]  = '<img localsrc="165">';#ｷﾞﾌﾄｼｮｯﾌﾟ
	$emj[30]  = '<img localsrc="317">';#ｺﾝﾀｸﾄﾚﾝｽﾞ
	$emj[31]  = '<img localsrc="125">';#ｶｰ用品
	$emj[32]  = '<img localsrc="134">';#ﾍﾟｯﾄ
	$emj[33]  = '<img localsrc="232">';#おもちゃ･ｹﾞｰﾑ
	$emj[34]  = '<img localsrc="100">';#書店
	$emj[35]  = '<img localsrc="291">';#着メロ
	$emj[36]  = '<img localsrc="108">';#デコメ
	$emj[37]  = '<img localsrc="257">';#コミック
	$emj[38]  = '<img localsrc="271">';#求人
	$emj[39]  = '<img localsrc="87">';#クレジットカード
	$emj[40]  = '<img localsrc="50">';#女性
	$emj[41]  = '<img localsrc="229">';#ギャンブル
}elsif($mobile eq 'd'){
	$msmall = 'small';
	$emj[0]  = '&#xE665;';#郵便番号検索
	$emj[1]  = '&#xE649;';#占い
	$emj[2]  = '&#xE685;';#プレゼント
	$emj[3]  = '&#xE688;';#携帯
	$emj[4]  = '&#xE710;';#化粧品
	$emj[5]  = '&#xE733;';#ダイエット
	$emj[6]  = '&#xE71B;';#ファッション
	$emj[7]  = '&#xE70F;';#ショッピング
	$emj[8]  = '&#xE682;';#宿泊予約
	$emj[9]  = '&#xE668;';#キャッシング
	$emj[10] = '&#xE68D;';#結婚相談
	$emj[11] = '&#xE752;';#食材・飲料
	$emj[12] = '&#xE68C;';#CD・DVD
	$emj[13] = '&#xE683;';#カタログ通販
	$emj[14] = '&#xE689;';#ニュース
	$emj[15]  = '&#xE6FB;';#注目マーク
	$emj[16]  = '&#xE6DC;';#虫眼鏡
	$emj[17]  = '&#xE696;';#右矢印
	$emj[18]  = '&#xE663;';#家
	$emj[19]  = '&#xE682;';#カート
	$emj[20]  = '&#xE6F8;';#中黒マーク
	$emj[21]  = '&#xE676;';#着うた
	$emj[22]  = '&#xE67B;';#待ち受け画面
	$emj[23]  = '&#xE68B;';#携帯ｹﾞｰﾑ
	$emj[24]  = '&#xE6B1;';#ｱﾊﾞﾀｰ
	$emj[25]  = '&#xE716;';#ﾊﾟｿｺﾝ
	$emj[26]  = '&#xE68A;';#家電
	$emj[27]  = '&#xE6B2;';#家具･ｷｯﾁﾝ･雑貨
	$emj[28]  = '&#xE74F;';#ﾍﾞﾋﾞｰ・ﾏﾀﾆﾃｨ
	$emj[29]  = '&#xE684;';#ｷﾞﾌﾄｼｮｯﾌﾟ
	$emj[30]  = '&#xE691;';#ｺﾝﾀｸﾄﾚﾝｽﾞ
	$emj[31]  = '&#xE65E;';#ｶｰ用品
	$emj[32]  = '&#xE6A1;';#ﾍﾟｯﾄ
	$emj[33]  = '&#xE679;';#おもちゃ･ｹﾞｰﾑ
	$emj[34]  = '&#xE683;';#書店
	$emj[35]  = '&#xE67A;';#着メロ
	$emj[36]  = '&#xE6D3;';#デコメ
	$emj[37]  = '&#xE6AE;';#コミック
	$emj[38]  = '&#xE6AC;';#求人
	$emj[39]  = '&#xE67E;';#クレジットカード
	$emj[40]  = '&#xE6F0;';
	$emj[41]  = '&#xE679;';
}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 .= "<option value=\"$cat[$i]\" $selected>$catn[$i]";
}

print "Content-type: text/html\n\n";
print<<"EOM";
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=Shift_JIS"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<title>$q : $nowcat</title>
</head>
<body>
<div style='background-color:#76C4E9'><a href="/m.cgi">ﾂｶｴﾙｻｲﾄ ﾎｰﾑ</a> &gt; <hr/></div>
<div style="text-align:center">
<form name="search" method="get" action="/m.cgi">
<input type="text" maxlength="255" name="q" value="$q" size="16"/><br/>
<input type="hidden" name="s" value="s_site">
<input type="submit" value="検索"/><br/>
</form>
</div>
<hr/>
EOM

$q = &urlencode($q);
my $useragent = $ENV{"HTTP_USER_AGENT"};
$useragent = &urlencode($useragent);
my $url;

if("$s" eq "s_site"){
	$url="http://mxml.xlisting.jp/?ad=anemone&site_id=181&corner_id=1&channel_id=web&ad_num=2&keyword=$q&user_ip=$ENV{'REMOTE_ADDR'}&user_agent=$useragent&in_enc=sjis&out_enc=sjis";
	my $ua = LWP::UserAgent->new;
	$ua->timeout(5);
	my $req = HTTP::Request->new(GET=>$url);
	$req->header(
'Accept' => 'text/html',
'User_Agent' => "$ENV{'HTTP_USER_AGENT'}",
	);
	my $res = $ua->request( $req );
	if ($res->is_success) {
		my $content = $res->content;
		$content =~ s/\n//g;
		$content =~ s/\r//g;
		my $re = '<ad id="(.*?)"><ad_sort>(.*?)</ad_sort><ad_title>(.*?)</ad_title><ad_description>(.*?)</ad_description><bridge_url>(.*?)</bridge_url><ad_url>(.*?)</ad_url>';
		while ($content =~ /$re/igos) {
			my $mtitle = $3;
			my $mdesc = $4;
			my $madurl = $5;
			my $murl = $6;
			$mtitle =~ s/\&amp\;/\&/g;
			$mtitle =~ s/&lt;/</g;
			$mtitle =~ s/&gt;/>/g;
			$mtitle =~ s/&quot;/"/g;
			$mdesc =~ s/\&amp\;/\&/g;
			$mdesc =~ s/&lt;/</g;
			$mdesc =~ s/&gt;/>/g;
			$mdesc =~ s/&quot;/"/g;
			print<<"EOM";
<div style="font-size:$msmall;">[AD]<a href=$madurl>$mtitle</a> - $mdesc - <font color=green>$murl</font></div><hr/>
EOM
		}
	}

}

if(!$s){$s = 's_image';}
if(!$m){$m = 1;}
my $end = $m + 9;

if("$s" eq "s_site"){
	$url="http://msearch.mobile.goo.ne.jp/xml/search_xml.php?MT=$q&IE=sjis&OE=utf8&PS=tukaeru&FR=$m&DC=10&FLT=on&UA=$useragent&IP=$ENV{'REMOTE_ADDR'}&CA=$ca";
}else{
	$url="http://search.crooz.jp/d/xml/search.xml.php?s_type=$s&query=$q&r_type=2&carrier=$mobile&start=$m&end=$end&s_id=7451&ua=$useragent&uip=".$ENV{"REMOTE_ADDR"};
}

if($q){
my $hitflg;
my $ua = LWP::UserAgent->new;
$ua->timeout(5);
my $req = HTTP::Request->new(GET=>$url);
$req->header(
'Accept' => 'text/html',
'User_Agent' => "$ENV{'HTTP_USER_AGENT'}",
);
my $res = $ua->request( $req );
if ($res->is_success) {
	my $content = $res->content;
	from_to($content,"utf8","shift-jis");
	$content =~ s/\n//g;
	$content =~ s/\r//g;
	$content =~ s/\t//g;
	my $ad_count;
	if($content =~ m/<name>ad_count<\/name> <value><string>(.*?)<\/string>/i){
		$ad_count = $1;
	}
	my $re = "<struct>(.*?)</struct>";
	if("$s" eq "s_site"){
		$re = "<list>(.*?)</list>";
	}
	my $adflg;
	while ($content =~ /$re/igos) {
		my $data = $1;
		my $sr_url;
		my $sr_url_rd;
		my $sr_title;
		my $sr_summary;
		my @whref;
		if("$s" eq "s_site"){
			if($data =~ m/<title>(.*?)<\/title>/i){
				$sr_title = $1;
				$hitflg = 1;
			}
			if($data =~ m/<clickurl>(.*?)<\/clickurl>/i){
				$sr_url_rd = $1;
			}
			if($data =~ m/<description>(.*?)<\/description>/i){
				$sr_summary = $1;
				$sr_summary =~ s/\&amp\;/\&/g;
			}
			if($data =~ m/<url>(.*?)<\/url>/i){
				$sr_url_rd = $1;
			}
			@whref = split(/\//, $sr_url_rd);
			$powerdby = "Powerd by <a href='http://mobile.goo.ne.jp/'>goo</a>";
		}else{
			if($data =~ m/<name>sr_url_rd<\/name><value><string>(.*?)<\/string>/i){
				$sr_url_rd = $1;
				$hitflg = 1;
			}elsif($data =~ m/<name>ad_url_rd<\/name><value><string>(.*?)<\/string>/i){
				$sr_url_rd = $1;
			}
			if(!$sr_url_rd){next;}
			if($data =~ m/<name>sr_title<\/name><value><string>(.*?)<\/string>/i){
				$sr_title = $1;
				$hitflg = 1;
			}elsif($data =~ m/<name>ad_title<\/name><value><string>(.*?)<\/string>/i){
				$sr_title = "[AD]".$1;
				if($adflg == 1){next;}
				$adflg = 1;
			}
			if($data =~ m/<name>sr_summary<\/name><value><string>(.*?)<\/string>/i){
				$sr_summary = $1;
			}elsif($data =~ m/<name>ad_description<\/name><value><string>(.*?)<\/string>/i){
				$sr_summary = $1;
			}
			if(length($sr_summary) > 100){
				$sr_summary = substr($sr_summary,0,100); 
				$sr_summary .= '...'; 
			}
			@whref = split(/\//, $sr_url_rd);
			$powerdby = "Powerd by crooz";
		}
		if($sr_url_rd =~ /\.gif$/ || $sr_url_rd =~ /\.jpg$/ || $sr_url_rd =~ /\.jpeg$/ || $sr_url_rd =~ /\.png$/){
			print<<"EOM";
<div style="text-align:center">
<img src="$sr_url_rd">
</div>
<div style="font-size:$msmall;color:#007700;">$whref[2]</div>
<hr/>
EOM
		}elsif("$s" eq 's_motion' && !$sr_title){
			print<<"EOM";
$emj[35]<a href="$sr_url_rd">$sr_url_rd</a>
<hr/>
EOM
		}else{
			print<<"EOM";
$emj[3]<a href="$sr_url_rd">$sr_title</a>
<div style="font-size:$msmall;color:#333;">$sr_summary</div>
<div style="font-size:$msmall;color:#007700;">$whref[2]</div>
<hr/>
EOM
		}
	}
}


	if(!$hitflg){
		print<<"EOM";
<div style="text-align:center">
見つかりませんでした。
</div>
<hr/>
EOM
	}
}else{
	print<<"EOM";
<div style="text-align:center">
最強の携帯検索！
</div>
<hr/>
EOM
}
$m = $m + 10;
use constant GA_ACCOUNT => 'MO-95764-1';
use constant GA_PIXEL => 'http://abistudio1.sakura.ne.jp/ga/ga.cgi';
my $analytics = '<img src="' . google_analytics_get_image_url() . '" />';

print<<"EOM";
$emj[17]<a href="/m.cgi?q=$q&amp;s=$s&amp;m=$m">次のﾍﾟｰｼﾞ</a>
<hr/>
$emj[18]<a href="/m.cgi">ﾎｰﾑ</a>
<hr/>
<div style="text-align:center;">
(C)<a href="http://www.abistudio.com/m/">AbiStudio.com</a><br/>
$powerdby
</div>$analytics
</body>
</html>
EOM
exit;

sub urlencode {
	my ($line) = @_;
	$line =~ s/([^ \w])/'%'.uc(unpack('H2',$1))/ge;
	$line =~ s/\s/+/g;
	$line;
}

sub google_analytics_get_image_url {
  my $url = '';
  $url .= GA_PIXEL . '?';
  $url .= 'utmac=' . GA_ACCOUNT;
  $url .= '&utmn=' . int(rand(0x7fffffff));

  my $referer = $ENV{'HTTP_REFERER'};
  my $query = $ENV{'QUERY_STRING'};
  my $path = $ENV{'REQUEST_URI'};

  if ($referer eq "") {
    $referer = '-';
  }

  $url .= '&utmr=' . uri_escape($referer);
  $url .= '&utmp=' . uri_escape($path);
  $url .= '&guid=ON';

  $url;
}