message_die(GENERAL_ERROR, 'Failed sending email :: ' . $result, '', __LINE__, __FILE__);

<?php
/***************************************************************************
                                emailer.php
                             -------------------
    begin                : Sunday Aug. 12, 2001
    copyright            : (C) 2001 The phpBB Group
    email                : [ Register or login to view links on this board. ]

    $Id: emailer.php,v 1.15.2.21 2003/01/15 13:31:53 psotfx Exp $

***************************************************************************/
/***************************************************************************
* phpbb2 forums port version 2.1 (c) 2003 - Nuke Cops (http://nukecops.com)
*
* Ported by Paul Laudanski (Zhen-Xjell) to phpbb2 standalone 2.0.4. Test
* and debugging completed by the Elite Nukers at Nuke Cops: ArtificialIntel,
* Chatserv, MikeM, sixonetonoffun, Zhen-Xjell. Thanks to some heavy debug
* work by AI in Nuke 6.5.
*
* You run this package at your sole risk. Nuke Cops and affiliates cannot
* be held liable if anything goes wrong. You are advised to test this
* package on a development system. Backup everything before implementing
* in a production environment. If something goes wrong, you can always
* backout and restore your backups.
*
* Installing and running this also means you agree to the terms of the AUP
* found at Nuke Cops.
*
* This is version 2.1 of the phpbb2 forum port for PHP-Nuke. Work is based
* on Tom Nitzschner's forum port version 2.0.6. Tom's 2.0.6 port was based
* on the phpbb2 standalone version 2.0.3. Our version 2.1 from Nuke Cops is
* now reflecting phpbb2 standalone 2.0.4 that fixes some major SQL
* injection exploits.
***************************************************************************/
/***************************************************************************
*   This file is part of the phpBB2 port to Nuke 6.0 (c) copyright 2002
*   by Tom Nitzschner (tom@toms-home.com)
*   http://bbtonuke.sourceforge.net (or http://www.toms-home.com)
*
*   As always, make a backup before messing with anything. All code
*   release by me is considered sample code only. It may be fully
*   functual, but you use it at your own risk, if you break it,
*   you get to fix it too. No waranty is given or implied.
*
*   Please post all questions/request about this port on http://bbtonuke.sourceforge.net first,
*   then on my site. All original header code and copyright messages will be maintained
*   to give credit where credit is due. If you modify this, the only requirement is
*   that you also maintain all original copyright messages. All my work is released
*   under the GNU GENERAL PUBLIC LICENSE. Please see the README for more information.
*
***************************************************************************/

/***************************************************************************
*
*   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.
*
***************************************************************************/

//
// The emailer class has support for attaching files, that isn't implemented
// in the 2.0 release but we can probable find some way of using it in a future
// release
//
class emailer
{
   var $tpl_file;
   var $use_smtp;
   var $msg;
   var $mimeOut;
   var $arrPlaceHolders = array();   // an associative array that has the key = placeHolderName and val = placeHolderValue.
   var $subject, $extra_headers, $address;

   function emailer($use_smtp)
   {
      $this->use_smtp = $use_smtp;
      $this->tpl_file = NULL;
      $this->address = NULL;
      $this->msg = '';
      $this->mimeOut = '';
   }

   //
   // Resets all the data (address, template file, etc etc to default
   //
   function reset()
   {
      $this->tpl_file = '';
      $this->address = '';
      $this->msg = '';
      $this->memOut = '';
      $this->vars = '';
   }

   //
   // Sets an email address to send to
   //
   function email_address($address)
   {
      $this->address = '';
      $this->address .= $address;
   }

   //
   // set up subject for mail
   //
   function set_subject($subject = '')
   {
      $this->subject = trim(preg_replace('#[\n\r]+#s', '', $subject));
   }

   //
   // set up extra mail headers
   //
   function extra_headers($headers)
   {
      $this->extra_headers = $headers;
   }

   function use_template($template_file, $template_lang = '')
   {
      global $board_config, $phpbb_root_path;

      if ( $template_lang == '' )
      {
         $template_lang = $board_config['default_lang'];
      }

      $this->tpl_file = $phpbb_root_path . 'language/lang_' . $template_lang . '/email/' . $template_file . '.tpl';

      if ( !file_exists($this->tpl_file) )
      {
         $this->tpl_file = ($phpbb_root_path . 'language/lang_' . $board_config['default_lang'] . '/email/' . $template_file . '.tpl');

         if ( !file_exists($this->tpl_file) )
         {
            message_die(GENERAL_ERROR, 'Could not find email template file ' . $template_file, '', __LINE__, __FILE__);
         }
      }

      if ( !$this->load_msg() )
      {
         message_die(GENERAL_ERROR, 'Could not load email template file ' . $template_file, '', __LINE__, __FILE__);
      }

      return true;
   }

   //
   // Open the template file and read in the message
   //
   function load_msg()
   {
      if ( $this->tpl_file == NULL )
      {
         message_die(GENERAL_ERROR, 'No template file set', '', __LINE__, __FILE__);
      }

      if ( !($fd = fopen($this->tpl_file, 'r')) )
      {
         message_die(GENERAL_ERROR, 'Failed opening template file', '', __LINE__, __FILE__);
      }

      $this->msg .= fread($fd, filesize($this->tpl_file));
      fclose($fd);

      return true;
   }

   function assign_vars($vars)
   {
      $this->vars = ( empty($this->vars) ) ? $vars : $this->vars . $vars;
   }

   function parse_email()
   {
      global $lang;
      @reset($this->vars);
      while (list($key, $val) = @each($this->vars))
      {
         $$key = $val;
      }

       // Escape all quotes, else the eval will fail.
      $this->msg = str_replace ("'", "\'", $this->msg);
      $this->msg = preg_replace('#\{([a-z0-9\-_]*?)\}#is', "' . $\\1 . '", $this->msg);

      eval("\$this->msg = '$this->msg';");

      //
      // We now try and pull a subject from the email body ... if it exists,
      // do this here because the subject may contain a variable
      //
      $drop_header = "";
      $match = array();
      if (preg_match('#^(Subject:(.*?))$#m', $this->msg, $match))
      {
         $this->subject = (trim($match[2]) != '') ? trim($match[2]) : (($this->subject != '') ? $this->subject : 'No Subject');
         $drop_header .= '[\r\n]*?' . phpbb_preg_quote($match[1], '#');
      }
      else
      {
         $this->subject = (($this->subject != '') ? $this->subject : 'No Subject');
      }

      if (preg_match('#^(Charset:(.*?))$#m', $this->msg, $match))
      {
         $this->encoding = (trim($match[2]) != '') ? trim($match[2]) : trim($lang['ENCODING']);
         $drop_header .= '[\r\n]*?' . phpbb_preg_quote($match[1], '#');
      }
      else
      {
         $this->encoding = trim($lang['ENCODING']);
      }

      if ($drop_header != '')
      {
         $this->msg = trim(preg_replace('#' . $drop_header . '#s', '', $this->msg));
      }

      return true;
   }

   //
   // Send the mail out to the recipients set previously in var $this->address
   //
   function send()
   {
      global $phpEx, $phpbb_root_path;

      if ( $this->address == NULL )
      {
         message_die(GENERAL_ERROR, 'No email address set', '', __LINE__, __FILE__);
      }

      if ( !$this->parse_email() )
      {
         return false;
      }

      //
      // Add date and encoding type
      //
      $universal_extra = "MIME-Version: 1.0\nContent-type: text/plain; charset=" . $this->encoding . "\nContent-transfer-encoding: 8bit\nDate: " . gmdate('D, d M Y H:i:s', time()) . " UT\nX-Priority: 3\nX-MSMail-Priority: Normal\nX-Mailer: PHP\n";
      $this->extra_headers = $universal_extra . trim($this->extra_headers);

      if ( $this->use_smtp )
      {
         if ( !defined('SMTP_INCLUDED') )
         {
            include('includes/smtp.' . $phpEx);
         }

         $result = smtpmail($this->address, $this->subject, $this->msg, $this->extra_headers);
      }
      else
      {
         $result = @mail($this->address, $this->subject, $this->msg, $this->extra_headers);
      }

      if ( !$result )
      {
         message_die(GENERAL_ERROR, 'Failed sending email :: ' . $result, '', __LINE__, __FILE__);
      }

      return true;
   }


   //
   // Attach files via MIME.
   //
   function attachFile($filename, $mimetype = "application/octet-stream", $szFromAddress, $szFilenameToDisplay)
   {
      global $lang;
      $mime_boundary = "--==================_846811060==_";

      $this->mailMsg = '--' . $mime_boundary . "\nContent-Type: text/plain;\n\tcharset=\"" . $lang['ENCODING'] . "\"\n\n" . $this->mailMsg;

      if ($mime_filename)
      {
         $filename = $mime_filename;
         $encoded = $this->encode_file($filename);
      }

      $fd = fopen($filename, "r");
      $contents = fread($fd, filesize($filename));

      $this->mimeOut = "--" . $mime_boundary . "\n";
      $this->mimeOut .= "Content-Type: " . $mimetype . ";\n\tname=\"$szFilenameToDisplay\"\n";
      $this->mimeOut .= "Content-Transfer-Encoding: quoted-printable\n";
      $this->mimeOut .= "Content-Disposition: attachment;\n\tfilename=\"$szFilenameToDisplay\"\n\n";

      if ( $mimetype == "message/rfc822" )
      {
         $this->mimeOut .= "From: ".$szFromAddress."\n";
         $this->mimeOut .= "To: ".$this->emailAddress."\n";
         $this->mimeOut .= "Date: ".date("D, d M Y H:i:s") . " UT\n";
         $this->mimeOut .= "Reply-To:".$szFromAddress."\n";
         $this->mimeOut .= "Subject: ".$this->mailSubject."\n";
         $this->mimeOut .= "X-Mailer: PHP/".phpversion()."\n";
         $this->mimeOut .= "MIME-Version: 1.0\n";
      }

      $this->mimeOut .= $contents."\n";
      $this->mimeOut .= "--" . $mime_boundary . "--" . "\n";

      return $out;
      // added -- to notify email client attachment is done
   }

   function getMimeHeaders($filename, $mime_filename="")
   {
      $mime_boundary = "--==================_846811060==_";

      if ($mime_filename)
      {
         $filename = $mime_filename;
      }

      $out = "MIME-Version: 1.0\n";
      $out .= "Content-Type: multipart/mixed;\n\tboundary=\"$mime_boundary\"\n\n";
      $out .= "This message is in MIME format. Since your mail reader does not understand\n";
      $out .= "this format, some or all of this message may not be legible.";

      return $out;
   }

   //
   // Split string by RFC 2045 semantics (76 chars per line, end with \r\n).
   //
   function myChunkSplit($str)
   {
      $stmp = $str;
      $len = strlen($stmp);
      $out = "";

      while ($len > 0)
      {
         if ($len >= 76)
         {
            $out .= substr($stmp, 0, 76) . "\r\n";
            $stmp = substr($stmp, 76);
            $len = $len - 76;
         }
         else
         {
            $out .= $stmp . "\r\n";
            $stmp = "";
            $len = 0;
         }
      }
      return $out;
   }

   //
   // Split the specified file up into a string and return it
   //
   function encode_file($sourcefile)
   {
      if (is_readable($sourcefile))
      {
         $fd = fopen($sourcefile, "r");
         $contents = fread($fd, filesize($sourcefile));
         $encoded = $this->myChunkSplit(base64_encode($contents));
         fclose($fd);
      }

      return $encoded;
   }

} // class emailer

?>