スマートフォン判定用のメソッドを追加。

diff --git a/lib/Util.pm b/lib/Util.pm
index d187f9c..7393012 100644 (file)
--- a/lib/Util.pm
+++ b/lib/Util.pm
@@ -268,6 +268,31 @@ sub handyphone {
 }
 
 #===============================================================================
+# <p>
+#   ¥¯¥é¥¤¥¢¥ó¥È¤¬¥¹¥Þ¡¼¥È¥Õ¥©¥ó¤«¤É¤¦¤«¥Á¥§¥Ã¥¯¤·¤Þ¤¹¡£
+#   ¥¹¥Þ¡¼¥È¥Õ¥©¥ó¤Î¾ì¹ç¤Ï¿¿¡¢¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ïµ¶¤òÊÖ¤·¤Þ¤¹¡£
+# </p>
+# <pre>
+# if(Util::smartphone()){
+#   # ¥¹¥Þ¡¼¥È¥Õ¥©¥ó¤Î¾ì¹ç¤Î½èÍý
+# } else {
+#   # ¥¹¥Þ¡¼¥È¥Õ¥©¥ó¤Ç¤Ê¤¤¾ì¹ç¤Î½èÍý
+# }
+# </pre>
+#===============================================================================
+sub smartphone {
+       my $ua = $ENV{'HTTP_USER_AGENT'};
+       if(!defined($ua)){
+               return 0;
+       }
+       if($ua =~ /Android// || $ua =~ /iPhone/){
+               return 1;
+       } else {
+               return 0;
+       }
+}
+
+#===============================================================================
 # load_config_hash´Ø¿ô¤Ç»ÈÍѤ¹¤ë¥¢¥ó¥¨¥¹¥±¡¼¥×ÍÑ´Ø¿ô
 #===============================================================================
 {