[livejournal] r17152: LJSUP-5987: Redirection to mobile versio...

U   trunk/cgi-bin/Apache/WURFL.pm

Modified: trunk/cgi-bin/Apache/WURFL.pm
===================================================================
--- trunk/cgi-bin/Apache/WURFL.pm	2010-08-18 08:25:24 UTC (rev 17151)
+++ trunk/cgi-bin/Apache/WURFL.pm	2010-08-19 02:14:17 UTC (rev 17152)
@@ -9,6 +9,13 @@
     my $class = shift;
     my $user_agent = shift;
 
+    if ($LJ::WURFL{'ua_keys_mobile'}) {
+        foreach my $key (@{$LJ::WURFL{'ua_keys_mobile'}}) {
+            return 1 if $user_agent =~ /\Q$key\E/i;
+        }
+        return 0;
+    }
+
     unless ($wurfl) {
         $wurfl = LJ::WURFL->new();
         unless ($wurfl->load($LJ::WURFL{'wireless_storage'})) {