added "reply-to" capabilities
[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=\"#000000\" BGCOLOR=\"#FFFFFF\" LINK=\"#0000EE\" VLINK=\"#0000EE\" ALINK=\"#0000EE\">\n";
12 $imapConnection = loginToImapServer($username, $key, $imapServerAddress);
13 displayPageHeader("None");
14
15 if ($reply_id || $forward_id) {
16 selectMailbox($imapConnection, $mailbox, $numMessages);
17 if ($reply_id)
18 $msg = fetchMessage($imapConnection, $reply_id);
19 else
20 $msg = fetchMessage($imapConnection, $forward_id);
21
22 $body_ary = formatBody($msg);
23 for ($i=0;$i < count($body_ary);$i++) {
24 $tmp = strip_tags($body_ary[$i]);
25 $tmp = substr($tmp, 0, strlen($tmp) -1);
26 $body = "$body> $tmp";
27 }
28 }
29
30 echo "<FORM action=\"compose_send.php\" METHOD=POST>\n";
31 echo "<TABLE COLS=2 WIDTH=50 ALIGN=CENTER CELLSPACING=0 BORDER=0>\n";
32 echo " <TR>\n";
33 echo " <TD WIDTH=50 BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
34 echo " <FONT FACE=\"Arial,Helvetica\">To: </FONT>\n";
35 echo " </TD><TD WIDTH=% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
36 if ($send_to)
37 echo " <INPUT TYPE=TEXT NAME=passed_to VALUE=\"$send_to\" SIZE=60><BR>";
38 else
39 echo " <INPUT TYPE=TEXT NAME=passed_to SIZE=60><BR>";
40 echo " </TD>\n";
41 echo " </TR>\n";
42 echo " <TR>\n";
43 echo " <TD WIDTH=50 BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
44 echo " <FONT FACE=\"Arial,Helvetica\">CC:</FONT>\n";
45 echo " </TD><TD WIDTH=% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
46 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60><BR>";
47 echo " </TD>\n";
48 echo " </TR>\n";
49 echo " <TR>\n";
50 echo " <TD WIDTH=50 BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
51 echo " <FONT FACE=\"Arial,Helvetica\">BCC:</FONT>\n";
52 echo " </TD><TD WIDTH=% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
53 echo " <INPUT TYPE=TEXT NAME=passed_bcc SIZE=60><BR>";
54 echo " </TD>\n";
55 echo " </TR>\n";
56
57 echo " <TR>\n";
58 echo " <TD WIDTH=50 BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
59 echo " <FONT FACE=\"Arial,Helvetica\">Subject:</FONT>\n";
60 echo " </TD><TD WIDTH=% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
61 if ($reply_subj) {
62 $reply_subj = str_replace("\"", "'", $reply_subj);
63 $reply_subj = stripslashes($reply_subj);
64 $reply_subj = trim($reply_subj);
65 if (substr(strtolower($reply_subj), 0, 3) != "re:")
66 $reply_subj = "Re: $reply_subj";
67 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$reply_subj\">";
68 } else if ($forward_subj) {
69 $forward_subj = str_replace("\"", "'", $forward_subj);
70 $forward_subj = stripslashes($forward_subj);
71 $forward_subj = trim($forward_subj);
72 if ((substr(strtolower($forward_subj), 0, 4) != "fwd:") &&
73 (substr(strtolower($forward_subj), 0, 5) != "[fwd:") &&
74 (substr(strtolower($forward_subj), 0, 6) != "[ fwd:"))
75 $forward_subj = "[Fwd: $forward_subj]";
76 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"$forward_subj\">";
77 } else {
78 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60>";
79 }
80 echo "&nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE=\"Send\"><BR>";
81 echo " </TD>\n";
82 echo " </TR>\n";
83 echo " <TR>\n";
84 echo " <TD BGCOLOR=FFFFFF COLSPAN=2>\n";
85 echo " &nbsp;&nbsp;<TEXTAREA NAME=passed_body ROWS=20 COLS=76 WRAP=HARD>$body</TEXTAREA><BR>";
86 echo " </TD>";
87 echo " </TR>\n";
88 echo "</TABLE>\n";
89 echo "<CENTER><INPUT TYPE=SUBMIT VALUE=\"Send\"></CENTER>";
90 echo "</FORM>";
91 ?>