workaround for php3 dealing with optional arguments to function loginToImapServer
[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, 0);
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\">";
132 echo _("To:");
133 echo " </FONT>\n";
134 echo " </TD><TD WIDTH=% \"$color[4]\" ALIGN=LEFT>\n";
135 if ($send_to)
136 echo " <INPUT TYPE=TEXT NAME=passed_to VALUE=\"$send_to\" SIZE=60><BR>";
137 else
138 echo " <INPUT TYPE=TEXT NAME=passed_to SIZE=60><BR>";
139 echo " </TD>\n";
140 echo " </TR>\n";
141 echo " <TR>\n";
142 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
143 echo " <FONT FACE=\"Arial,Helvetica\">CC:</FONT>\n";
144 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
145 if ($send_to_cc)
146 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60 VALUE=\"$send_to_cc\"><BR>";
147 else
148 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60><BR>";
149 echo " </TD>\n";
150 echo " </TR>\n";
151 echo " <TR>\n";
152 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
153 echo " <FONT FACE=\"Arial,Helvetica\">BCC:</FONT>\n";
154 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
155 echo " <INPUT TYPE=TEXT NAME=passed_bcc SIZE=60><BR>";
156 echo " </TD>\n";
157 echo " </TR>\n";
158 echo " <TR>\n";
159 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
160 echo " <FONT FACE=\"Arial,Helvetica\">";
161 echo _("Subject:");
162 echo " </FONT>\n";
163 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
164 if ($reply_subj) {
165 $reply_subj = str_replace("\"", "'", $reply_subj);
166 $reply_subj = stripslashes($reply_subj);
167 $reply_subj = trim($reply_subj);
168 if (substr(strtolower($reply_subj), 0, 3) != "re:")
169 $reply_subj = "Re: $reply_subj";
170 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$reply_subj\">";
171 } else if ($forward_subj) {
172 $forward_subj = str_replace("\"", "'", $forward_subj);
173 $forward_subj = stripslashes($forward_subj);
174 $forward_subj = trim($forward_subj);
175 if ((substr(strtolower($forward_subj), 0, 4) != "fwd:") &&
176 (substr(strtolower($forward_subj), 0, 5) != "[fwd:") &&
177 (substr(strtolower($forward_subj), 0, 6) != "[ fwd:"))
178 $forward_subj = "[Fwd: $forward_subj]";
179 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$forward_subj\">";
180 } else {
181 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60>";
182 }
183 echo "&nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE=\"";
184 echo _("Send");
185 echo "\"><BR>";
186 echo " </TD>\n";
187 echo " </TR>\n";
188 echo " <TR>\n";
189 echo " <TD BGCOLOR=\"$color[4]\" COLSPAN=2>\n";
190 if ($use_signature == true)
191 echo " &nbsp;&nbsp;<TEXTAREA NAME=passed_body ROWS=20 COLS=\"$editor_size\" WRAP=HARD>$body\n\n$signature</TEXTAREA><BR>";
192 else
193 echo " &nbsp;&nbsp;<TEXTAREA NAME=passed_body ROWS=20 COLS=\"$editor_size\" WRAP=HARD>$body</TEXTAREA><BR>";
194 echo " </TD>";
195 echo " </TR>\n";
196 echo "</TABLE>\n";
197 echo "<CENTER><INPUT TYPE=SUBMIT VALUE=\"";
198 echo _("Send");
199 echo "\"></CENTER>";
200 echo "</FORM>";
201 ?>