+/**
+ * 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;
+}
+