- /**
- ** display_messages.php
- **
- ** Copyright (c) 1999-2001 The Squirrelmail Development Team
- ** Licensed under the GNU GPL. For full terms see the file COPYING.
- **
- ** This contains all messages, including information, error, and just
- ** about any other message you can think of.
- **
- ** $Id$
- **/
-
- function error_username_password_incorrect($color) {
-
- echo '<BR>'.
- "<TABLE COLS=1 WIDTH=75% NOBORDER BGCOLOR=\"$color[4]\" ALIGN=CENTER>".
- '<TR>'.
- "<TD BGCOLOR=\"$color[0]\">".
- '<B><CENTER>ERROR</CENTER></B>'.
- '</TD></TR><TR><TD>'.
- '<CENTER><BR>' . _("Unknown user or password incorrect.") .
- '<BR><A HREF="login.php" TARGET=_top>' .
- _("Click here to try again") .
- '</A>.</CENTER>'.
- '</TD></TR>'.
+/**
+ * display_messages.php
+ *
+ * Copyright (c) 1999-2002 The SquirrelMail Project Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * This contains all messages, including information, error, and just
+ * about any other message you can think of.
+ *
+ * $Id$
+ */
+
+/**
+ * Find out where squirrelmail lives and try to be smart about it.
+ * The only problem would be when squirrelmail lives in directories
+ * called "src", "functions", or "plugins", but people who do that need
+ * to be beaten with a steel pipe anyway.
+ *
+ * @return the base uri of squirrelmail installation.
+ */
+function sqm_baseuri(){
+ global $base_uri, $PHP_SELF;
+ /**
+ * If it is in the session, just return it.
+ */
+ if (isset($base_uri)){
+ return $base_uri;
+ }
+ $dirs = array('|src/.*|', '|plugins/.*|', '|functions/.*|');
+ $repl = array('', '', '');
+ $base_uri = preg_replace($dirs, $repl, $PHP_SELF);
+ return $base_uri;
+}
+
+/**
+ * Find out the top REAL path of the squirrelmail installation.
+ *
+ * @return the real installation directory of squirrelmail.
+ */
+
+function sqm_topdir(){
+ $topdir = '';
+ /**
+ * $levels is just to avoid a potential infinite loop in case
+ * things are REALLY broken. Shouldn't really ever happen.
+ */
+ $levels = 0;
+ while (!(is_dir("$topdir/functions") && is_dir("$topdir/src"))
+ && $levels < 10){
+ $topdir .= '../';
+ $levels++;
+ }
+ return $topdir;
+}
+
+function error_username_password_incorrect() {
+ global $frame_top, $color;
+ /* XXX: Should really not start the HTML before this, or close off more
+ cleanly. */
+
+ if (!isset($frame_top)) {
+ $frame_top = '_top';
+ }
+
+ echo '<BR>'.
+ '<TABLE COLS=1 WIDTH="75%" BORDER="0" BGCOLOR="' . $color[4] . '" ALIGN=CENTER>'.
+ '<TR BGCOLOR="' . $color[0] . '">'.
+ '<TH>' . _("ERROR") . '</TH>'.
+ '</TR>' .
+ '<TR><TD ALIGN="center">'.
+ '<BR>' . _("Unknown user or password incorrect.") .
+ '<BR><A HREF="' . sqm_baseuri() . '"login.php" TARGET='.
+ $frame_top.'>' . _("Click here to try again") .
+ '</A>.'.
+ '</TD></TR>'.