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


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 NT 6.0/ ){$osversion="WIN Vista";}
      elsif( $useragent =~/Windows NT 5.0/ ){$osversion="WIN 2000";}
      elsif( $useragent =~/Windows NT 5.1/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows NT 5.2/ ){$osversion="WIN 2003";}
      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 =~/MSIE 7/ ){$browser="IE 7";}
      if( $useragent =~/MSIE 8/ ){$browser="IE 8";}
      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 6.0/ ){$osversion="WIN Vista";}
      elsif( $useragent =~/Windows NT/ ){$osversion="WIN NT";}
      elsif( $useragent =~/Windows XP/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows 2000/ ){$osversion="WIN 2000";}
      elsif( $useragent =~/Windows ME/ ){$osversion="WIN ME";}
      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 =~/Firefox/ ){$browser="Firefox";}#
      if( $useragent =~/Netscape6/ ){$browser="Netscape6";}#
      if( $useragent =~/Netscape7/ ){$browser="Netscape7";}#
      if( $useragent =~/Netscape\/7/ ){$browser="Netscape7";}#
      if (($useragent =~/Gecko/) && ($useragent !~/Netscape/)){$osversion="Mozilla";}
      if( $useragent =~/Win95/ ){$osversion="WIN 95";}
      elsif( $useragent =~/Win98/ ){$osversion="WIN 98";}
      elsif( $useragent =~/Windows NT 6.0/ ){$osversion="WIN Vista";}
      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 =~/Mac OS X/ ){$osversion="Mac OS X";}
      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 =~ /search\.yahoo\.co\.jp\/search\/dir/){
       $searchengin="Yahoo! Japan(dir)";
       if($keyvalue{'p'} ne ""){$keyword = $keyvalue{'p'};}
       if($keyvalue{'key'} ne ""){$keyword = $keyvalue{'key'};}
       }
elsif($linkurl =~ /dir\.yahoo\.co\.jp/){
       $searchengin="Yahoo! Japan(dir)";
       if($keyvalue{'p'} ne ""){$keyword = $keyvalue{'p'};}
       if($keyvalue{'key'} ne ""){$keyword = $keyvalue{'key'};}
       }
elsif($linkurl =~ /search\.yahoo\.co\.jp/){
       $searchengin="Yahoo! Japan(yst)";
       if($keyvalue{'p'} ne ""){$keyword = $keyvalue{'p'};}
       if($keyvalue{'key'} ne ""){$keyword = $keyvalue{'key'};}
       }
elsif($linkurl =~ /\.yahoo/){
       $searchengin="Yahoo!";
       if($keyvalue{'p'} ne ""){$keyword = $keyvalue{'p'};}
       if($keyvalue{'key'} ne ""){$keyword = $keyvalue{'key'};}
       }
       
elsif($linkurl =~ /google/){
       $searchengin="Google";
       if($keyvalue{'q'} ne ""){$keyword = $keyvalue{'q'};}
       if($keyvalue{'as_q'} ne ""){$keyword = $keyvalue{'as_q'};}
       }

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 =~ /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-Image/) { $robot = 'Googlebot-Image';}
elsif($useragent =~ /Googlebot/) { $robot = 'Google robot';}
elsif($useragent =~ /gsa-crawler/) { $robot = 'Google robot';}
elsif($useragent =~ /Mediapartners-Google/) { $robot = 'Google robot';}
elsif($useragent =~ /About/) { $robot = 'About robot';}
elsif($useragent =~ /AltaVista/) { $robot = 'Altavista robot';}
elsif($useragent =~ /ArchitextSpider/) { $robot = 'Excite spider';}
elsif($useragent =~ /BSDSeek\//) { $robot = 'Inktomi ( Hotbot-Lycos, NBCi etc.) robot';}
elsif($useragent =~ /Cowbot/) { $robot = 'Naver Japan / Korea robot s';}
elsif($useragent =~ /NaverRobot/) { $robot = 'Naver Japan / Korea robot s';}
elsif($useragent =~ /alexa/) { $robot = 'Alexa crawler';}
elsif($useragent =~ /Cyberdog/) { $robot = 'Cyberdog Mac Browser';}
elsif($useragent =~ /Fast Crawler Gold Edition/) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /FAST Enterprise Crawle/) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /FAST FirstPage retrieve/) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /Fast PartnerSite Crawler/) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /FastCrawler/) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /FAST-WebCrawler\//) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /GAIS Robot/) { $robot = 'Seed Search robot';}
elsif($useragent =~ /GalaxyBot/) { $robot = 'Galaxy robot';}
elsif($useragent =~ /ia_archiver/) { $robot = 'Alexa / The Internet Archive robot';}
elsif($useragent =~ /IAArchiver/) { $robot = 'Alexa / The Internet Archive robot';}
elsif($useragent =~ /IncyWincy/) { $robot = 'IncyWincy search engine using DMOZ';}
elsif($useragent =~ /InfoSeek Sidewinder/) { $robot = 'Infoseek robot';}
elsif($useragent =~ /Inktomi Search/) { $robot = 'Inktomi ( Hotbot-Lycos, NBCi etc.) robot';}
elsif($useragent =~ /Jabot\//) { $robot = 'ODIN Directory Japan robot';}
elsif($useragent =~ /larbin_/) { $robot = 'Larbin indexer ';}
elsif($useragent =~ /libwww-perl\/5\.48/) { $robot = 'Alexa robot';}
elsif($useragent =~ /libwww-perl\/5\.52/) { $robot = 'Fast Search robot';}
elsif($useragent =~ /Lycos_Spider/) { $robot = 'Lycos spider';}
elsif($useragent =~ /MantraAgent/) { $robot = 'Looksmart robot';}
elsif($useragent =~ /moget\//) { $robot = 'Goo Japan / Inktomi robot';}
elsif($useragent =~ /mogimogi\//) { $robot = 'Goo Japan / Inktomi robot';}
elsif($useragent =~ /Slurp\/cat/) { $robot = 'Inktomi ( Hotbot-Lycos, NBCi etc.) robot';}
elsif($useragent =~ /Slurp\/si/) { $robot = 'Inktomi ( Hotbot-Lycos, NBCi etc.) robot';}
elsif($useragent =~ /Slurp\.so\//) { $robot = 'Goo.ne.jp / Inktomi robot';}
elsif($useragent =~ /FastCrawler3/) { $robot = 'Fast/Alltheweb crawler';}
elsif($useragent =~ /www\.galaxy\.com/) { $robot = 'Galaxy robot';}
elsif($useragent =~ /Zealbot/) { $robot = 'LookSmart spider';}
elsif($useragent =~ /WISEnutbot\.com/) { $robot = 'Wisenut robot';}
elsif($useragent =~ /Yahoo! Slurp/) { $robot = 'Inktomi robot for Yahoo';}
elsif($useragent =~ /MSNBOT\//) { $robot = 'MSN Search robot ';}
elsif($useragent =~ /msnbot\//) { $robot = 'MSN Search robot ';}
elsif($useragent =~ /MSNPTC\//) { $robot = 'MSN Search robot ';}
elsif($useragent =~ /nabot_/) { $robot = 'Naver Japan / Korea robot s';}
elsif($useragent =~ /NABOT\//) { $robot = 'Naver Japan / Korea robot s';}
elsif($useragent =~ /NaverBot/) { $robot = 'Naver Japan / Korea robot s';}
elsif($useragent =~ /NetResearchServer\/2/) { $robot = 'IncyWincy search engine using DMOZ';}
elsif($useragent =~ /nttdirectory_robot/) { $robot = 'NTT Directory robot';}
elsif($useragent =~ /Overture-WebCrawler/) { $robot = 'Overture/Fast/Alltheweb crawler';}
elsif($useragent =~ /Robozilla\//) { $robot = 'Netscape Directory / DMOZ ink crawler';}
elsif($useragent =~ /SafariBookmarkChecker /) { $robot = 'SafariBookmarkChecker for Mac OS X';}
elsif($useragent =~ /Scooter\//) { $robot = 'Altavista robot';}
elsif($useragent =~ /Slurp\/2\.0/) { $robot = 'Inktomi ( Hotbot-Lycos, NBCi etc.) robot';}
elsif($useragent =~ /SpiderMan/) { $robot = 'Yahoo Search user agent or spider';}
elsif($useragent =~ /Sqworm\/2\.9\.81/) { $robot = 'AOL Search / Pacific Internet Exchange robot';}
elsif($useragent =~ /Tagword/) { $robot = 'TAGword DMOZ survey - ODP link checking robot';}
elsif($useragent =~ /Ultraseek/) { $robot = 'Infoseek robot';}
elsif($useragent =~ /Yahoo-MMCrawler/) { $robot = 'Yahoo multimedia crawler via Fastsearch.net ';}
elsif($useragent =~ /YahooSeeker\//) { $robot = 'Yahoo Product Search crawler ';}
elsif($useragent =~ /Yahoo-VerticalCrawler/) { $robot = 'Yahoo crawler via Overture';}
elsif($useragent =~ /ZyBorg/) { $robot = 'Wisenut robot';}
elsif($useragent =~ /indexpert/) { $robot = 'indexpert';}
elsif($useragent =~ /FreshGet/) { $robot = 'Fresheye(FreshGet)';}
elsif($useragent =~ /aruyo/) { $robot = 'Aruyo robot fpr AAA!Cafe';}
elsif($useragent =~ /Aruyo/) { $robot = 'Aruyo robot fpr AAA!Cafe';}

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;