<?
/*
Mail: An object to encapsulate the sending of email. Allows user-specified
From: addresses, handles the encoding of attachments; conforms more or less to
MIME standards.. Uses sendmail to send the mail, mimencode to do the MIME
encoding, and zip to automatically zip attachments.
Contacting the author(s):
Brought to you by the team at Sequoia Softworks, http://www.sequoiasoft.com
Feel free to contact tony@sequoiasoft.com and tell us how you like it!
(Or to complain bitterly, report bugs, or suggest new features.)
Known shortcomings/bugs:
o guessMIMEType()only knows about a few MIME types. You can expand this as
you need.
o $mime_boundary in the Send() method should be randomly generated, but it
isn't likely to ever hurt anything in its current form
Example:
require("Mail.phtml");
$mymessage = new Mail();
$mymessage->from = "php3.script@www.somedomain.net";
$mymessage->to = "luckyuser@destination.org";
$mymessage->subject = "This is your lucky day";
$mymessage->headers["Reply-To"] = "webmaster@www.somedomain.net";
$mymessage->headers["X-Extra-Header"] = "Pointless Header v3.0";
$mymessage->body = "Doesn't it feel good to get mail?\nEspecially with files
attached!\n";
$mymessage->attachments[0] = "tarball.tar.gz";
$mymessage->attachments[1] = "images/smiling_countenance.gif";
$mymessage->attachments[2] = "/usr/share/reference/jargondict.html";
$mymessage->attachments[3] = "./core";
$mymessage->attachments[4] = "/etc/passwd"; //naughty naughty!!
$mymessage->ZipAttachments("your_files.zip"); //uncomment this to zip all
//the attachments into one big
//attachment.
$mymessage->Send();
*/
class Mail {
var $from; //The sender
var $to; //The recipient
var $subject; //The subject line
var $headers; //A hash of additional headers (headername => headervalue)
var $zipname; //The name of the file the attachments are zipped into
//($zipname == false if attachments are to be sent
//individually)
var $attachments; //An array of files to attach
var $body; //The body text of the message
//Auxiliary method, used to guess a file's MIME type
//based on its extension. Doesn't know about too many
//extensions right now
function guessMIMEType($filename) {
//GUESS MIME TYPE
$filename = basename($filename);
if(strrchr($filename,".") == false) {
return("application/octet-stream");
}
$ext = strrchr($filename,".");
switch($ext) {
case ".gif":
return "image/gif";
break;
case ".gz":
return "application/x-gzip";
case ".htm":
case ".html":
return "text/html";
break;
case ".jpg":
return "image/jpeg";
break;
case ".tar":
return "application/x-tar";
break;
case ".txt":
return "text/plain";
break;
case ".zip":
return "application/zip";
break;
default:
return "application/octet-stream";
break;
}
}
//Cute little convenience method. Supply it with a filename to
//zip attachments to, or supply it with false if attachments are
//sent individually
function ZipAttachments($name) {
$this->zipname = $name;
}
//The workhorse method, does the actually sending of the mail.
//Doesn't check for errors so be careful!
function Send($sendmail = "sendmail") {
if($this->from == "")
$fp = popen($sendmail . " -i " . $this->to, "w");
else
$fp = popen($sendmail . " -i -f\"" . $this->from . "\"
" . $this->to, "w");
//If there are attachments, this needs to be a MIME message
if(count($this->attachments) > 0) {
//Write MIME headers
fwrite($fp,"MIME-Version: 1.0\n");
fwrite($fp,"Content-Type: multipart/mixed; BOUNDARY=\""
. $mime_boundary . "\"\n");
fwrite($fp,"\n");
//Write dummy message body
fwrite($fp," This message is in MIME format. The
first part should be readable text,\n");
fwrite($fp," while the remaining parts are likely
unreadable without MIME-aware tools.\n");
fwrite($fp," Send mail to
mime@docserver.cac.washington.edu for more info.\n");
fwrite($fp,"\n");
fwrite($fp,"--" . $mime_boundary . "--\n");
}
//No need for a MIME message, so it's an RFC822 message
else {
fwrite($fp,"\n");
fwrite($fp,$this->body);
}