X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=functions%2Fplugin.php;h=2d9083fbed8fdd89f7cb220df1e1cc033b391580;hb=d8a8203ae65c8a1a1ff4740bee41053f565a0a15;hp=b5f4e4f5a02ac7628bf933c3338ac9a9fc1b2caa;hpb=0606ca1f5af67cd6a90fa695c8a33478a04d7a7f;p=squirrelmail.git

diff --git a/functions/plugin.php b/functions/plugin.php
index b5f4e4f5..2d9083fb 100644
--- a/functions/plugin.php
+++ b/functions/plugin.php
@@ -31,6 +31,7 @@ function use_plugin ($name) {
 function do_hook ($name) {
     global $squirrelmail_plugin_hooks;
     $data = func_get_args();
+    $ret = '';
 
     if (isset($squirrelmail_plugin_hooks[$name])
           && is_array($squirrelmail_plugin_hooks[$name])) {
@@ -47,6 +48,27 @@ function do_hook ($name) {
     return $data;
 }
 
+/* This function executes a hook. */
+function do_hook_function($name,$parm=NULL) {
+    global $squirrelmail_plugin_hooks;
+    $ret = '';
+
+    if (isset($squirrelmail_plugin_hooks[$name])
+          && is_array($squirrelmail_plugin_hooks[$name])) {
+        foreach ($squirrelmail_plugin_hooks[$name] as $function) {
+            /* Add something to set correct gettext domain for plugin. */
+            if (function_exists($function)) {
+                $ret = $function($parm);
+            }
+        }
+    }
+
+    /* Variable-length argument lists have a slight problem when */
+    /* passing values by reference. Pity. This is a workaround.  */
+    return $ret;
+}
+
+
 /*************************************/
 /*** MAIN PLUGIN LOADING CODE HERE ***/
 /*************************************/
@@ -58,4 +80,19 @@ if (isset($plugins) && is_array($plugins)) {
     }
 }
 
-?>
+    /**
+     * This function checks whether the user's USER_AGENT is known to
+     * be broken. If so, returns true and the plugin is invisible to the
+     * offending browser.
+     */
+    function soupNazi(){
+
+        global $HTTP_USER_AGENT, $SQSPELL_SOUP_NAZI;
+        
+        require_once('../plugins/squirrelspell/sqspell_config.php');
+
+        $soup_menu = explode( ',', $SQSPELL_SOUP_NAZI );
+        return( in_array( trim( $HTTP_USER_AGENT ), $soup_menu ) );
+    }
+
+?>
\ No newline at end of file