+/**
+ * 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 string 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;
+}
+
+function error_message($message, $mailbox, $sort, $startMessage, $color) {
+ $urlMailbox = urlencode($mailbox);
+ if (strtoupper($mailbox) == 'INBOX')
+ $mailbox = _("INBOX");
+ $string = '<tr><td ALIGN="center">' . $message . '</td></tr>'."\n".
+ '<tr><td ALIGN="center">'.
+ '<A HREF="' . sqm_baseuri()
+ . "src/right_main.php?sort=$sort&startMessage=$startMessage"
+ . "&mailbox=$urlMailbox\">" .
+ sprintf (_("Click here to return to %s"), $mailbox) .
+ '</A></td></tr>';
+ error_box($string, $color);
+}
+
+function plain_error_message($message, $color) {
+ error_box($message, $color);
+}