summaryrefslogtreecommitdiff
path: root/program/lib/Mail
diff options
context:
space:
mode:
Diffstat (limited to 'program/lib/Mail')
-rw-r--r--program/lib/Mail/mime.php75
-rw-r--r--program/lib/Mail/mimePart.php32
2 files changed, 87 insertions, 20 deletions
diff --git a/program/lib/Mail/mime.php b/program/lib/Mail/mime.php
index a4f4901ee..81a2569f8 100644
--- a/program/lib/Mail/mime.php
+++ b/program/lib/Mail/mime.php
@@ -726,6 +726,22 @@ class Mail_mime
}
/**
+ * Returns the complete e-mail body, ready to send using an alternative
+ * mail delivery method.
+ *
+ * @param array $params The Build parameters passed to the
+ * &get() function. See &get for more info.
+ *
+ * @return mixed The e-mail body or PEAR error object
+ * @access public
+ * @since 1.6.0
+ */
+ function getMessageBody($params = null)
+ {
+ return $this->get($params, null, true);
+ }
+
+ /**
* Writes (appends) the complete e-mail into file.
*
* @param string $filename Output file location
@@ -738,6 +754,7 @@ class Mail_mime
*
* @return mixed True or PEAR error object
* @access public
+ * @since 1.6.0
*/
function saveMessage($filename, $params = null, $headers = null, $overwrite = false)
{
@@ -777,18 +794,55 @@ class Mail_mime
}
/**
+ * Writes (appends) the complete e-mail body into file.
+ *
+ * @param string $filename Output file location
+ * @param array $params The Build parameters passed to the
+ * &get() function. See &get for more info.
+ *
+ * @return mixed True or PEAR error object
+ * @access public
+ * @since 1.6.0
+ */
+ function saveMessageBody($filename, $params = null)
+ {
+ // Check state of file and raise an error properly
+ if (file_exists($filename) && !is_writable($filename)) {
+ $err = PEAR::raiseError('File is not writable: ' . $filename);
+ return $err;
+ }
+
+ // Temporarily reset magic_quotes_runtime and read file contents
+ if ($magic_quote_setting = get_magic_quotes_runtime()) {
+ @ini_set('magic_quotes_runtime', 0);
+ }
+
+ if (!($fh = fopen($filename, 'ab'))) {
+ $err = PEAR::raiseError('Unable to open file: ' . $filename);
+ return $err;
+ }
+
+ // Write the rest of the message into file
+ $res = $this->get($params, $filename, true);
+
+ return $res ? $res : true;
+ }
+
+ /**
* Builds the multipart message from the list ($this->_parts) and
* returns the mime content.
*
- * @param array $params Build parameters that change the way the email
- * is built. Should be associative. See $_build_params.
- * @param resource $filename Output file where to save the message instead of
- * returning it
+ * @param array $params Build parameters that change the way the email
+ * is built. Should be associative. See $_build_params.
+ * @param resource $filename Output file where to save the message instead of
+ * returning it
+ * @param boolean $skip_head True if you want to return/save only the message
+ * without headers
*
* @return mixed The MIME message content string, null or PEAR error object
* @access public
*/
- function &get($params = null, $filename = null)
+ function &get($params = null, $filename = null, $skip_head = false)
{
if (isset($params)) {
while (list($key, $value) = each($params)) {
@@ -958,14 +1012,16 @@ class Mail_mime
// Write output to file
if ($filename) {
// Append mimePart message headers and body into file
- if (PEAR::isError($headers = $message->encodeToFile($filename, $boundary))) {
+ $headers = $message->encodeToFile($filename, $boundary, $skip_head);
+ if (PEAR::isError($headers)) {
return $headers;
}
$this->_headers = array_merge($this->_headers, $headers);
$ret = null;
return $ret;
} else {
- if (PEAR::isError($output = $message->encode($boundary))) {
+ $output = $message->encode($boundary, $skip_head);
+ if (PEAR::isError($output)) {
return $output;
}
$this->_headers = array_merge($this->_headers, $output['headers']);
@@ -1283,7 +1339,10 @@ class Mail_mime
$value = wordwrap($value, 76, $eol . ' ');
}
- $value = preg_replace('/^'.$name.': /', '', $value);
+ // remove header name prefix (there could be EOL too)
+ $value = preg_replace(
+ '/^'.$name.':('.preg_quote($eol, '/').')* /', '', $value
+ );
} else {
// Unstructured header
diff --git a/program/lib/Mail/mimePart.php b/program/lib/Mail/mimePart.php
index 644b2b677..ce37deb99 100644
--- a/program/lib/Mail/mimePart.php
+++ b/program/lib/Mail/mimePart.php
@@ -330,15 +330,16 @@ class Mail_mimePart
* Encodes and saves the email into file. File must exist.
* Data will be appended to the file.
*
- * @param string $filename Output file location
- * @param string $boundary Pre-defined boundary string
+ * @param string $filename Output file location
+ * @param string $boundary Pre-defined boundary string
+ * @param boolean $skip_head True if you don't want to save headers
*
* @return array An associative array containing message headers
* or PEAR error object
* @access public
* @since 1.6.0
*/
- function encodeToFile($filename, $boundary=null)
+ function encodeToFile($filename, $boundary=null, $skip_head=false)
{
if (file_exists($filename) && !is_writable($filename)) {
$err = PEAR::raiseError('File is not writeable: ' . $filename);
@@ -355,7 +356,7 @@ class Mail_mimePart
@ini_set('magic_quotes_runtime', 0);
}
- $res = $this->_encodePartToFile($fh, $boundary);
+ $res = $this->_encodePartToFile($fh, $boundary, $skip_head);
fclose($fh);
@@ -369,13 +370,14 @@ class Mail_mimePart
/**
* Encodes given email part into file
*
- * @param string $fh Output file handle
- * @param string $boundary Pre-defined boundary string
+ * @param string $fh Output file handle
+ * @param string $boundary Pre-defined boundary string
+ * @param boolean $skip_head True if you don't want to save headers
*
* @return array True on sucess or PEAR error object
* @access private
*/
- function _encodePartToFile($fh, $boundary=null)
+ function _encodePartToFile($fh, $boundary=null, $skip_head=false)
{
$eol = $this->_eol;
@@ -384,25 +386,31 @@ class Mail_mimePart
$this->_headers['Content-Type'] .= ";$eol boundary=\"$boundary\"";
}
- foreach ($this->_headers as $key => $value) {
- fwrite($fh, $key . ': ' . $value . $eol);
+ if (!$skip_head) {
+ foreach ($this->_headers as $key => $value) {
+ fwrite($fh, $key . ': ' . $value . $eol);
+ }
+ $f_eol = $eol;
+ } else {
+ $f_eol = '';
}
if (count($this->_subparts)) {
for ($i = 0; $i < count($this->_subparts); $i++) {
- fwrite($fh, $eol . '--' . $boundary . $eol);
+ fwrite($fh, $f_eol . '--' . $boundary . $eol);
$res = $this->_subparts[$i]->_encodePartToFile($fh);
if (PEAR::isError($res)) {
return $res;
}
+ $f_eol = $eol;
}
fwrite($fh, $eol . '--' . $boundary . '--' . $eol);
} else if ($this->_body) {
- fwrite($fh, $eol . $this->_getEncodedData($this->_body, $this->_encoding));
+ fwrite($fh, $f_eol . $this->_getEncodedData($this->_body, $this->_encoding));
} else if ($this->_body_file) {
- fwrite($fh, $eol);
+ fwrite($fh, $f_eol);
$res = $this->_getEncodedDataFromFile(
$this->_body_file, $this->_encoding, $fh
);