cc89c7aec5391058cf32c2c87cc7363162091601
[squirrelmail.git] / src / compose.php
1 <?
2 include("../config/config.php");
3 include("../functions/strings.php");
4 include("../functions/page_header.php");
5 include("../functions/imap.php");
6 include("../functions/mailbox.php");
7 include("../functions/date.php");
8 include("../functions/mime.php");
9
10 include("../src/load_prefs.php");
11
12 echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
13 $imapConnection = loginToImapServer($username, $key, $imapServerAddress);
14 displayPageHeader($color, "None");
15
16 if ($forward_id) {
17 selectMailbox($imapConnection, $mailbox, $numMessages);
18 $msg = fetchMessage($imapConnection, $forward_id, $mailbox);
19
20 if (containsType($msg, "text", "html", $ent_num)) {
21 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"]);
22 } else if (containsType($msg, "text", "plain", $ent_num)) {
23 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"]);
24 }
25 // add other primary displaying msg types here
26 else {
27 // find any type that's displayable
28 if (containsType($msg, "text", "any_type", $ent_num)) {
29 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"]);
30 } else if (containsType($msg, "msg", "any_type", $ent_num)) {
31 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"]);
32 } else {
33 $body = "No Message";
34 }
35 }
36
37 $type1 = $msg["ENTITIES"][$ent_num]["TYPE1"];
38
39 $tmp = "-------- Original Message ---------\n";
40 $body_ary = explode("\n", $body);
41 $body = "";
42 for ($i=0;$i < count($body_ary);$i++) {
43 if ($type1 == "html")
44 $tmp .= strip_tags($body_ary[$i]);
45 else
46 $tmp .= $body_ary[$i];
47 $body = "$body$tmp\n";
48 $tmp = "";
49 }
50 }
51
52 if ($reply_id) {
53 selectMailbox($imapConnection, $mailbox, $numMessages);
54 $msg = fetchMessage($imapConnection, $reply_id, $mailbox);
55
56 if (containsType($msg, "text", "html", $ent_num)) {
57 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"], false);
58 } else if (containsType($msg, "text", "plain", $ent_num)) {
59 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"], false);
60 }
61 // add other primary displaying msg types here
62 else {
63 // find any type that's displayable
64 if (containsType($msg, "text", "any_type", $ent_num)) {
65 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"], false);
66 } else if (containsType($msg, "msg", "any_type", $ent_num)) {
67 $body = decodeBody($msg["ENTITIES"][$ent_num]["BODY"], $msg["ENTITIES"][$ent_num]["ENCODING"], false);
68 } else {
69 $body = "No Message";
70 }
71 }
72
73 $type1 = $msg["ENTITIES"][$ent_num]["TYPE1"];
74
75 $body_ary = explode("\n", $body);
76 $body = "";
77 for ($i=0;$i < count($body_ary);$i++) {
78 if ($type1 == "html")
79 $tmp = strip_tags($body_ary[$i]);
80 else
81 $tmp = $body_ary[$i];
82 $body = "$body> $tmp\n";
83 }
84 }
85
86 // Add some decoding information
87 $send_to = encodeEmailAddr($send_to);
88 // parses the field and returns only the email address
89 $send_to = decodeEmailAddr($send_to);
90
91 $send_to = strtolower($send_to);
92 $send_to = ereg_replace("\"", "", $send_to);
93 $send_to = stripslashes($send_to);
94
95 /** This formats a CC string if they hit "reply all" **/
96 if ($send_to_cc != "") {
97 $send_to_cc = ereg_replace(";", ",", $send_to_cc);
98 $sendcc = explode(",", $send_to_cc);
99 $send_to_cc = "";
100
101 for ($i = 0; $i < count($sendcc); $i++) {
102 $sendcc[$i] = trim($sendcc[$i]);
103 if ($sendcc[$i] == "")
104 continue;
105
106 $sendcc[$i] = encodeEmailAddr($sendcc[$i]);
107 $sendcc[$i] = decodeEmailAddr($sendcc[$i]);
108
109 $whofrom = encodeEmailAddr($msg["HEADER"]["FROM"]);
110 $whofrom = decodeEmailAddr($whofrom);
111
112 $whoreplyto = encodeEmailAddr($msg["HEADER"]["REPLYTO"]);
113 $whoreplyto = decodeEmailAddr($whoreplyto);
114
115 if ((strtolower(trim($sendcc[$i])) != strtolower(trim($whofrom))) &&
116 (strtolower(trim($sendcc[$i])) != strtolower(trim($whoreplyto))) &&
117 (trim($sendcc[$i]) != "")) {
118 $send_to_cc .= trim($sendcc[$i]) . ", ";
119 }
120 }
121 $send_to_cc = trim($send_to_cc);
122 if (substr($send_to_cc, -1) == ",") {
123 $send_to_cc = substr($send_to_cc, 0, strlen($send_to_cc) - 1);
124 }
125 }
126
127 echo "<FORM action=\"compose_send.php\" METHOD=POST>\n";
128 echo "<TABLE COLS=2 WIDTH=50 ALIGN=CENTER CELLSPACING=0 BORDER=0>\n";
129 echo " <TR>\n";
130 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
131 echo " <FONT FACE=\"Arial,Helvetica\">To: </FONT>\n";
132 echo " </TD><TD WIDTH=% \"$color[4]\" ALIGN=LEFT>\n";
133 if ($send_to)
134 echo " <INPUT TYPE=TEXT NAME=passed_to VALUE=\"$send_to\" SIZE=60><BR>";
135 else
136 echo " <INPUT TYPE=TEXT NAME=passed_to SIZE=60><BR>";
137 echo " </TD>\n";
138 echo " </TR>\n";
139 echo " <TR>\n";
140 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
141 echo " <FONT FACE=\"Arial,Helvetica\">CC:</FONT>\n";
142 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
143 if ($send_to_cc)
144 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60 VALUE=\"$send_to_cc\"><BR>";
145 else
146 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60><BR>";
147 echo " </TD>\n";
148 echo " </TR>\n";
149 echo " <TR>\n";
150 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
151 echo " <FONT FACE=\"Arial,Helvetica\">BCC:</FONT>\n";
152 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
153 echo " <INPUT TYPE=TEXT NAME=passed_bcc SIZE=60><BR>";
154 echo " </TD>\n";
155 echo " </TR>\n";
156
157 echo " <TR>\n";
158 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
159 echo " <FONT FACE=\"Arial,Helvetica\">Subject:</FONT>\n";
160 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
161 if ($reply_subj) {
162 $reply_subj = str_replace("\"", "'", $reply_subj);
163 $reply_subj = stripslashes($reply_subj);
164 $reply_subj = trim($reply_subj);
165 if (substr(strtolower($reply_subj), 0, 3) != "re:")
166 $reply_subj = "Re: $reply_subj";
167 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$reply_subj\">";
168 } else if ($forward_subj) {
169 $forward_subj = str_replace("\"", "'", $forward_subj);
170 $forward_subj = stripslashes($forward_subj);
171 $forward_subj = trim($forward_subj);
172 if ((substr(strtolower($forward_subj), 0, 4) != "fwd:") &&
173 (substr(strtolower($forward_subj), 0, 5) != "[fwd:") &&
174 (substr(strtolower($forward_subj), 0, 6) != "[ fwd:"))
175 $forward_subj = "[Fwd: $forward_subj]";
176 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$forward_subj\">";
177 } else {
178 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60>";
179 }
180 echo "&nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE=\"Send\"><BR>";
181 echo " </TD>\n";
182 echo " </TR>\n";
183 echo " <TR>\n";
184 echo " <TD BGCOLOR=\"$color[4]\" COLSPAN=2>\n";
185 if ($use_signature == true)
186 echo " &nbsp;&nbsp;<TEXTAREA NAME=passed_body ROWS=20 COLS=\"$editor_size\" WRAP=HARD>$body\n\n$signature</TEXTAREA><BR>";
187 else
188 echo " &nbsp;&nbsp;<TEXTAREA NAME=passed_body ROWS=20 COLS=\"$editor_size\" WRAP=HARD>$body</TEXTAREA><BR>";
189 echo " </TD>";
190 echo " </TR>\n";
191 echo "</TABLE>\n";
192 echo "<CENTER><INPUT TYPE=SUBMIT VALUE=\"Send\"></CENTER>";
193 echo "</FORM>";
194 ?>