[diogenes.git] / include / diogenes / diogenes.mailer.inc.php

<?php
/*
 * Copyright (C) 2003-2004 Polytechnique.org
 * http://opensource.polytechnique.org/
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */


/** Converts and HTML message into plaintext.
 *
 * @param $html the HTML code to convert
 */
function html2plain($html) {
    $text = html_entity_decode($html);
    return trim(strip_tags($text));
}


/** Converts a plaintext message into an HTML message with clickable hyperlinks.
 *
 * @param $text the plain text to convert
 */
function plain2html($text) {
    $html = ereg_replace("[[:alpha:]]+://[^<>[:space:]]+[[:alnum:]/]",
                         "<a href=\"\\0\">\\0</a>", $text);
    $html = nl2br($html);
    return "<HTML><BODY>\n$html\n</BODY></HTML>";
}


/** Class for sending inline or multipart-emails.
 */
class DiogenesMailer {
    /** The header of the email. */
    var $header;
    /** The body of the email. */
    var $body;
    /** The sender of the email. */
    var $from;
    /** The recipient of the email. */
    var $to;
    /** Carbon copy for the email. */
    var $cc;
    /** Blind carbon copy for the email. */
    var $bcc;
    /** Subject of the email. */
    var $subject;
    /** The boundary used to separate the email's body parts. */
    var $boundary;
    /** Do we have a "From:" header? If none is explicitly set, just before
     *  sending it will be constructed from the sender's email address. */
    var $from_present;


    /** The constructor. Initialises header & body.
     *
     * @param from the sender of the email
     * @param to the recipient of the email
     * @param subject the subject of the email
     * @param multipart boolean indicating whether we have a multipart email
     * @param cc carbon copy for the email
     * @param bcc blind carbon copy for the email
     */
    function DiogenesMailer($from, $to, $subject, $multipart=false, $cc="", $bcc="") {
	trigger_error("DiogenesMailer class is obsolete, use HermesMailer instead !", E_USER_NOTICE);
        $this->from = $from;
        $this->from_present = false;
        $this->to = ($to == '' ? $from : $to);
        $this->cc = $cc;
        $this->bcc = $bcc;
        $this->subject = $subject;
        $this->body = "";
        $this->header = "X-Mailer: PHP/" . phpversion()."\n".
                        "Mime-Version: 1.0\n";
        if ($multipart) {
            $this->boundary="-=partie_suivante_(".uniqid("").")=-";
            $this->header .=
                "Content-Type: multipart/alternative;\n".
                "   boundary=\"{$this->boundary}\"\n";

        } else {
            $this->boundary="";
            $this->header .=
                "Content-Type: text/plain; charset=iso-8859-1\n".
                "Content-Disposition: inline\n".
                "Content-Transfer-Encoding: 8bit\n";
        }
    }


    /** Adds a part to the email's body.
     *
     * @param type the MIME type of this part (e.g. "text/plain; charset=iso-8859-1")
     * @param encoding the content encoding for this part (e.g "8bit")
     * @param value the contents of this part
     */
    function addPart($type,$encoding,$value)
    {
        if ($this->boundary) {
            $this->body.=
                "--{$this->boundary}\n".
                "Content-Type: $type\n".
                "Content-Transfer-Encoding: $encoding\n\n";
            $this->body .= "$value\n";
        } else {
            echo "<b>Erreur : addPart s'applique uniquement aux messages multipart!</b>";
        }
    }


    /** Adds a header to the email.
     *
     * @param text the contents of the header (without the final line feed)
     */
    function addHeader($text)
    {
        if (preg_match('/^From:/i', $text)) $this->from_present = true;
        $this->header .= "$text\n";
    }


    /** Adds a "text/plain" part to the email.
     *
     * @param text
     */
    function addPartText($text)
    {
        $this->addPart("text/plain; charset=iso-8859-1",
                       "8bit", $text);
    }


    /** Adds a "text/html" part to the email.
     *
     * @param html
     */
    function addPartHtml($html)
    {
        $this->addPart("text/html; charset=iso-8859-1",
                       "8bit", $html);
    }


    /** Sets the body of the email (only for inline messages!).
     *
     * @param text
     */
    function setBody($text)
    {
        if (!$this->boundary) {
            $this->body = $text;
        } else {
            die("Error : setBody only applies to inline messages!");
        }
    }


    /** Sends the email using a pipe to sendmail.
     */
    function send()
    {
        if(!$this->from_present)
            $this->header .= "From: {$this->from}\n";
        if ($this->to)
            $this->header .= "To: {$this->to}\n";
        if ($this->cc)
            $this->header .= "Cc: {$this->cc}\n";

        $this->header .= "Subject: {$this->subject}\n";
        $this->header .= "\n";

        if ($this->boundary)
            $this->body .= "--{$this->boundary}--\n";

        $fp = popen('/usr/sbin/sendmail -oi -f '.escapeshellarg($this->from).' '.escapeshellarg($this->to).' '.escapeshellarg($this->cc).' '.escapeshellarg($this->bcc),'w');
        if ($fp) {
            if(fwrite($fp, $this->header) == -1) return false;
            if(fwrite($fp, $this->body) == -1) return false;
            if (pclose($fp) == 0) return true;
        }
        return false;
    }

}

?>
Commit	Line	Data
	1	<?php
	2	/*
	3	* Copyright (C) 2003-2004 Polytechnique.org
	4	* http://opensource.polytechnique.org/
	5	*
	6	* This program is free software; you can redistribute it and/or modify
	7	* it under the terms of the GNU General Public License as published by
	8	* the Free Software Foundation; either version 2 of the License, or
	9	* (at your option) any later version.
	10	*
	11	* This program is distributed in the hope that it will be useful,
	12	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	* GNU General Public License for more details.
	15	*
	16	* You should have received a copy of the GNU General Public License
	17	* along with this program; if not, write to the Free Software
	18	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	19	*/
	20
	21
	22	/** Converts and HTML message into plaintext.
	23	*
	24	* @param $html the HTML code to convert
	25	*/
	26	function html2plain($html) {
	27	$text = html_entity_decode($html);
	28	return trim(strip_tags($text));
	29	}
	30
	31
	32	/** Converts a plaintext message into an HTML message with clickable hyperlinks.
	33	*
	34	* @param $text the plain text to convert
	35	*/
	36	function plain2html($text) {
	37	$html = ereg_replace("[[:alpha:]]+://[^<>[:space:]]+[[:alnum:]/]",
	38	"<a href=\"\\0\">\\0</a>", $text);
	39	$html = nl2br($html);
	40	return "<HTML><BODY>\n$html\n</BODY></HTML>";
	41	}
	42
	43
	44	/** Class for sending inline or multipart-emails.
	45	*/
	46	class DiogenesMailer {
	47	/** The header of the email. */
	48	var $header;
	49	/** The body of the email. */
	50	var $body;
	51	/** The sender of the email. */
	52	var $from;
	53	/** The recipient of the email. */
	54	var $to;
	55	/** Carbon copy for the email. */
	56	var $cc;
	57	/** Blind carbon copy for the email. */
	58	var $bcc;
	59	/** Subject of the email. */
	60	var $subject;
	61	/** The boundary used to separate the email's body parts. */
	62	var $boundary;
	63	/** Do we have a "From:" header? If none is explicitly set, just before
	64	* sending it will be constructed from the sender's email address. */
	65	var $from_present;
	66
	67
	68	/** The constructor. Initialises header & body.
	69	*
	70	* @param from the sender of the email
	71	* @param to the recipient of the email
	72	* @param subject the subject of the email
	73	* @param multipart boolean indicating whether we have a multipart email
	74	* @param cc carbon copy for the email
	75	* @param bcc blind carbon copy for the email
	76	*/
	77	function DiogenesMailer($from, $to, $subject, $multipart=false, $cc="", $bcc="") {
	78	trigger_error("DiogenesMailer class is obsolete, use HermesMailer instead !", E_USER_NOTICE);
	79	$this->from = $from;
	80	$this->from_present = false;
	81	$this->to = ($to == '' ? $from : $to);
	82	$this->cc = $cc;
	83	$this->bcc = $bcc;
	84	$this->subject = $subject;
	85	$this->body = "";
	86	$this->header = "X-Mailer: PHP/" . phpversion()."\n".
	87	"Mime-Version: 1.0\n";
	88	if ($multipart) {
	89	$this->boundary="-=partie_suivante_(".uniqid("").")=-";
	90	$this->header .=
	91	"Content-Type: multipart/alternative;\n".
	92	" boundary=\"{$this->boundary}\"\n";
	93
	94	} else {
	95	$this->boundary="";
	96	$this->header .=
	97	"Content-Type: text/plain; charset=iso-8859-1\n".
	98	"Content-Disposition: inline\n".
	99	"Content-Transfer-Encoding: 8bit\n";
	100	}
	101	}
	102
	103
	104	/** Adds a part to the email's body.
	105	*
	106	* @param type the MIME type of this part (e.g. "text/plain; charset=iso-8859-1")
	107	* @param encoding the content encoding for this part (e.g "8bit")
	108	* @param value the contents of this part
	109	*/
	110	function addPart($type,$encoding,$value)
	111	{
	112	if ($this->boundary) {
	113	$this->body.=
	114	"--{$this->boundary}\n".
	115	"Content-Type: $type\n".
	116	"Content-Transfer-Encoding: $encoding\n\n";
	117	$this->body .= "$value\n";
	118	} else {
	119	echo "<b>Erreur : addPart s'applique uniquement aux messages multipart!</b>";
	120	}
	121	}
	122
	123
	124	/** Adds a header to the email.
	125	*
	126	* @param text the contents of the header (without the final line feed)
	127	*/
	128	function addHeader($text)
	129	{
	130	if (preg_match('/^From:/i', $text)) $this->from_present = true;
	131	$this->header .= "$text\n";
	132	}
	133
	134
	135	/** Adds a "text/plain" part to the email.
	136	*
	137	* @param text
	138	*/
	139	function addPartText($text)
	140	{
	141	$this->addPart("text/plain; charset=iso-8859-1",
	142	"8bit", $text);
	143	}
	144
	145
	146	/** Adds a "text/html" part to the email.
	147	*
	148	* @param html
	149	*/
	150	function addPartHtml($html)
	151	{
	152	$this->addPart("text/html; charset=iso-8859-1",
	153	"8bit", $html);
	154	}
	155
	156
	157	/** Sets the body of the email (only for inline messages!).
	158	*
	159	* @param text
	160	*/
	161	function setBody($text)
	162	{
	163	if (!$this->boundary) {
	164	$this->body = $text;
	165	} else {
	166	die("Error : setBody only applies to inline messages!");
	167	}
	168	}
	169
	170
	171	/** Sends the email using a pipe to sendmail.
	172	*/
	173	function send()
	174	{
	175	if(!$this->from_present)
	176	$this->header .= "From: {$this->from}\n";
	177	if ($this->to)
	178	$this->header .= "To: {$this->to}\n";
	179	if ($this->cc)
	180	$this->header .= "Cc: {$this->cc}\n";
	181
	182	$this->header .= "Subject: {$this->subject}\n";
	183	$this->header .= "\n";
	184
	185	if ($this->boundary)
	186	$this->body .= "--{$this->boundary}--\n";
	187
	188	$fp = popen('/usr/sbin/sendmail -oi -f '.escapeshellarg($this->from).' '.escapeshellarg($this->to).' '.escapeshellarg($this->cc).' '.escapeshellarg($this->bcc),'w');
	189	if ($fp) {
	190	if(fwrite($fp, $this->header) == -1) return false;
	191	if(fwrite($fp, $this->body) == -1) return false;
	192	if (pclose($fp) == 0) return true;
	193	}
	194	return false;
	195	}
	196
	197	}
	198
	199	?>