functions/smtp.php

   1 <?
   2    /** smtp.php
   3     **
   4     ** This contains all the functions needed to send messages through
   5     ** an smtp server or sendmail.
   6     **/
   7
   8    $smtp_php = true;
   9
  10    // Returns true only if this message is multipart
  11    function isMultipart () {
  12       global $attachments;
  13
  14       if (count($attachments)>0)
  15          return true;
  16       else
  17          return false;
  18    }
  19
  20    // Attach the files that are due to be attached
  21    function attachFiles ($fp) {
  22       global $attachments, $attachment_dir;
  23
  24       $length = 0;
  25
  26       if (isMultipart()) {
  27          reset($attachments);
  28          while (list($localname, $remotename) = each($attachments)) {
  29             // This is to make sure noone is giving a filename in another
  30             // directory
  31             $localname = ereg_replace ("\\/", "", $localname);
  32
  33             $fileinfo = fopen ($attachment_dir.$localname.".info", "r");
  34             $filetype = fgets ($fileinfo, 8192);
  35             fclose ($fileinfo);
  36             $filetype = trim ($filetype);
  37             if ($filetype=="")
  38                $filetype = "application/octet-stream";
  39
  40             $header = "--".mimeBoundary()."\r\n";
  41             $header .= "Content-Type: $filetype\n";
  42             $header .= "Content-Disposition: attachment; filename=\"$remotename\"\r\n";
  43             $header .= "Content-Transfer-Encoding: base64\r\n\r\n";
  44             fputs ($fp, $header);
  45             $length += strlen($header);
  46
  47             $file = fopen ($attachment_dir.$localname, "r");
  48             while ($tmp = fread($file, 570)) {
  49                $encoded = chunk_split(base64_encode($tmp));
  50                $length += strlen($encoded);
  51                fputs ($fp, $encoded);
  52             }
  53             fclose ($file);
  54          }
  55       }
  56
  57       return $length;
  58    }
  59
  60    // Delete files that are uploaded for attaching
  61    function deleteAttachments() {
  62       global $attachments, $attachment_dir;
  63
  64       if (isMultipart()) {
  65          reset($attachments);
  66          while (list($localname, $remotename) = each($attachments)) {
  67             if (!ereg ("\\/", $localname)) {
  68                unlink ($attachment_dir.$localname);
  69                unlink ($attachment_dir.$localname.".info");
  70             }
  71          }
  72       }
  73    }
  74
  75    // Return a nice MIME-boundary
  76    function mimeBoundary () {
  77       global $version, $REMOTE_ADDR, $SERVER_NAME, $REMOTE_PORT;
  78
  79       static $mimeBoundaryString;
  80
  81       if ($mimeBoundaryString == "") {
  82          $temp = "SquirrelMail".$version.$REMOTE_ADDR.$SERVER_NAME.
  83             $REMOTE_PORT;
  84          $mimeBoundaryString = "=-_+".substr(md5($temp),1,20);
  85       }
  86
  87       return $mimeBoundaryString;
  88    }
  89
  90    /* Time offset for correct timezone */
  91    function timezone () {
  92       $diff_second = date("Z");
  93       if ($diff_second > 0)
  94          $sign = "+";
  95       else
  96          $sign = "-";
  97
  98       $diff_second = abs($diff_second);
  99
 100       $diff_hour = floor ($diff_second / 3600);
 101       $diff_minute = floor (($diff_second-3600*$diff_hour) / 60);
 102
 103       $zonename = "(".strftime("%Z").")";
 104       $result = sprintf ("%s%02d%02d %s", $sign, $diff_hour, $diff_minute, $zonename);
 105       return ($result);
 106    }
 107
 108    /* Print all the needed RFC822 headers */
 109    function write822Header ($fp, $t, $c, $b, $subject) {
 110       global $REMOTE_ADDR, $SERVER_NAME, $REMOTE_PORT;
 111       global $data_dir, $username, $domain, $version, $useSendmail;
 112       global $default_charset;
 113
 114       // Storing the header to make sure the header is the same
 115       // everytime the header is printed.
 116       static $header, $headerlength;
 117
 118       if ($header == "") {
 119          $to = parseAddrs($t);
 120          $cc = parseAddrs($c);
 121          $bcc = parseAddrs($b);
 122          $reply_to = getPref($data_dir, $username, "reply_to");
 123          $from = getPref($data_dir, $username, "full_name");
 124          $from_addr = getPref($data_dir, $username, "email_address");
 125
 126          if ($from_addr == "")
 127             $from_addr = "$username@$domain";
 128
 129          $to_list = getLineOfAddrs($to);
 130          $cc_list = getLineOfAddrs($cc);
 131          $bcc_list = getLineOfAddrs($bcc);
 132
 133          if ($from == "")
 134             $from = "<$from_addr>";
 135          else
 136             $from = $from . " <$from_addr>";
 137
 138          /* This creates an RFC 822 date */
 139          $date = date("D, j M Y H:i:s ", mktime()) . timezone();
 140
 141          /* Create a message-id */
 142          $message_id = "<" . $REMOTE_PORT . "." . $REMOTE_ADDR . ".";
 143          $message_id .= time() . "@" . $SERVER_NAME .">";
 144
 145          /* Make an RFC822 Received: line */
 146          $header = "Received: from $REMOTE_ADDR by $SERVER_NAME with HTTP; ";
 147          $header .= "$date\n";
 148
 149          /* Insert the rest of the header fields */
 150          $header .= "Message-ID: $message_id\r\n";
 151          $header .= "Date: $date\r\n";
 152          $header .= "Subject: $subject\r\n";
 153          $header .= "From: $from\r\n";
 154          $header .= "To: $to_list \r\n";    // Who it's TO
 155
 156          if ($cc_list) {
 157             $header .= "Cc: $cc_list\r\n"; // Who the CCs are
 158          }
 159
 160          if ($reply_to != "")
 161             $header .= "Reply-To: $reply_to\r\n";
 162
 163          if ($useSendmail) {
 164             if ($bcc_list) {
 165                // BCCs is removed from header by sendmail
 166                $header .= "Bcc: $bcc_list\r\n";
 167             }
 168          }
 169
 170          $header .= "X-Mailer: SquirrelMail (version $version)\r\n"; // Identify SquirrelMail
 171
 172          // Do the MIME-stuff
 173          $header .= "MIME-Version: 1.0\n";
 174
 175          if (isMultipart()) {
 176             $header .= "Content-Type: multipart/mixed; boundary=\"";
 177             $header .= mimeBoundary();
 178             $header .= "\"\r\n";
 179          } else {
 180             if ($default_charset != "")
 181                $header .= "Content-Type: text/plain; charset=$default_charset\r\n";
 182             else
 183                $header .= "Content-Type: text/plain;\r\n";
 184             $header .= "Content-Transfer-Encoding: 8bit\r\n";
 185          }
 186          $header .= "\r\n"; // One blank line to separate header and body
 187
 188          $headerlength = strlen($header);
 189       }
 190
 191       // Write the header
 192       fputs ($fp, $header);
 193
 194       return $headerlength;
 195    }
 196
 197    // Send the body
 198    function writeBody ($fp, $passedBody) {
 199       global $default_charset;
 200
 201       $attachmentlength = 0;
 202
 203       if (isMultipart()) {
 204          $body = "--".mimeBoundary()."\r\n";
 205
 206          if ($default_charset != "")
 207             $body .= "Content-Type: text/plain; charset=$default_charset\r\n";
 208          else
 209             $body .= "Content-Type: text/plain\r\n";
 210
 211          $body .= "Content-Transfer-Encoding: 8bit\r\n\r\n";
 212          $body .= stripslashes($passedBody) . "\r\n";
 213          fputs ($fp, $body);
 214
 215          $attachmentlength = attachFiles($fp);
 216
 217          $postbody .= "\r\n--".mimeBoundary()."--\r\n\r\n";
 218          fputs ($fp, $postbody);
 219       } else {
 220          $body = stripslashes($passedBody) . "\r\n";
 221          fputs ($fp, $body);
 222          $postbody = "\r\n";
 223          fputs ($fp, $postbody);
 224       }
 225
 226       return (strlen($body) + strlen($postbody) + $attachmentlength);
 227    }
 228
 229    // Send mail using the sendmail command
 230    function sendSendmail($t, $c, $b, $subject, $body) {
 231       global $sendmail_path, $username, $domain;
 232
 233       // open pipe to sendmail
 234       $fp = popen (escapeshellcmd("$sendmail_path -t -f$username@$domain"), "w");
 235
 236       $headerlength = write822Header ($fp, $t, $c, $b, $subject);
 237       $bodylength = writeBody($fp, $body);
 238
 239       pclose($fp);
 240
 241       return ($headerlength + $bodylenght);
 242    }
 243
 244    function smtpReadData($smtpConnection) {
 245       $read = fgets($smtpConnection, 1024);
 246       $counter = 0;
 247       while ($read) {
 248          echo $read . "<BR>";
 249          $data[$counter] = $read;
 250          $read = fgets($smtpConnection, 1024);
 251          $counter++;
 252       }
 253    }
 254
 255    function sendSMTP($t, $c, $b, $subject, $body) {
 256       global $username, $domain, $version, $smtpServerAddress, $smtpPort,
 257          $data_dir;
 258
 259       $to = parseAddrs($t);
 260       $cc = parseAddrs($c);
 261       $bcc = parseAddrs($b);
 262       $from_addr = getPref($data_dir, $username, "email_address");
 263
 264       if ($from_addr == "")
 265          $from_addr = "$username@$domain";
 266
 267       $smtpConnection = fsockopen($smtpServerAddress, $smtpPort, $errorNumber, $errorString);
 268       if (!$smtpConnection) {
 269          echo "Error connecting to SMTP Server.<br>";
 270          echo "$errorNumber : $errorString<br>";
 271          exit;
 272       }
 273       $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 274       errorCheck($tmp);
 275
 276       $to_list = getLineOfAddrs($to);
 277       $cc_list = getLineOfAddrs($cc);
 278
 279       /** Lets introduce ourselves */
 280       fputs($smtpConnection, "HELO $domain\r\n");
 281       $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 282       errorCheck($tmp);
 283
 284       /** Ok, who is sending the message? */
 285       fputs($smtpConnection, "MAIL FROM:<$from_addr>\r\n");
 286       $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 287       errorCheck($tmp);
 288
 289       /** send who the recipients are */
 290       for ($i = 0; $i < count($to); $i++) {
 291          fputs($smtpConnection, "RCPT TO:<$to[$i]>\r\n");
 292          $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 293          errorCheck($tmp);
 294       }
 295       for ($i = 0; $i < count($cc); $i++) {
 296          fputs($smtpConnection, "RCPT TO:<$cc[$i]>\r\n");
 297          $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 298          errorCheck($tmp);
 299       }
 300       for ($i = 0; $i < count($bcc); $i++) {
 301          fputs($smtpConnection, "RCPT TO:<$bcc[$i]>\r\n");
 302          $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 303          errorCheck($tmp);
 304       }
 305
 306       /** Lets start sending the actual message */
 307       fputs($smtpConnection, "DATA\r\n");
 308       $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 309       errorCheck($tmp);
 310
 311       // Send the message
 312       $headerlength = write822Header ($smtpConnection, $t, $c, $b, $subject);
 313       $bodylength = writeBody($smtpConnection, $body);
 314
 315       fputs($smtpConnection, ".\r\n"); // end the DATA part
 316       $tmp = nl2br(htmlspecialchars(fgets($smtpConnection, 1024)));
 317       $num = errorCheck($tmp);
 318       if ($num != 250) {
 319          echo "<HTML><BODY BGCOLOR=FFFFFF>ERROR<BR>Message not sent!<BR>Reason given: $tmp<BR></BODY></HTML>";
 320       }
 321
 322       fputs($smtpConnection, "QUIT\r\n"); // log off
 323
 324       fclose($smtpConnection);
 325
 326       return ($headerlength + $bodylength);
 327    }
 328
 329
 330    function errorCheck($line) {
 331       // Status:  0 = fatal
 332       //          5 = ok
 333
 334       $err_num = substr($line, 0, strpos($line, " "));
 335       switch ($err_num) {
 336          case 500:   $message = "Syntax error; command not recognized";
 337                      $status = 0;
 338                      break;
 339          case 501:   $message = "Syntax error in parameters or arguments";
 340                      $status = 0;
 341                      break;
 342          case 502:   $message = "Command not implemented";
 343                      $status = 0;
 344                      break;
 345          case 503:   $message = "Bad sequence of commands";
 346                      $status = 0;
 347                      break;
 348          case 504:   $message = "Command parameter not implemented";
 349                      $status = 0;
 350                      break;
 351
 352
 353          case 211:   $message = "System status, or system help reply";
 354                      $status = 5;
 355                      break;
 356          case 214:   $message = "Help message";
 357                      $status = 5;
 358                      break;
 359
 360
 361          case 220:   $message = "Service ready";
 362                      $status = 5;
 363                      break;
 364          case 221:   $message = "Service closing transmission channel";
 365                      $status = 5;
 366                      break;
 367          case 421:   $message = "Service not available, closing chanel";
 368                      $status = 0;
 369                      break;
 370
 371
 372          case 250:   $message = "Requested mail action okay, completed";
 373                      $status = 5;
 374                      break;
 375          case 251:   $message = "User not local; will forward";
 376                      $status = 5;
 377                      break;
 378          case 450:   $message = "Requested mail action not taken:  mailbox unavailable";
 379                      $status = 0;
 380                      break;
 381          case 550:   $message = "Requested action not taken:  mailbox unavailable";
 382                      $status = 0;
 383                      break;
 384          case 451:   $message = "Requested action aborted:  error in processing";
 385                      $status = 0;
 386                      break;
 387          case 551:   $message = "User not local; please try forwarding";
 388                      $status = 0;
 389                      break;
 390          case 452:   $message = "Requested action not taken:  insufficient system storage";
 391                      $status = 0;
 392                      break;
 393          case 552:   $message = "Requested mail action aborted:  exceeding storage allocation";
 394                      $status = 0;
 395                      break;
 396          case 553:   $message = "Requested action not taken: mailbox name not allowed";
 397                      $status = 0;
 398                      break;
 399          case 354:   $message = "Start mail input; end with .";
 400                      $status = 5;
 401                      break;
 402          case 554:   $message = "Transaction failed";
 403                      $status = 0;
 404                      break;
 405          default:    $message = "Unknown response: $line";
 406                      $status = 0;
 407                      $error_num = "001";
 408                      break;
 409       }
 410
 411       if ($status == 0) {
 412          echo "<HTML><BODY BGCOLOR=FFFFFF>";
 413          echo "<TT>";
 414          echo "<BR><B>ERROR</B><BR><BR>";
 415          echo "&nbsp;&nbsp;&nbsp;<B>Error Number: </B>$err_num<BR>";
 416          echo "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B>Reason: </B>$message<BR>";
 417          echo "<B>Server Response: </B>$line<BR>";
 418          echo "<BR>MAIL NOT SENT";
 419          echo "</TT></BODY></HTML>";
 420          exit;
 421       }
 422       return $err_num;
 423    }
 424
 425    function sendMessage($t, $c, $b, $subject, $body) {
 426       global $useSendmail;
 427       global $data_dir, $username, $domain, $key, $version, $sent_folder, $imapServerAddress, $imapPort;
 428
 429       if ($useSendmail==true) {
 430          $length = sendSendmail($t, $c, $b, $subject, $body);
 431       } else {
 432          $length = sendSMTP($t, $c, $b, $subject, $body);
 433       }
 434
 435
 436       // This is a proposed interface to save messages in the sent folder
 437       //  -- gustavf
 438       //
 439 //      $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 1);
 440 //      sqimap_append ($imap_stream, $sent_folder, $length);
 441 //      write822Header ($imap_stream, $t, $c, $b, $subject);
 442 //      writeBody ($imap_stream, $body);
 443       //sqimap_append_done($imap_stream);
 444       //
 445       // Or something like that...
 446
 447       // Delete the files uploaded for attaching (if any).
 448       deleteAttachments();
 449
 450    }
 451
 452 ?>