Added BASIC mime support.
[squirrelmail.git] / src / compose.php
CommitLineData
8467bf00 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");
f7fb20fe 8 include("../functions/mime.php");
9
8467bf00 10
11 echo "<HTML><BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" LINK=\"#0000EE\" VLINK=\"#0000EE\" ALINK=\"#0000EE\">\n";
12 $imapConnection = loginToImapServer($username, $key, $imapServerAddress);
2844086d 13 displayPageHeader("None");
31f3d7c0 14
15 if ($reply_id) {
2844086d 16 selectMailbox($imapConnection, $mailbox, $numMessages);
31f3d7c0 17 $body_ary = fetchBody($imapConnection, $reply_id);
18 for ($i=0;$i < count($body_ary);$i++) {
19 $tmp = strip_tags($body_ary[$i]);
20 $tmp = substr($tmp, 0, strlen($tmp) -1);
21 $body = "$body> $tmp";
22 }
23 } else if ($forward_id) {
2844086d 24 selectMailbox($imapConnection, $mailbox, $numMessages);
31f3d7c0 25 $body_ary = fetchBody($imapConnection, $forward_id);
26 for ($i=0;$i < count($body_ary);$i++) {
27 $tmp = strip_tags($body_ary[$i]);
28 $tmp = substr($tmp, 0, strlen($tmp) -1);
29 $body = "$body> $tmp";
30 }
31 }
8467bf00 32
b8ea4ed6 33 echo "<FORM action=\"compose_send.php\" METHOD=POST>\n";
ff89ac8a 34 echo "<TABLE COLS=2 WIDTH=100% ALIGN=CENTER CELLSPACING=0>\n";
40ee9452 35 echo " <TR>\n";
36 echo " <TD WIDTH=15% BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
37 echo " <FONT FACE=\"Arial,Helvetica\">To: </FONT>\n";
38 echo " </TD><TD WIDTH=85% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
31f3d7c0 39 if ($send_to)
40 echo " <INPUT TYPE=TEXT NAME=passed_to VALUE=\"$send_to\" SIZE=60><BR>";
41 else
42 echo " <INPUT TYPE=TEXT NAME=passed_to SIZE=60><BR>";
40ee9452 43 echo " </TD>\n";
44 echo " </TR>\n";
45 echo " <TR>\n";
46 echo " <TD WIDTH=15% BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
47 echo " <FONT FACE=\"Arial,Helvetica\">CC:</FONT>\n";
48 echo " </TD><TD WIDTH=85% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
49 echo " <INPUT TYPE=TEXT NAME=passed_cc SIZE=60><BR>";
50 echo " </TD>\n";
51 echo " </TR>\n";
52 echo " <TR>\n";
53 echo " <TD WIDTH=15% BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
54 echo " <FONT FACE=\"Arial,Helvetica\">BCC:</FONT>\n";
55 echo " </TD><TD WIDTH=85% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
56 echo " <INPUT TYPE=TEXT NAME=passed_bcc SIZE=60><BR>";
57 echo " </TD>\n";
58 echo " </TR>\n";
ff89ac8a 59
40ee9452 60 echo " <TR>\n";
61 echo " <TD WIDTH=15% BGCOLOR=FFFFFF ALIGN=RIGHT>\n";
62 echo " <FONT FACE=\"Arial,Helvetica\">Subject:</FONT>\n";
63 echo " </TD><TD WIDTH=85% BGCOLOR=FFFFFF ALIGN=LEFT>\n";
40884065 64 if ($reply_subj) {
65 $reply_subj = str_replace("\"", "'", $reply_subj);
66 $reply_subj = stripslashes($reply_subj);
31f3d7c0 67 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"Re: $reply_subj\"><BR>";
40884065 68 } else if ($forward_subj) {
69 $forward_subj = stripquotes($forward_subj);
2844086d 70 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60 VALUE=\"[Fwd: $forward_subj]\"><BR>";
40884065 71 } else {
ff89ac8a 72 echo " <INPUT TYPE=TEXT NAME=passed_subject SIZE=60>";
40884065 73 }
ff89ac8a 74 echo "&nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE=\"Send\"><BR>";
40ee9452 75 echo " </TD>\n";
76 echo " </TR>\n";
ff89ac8a 77 echo " <TR>\n";
78 echo " <TD BGCOLOR=FFFFFF ALIGN=RIGHT VALIGN=TOP>\n";
79 echo " </TD>";
80 echo " <TD BGCOLOR=FFFFFF>\n";
81 echo " <TEXTAREA NAME=passed_body ROWS=20 COLS=76 WRAP=HARD>$body</TEXTAREA><BR>";
82 echo " </TD>";
83 echo " </TR>\n";
40ee9452 84 echo "</TABLE>\n";
ff89ac8a 85 echo "<CENTER><INPUT TYPE=SUBMIT VALUE=\"Send\"></CENTER>";
8467bf00 86 echo "</FORM>";
87?>