reducing size of setup.php

[squirrelmail.git] / plugins / squirrelspell / sqspell_interface.php

diff --git a/plugins/squirrelspell/sqspell_interface.php b/plugins/squirrelspell/sqspell_interface.php
index 1357162e17979e7e0c49d1f28431e22fbfc270ce..a899ad037d1fe688a7fc4c3a4f6a680814e8e4f4 100644 (file)
--- a/plugins/squirrelspell/sqspell_interface.php
+++ b/plugins/squirrelspell/sqspell_interface.php
@@ -1,52 +1,55 @@
 <?php
-
 /**
  * sqspell_interface.php
- * ----------------------
+ *
  * Main wrapper for the pop-up.
  *
- * Copyright (c) 1999-2002 The SquirrelMail development team
+ * Copyright (c) 1999-2005 The SquirrelMail Project Team
  * Licensed under the GNU GPL. For full terms see the file COPYING.
  *
  * This is a main wrapper for the pop-up window interface of
- * SquirrelSpell.    
- *
- * $Id$
+ * SquirrelSpell.
  *
- * @author Konstantin Riabitsev <icon@duke.edu> ($Author$)
- * @version $Date$
+ * @author Konstantin Riabitsev <icon@duke.edu>
+ * @version $Id$
+ * @package plugins
+ * @subpackage squirrelspell
  */
 
-/**            
+/**
  * Set up a couple of non-negotiable constants and
  * defaults. Don't change these, * the setuppable stuff is in
  * sqspell_config.php
  */
-$SQSPELL_DIR='squirrelspell';
+$SQSPELL_DIR='plugins/squirrelspell/';
 $SQSPELL_CRYPTO=FALSE;
-    
+
 /**
- * Load the stuff needed from squirrelmail
+ * Load the stuff needed from SquirrelMail
+ * @ignore
  */
-chdir('..');
-require_once('../src/validate.php');
-require_once('../src/load_prefs.php');
-require_once("$SQSPELL_DIR/sqspell_config.php");
-require_once("$SQSPELL_DIR/sqspell_functions.php");
-    
+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_functions.php');
+
 /**
  * $MOD is the name of the module to invoke.
- * If $MOD is undefined, use "init", else check for security
- * breaches.
+ * If $MOD is unspecified, assign "init" to it. Else check for
+ * security breach attempts.
  */
-if (!$MOD){
-  $MOD='init';
-} else {
-  sqspell_ckMOD($MOD);
+if(! sqgetGlobalVar('MOD',$MOD,SQ_FORM)) {
+    $MOD = 'init';
 }
+sqspell_ckMOD($MOD);
 
-/**
- * Include the module.
- */
-require_once("$SQSPELL_DIR/modules/$MOD.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