1<?php
2
3/**
4 * MBOXCreator is a FeedCreator that implements the mbox format
5 * as described in http://www.qmail.org/man/man5/mbox.html
6 *
7 * @since   1.3
8 * @author  Kai Blankenhorn <kaib@bitfolge.de>
9 */
10class MBOXCreator extends FeedCreator
11{
12
13    /**
14     * MBOXCreator constructor.
15     */
16    public function __construct()
17    {
18        $this->contentType = "text/plain";
19        $this->encoding = "ISO-8859-15";
20    }
21
22    /**
23     * Quoted Printable encoding
24     *
25     * @param string $input
26     * @param int $line_max wrap lines after these number of characters
27     * @return string
28     */
29    protected function qp_enc($input = "", $line_max = 76)
30    {
31        $hex = array('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
32        $lines = preg_split("/(?:\r\n|\r|\n)/", $input);
33        $eol = "\r\n";
34        $escape = "=";
35        $output = "";
36        foreach ($lines as $line) {
37            $linlen = strlen($line);
38            $newline = "";
39            for ($i = 0; $i < $linlen; $i++) {
40                $c = substr($line, $i, 1);
41                $dec = ord($c);
42                if (($dec == 32) && ($i == ($linlen - 1))) { // convert space at eol only
43                    $c = "=20";
44                } elseif (($dec == 61) || ($dec < 32) || ($dec > 126)) { // always encode "\t", which is *not* required
45                    $h2 = floor($dec / 16);
46                    $h1 = floor($dec % 16);
47                    $c = $escape.$hex["$h2"].$hex["$h1"];
48                }
49                if ((strlen($newline) + strlen($c)) >= $line_max) { // CRLF is not counted
50                    $output .= $newline.$escape.$eol; // soft line break; " =\r\n" is okay
51                    $newline = "";
52                }
53                $newline .= $c;
54            } // end of for
55            $output .= $newline.$eol;
56        }
57
58        return trim($output);
59    }
60
61    /**
62     * Builds the MBOX contents.
63     *
64     * @inheritdoc
65     */
66    public function createFeed()
67    {
68        $feed = '';
69        for ($i = 0; $i < count($this->items); $i++) {
70            if ($this->items[$i]->author != "") {
71                $from = $this->items[$i]->author;
72            } else {
73                $from = $this->title;
74            }
75            $itemDate = new FeedDate($this->items[$i]->date);
76            $feed .= "From ".strtr(MBOXCreator::qp_enc($from), " ", "_")." ".date(
77                    "D M d H:i:s Y",
78                    $itemDate->unix()
79                )."\n";
80            $feed .= "Content-Type: text/plain;\n";
81            $feed .= "    charset=\"".$this->encoding."\"\n";
82            $feed .= "Content-Transfer-Encoding: quoted-printable\n";
83            $feed .= "Content-Type: text/plain\n";
84            $feed .= "From: \"".MBOXCreator::qp_enc($from)."\"\n";
85            $feed .= "Date: ".$itemDate->rfc822()."\n";
86            $feed .= "Subject: ".MBOXCreator::qp_enc(FeedCreator::iTrunc($this->items[$i]->title, 100))."\n";
87            $feed .= "\n";
88            $body = chunk_split(MBOXCreator::qp_enc($this->items[$i]->description));
89            $feed .= preg_replace("~\nFrom ([^\n]*)(\n?)~", "\n>From $1$2\n", $body);
90            $feed .= "\n";
91            $feed .= "\n";
92        }
93
94        return $feed;
95    }
96
97    /**
98     * Generate a filename for the feed cache file. Overridden from FeedCreator to prevent XML data types.
99     *
100     * @return string the feed cache filename
101     * @since  1.4
102     * @access private
103     */
104    protected function _generateFilename()
105    {
106        $fileInfo = pathinfo($_SERVER["SCRIPT_NAME"]);
107
108        return substr($fileInfo["basename"], 0, -(strlen($fileInfo["extension"]) + 1)).".mbox";
109    }
110}
111