BlogもどきのWeblog

sub CheckMobile{

 local($env,$ua);

 $ua = $ENV{'HTTP_USER_AGENT'};

 if($ua =~ /docomo/i){
  $env = "i";
 }elsif($ua =~ /kddi/i){
  $env = "ez";
 }elsif($ua =~ /vodafone/i){
  $env = "sb";
 }elsif($ua =~ /softbank/i){
  $env = "sb";
 }elsif($ua =~ /mot-/i){
  $env = "sb";
 }elsif($ua =~ /j-phone/i){
 $env = "sb";
 }elsif($ua =~ /up\.browser/i){
  $env = "ez";
 }elsif($ua =~ /willcom/i){
  $env = "phs;
 }else{
  $env = 0;
 }

 return $env;

}