Redid the way folders are listed
[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
11 echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
12 $imapConnection = loginToImapServer($username, $key, $imapServerAddress);
13 displayPageHeader($color, "None");
14
15 if ($forward_id) {
16 selectMailbox($imapConnection, $mailbox, $numMessages);
17 $msg = fetchMessage($imapConnection, $forward_id);
18
19 $body_ary = formatBody($msg);
20 $tmp = "-------- Original Message ---------\n";
21 for ($i=0;$i < count($body_ary);$i++) {
22 $tmp .= strip_tags($body_ary[$i]);
23 $tmp = substr($tmp, 0, strlen($tmp) -1);
24 $body = "$body$tmp";
25 $tmp = "";
26 }
27 }
28
29 if ($reply_id) {
30 selectMailbox($imapConnection, $mailbox, $numMessages);
31 $msg = fetchMessage($imapConnection, $reply_id);
32
33 $body_ary = formatBody($msg);
34 for ($i=0;$i < count($body_ary);$i++) {
35 $tmp = strip_tags($body_ary[$i]);
36 $tmp = substr($tmp, 0, strlen($tmp) -1);
37 $body = "$body> $tmp";
38 }
39 }
40
41 // Add some decoding information
42 $send_to = encodeEmailAddr($send_to);
43 // parses the field and returns only the email address
44 $send_to = decodeEmailAddr($send_to);
45
46 $send_to = strtolower($send_to);
47 $send_to = ereg_replace("\"", "", $send_to);
48 $send_to = stripslashes($send_to);
49
50 echo "<FORM action=\"compose_send.php\" METHOD=POST>\n";
51 echo "<TABLE COLS=2 WIDTH=50 ALIGN=CENTER CELLSPACING=0 BORDER=0>\n";
52 echo " <TR>\n";
53 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
54 echo " <FONT FACE=\"Arial,Helvetica\">To: </FONT>\n";
55 echo " </TD><TD WIDTH=% \"$color[4]\" ALIGN=LEFT>\n";
56 if ($send_to)
57 echo " <INPUT TYPE=TEXT NAME=passed_to VALUE=\"$send_to\" SIZE=60><BR>";
58 else
59 echo " <INPUT TYPE=TEXT NAME=passed_to SIZE=60><BR>";
60 echo " </TD>\n";
61 echo " </TR>\n";
62 echo " <TR>\n";
63 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
64 echo " <FONT FACE=\"Arial,Helvetica\">CC:</FONT>\n";
65 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
66 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60><BR>";
67 echo " </TD>\n";
68 echo " </TR>\n";
69 echo " <TR>\n";
70 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
71 echo " <FONT FACE=\"Arial,Helvetica\">BCC:</FONT>\n";
72 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
73 echo " <INPUT TYPE=TEXT NAME=passed_bcc SIZE=60><BR>";
74 echo " </TD>\n";
75 echo " </TR>\n";
76
77 echo " <TR>\n";
78 echo " <TD WIDTH=50 BGCOLOR=\"$color[4]\" ALIGN=RIGHT>\n";
79 echo " <FONT FACE=\"Arial,Helvetica\">Subject:</FONT>\n";
80 echo " </TD><TD WIDTH=% BGCOLOR=\"$color[4]\" ALIGN=LEFT>\n";
81 if ($reply_subj) {
82 $reply_subj = str_replace("\"", "'", $reply_subj);
83 $reply_subj = stripslashes($reply_subj);
84 $reply_subj = trim($reply_subj);
85 if (substr(strtolower($reply_subj), 0, 3) != "re:")
86 $reply_subj = "Re: $reply_subj";
87 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$reply_subj\">";
88 } else if ($forward_subj) {
89 $forward_subj = str_replace("\"", "'", $forward_subj);
90 $forward_subj = stripslashes($forward_subj);
91 $forward_subj = trim($forward_subj);
92 if ((substr(strtolower($forward_subj), 0, 4) != "fwd:") &&
93 (substr(strtolower($forward_subj), 0, 5) != "[fwd:") &&
94 (substr(strtolower($forward_subj), 0, 6) != "[ fwd:"))
95 $forward_subj = "[Fwd: $forward_subj]";
96 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$forward_subj\">";
97 } else {
98 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60>";
99 }
100 echo "&nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE=\"Send\"><BR>";
101 echo " </TD>\n";
102 echo " </TR>\n";
103 echo " <TR>\n";
104 echo " <TD BGCOLOR=\"$color[4]\" COLSPAN=2>\n";
105 echo " &nbsp;&nbsp;<TEXTAREA NAME=passed_body ROWS=20 COLS=76 WRAP=HARD>$body</TEXTAREA><BR>";
106 echo " </TD>";
107 echo " </TR>\n";
108 echo "</TABLE>\n";
109 echo "<CENTER><INPUT TYPE=SUBMIT VALUE=\"Send\"></CENTER>";
110 echo "</FORM>";
111 ?>