| 1 | <?php |
| 2 | |
| 3 | /** |
| 4 | ** sqspell_interface.php -- Main wrapper for the pop-up. |
| 5 | ** |
| 6 | ** Copyright (c) 1999-2001 The SquirrelMail development team |
| 7 | ** Licensed under the GNU GPL. For full terms see the file COPYING. |
| 8 | ** |
| 9 | ** This is a main wrapper for the pop-up window interface of |
| 10 | ** SquirrelSpell. |
| 11 | ** |
| 12 | ** $Id$ |
| 13 | **/ |
| 14 | |
| 15 | /* |
| 16 | ** Set up a couple of non-negotiable constants. Don't change these, |
| 17 | ** the setuppable stuff is in sqspell_config.php |
| 18 | */ |
| 19 | $SQSPELL_DIR='squirrelspell'; |
| 20 | $SQSPELL_CRYPTO=FALSE; |
| 21 | |
| 22 | /* Load the necessary stuff. */ |
| 23 | chdir('..'); |
| 24 | require_once('../src/validate.php'); |
| 25 | require_once('../src/load_prefs.php'); |
| 26 | require_once("$SQSPELL_DIR/sqspell_config.php"); |
| 27 | require_once("$SQSPELL_DIR/sqspell_functions.php"); |
| 28 | |
| 29 | /* |
| 30 | ** Now load the necessary module from the modules dir. |
| 31 | ** |
| 32 | */ |
| 33 | if (!$MOD) |
| 34 | $MOD='init'; |
| 35 | |
| 36 | /* |
| 37 | ** see if someone is attempting to be nasty by trying to get out of the |
| 38 | ** modules directory, although it probably wouldn't do them any good, |
| 39 | ** since every module has to end with .mod.php. Still, they deserve |
| 40 | ** to be warned. ;) |
| 41 | */ |
| 42 | if (strstr($MOD, '.') || strstr($MOD, '/') || strstr($MOD, '%')){ |
| 43 | echo _("SECURITY BREACH ON DECK 5! CMDR TUVOK AND SECURITY TEAM REQUESTED."); |
| 44 | exit; |
| 45 | } |
| 46 | /* fetch the module now. */ |
| 47 | require_once("$SQSPELL_DIR/modules/$MOD.mod.php"); |
| 48 | ?> |