Better base_uri workaround code.
[squirrelmail.git] / functions / display_messages.php
CommitLineData
59177427 1<?php
2ba13803 2
35586184 3/**
4 * display_messages.php
5 *
15e6162e 6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
35586184 7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * This contains all messages, including information, error, and just
10 * about any other message you can think of.
11 *
12 * $Id$
13 */
3302d0d4 14
399846ea 15function sqm_baseuri(){
16 global $base_uri, $PHP_SELF;
17 if (isset($base_uri)){
18 return $base_uri;
19 }
20 $dirs = array("|src/.*|", "|plugins/.*|", "|functions/.*|");
21 $repl = array("", "", "");
22 $base_uri = preg_replace($dirs, $repl, $PHP_SELF);
23 return $base_uri;
24}
25
ec5b189b 26function error_username_password_incorrect() {
1cf38f19 27 global $frame_top, $color;
76b684a5 28 /* XXX: Should really not start the HTML before this, or close off more
29 cleanly. */
2ba13803 30
d03f3582 31 if (!isset($frame_top)) {
32 $frame_top = '_top';
33 }
34
35586184 35 echo '<BR>'.
76b684a5 36 '<TABLE COLS=1 WIDTH="75%" BORDER="0" BGCOLOR="' . $color[4] . '" ALIGN=CENTER>'.
26f277a6 37 '<TR BGCOLOR="' . $color[0] . '">'.
ec5b189b 38 '<TH>' . _("ERROR") . '</TH>'.
39 '</TR>' .
40 '<TR><TD>'.
41 '<CENTER><BR>' . _("Unknown user or password incorrect.") .
399846ea 42 '<BR><A HREF="' . sqm_baseuri() . '"login.php" TARGET='.
43 $frame_top.'>' . _("Click here to try again") .
ec5b189b 44 '</A>.</CENTER>'.
45 '</TD></TR>'.
2ba13803 46 '</TABLE>'.
47 '</BODY></HTML>';
ec5b189b 48}
2ba13803 49
ec5b189b 50function general_info($motd, $org_logo, $version, $org_name, $color) {
b6d8d08d 51
52 echo '<BR>'.
76b684a5 53 "<TABLE COLS=1 WIDTH=\"80%\" CELLSPACING=0 CELLPADDING=2 BORDER=\"0\" ALIGN=CENTER><TR><TD BGCOLOR=\"$color[9]\">".
54 '<TABLE COLS=1 WIDTH="100%" CELLSPACING=0 CELLPADDING=3 BORDER="0" BGCOLOR="' . $color[4] . '" ALIGN=CENTER>'.
b6d8d08d 55 '<TR>' .
56 "<TD BGCOLOR=\"$color[0]\">" .
57 '<B><CENTER>';
ec5b189b 58 printf (_("Welcome to %s's WebMail system"), $org_name);
b6d8d08d 59 echo '</CENTER></B>'.
60 '<TR><TD BGCOLOR="' . $color[4] . '">'.
76b684a5 61 '<TABLE COLS=2 WIDTH="90%" CELLSPACING=0 CELLPADDING=3 BORDER="0" align="center">'.
b6d8d08d 62 '<TR>'.
63 '<TD BGCOLOR="' . $color[4] . '"><CENTER>';
ec5b189b 64 if ( strlen($org_logo) > 3 ) {
b6d8d08d 65 echo "<IMG SRC=\"$org_logo\">";
ec5b189b 66 } else {
b6d8d08d 67 echo "<B>$org_name</B>";
3302d0d4 68 }
b6d8d08d 69 echo '<BR><CENTER>';
ec5b189b 70 printf (_("Running SquirrelMail version %s (c) 1999-2001."), $version);
b6d8d08d 71 echo '</CENTER><BR>'.
72 '</CENTER></TD></TR><TR>' .
73 '<TD BGCOLOR="' . $color[4] . '">' .
74 $motd.
75 '</TD>'.
76 '</TR>'.
77 '</TABLE>'.
78 '</TD></TR>'.
79 '</TABLE>'.
80 '</TD></TR></TABLE>';
ec5b189b 81}
3302d0d4 82
ec5b189b 83function error_message($message, $mailbox, $sort, $startMessage, $color) {
84 $urlMailbox = urlencode($mailbox);
b6d8d08d 85
86 echo '<BR>'.
76b684a5 87 "<TABLE COLS=1 WIDTH=\"70%\" BORDER=\"0\" BGCOLOR=\"$color[4]\" ALIGN=CENTER>".
b6d8d08d 88 '<TR>'.
89 "<TD BGCOLOR=\"$color[0]\">".
90 "<FONT COLOR=\"$color[2]\"><B><CENTER>" . _("ERROR") . '</CENTER></B></FONT>'.
91 '</TD></TR><TR><TD>'.
92 "<CENTER><BR>$message<BR>\n".
93 '<BR>'.
399846ea 94 "<A HREF=\"" . sqm_baseuri()
95 . "right_main.php?sort=$sort&amp;startMessage=$startMessage"
96 . "&amp;mailbox=$urlMailbox\">";
ec5b189b 97 printf (_("Click here to return to %s"), $mailbox);
b6d8d08d 98 echo '</A>.'.
99 '</TD></TR>'.
100 '</TABLE>';
ec5b189b 101}
aa4c3749 102
ec5b189b 103function plain_error_message($message, $color) {
9be8198d 104 echo "<br><TABLE COLS=1 WIDTH=\"70%\" BORDER=\"0\" BGCOLOR=\"$color[4]\" ALIGN=CENTER>".
b6d8d08d 105 '<TR>'.
106 "<TD BGCOLOR=\"$color[0]\">".
107 "<FONT COLOR=\"$color[2]\"><B><CENTER>" . _("ERROR") . '</CENTER></B></FONT>'.
108 '</TD></TR><TR><TD>'.
109 "<CENTER><BR>$message".
110 '</CENTER>'.
111 '</TD></TR>'.
112 '</TABLE>';
ec5b189b 113}
b6d8d08d 114
9be8198d 115function logout_error( $errString, $errTitle = '' ) {
116
117 GLOBAL $frame_top, $org_logo, $org_name, $org_logo_width, $org_logo_height,
118 $hide_sm_attributions, $version;
399846ea 119 $base_uri = sqm_baseuri();
120 include_once($base_uri . 'functions/page_header.php' );
9be8198d 121 if ( !isset( $org_logo ) ) {
122 // Don't know yet why, but in some accesses $org_logo is not set.
399846ea 123 include( $base_uri . '../config/config.php' );
9be8198d 124 }
125 /* Display width and height like good little people */
126 $width_and_height = '';
127 if (isset($org_logo_width) && is_int($org_logo_width) && $org_logo_width>0) {
128 $width_and_height = " WIDTH=\"$org_logo_width\"";
129 }
130 if (isset($org_logo_height) && is_int($org_logo_height) && $org_logo_height>0) {
131 $width_and_height .= " HEIGHT=\"$org_logo_height\"";
132 }
133
134 if (!isset($frame_top) || $frame_top == '' ) {
135 $frame_top = '_top';
136 }
137
138 if ( !isset( $color ) ) {
139 $color = array();
140 $color[0] = '#DCDCDC'; /* light gray TitleBar */
141 $color[1] = '#800000'; /* red */
142 $color[2] = '#CC0000'; /* light red Warning/Error Messages */
143 $color[3] = '#A0B8C8'; /* green-blue Left Bar Background */
144 $color[4] = '#FFFFFF'; /* white Normal Background */
145 $color[5] = '#FFFFCC'; /* light yellow Table Headers */
146 $color[6] = '#000000'; /* black Text on left bar */
147 $color[7] = '#0000CC'; /* blue Links */
148 $color[8] = '#000000'; /* black Normal text */
149 $color[9] = '#ABABAB'; /* mid-gray Darker version of #0 */
150 $color[10] = '#666666'; /* dark gray Darker version of #9 */
151 $color[11] = '#770000'; /* dark red Special Folders color */
152 $color[12] = '#EDEDED';
153 $color[15] = '#002266'; /* (dark blue) Unselectable folders */
154 }
155
156 if ( $errTitle == '' ) {
157 $errTitle = $errString;
158 }
159 set_up_language($squirrelmail_language, true);
160 displayHtmlHeader( $errTitle );
161
162 echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n\n" .
163 '<CENTER>'.
164 "<IMG SRC=\"$org_logo\" ALT=\"" . sprintf(_("%s Logo"), $org_name) .
165 "\"$width_and_height><BR>\n".
166 ( $hide_sm_attributions ? '' :
167 '<SMALL>' . sprintf (_("SquirrelMail version %s"), $version) . "<BR>\n".
168 ' ' . _("By the SquirrelMail Development Team") . "<BR></SMALL>\n" ) .
169 "<table cellspacing=1 cellpadding=0 bgcolor=\"$color[1]\" width=\"70%\"><tr><td>".
170 "<TABLE COLS=1 WIDTH=\"100%\" BORDER=\"0\" BGCOLOR=\"$color[4]\" ALIGN=CENTER>".
171 "<TR><TD BGCOLOR=\"$color[0]\">".
172 "<FONT COLOR=\"$color[2]\"><B><CENTER>" . _("ERROR") .
173 '</CENTER></B></FONT></TD></TR>'.
174 '<TR><TD><CENTER>' . $errString . '</CENTER></TD></TR>'.
175 "<TR><TD BGCOLOR=\"$color[0]\">".
176 "<FONT COLOR=\"$color[2]\"><B><CENTER>".
177 '<a href="' . $base_uri . '" target="' . $frame_top . '">' .
178 _("Go to the login page") . "</a></CENTER></B></FONT>".
179 '</TD></TR>'.
180 '</TABLE></td></tr></table></body></html>';
181}
182
183?>