9ef6d7f5e5c5994b9a5c0166be3df4bfc43b2897
[squirrelmail.git] / functions / plugin.php
1 <?php
2
3 /**
4 * plugin.php
5 *
6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * This file provides the framework for a plugin architecture.
10 *
11 * Documentation on how to write plugins might show up some time.
12 *
13 * $Id$
14 */
15
16 global $squirrelmail_plugin_hooks;
17 $squirrelmail_plugin_hooks = array();
18
19 /* This function adds a plugin. */
20 function use_plugin ($name) {
21 if (file_exists("../plugins/$name/setup.php")) {
22 include_once("../plugins/$name/setup.php");
23 $function = "squirrelmail_plugin_init_$name";
24 if (function_exists($function)) {
25 $function();
26 }
27 }
28 }
29
30 /* This function executes a hook. */
31 function do_hook ($name,$parm=NULL) {
32 global $squirrelmail_plugin_hooks;
33 $data = func_get_args();
34 $ret = '';
35
36 if (isset($squirrelmail_plugin_hooks[$name])
37 && is_array($squirrelmail_plugin_hooks[$name])) {
38 foreach ($squirrelmail_plugin_hooks[$name] as $function) {
39 /* Add something to set correct gettext domain for plugin. */
40 if (function_exists($function)) {
41 $ret = $function($data,$parm);
42 }
43 }
44 }
45
46 /* Variable-length argument lists have a slight problem when */
47 /* passing values by reference. Pity. This is a workaround. */
48 return $ret;
49 }
50
51 /*************************************/
52 /*** MAIN PLUGIN LOADING CODE HERE ***/
53 /*************************************/
54
55 /* On startup, register all plugins configured for use. */
56 if (isset($plugins) && is_array($plugins)) {
57 foreach ($plugins as $name) {
58 use_plugin($name);
59 }
60 }
61
62 /**
63 * This function checks whether the user's USER_AGENT is known to
64 * be broken. If so, returns true and the plugin is invisible to the
65 * offending browser.
66 */
67 function soupNazi(){
68
69 global $HTTP_USER_AGENT, $SQSPELL_SOUP_NAZI;
70
71 require_once('../plugins/squirrelspell/sqspell_config.php');
72
73 $soup_menu = explode( ',', $SQSPELL_SOUP_NAZI );
74 return( in_array( trim( $HTTP_USER_AGENT ), $soup_menu ) );
75 }
76
77 ?>