X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=functions%2Fdisplay_messages.php;h=580a62c70435ce82da76dd944f3a7961c0362306;hb=bef6629cffe522e21ec116f71b86cb69ecdc5e0d;hp=0604b78ca2a65f0ce30c52068affa8be5c819927;hpb=b6d8d08d4a7e606c72ef7962c52ef4365ac209cf;p=squirrelmail.git
diff --git a/functions/display_messages.php b/functions/display_messages.php
index 0604b78c..580a62c7 100644
--- a/functions/display_messages.php
+++ b/functions/display_messages.php
@@ -12,90 +12,170 @@
* $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 '
'.
- '
' . _("ERROR") . ' | '. - '
---|
'.
- ' ' . _("Unknown user or password incorrect.") . - ' ' . - _("Click here to try again") . - '. |