<?php
/* Copyright (C) 2000-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2003      Jean-Louis Bergamo   <jlb@j1b.org>
 * Copyright (C) 2004      Laurent Destailleur  <eldy@users.sourceforge.net>
 *
 * 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.
 * or see http://www.gnu.org/
 *
 * $Id$
 * $Source$
 *
 */

/* notes from Dan Potter:
Sure. I changed a few other things in here too though. One is that I let
you specify what the destination filename is (i.e., what is shows up as in
the attachment). This is useful since in a web submission you often can't
tell what the filename was supposed to be from the submission itself. I
also added my own version of chunk_split because our production version of
PHP doesn't have it. You can change that back or whatever though =).
Finally, I added an extra "\n" before the message text gets added into the
MIME output because otherwise the message text wasn't showing up.
/*
note: someone mentioned a command-line utility called 'mutt' that 
can mail attachments.
*/
/* 
If chunk_split works on your system, change the call to my_chunk_split
to chunk_split 
*/
/* Note: if you don't have base64_encode on your sytem it will not work */

/*!	\file htdocs/lib/CMailFile.class.php
  \brief Classe permettant d'envoyer des mail avec attachements, recriture de CMailFile
  \author Dan Potter.
  \author	Eric Seigne
  \author	Rodolphe Quiedeville
  \author	Laurent Destailleur.
  \version $Revision$
*/

/*! \class CMailFile
  \brief Classe permettant d'envoyer des attachements par mail
  \remarks Eric Seigne <eric.seigne@ryxeo.com> 2004.01.08
  \remarks ajout de la gestion des cc:
  \remarks ajout de l'expedition de plusieurs fichiers
  
  \remarks Laurent Destailleur 2004.02.10
  \remarks correction d'un disfonctionnement à la gestion des attachements multiples
*/

// simple class that encapsulates mail() with addition of mime file attachment.
class DolibarrMail
{
  var $subject;
  var $addr_to;
  var $addr_cc;
  var $addr_bcc;
  var $text_body;
  var $text_encoded;
  var $mime_headers;
  var $mime_boundary = "--==================_846811060==_";
  var $smtp_headers;

/*!
  \brief DolibarrMail
  \param subject
  \param to
  \param from
  \param msg
  \param filename_list
  \param mimetype_list
  \param mimefilename_list
  \param addr_cc
  \param addr_bcc
*/

  // CMail("sujet","email_to","email_from","email_msg",tableau du path de fichiers,tableau de type mime,tableau de noms fichiers,"chaine cc")
  function DolibarrMail($subject, $to, $from, $msg)
    {
      $this->from = $from;

      $this->message = wordwrap($msg, 78);

      $this->subject = $subject;
      $this->addr_to = $to;
      $this->addr_bcc = "";
      $this->addr_cc = "";
      $this->reply_to = "";

      dolibarr_syslog("DolibarrMail::DolibarrMail");
      dolibarr_syslog("DolibarrMail::DolibarrMail to : ".$this->addr_to);
      dolibarr_syslog("DolibarrMail::DolibarrMail from : ".$this->from);
    }

  /*!
    \brief PrepareFile
    \param filename_list
    \param mimetype_list
    \param mimefilename_list
  */

  function PrepareFile($filename_list, $mimetype_list, $mimefilename_list)
  {
    dolibarr_syslog("DolibarrMail::PrepareFile");

    $this->mime_headers="";

    $this->smtp_headers = $this->write_smtpheaders();

    if (count($filename_list))
      {
	$this->mime_headers = $this->write_mimeheaders($filename_list, $mimefilename_list);

	$this->text_encoded = $this->attach_file($filename_list,
						 $mimetype_list,
						 $mimefilename_list);
      }
    $this->text_body = $this->write_body($this->message, $filename_list);
  }
    
  /*!
    \brief permet d'attacher un fichier
    \param filename_list
    \param mimetype_list
    \param mimefilename_list
  */
  
  function attach_file($filename_list,$mimetype_list,$mimefilename_list)
  {
    for ($i = 0; $i < count($filename_list); $i++)
      {
	$encoded = $this->encode_file($filename_list[$i]);

	if ($mimefilename_list[$i]) 
	  {
	    $filename_list[$i] = $mimefilename_list[$i];
	  }

	$out = $out . "--" . $this->mime_boundary . "\n";

	if (! $mimetype_list[$i])
	  { 
	    $mimetype_list[$i] = "application/octet-stream"; 
	  }

	$out = $out . "Content-type: " . $mimetype_list[$i] . "; name=\"".$filename_list[$i]."\";\n";         
	$out = $out . "Content-Transfer-Encoding: base64\n";
	$out = $out . "Content-disposition: attachment; filename=\"".$filename_list[$i]."\"\n\n";
	$out = $out . $encoded . "\n";
      }
    $out = $out . "--" . $this->mime_boundary . "--" . "\n";

    return $out; 
    // added -- to notify email client attachment is done
  }
  
/*!
  \brief permet d'encoder un fichier
  \param sourcefile
*/
  
  function encode_file($sourcefile)
  {
    //      print "<pre>on encode $sourcefile </pre>\n";
    if (is_readable($sourcefile))
      {
	$fd = fopen($sourcefile, "r");
	$contents = fread($fd, filesize($sourcefile));
	$encoded = $this->my_chunk_split(base64_encode($contents));
	fclose($fd);
      }
    else
      {
	dolibarr_syslog("DolibarrMail::encode_file");
      }
    return $encoded;
  }
  
  /*!
    \brief permet d'envoyer un fichier
  */
  
  function sendfile()
  {
    dolibarr_syslog("DolibarrMail::sendfile");

    $headers .= $this->smtp_headers . $this->mime_headers;
    $message = $this->text_body . $this->text_encoded;

    return mail($this->addr_to,$this->subject,stripslashes($message),$headers);
  }
  
  /*!
    \brief permet d'ecrire le body d'un message
    \param msgtext
    \param filename_list
  */
  
  function write_body($msgtext, $filename_list)
  {
    if (count($filename_list))
      {
	$out = "--" . $this->mime_boundary . "\n";
	$out = $out . "Content-Type: text/plain; charset=\"iso-8859-15\"\n\n";
      }
    else
      {
	dolibarr_syslog("DolibarrMail::write_body");
      }
    $out = $out . $this->message . "\n";
    return $out;
  }
  
  /*!
    \brief création des headers mime
    \param filename_list
    \param mimefilename_list
  */
  
  function write_mimeheaders($filename_list, $mimefilename_list)
  {
    $out = "MIME-version: 1.0\n";
    $out = $out . "Content-type: multipart/mixed; ";
    $out = $out . "boundary=\"$this->mime_boundary\"\n";
    $out = $out . "Content-transfer-encoding: 7BIT\n";

    for($i = 0; $i < count($filename_list); $i++)
      {
	if ($mimefilename_list[$i]) 
	  {
	    $filename_list[$i] = $mimefilename_list[$i];
	  }

	$out = $out . "X-attachments: $filename_list[$i];\n\n";
      }

    return $out;
  }

/*!
  \brief création des headers smtp
  \param addr_from
  \param addr_cc
*/
  
  function write_smtpheaders()
  {
    $out = "From: $this->from\n";

    if($this->addr_cc != "")
      $out = $out . "Cc: ".$this->addr_cc."\n";
    
    if($this->addr_bcc != "")
      $out = $out . "BCc: ".$this->addr_bcc."\n";
    
    if($this->reply_to != "")
      $out = $out . "Reply-To: ".$this->reply_to."\n";
    
    $out = $out . "X-Mailer: Dolibarr version " . DOL_VERSION ."\n";
    $out = $out . "X-Sender: $this->from\n";
    $out = $out . "Errors-to: $this->from\n";
    
    return $out;
  }


  /*!
    \brief permet de diviser une chaine (RFC2045)
    \param str
    \remarks function chunk_split qui remplace celle de php si nécéssaire
    \remarks 76 caractères par ligne, terminé par "\r\n"
  */
  
  // usage - mimetype example "image/gif"
  // $mailfile = new CMailFile($subject,$sendto,$replyto,$message,$filename,$mimetype);
  // $mailfile->sendfile();
  
  // Splits a string by RFC2045 semantics (76 chars per line, end with \r\n).
  // This is not in all PHP versions so I define one here manuall.
  
  function my_chunk_split($str)
  {
    $stmp = $str;
    $len = strlen($stmp);
    $out = "";
    while ($len > 0)
      {
	if ($len >= 76)
	  {
	    $out = $out . substr($stmp, 0, 76) . "\r\n";
	    $stmp = substr($stmp, 76);
	    $len = $len - 76;
	  }
	else
	  {
	    $out = $out . $stmp . "\r\n";
	    $stmp = ""; $len = 0;
	  }
      }
    return $out;
  }
}
// end script
?>