6150e24ce24e859301b864f04b6d56b5a6994b4e
[squirrelmail.git] / functions / smtp.php
1 <?
2 /** smtp.php
3 **
4 ** This contains all the functions needed to send messages through
5 ** an smtp server.
6 **/
7
8 function smtpReadData($smtpConnection) {
9 $read = fgets($smtpConnection, 1024);
10 $counter = 0;
11 while ($read) {
12 echo $read . "<BR>";
13 $data[$counter] = $read;
14 $read = fgets($smtpConnection, 1024);
15 $counter++;
16 }
17 }
18
19 function sendMessage($smtpServerAddress, $smtpPort, $username, $domain, $t, $c, $b, $subject, $body, $version) {
20 include("../config/config.php");
21
22 $to = parseAddrs($t);
23 $cc = parseAddrs($c);
24 $bcc = parseAddrs($b);
25 $body = stripslashes($body);
26 $from_addr = "$username@$domain";
27 $reply_to = getPref($data_dir, $username, "reply_to");
28 $from = getPref($data_dir, $username, "full_name");
29 if ($from == "")
30 $from = "<$from_addr>";
31 else
32 $from = $from . " <$from_addr>";
33
34 $smtpConnection = fsockopen($smtpServerAddress, $smtpPort, $errorNumber, $errorString);
35 if (!$smtpConnection) {
36 echo "Error connecting to SMTP Server.<br>";
37 echo "$errorNumber : $errorString<br>";
38 exit;
39 }
40 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
41 errorCheck($tmp);
42
43 $to_list = getLineOfAddrs($to);
44 $cc_list = getLineOfAddrs($cc);
45
46 /** Lets introduce ourselves */
47 fputs($smtpConnection, "HELO $domain\n");
48 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
49 errorCheck($tmp);
50
51 /** Ok, who is sending the message? */
52 fputs($smtpConnection, "MAIL FROM:<$from_addr>\n");
53 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
54 errorCheck($tmp);
55
56 /** send who the recipients are */
57 for ($i = 0; $i < count($to); $i++) {
58 fputs($smtpConnection, "RCPT TO:<$to[$i]>\n");
59 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
60 errorCheck($tmp);
61 }
62 for ($i = 0; $i < count($cc); $i++) {
63 fputs($smtpConnection, "RCPT TO:<$cc[$i]>\n");
64 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
65 errorCheck($tmp);
66 }
67 for ($i = 0; $i < count($bcc); $i++) {
68 fputs($smtpConnection, "RCPT TO:<$bcc[$i]>\n");
69 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
70 errorCheck($tmp);
71 }
72
73 /** Lets start sending the actual message */
74 fputs($smtpConnection, "DATA\n");
75 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
76 errorCheck($tmp);
77
78 fputs($smtpConnection, "Subject: $subject\n"); // Subject
79 fputs($smtpConnection, "From: $from\n"); // Subject
80 fputs($smtpConnection, "To: <$to_list>\n"); // Who it's TO
81
82 if ($cc_list) {
83 fputs($smtpConnection, "Cc: <$cc_list>\n"); // Who the CCs are
84 }
85 fputs($smtpConnection, "X-Mailer: SquirrelMail (version $version)\n"); // Identify SquirrelMail
86 fputs($smtpConnection, "Reply-To: $reply_to\n");
87 fputs($smtpConnection, "MIME-Version: 1.0\n");
88 fputs($smtpConnection, "Content-Type: text/plain\n");
89
90 fputs($smtpConnection, "$body\n"); // send the body of the message
91
92 fputs($smtpConnection, ".\n"); // end the DATA part
93 $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
94 $num = errorCheck($tmp);
95 if ($num != 250) {
96 echo "<HTML><BODY BGCOLOR=FFFFFF>ERROR<BR>Message not sent!<BR>Reason given: $tmp<BR></BODY></HTML>";
97 }
98
99 fputs($smtpConnection, "QUIT\n"); // log off
100
101 fclose($smtpConnection);
102 }
103
104
105 function errorCheck($line) {
106 // Status: 0 = fatal
107 // 5 = ok
108
109 $err_num = substr($line, 0, strpos($line, " "));
110 switch ($err_num) {
111 case 500: $message = "Syntax error; command not recognized";
112 $status = 0;
113 break;
114 case 501: $message = "Syntax error in parameters or arguments";
115 $status = 0;
116 break;
117 case 502: $message = "Command not implemented";
118 $status = 0;
119 break;
120 case 503: $message = "Bad sequence of commands";
121 $status = 0;
122 break;
123 case 504: $message = "Command parameter not implemented";
124 $status = 0;
125 break;
126
127
128 case 211: $message = "System status, or system help reply";
129 $status = 5;
130 break;
131 case 214: $message = "Help message";
132 $status = 5;
133 break;
134
135
136 case 220: $message = "Service ready";
137 $status = 5;
138 break;
139 case 221: $message = "Service closing transmission channel";
140 $status = 5;
141 break;
142 case 421: $message = "Service not available, closing chanel";
143 $status = 0;
144 break;
145
146
147 case 250: $message = "Requested mail action okay, completed";
148 $status = 5;
149 break;
150 case 251: $message = "User not local; will forward";
151 $status = 5;
152 break;
153 case 450: $message = "Requested mail action not taken: mailbox unavailable";
154 $status = 0;
155 break;
156 case 550: $message = "Requested action not taken: mailbox unavailable";
157 $status = 0;
158 break;
159 case 451: $message = "Requested action aborted: error in processing";
160 $status = 0;
161 break;
162 case 551: $message = "User not local; please try forwarding";
163 $status = 0;
164 break;
165 case 452: $message = "Requested action not taken: insufficient system storage";
166 $status = 0;
167 break;
168 case 552: $message = "Requested mail action aborted: exceeding storage allocation";
169 $status = 0;
170 break;
171 case 553: $message = "Requested action not taken: mailbox name not allowed";
172 $status = 0;
173 break;
174 case 354: $message = "Start mail input; end with .";
175 $status = 5;
176 break;
177 case 554: $message = "Transaction failed";
178 $status = 0;
179 break;
180 default: $message = "Unknown response: $line";
181 $status = 0;
182 $error_num = "001";
183 break;
184 }
185
186 if ($status == 0) {
187 echo "<HTML><BODY BGCOLOR=FFFFFF>";
188 echo "<TT>";
189 echo "<BR><B>ERROR</B><BR><BR>";
190 echo "&nbsp;&nbsp;&nbsp;<B>Error Number: </B>$err_num<BR>";
191 echo "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B>Reason: </B>$message<BR>";
192 echo "<B>Server Response: </B>$line<BR>";
193 echo "<BR>MAIL NOT SENT";
194 echo "</TT></BODY></HTML>";
195 exit;
196 }
197 return $err_num;
198 }
199 ?>