##e`FbN[`##


sub check_browser{

$useragent = $ENV{'HTTP_USER_AGENT'};
$browser="Other";
$osversion="Other";
if( $useragent =~/Chrome/ ){
      $browser="Google Chrome";
      if( $useragent =~/Windows NT 5.1/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows NT 6.0/ ){$osversion="WIN Vista";}
      elsif( $useragent =~/Windows NT 6.1/ ){$osversion="WIN 7";}
      else{$osversion="Other";}

}elsif( $useragent =~/Lunascape/ ){
      $browser="Lunascape";
      if( $useragent =~/Windows NT 5.1/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows NT 6.0/ ){$osversion="WIN Vista";}
      elsif( $useragent =~/Windows NT 6.1/ ){$osversion="WIN 7";}
      else{$osversion="Other";}

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

}elsif( $useragent =~/WebCapture/ ){
      $browser="WebCapture";
      $osversion="Other";

}elsif( $useragent =~/Konqueror/ ){
      $browser="Konqueror";
      $osversion="Linux";

}elsif( $useragent =~/Dreampassport/ ){
      $browser="Dreampassport";
      $osversion="Dreampassport";

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

}elsif( $useragent =~/Sleipnir/ ){
      if( $useragent =~/Windows NT 5.1/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows NT 6.0/ ){$osversion="WIN Vista";}
      elsif( $useragent =~/Windows NT 6.1/ ){$osversion="WIN 7";}
      else{$osversion="Other";}

}elsif( $useragent =~/Opera/ ){
      $browser="Opera";
      if( $useragent =~/Opera/ ){$browser="Opera";}
      if( $useragent =~/Opera 5/ ){$browser="Opera 5";}
      if( $useragent =~/Opera\/6/ ){$browser="Opera 6";}
      if( $useragent =~/Opera 6/ ){$browser="Opera 6";}
      if( $useragent =~/Opera 7/ ){$browser="Opera 7";}
      if( $useragent =~/Opera\/7/ ){$browser="Opera 7";}
      if( $useragent =~/Opera 8/ ){$browser="Opera 8";}
      if( $useragent =~/Opera\/8/ ){$browser="Opera 8";}
      if( $useragent =~/Opera 9/ ){$browser="Opera 9";}
      if( $useragent =~/Opera\/9/ ){$browser="Opera 9";}
      if( $useragent =~/Opera 10/ ){$browser="Opera 10";}
      if( $useragent =~/Opera\/10/ ){$browser="Opera 10";}
      if( $useragent =~/Windows XP/ ){$osversion="WIN XP";}
      elsif( $useragent =~/Windows NT 6.1/ ){$osversion="WIN 7";}
      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 OS X/ ){$osversion="Mac OS X";}
      elsif( $useragent =~/Mac_PowerPC/ ){$osversion="Mac OS";}
      elsif( $useragent =~/Linux/ ){$osversion="Linux";}
      else{$osversion="Other";}

}elsif( $useragent =~/Safari/ ){
      $browser="Safari";
      if( $useragent =~/Version\/3/ ){$browser="Safari 3";}
      if( $useragent =~/Version\/4/ ){$browser="Safari 4";}
      if( $useragent =~/Mac OS X/ ){$osversion="Mac OS X";}
      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 =~/GoogleToolbar/ ){$browser="IE 8";}
      if( $useragent =~/MSIE 9/ ){$browser="IE 9";}
      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 6.1/ ){$osversion="WIN 7";}
      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 OS X/ ){$osversion="Mac OS X";}
      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 =~/Firefox/ ){
      $browser="Firefox";
      if( $useragent =~/Firefox\/2/ ){$browser="Firefox 2";}
      if( $useragent =~/Firefox\/3/ ){$browser="Firefox 3";}
      if( $useragent =~/Firefox\/4/ ){$browser="Firefox 4";}
      if( $useragent =~/Win95/ ){$osversion="WIN 95";}
      elsif( $useragent =~/Win98/ ){$osversion="WIN 98";}
      elsif( $useragent =~/Windows NT 6.1/ ){$osversion="WIN 7";}
      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 =~/Mac OS X/ ){$osversion="Mac OS X";}
      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 =~/Mozilla/) && ($useragent !~/Netscape/)){
      $browser="NN";
      if( $useragent =~/Mozilla\/6/ ){$browser="NN 6";}
      if( $useragent =~/Mozilla\/7/ ){$browser="NN 7";}
      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 =~ /google/){
       $searchengin="Google";
       if($keyvalue{'q'} ne ""){$keyword = $keyvalue{'q'};}
       if($keyvalue{'as_q'} ne ""){$keyword = $keyvalue{'as_q'};}
       }
else {$searchengin="";}

}


sub check_robot{
exit;
}
       

#-----------------------------#
# G܂#
#-----------------------------#
1;
