is_search_request in php and reorganizing

lib/Leto/Util/Web.pm → perl_lib/Leto/Util/Web.pm

@@ -9,11 +9,11 @@ our @EXPORT    = qw//;
 sub is_search_request($)
 {
     my $r = shift;
-    my @engines = qw{ 
-                    /search\? 
+    my @engines = qw{
+                    /search\?
                     images\.google
                     search\.yahoo\.com
-                    msn\.com 
+                    msn\.com
                     live\.com
                     del\.icio\.us/search
                 };

php_lib/web_util.php

@@ -0,0 +1,15 @@
+function is_search_request() {
+    $r = $_SERVER['HTTP_REFERER'];
+    $engines = array('/search?',
+                'images.google.',
+                'search.yahoo.com',
+                'del.icio.us/search',
+                'msn.com',
+                'live.com',
+                );
+    foreach ($engine as $eng) {
+        if (strpos($r,$eng) !== false)
+             return true;
+    }
+    return false;
+}