X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=functions%2Fplugin.php;h=2d9083fbed8fdd89f7cb220df1e1cc033b391580;hb=3ad5a36ed85640f1fc8c799b488941bb72086c77;hp=34cb4bd6d1ecb958916fba9533adf0d8e2e35f46;hpb=f191a7da15d03e9cc5c6d5a80844ab7eca44825b;p=squirrelmail.git diff --git a/functions/plugin.php b/functions/plugin.php index 34cb4bd6..2d9083fb 100644 --- a/functions/plugin.php +++ b/functions/plugin.php @@ -1,72 +1,98 @@ \n"; - include ('../plugins/'.$name.'/setup.php'); - $function = 'squirrelmail_plugin_init_'.$name; - if (function_exists($function)) - { - if ($plugin_general_debug) - echo "plugin: ---- Executing $function to init plugin
\n"; - $function($plugin_general_debug); - } - elseif ($plugin_general_debug) - echo "plugin: -- Init function $function doesn't exist.
\n"; - } - elseif ($plugin_general_debug) - echo "plugin: Couldn't find $name/setup.php
\n"; - } - - // This function executes a hook - function do_hook ($name) { - global $squirrelmail_plugin_hooks; - $Data = func_get_args(); - if (isset($squirrelmail_plugin_hooks[$name]) && - is_array($squirrelmail_plugin_hooks[$name])) { - foreach ($squirrelmail_plugin_hooks[$name] as $id => $function) { - // Add something to set correct gettext domain for plugin + * plugin.php + * + * Copyright (c) 1999-2002 The SquirrelMail Project Team + * Licensed under the GNU GPL. For full terms see the file COPYING. + * + * This file provides the framework for a plugin architecture. + * + * Documentation on how to write plugins might show up some time. + * + * $Id$ + */ + +global $squirrelmail_plugin_hooks; +$squirrelmail_plugin_hooks = array(); + +/* This function adds a plugin. */ +function use_plugin ($name) { + if (file_exists("../plugins/$name/setup.php")) { + include_once("../plugins/$name/setup.php"); + $function = "squirrelmail_plugin_init_$name"; + if (function_exists($function)) { + $function(); + } + } +} + +/* This function executes a hook. */ +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])) { + foreach ($squirrelmail_plugin_hooks[$name] as $function) { + /* Add something to set correct gettext domain for plugin. */ + if (function_exists($function)) { + $function($data); + } + } + } + + /* Variable-length argument lists have a slight problem when */ + /* passing values by reference. Pity. This is a workaround. */ + 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)) { - $function($Data); + $ret = $function($parm); } - } - } - - // Variable-length argument lists have a slight problem when - // passing values by reference. Pity. This is a workaround. - return $Data; - } - - // On startup, register all plugins configured for use - if (isset($plugins) && is_array($plugins)) - foreach ($plugins as $id => $name) - { - if ($plugin_general_debug) - echo "plugin: Attempting load of plugin $name
\n"; - use_plugin($name); - } - -?> + } + } + + /* 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 ***/ +/*************************************/ + +/* On startup, register all plugins configured for use. */ +if (isset($plugins) && is_array($plugins)) { + foreach ($plugins as $name) { + use_plugin($name); + } +} + + /** + * 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