X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=plugins%2Fsquirrelspell%2Fsqspell_options.php;h=5e99de8f773537534684cfdbf182bddcecd9442d;hb=7996c92035dda79d42c5922c225dd62c1e73ecb3;hp=348034b99a420670d0c13e43d2a37e650e3497de;hpb=9804bcdefd81265ec3e9f00d9147d647acf23ba5;p=squirrelmail.git

diff --git a/plugins/squirrelspell/sqspell_options.php b/plugins/squirrelspell/sqspell_options.php
index 348034b9..5e99de8f 100644
--- a/plugins/squirrelspell/sqspell_options.php
+++ b/plugins/squirrelspell/sqspell_options.php
@@ -1,46 +1,52 @@
 <?php
+/**
+ * sqspell_options.php
+ *
+ * Main wrapper for the options interface.
+ *
+ * Copyright (c) 1999-2005 The SquirrelMail Project Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * @author Konstantin Riabitsev <icon@duke.edu>
+ * @version $Id$
+ * @package plugins
+ * @subpackage squirrelspell
+ */
 
-   /**
-    **  sqspell_options.php -- Main wrapper for the options interface.
-    **
-    **  Copyright (c) 1999-2001 The SquirrelMail development team
-    **  Licensed under the GNU GPL. For full terms see the file COPYING.
-    **
-    **
-    **
-    **  $Id$
-    **/
+/**
+ * Set a couple of constants and defaults. Don't change these,
+ * the configurable stuff is in sqspell_config.php
+ */
+$SQSPELL_DIR='plugins/squirrelspell/';
+$SQSPELL_CRYPTO=FALSE;
 
-    /*
-    ** Set a couple of constants. Don't change these, the setuppable stuff is
-    ** in sqspell_config.php
-    */
-    $SQSPELL_DIR='squirrelspell';
-    $SQSPELL_CRYPTO=FALSE;
-    
-    /* Load some necessary stuff. */
-    chdir('..');
-    require_once('../src/validate.php');
-    require_once('../src/load_prefs.php');
-    require_once('../functions/strings.php');
-    require_once('../functions/page_header.php');
-    require_once("$SQSPELL_DIR/sqspell_config.php");
-    require_once("$SQSPELL_DIR/sqspell_functions.php");
-    
-    /* Access the module needed */
-    if (!$MOD) 
-        $MOD = 'options_main';
-    
-    /*
-    ** see if someone is attempting to be nasty by trying to get out of the
-    ** modules directory, although it probably wouldn't do them any good,
-    ** since every module has to end with .mod.php. Still, they deserve
-    ** to be warned. ;)
-    */
-    if (strstr($MOD, ".") || strstr($MOD, "/") || strstr($MOD, "%")){
-    	echo _("SECURITY BREACH ON DECK 5! CMDR TUVOK AND SECURITY TEAM REQUESTED.");
-        exit;
-    }
-    /* load the stuff already. */
-    require_once("$SQSPELL_DIR/modules/$MOD.mod.php");
+/**
+ * Load some necessary stuff from SquirrelMail.
+ * @ignore
+ */
+define('SM_PATH','../../');
+
+/* SquirrelMail required files. */
+require_once(SM_PATH . 'include/validate.php');
+include_once(SM_PATH . 'functions/display_messages.php');
+include_once(SM_PATH . $SQSPELL_DIR . 'sqspell_config.php');
+include_once(SM_PATH . $SQSPELL_DIR . 'sqspell_functions.php');
+
+/**
+ * $MOD is the name of the module to invoke.
+ * If $MOD is unspecified, assign "options_main" to it. Else check for
+ * security breach attempts.
+ */
+if(! sqgetGlobalVar('MOD',$MOD,SQ_FORM)) {
+    $MOD = 'options_main';
+}
+sqspell_ckMOD($MOD);
+
+/* Load the stuff already. */
+if (file_exists(SM_PATH . $SQSPELL_DIR . "modules/$MOD.mod")) {
+    require_once(SM_PATH . $SQSPELL_DIR . "modules/$MOD.mod");
+} else {
+    error_box(_("Invalid SquirrelSpell module."),$color);
+    echo '</body></html>';
+}
 ?>
\ No newline at end of file