##各種チェックルーチン##


sub check_browser{

$useragent = $ENV{'HTTP_USER_AGENT'};
$browser="Other";
$osversion="Other";
if( $useragent =~/Safari/ ){
      $browser="Safari";
      if( $useragent =~/Safari/ ){$browser="Safari";}
      if( $useragent =~/Mac OS X/ ){$osversion="Mac OS X";}
      elsif( $useragent =~/Mac/ ){$osversion="Mac OS";}
      else{$osversion="Other";}

}elsif( $useragent =~/iCab/ ){
      $browser="iCab";
      if( $useragent =~/iCab/ ){$browser="iCab";}
      if( $useragent =~/Mac OS X/ ){$osversion="Mac OS X";}
      elsif( $useragent =~/Mac/ ){$osversion="Mac OS";}
      else{$osversion="Other";}

}elsif( $useragent =~/OmniWeb/ ){
      $browser="OmniWeb";
      if( $useragent =~/OmniWeb/ ){$browser="OmniWeb";}
      if( $useragent =~/Mac OS X/ ){$osversion="Mac OS X";}
      elsif( $useragent =~/Mac/ ){$osversion="Mac OS";}
      else{$osversion="Other";}

}elsif( $useragent =~/Opera/ ){
      $browser="Opera";
      if( $useragent =~/Opera/ ){$browser="Opera";}
      if( $useragent =~/Opera\/6/ ){$browser="Opera 6";}
      if( $useragent =~/Opera 6/ ){$browser="Opera 6";}
      if( $useragent =~/Opera 5/ ){$browser="Opera 5";}
      if( $useragent =~/Windows XP/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows 2000/ ){$osversion="WIN 2000";}
      elsif( $useragent =~/Windows ME/ ){$osversion="WIN ME";}
      elsif( $useragent =~/Windows 98/ ){$osversion="WIN 98";}
      elsif( $useragent =~/Mac_PowerPC/ ){$osversion="Mac OS";}
      elsif( $useragent =~/Linux/ ){$osversion="Linux";}
      else{$osversion="Other";}

}elsif(($useragent =~/MSIE/) && ($useragent =~/Mozilla/) && ($useragent =~/compatible/)){
      $browser="IE";
      if( $useragent =~/MSIE 2/ ){$browser="IE 2";}
      if( $useragent =~/MSIE 3/ ){$browser="IE 3";}
      if( $useragent =~/MSIE 4/ ){$browser="IE 4";}
      if( $useragent =~/MSIE 5/ ){$browser="IE 5.x";}
      if( $useragent =~/MSIE 5.0/ ){$browser="IE 5.0";}
      if( $useragent =~/MSIE 5.5/ ){$browser="IE 5.5";}
      if( $useragent =~/MSIE 6/ ){$browser="IE 6";}
      if( $useragent =~/Windows 95/ ){$osversion="WIN 95";}
      elsif( $useragent =~/Win 9x/ ){$osversion="WIN ME";}
      elsif( $useragent =~/Windows 98/ ){$osversion="WIN 98";}
      elsif( $useragent =~/Windows NT 5.0/ ){$osversion="WIN 2000";}
      elsif( $useragent =~/Windows NT 5.1/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows NT/ ){$osversion="WIN NT";}
      elsif( $useragent =~/Windows XP/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows CE/ ){$osversion="WIN CE";}
      elsif( $useragent =~/Mac/ ){$osversion="Mac OS";}
      elsif( $useragent =~/Linux/ ){$osversion="Linux";}
      elsif( $useragent =~/SunOS/ ){$osversion="SunOS";}
      elsif( $useragent =~/FreeBSD/ ){$osversion="FreeBSD";}
      else{$osversion="Other";}

}elsif(($useragent =~/Mozilla/) && ($useragent !~/Compatible/)){
      $browser="NN";
      if( $useragent =~/Mozilla\/2/ ){$browser="NN 2";}
      if( $useragent =~/Mozilla\/3/ ){$browser="NN 3";}
      if( $useragent =~/Mozilla\/4/ ){$browser="NN 4";}
      if( $useragent =~/Mozilla\/5/ ){$browser="NN 5";}
      if( $useragent =~/Mozilla\/6/ ){$browser="NN 6";}
      if( $useragent =~/Netscape6/ ){$osversion="NN 6";}
      if (($useragent =~/Gecko/) && ($useragent !~/Netscape/)){$osversion="Mozilla";}
      if( $useragent =~/Win95/ ){$osversion="WIN 95";}
      elsif( $useragent =~/Win98/ ){$osversion="WIN 98";}
      elsif( $useragent =~/Windows NT 5.0/ ){$osversion="WIN 2000";}
      elsif( $useragent =~/Windows NT 5.1/ ){$osversion="WIN XP";}
      elsif( $useragent =~/WinNT/ ){$osversion="WIN NT";}
      elsif( $useragent =~/Windows NT/ ){$osversion="WIN NT";}
      elsif( $useragent =~/Windows XP/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Macintosh/ ){$osversion="Mac OS";}
      elsif( $useragent =~/Linux/ ){$osversion="Linux";}
      elsif( $useragent =~/SunOS/ ){$osversion="SunOS";}
      elsif( $useragent =~/FreeBSD/ ){$osversion="FreeBSD";}
      else{$osversion="Other";}

}elsif( $useragent =~/Nutscrape\/1/ ){$browser="Nutscrape1";
}elsif( $useragent =~/Cuam\/1/ ){$browser="Cuam";
}

}



sub check_keywordsub{
if($linkurl =~ /msn\.co\.jp/) {$keyword = $keyvalue{'q'};$searchengin="MSNサーチ";}
elsif($linkurl =~ /lycos\.co\.jp/) {$keyword = $keyvalue{'q'};$searchengin="Lycos Japan";}
elsif($linkurl =~ /dmoz\.org/) {$keyword = $keyvalue{'search'};$searchengin="ODP(dmoz)";}
elsif($linkurl =~ /search\.aaacafe\.ne\.jp/) {$keyword = $keyvalue{'key'};$searchengin="AAA!CAFE";}
elsif($linkurl =~ /lisa\.co\.jp/) {$keyword = $keyvalue{'key'};$searchengin="Lisa";}
elsif($linkurl =~ /joyjoy\.com/) {$keyword = $keyvalue{'key'};$searchengin="JOY";}
elsif($linkurl =~ /altavista\.com/) {$keyword = $keyvalue{'q'};$searchengin="AltaVista";}
elsif($linkurl =~ /scitec\.kobe-u\.ac\.jp/) {$keyword = $keyvalue{'q'};$searchengin="Kobe University(Metcha Search)";}
elsif($linkurl =~ /fks\.ed\.jp/) {$keyword = $keyvalue{'q'};$searchengin="FKS";}
elsif($linkurl =~ /alltheweb\.com/) {$keyword = $keyvalue{'q'};$searchengin="AlltheWeb";}
elsif($linkurl =~ /tocc\.co\.jp/) {$keyword = $keyvalue{'QRY'};$searchengin="TOCC";}
elsif($linkurl =~ /fresheye\.com/) {$keyword = $keyvalue{'kw'};$searchengin="Fresheye";}
elsif($linkurl =~ /rikunabi\.com/) {$keyword = $keyvalue{'keyword'};$searchengin="リクナビ";}
elsif($linkurl =~ /vi-va\.jp/) {$keyword = $keyvalue{'keyword'};$searchengin="VI-VA";}
elsif($linkurl =~ /koukou\.net/) {$keyword = $keyvalue{'keyword'};$searchengin="高校ネット";}
elsif($linkurl =~ /allabout\.co\.jp/) {$keyword = $keyvalue{'qs'};$searchengin="AllAbout Japan";}
elsif($linkurl =~ /inetg\.com/) {$keyword = $keyvalue{'qs'};$searchengin="iNET Guide";}
elsif($linkurl =~ /google\.yahoo\.co\.jp/) {$keyword = $keyvalue{'p'};$searchengin="Yahoo! Japan(google)";}
elsif($linkurl =~ /websearch\.yahoo\.co\.jp/) {$keyword = $keyvalue{'p'};$searchengin="Yahoo! Japan(google)";}
elsif($linkurl =~ /dir\.yahoo\.co\.jp/) {$keyword = $keyvalue{'p'};$searchengin="Yahoo! Japan(dir)";}
elsif($linkurl =~ /search\.yahoo\.co\.jp\/bin\/search/) {$keyword = $keyvalue{'p'};$searchengin='Yahoo! Japan(dir/google)';}
elsif($linkurl =~ /search\.yahoo\.co\.jp\/bin\/query/){$keyword = $keyvalue{'p'};$searchengin='Yahoo! Japan(google)';}
elsif($linkurl =~ /www\.infoseek\.co\.jp/) {$keyword = "$keyvalue{'oq'} $keyvalue{'qt'} $keyvalue{'qts'}";$searchengin="インフォシーク";}
elsif($linkurl =~ /search\.infoseek\.co\.jp/) {$keyword = $keyvalue{'qt'};$searchengin="インフォシーク";}
elsif($linkurl =~ /infoseek\.co\.jp\/Topic/) {$keyword = $keyvalue{'qt'};$searchengin="インフォシーク";}
elsif($linkurl =~ /www\.nifty\.com/) { $keyword = $keyvalue{'Text'};$searchengin="niftyアットサーチ";}
elsif($linkurl =~ /search\.nifty\.com/) { $keyword = $keyvalue{'Text'};$searchengin="niftyアットサーチ";}
elsif($linkurl =~ /search\.jp\.aol\.com/) {$keyword = $keyvalue{'query'};$searchengin="AOLサーチ";}
elsif($linkurl =~ /chance-it\.com/) {$keyword = $keyvalue{'p'};$searchengin="Chance IT!";}
elsif($linkurl =~ /goo\.ne\.jp/) {$keyword = $keyvalue{'MT'};$searchengin="goo(グー)";}
elsif($linkurl =~ /google\.com/) {$keyword = $keyvalue{'q'};$searchengin="Google";}
elsif($linkurl =~ /google\.co\.jp/) {$keyword = $keyvalue{'q'};$searchengin="Google";}
elsif($linkurl =~ /odn\.excite\.co\.jp/) {$keyword = $keyvalue{'search'};$searchengin="エキサイト(ODN)";}
elsif($linkurl =~ /dion\.excite\.co\.jp/) {$keyword = $keyvalue{'search'};$searchengin="エキサイト(DION)";}
elsif($linkurl =~ /excite\.co\.jp/) {
       $searchengin="エキサイト";
       $keyword = $keyvalue{'s'};
       unless($keyword) {$keyword = $keyvalue{'search'};}
       }
elsif($linkurl =~ /search\.biglobe\.ne\.jp/) {$keyword = $keyvalue{'q'};$searchengin="BIGLOBEサーチ";}
elsif($linkurl =~ /dir\.biglobe\.ne\.jp/) {$keyword = $keyvalue{'q'};$searchengin="BIGLOBEサーチ";}
elsif($linkurl =~ /isize\.com/) { $keyword = $keyvalue{'QueryString'};$searchengin="ISIZE";}
elsif($linkurl =~ /search-intl\.netscape\.com/) {$keyword = $keyvalue{'search'};$searchengin="Netscape Search";}
elsif($linkurl =~ /search\.netscape\.com/) { $keyword = $keyvalue{'query'};$searchengin="Netscape Search";}
else {$searchengin="";}

}


sub check_robot{
if($useragent =~ /Googlebot/) {$robot = "Google(Googlebot)";}
elsif($useragent =~ /Slurp\.so\/Goo/) { $robot = "goo(Slurp.so/Goo)";}
elsif($useragent =~ /mogimogi/) { $robot = "goo(mogimogi)";}
elsif($useragent =~ /moget/) { $robot = "goo(moget)";}
elsif($useragent =~ /Slurp\/si/) { $robot = 'Inktomi(Slurp/si)';}
elsif($useragent =~ /Slurp\/cat/) { $robot = 'Inktomi(Slurp/cat)';}
elsif($useragent =~ /Slurp\-TOCC\/si/) { $robot = 'TOCC(Slurp-TOCC/si)';}
elsif($useragent =~ /Slurp\.so\/TOCC/) { $robot = 'TOCC(Slurp.so/TOCC)';}


elsif($useragent =~ /Sidewinder/) { $robot = 'Infoseek(Sidewinder)';}
elsif($useragent =~ /indexpert/) { $robot = 'Fresheye(indexpert)';}
elsif($useragent =~ /FreshGet/) { $robot = 'Fresheye(FreshGet)';}
elsif($useragent =~ /aruyo/) { $robot = 'AAA!Cafe(aruyo)';}
elsif($useragent =~ /ZyBorg/) { $robot = 'Looksmart etc.(ZyBorg)';}
elsif($useragent =~ /FAST\-WebCrawler/) { $robot = 'Fastsearch(FAST-WebCrawler)';}
elsif($useragent =~ /WebCrawler/) { $robot = 'AlltheWeb(WebCrawler)';}

elsif($useragent =~ /Openbot/) { $robot = 'Openfind(Openbot)';}
elsif($useragent =~ /Scooter/) { $robot = 'AltaVista(Scooter)';}
elsif($useragent =~ /NetResearchServer/) { $robot = 'IncyWincy(NetResearchServer)';}
elsif($useragent =~ /RaBot/) { $robot ='Daum(RaBot)';}

elsif($useragent =~ /Lycos\_Spider/) { $robot = 'Lycos(Lycos_Spider)';}
elsif($useragent =~ /ArchitextSpider/) { $robot = 'Exite(ArchitextSpider)';}

elsif($useragent =~ /Down\ Site\ Checker/) { $robot = 'Yahoo! Down Site Checker';}
elsif($useragent =~ /AllAboutJapan\ LinkChecker/) { $robot = 'AllAboutJapan LinkChecker';}

elsif($useragent =~ /test/) { $robot = 'TEST OK!';}

elsif($linkurl =~ /dmoz.org\/editors\/editunrev2\.cgi/) { $robot = 'Dmoz Editor Check';}
elsif($linkurl =~ /surf\.yahoo\.co\.jp\/submissions/) { $robot = 'Yahoo Editor for new site check';}
elsif($linkurl =~ /surf\.yahoo\.co\.jp\/changes/) { $robot = 'Yahoo Editor for current site check';}

else {exit;}
}
       

#-----------------------------#
# 触りません#
#-----------------------------#
$keywd="商い繁盛";
1;