#!/usr/local/bin/perl
require 'jcode.pl';

$ref = './referer.log';

open( REF , $ref );
while( <REF> ){
    chomp;
    $string = &host_analysis( $_ );
#    print &jcode::jis( $string ) , "\n" if( $string );
    print $string  , "\n" if( $string );
    
}
close( REF );

sub host_analysis{
    my $rc = '';
    $_ = shift;

    if( /google.yahoo.co.jp/          ){ $rc = &analysis( $_ , 'p' ); }
    elsif( /www.google.co/            ){ $rc = &analysis( $_ , 'q' ); }
    elsif( /www.nifty.com/ 	      ){ $rc = &analysis( $_ , 'Text' ); }
    elsif( /cgi.search.biglobe.ne.jp/ ){ $rc = &analysis( $_ , 'q' ); }
    elsif( /www.excite.co.jp/ 	      ){ $rc = &analysis( $_ , 'search' ); }
    elsif( /odn.excite.co.jp/         ){ $rc = &analysis( $_ , 's' ); }
    elsif( /www.northernlight.com/    ){ $rc = &analysis( $_ , 'qr' ); }
    elsif( /www.tocc.co.jp/           ){ $rc = &analysis( $_ , 'QRY' ); }
    elsif( /search.msn.co.jp/         ){ $rc = &analysis( $_ , 'MT' ); }
    elsif( /www.goo.ne.jp/            ){ $rc = &analysis( $_ , 'MT' ); }
    elsif( /www.isao.net/             ){ $rc = &analysis( $_ , 'query1' ); }

    return $rc;
}

sub analysis{
    my $url = shift;
    my $tag = shift;
    my $rc = '';

    $url =~ /.*\?(.*)/;
    $dat = $1;
    foreach $data ( split( /\&/ , $dat ) ){
	if( $data =~ /^$tag/ ){
	    $data =~ s/^$tag\=//;
	    $data =~ tr/+/ /;
	    $data =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	    if( $data !~ /^cache/ ){
		$rc = $data;
	    }
	}
    }

    return $rc;
}

$COMMENT =<<"__EOD__";

http://google.yahoo.co.jp/bin/query?p=%a5%e1%a5%c8%a5%ed%a5%dd%a5%ea%a5%bf%a5%f3%a5%df%a5%e5%a1%bc%a5%b8%a5%a2%a5%e0+%a4%df%a4%f3%a4%ca%a4%ce%a4%a6%a4%bf+%b2%ce%bb%ec&hc=0&hs=0

http://www.google.co.jp/search?hl=ja&q=%83u%83%89%83b%83N%83%7D%83g%83%8A%83b%83N%83X%81@%83Q%81%5B%83%80%81@%89%E6%91%9C&lr=

http://www.google.com/search?q=cd+%83R%83s%81%5B%96h%8E~%81%40%8C%B4%97%9D&hl=ja&start=30&sa=N

http://www.nifty.com/cgi-bin/search.cgi?select=2&lr=lang_ja&hl=ja&service=4&page=nifty&format=PROTOCOL1&Text=%89A%8Aj%81A%8E%CA%90%5E&stpos=50&funcno=1

http://cgi.search.biglobe.ne.jp/cgi-bin/search?navi_size=1&q=M-S48a+%A5%C9%A5%E9%A5%A4%A5%D0&num=10

http://www.excite.co.jp/search.gw?search=%83u%83%89%83b%83N%83%7D%83g%83%8A%83b%83N%83X%83N%83%8D%83X&collection=japan&look=excite_jp&lang=jp
http://odn.excite.co.jp/search.gw?s=%83u%83%89%83b%83N%83%7D%83g%83%8A%83b%83N%8
3X%83N%83%8D%83X&c=web&lk=odn_jp&lang=jp&target=combined

http://www.northernlight.com/nlquery.fcg?ho=aaron&po=5221&qr=%83G%83%7E%83%85+%8Cf%8E%A6%94%C2+%82k%82d%82d%82j&nth=97+79+49+36+25+11&tq=Af74764bb1723bc7a85c&tr=A14472ae61643bc7a780

http://www.tocc.co.jp/search/servlet/SearchServlet?QRY=%A4%A4%A4%AD%A4%CA%A4%EA%A5%B7%A5%E3%A5%C3%A5%C8%A5%C0%A5%A6%A5%F3&CCM=M%3AW&NRS=10&UNI=HST&UD0=SMP&FRS=20

http://search.msn.co.jp/spbasic.htm?MT=%83u%83%89%83b%83N%83%7D%83g%83%8A%83N%83X

http://www.goo.ne.jp/default.asp?MT=%A5%E1%A1%BC%A5%E9%A1%BC%A5%C7%A1%BC%A5%E2%A5%F3&SDB=PG&base=40&act.next=1

http://www.isao.net/search/idp.cgi?query1=%8E%E8%88%FA+%82%E2%82%E8%95%FB&cty1=words&cmd1=must&numresults=10&result=detailed&firstresult=30


__EOD__
;