Commit | Line | Data |
---|---|---|
6a488035 TO |
1 | <?php |
2 | /* | |
3 | +--------------------------------------------------------------------+ | |
bc77d7c0 | 4 | | Copyright CiviCRM LLC. All rights reserved. | |
6a488035 | 5 | | | |
bc77d7c0 TO |
6 | | This work is published under the GNU AGPLv3 license with some | |
7 | | permitted exceptions and without any warranty. For full license | | |
8 | | and copyright information, see https://civicrm.org/licensing | | |
6a488035 | 9 | +--------------------------------------------------------------------+ |
d25dd0ee | 10 | */ |
6a488035 TO |
11 | |
12 | /** | |
13 | * | |
14 | * @package CRM | |
ca5cec67 | 15 | * @copyright CiviCRM LLC https://civicrm.org/licensing |
6a488035 TO |
16 | */ |
17 | class CRM_Mailing_MailStore { | |
7e8c8317 SL |
18 | /** |
19 | * flag to decide whether to print debug messages | |
20 | * @var bool | |
21 | */ | |
22 | public $_debug = FALSE; | |
6a488035 TO |
23 | |
24 | /** | |
25606795 | 25 | * Return the proper mail store implementation, based on config settings. |
6a488035 | 26 | * |
90c8230e TO |
27 | * @param string $name |
28 | * Name of the settings set from civimail_mail_settings to use (null for default). | |
6a488035 | 29 | * |
77b97be7 | 30 | * @throws Exception |
a6c01b45 CW |
31 | * @return object |
32 | * mail store implementation for processing CiviMail-bound emails | |
6a488035 | 33 | */ |
8785b897 | 34 | public static function getStore($name = NULL) { |
317fceb4 | 35 | $dao = new CRM_Core_DAO_MailSettings(); |
353ffa53 | 36 | $dao->domain_id = CRM_Core_Config::domainID(); |
6a488035 TO |
37 | $name ? $dao->name = $name : $dao->is_default = 1; |
38 | if (!$dao->find(TRUE)) { | |
39 | throw new Exception("Could not find entry named $name in civicrm_mail_settings"); | |
40 | } | |
41 | ||
01a9c9d7 | 42 | $protocols = CRM_Core_PseudoConstant::get('CRM_Core_DAO_MailSettings', 'protocol', [], 'validate'); |
f928a0b0 TO |
43 | |
44 | // Prepare normalized/hookable representation of the mail settings. | |
45 | $mailSettings = $dao->toArray(); | |
46 | $mailSettings['protocol'] = $protocols[$mailSettings['protocol']] ?? NULL; | |
47 | $protocolDefaults = self::getProtocolDefaults($mailSettings['protocol']); | |
48 | $mailSettings = array_merge($protocolDefaults, $mailSettings); | |
49 | ||
50 | CRM_Utils_Hook::alterMailStore($mailSettings); | |
51 | ||
52 | if (!empty($mailSettings['factory'])) { | |
53 | return call_user_func($mailSettings['factory'], $mailSettings); | |
d25c89a1 | 54 | } |
f928a0b0 TO |
55 | else { |
56 | throw new Exception("Unknown protocol {$mailSettings['protocol']}"); | |
57 | } | |
58 | } | |
6a488035 | 59 | |
f928a0b0 TO |
60 | /** |
61 | * @param string $protocol | |
62 | * Ex: 'IMAP', 'Maildir' | |
63 | * @return array | |
64 | * List of properties to merge into the $mailSettings. | |
65 | * The most important property is 'factory' with signature: | |
66 | * | |
67 | * function($mailSettings): CRM_Mailing_MailStore | |
68 | */ | |
69 | private static function getProtocolDefaults($protocol) { | |
70 | switch ($protocol) { | |
6a488035 | 71 | case 'IMAP': |
01a9c9d7 | 72 | case 'IMAP_XOAUTH2': |
f928a0b0 TO |
73 | return [ |
74 | // For backward compat with pre-release XOAuth2 configurations | |
75 | 'auth' => $protocol === 'IMAP_XOAUTH2' ? 'XOAuth2' : 'Password', | |
76 | // In a simpler world: | |
77 | // 'auth' => 'Password', | |
78 | 'factory' => function($mailSettings) { | |
79 | $useXOAuth2 = ($mailSettings['auth'] === 'XOAuth2'); | |
80 | return new CRM_Mailing_MailStore_Imap($mailSettings['server'], $mailSettings['username'], $mailSettings['password'], (bool) $mailSettings['is_ssl'], $mailSettings['source'], $useXOAuth2); | |
81 | }, | |
82 | ]; | |
01a9c9d7 | 83 | |
6a488035 | 84 | case 'POP3': |
f928a0b0 TO |
85 | return [ |
86 | 'factory' => function ($mailSettings) { | |
87 | return new CRM_Mailing_MailStore_Pop3($mailSettings['server'], $mailSettings['username'], $mailSettings['password'], (bool) $mailSettings['is_ssl']); | |
88 | }, | |
89 | ]; | |
6a488035 TO |
90 | |
91 | case 'Maildir': | |
f928a0b0 TO |
92 | return [ |
93 | 'factory' => function ($mailSettings) { | |
94 | return new CRM_Mailing_MailStore_Maildir($mailSettings['source']); | |
95 | }, | |
96 | ]; | |
6a488035 TO |
97 | |
98 | case 'Localdir': | |
f928a0b0 TO |
99 | return [ |
100 | 'factory' => function ($mailSettings) { | |
101 | return new CRM_Mailing_MailStore_Localdir($mailSettings['source']); | |
102 | }, | |
103 | ]; | |
6a488035 TO |
104 | |
105 | // DO NOT USE the mbox transport for anything other than testing | |
106 | // in particular, it does not clear the mbox afterwards | |
6a488035 | 107 | case 'mbox': |
f928a0b0 TO |
108 | return [ |
109 | 'factory' => function ($mailSettings) { | |
110 | return new CRM_Mailing_MailStore_Mbox($mailSettings['source']); | |
111 | }, | |
112 | ]; | |
6a488035 TO |
113 | |
114 | default: | |
f928a0b0 | 115 | return []; |
6a488035 TO |
116 | } |
117 | } | |
118 | ||
119 | /** | |
fe482240 | 120 | * Return all emails in the mail store. |
6a488035 | 121 | * |
a6c01b45 CW |
122 | * @return array |
123 | * array of ezcMail objects | |
6a488035 | 124 | */ |
00be9182 | 125 | public function allMails() { |
6a488035 TO |
126 | return $this->fetchNext(0); |
127 | } | |
128 | ||
129 | /** | |
25606795 | 130 | * Expunge the messages marked for deletion; stub function to be redefined by IMAP store. |
6a488035 | 131 | */ |
35f7561f TO |
132 | public function expunge() { |
133 | } | |
6a488035 TO |
134 | |
135 | /** | |
fe482240 | 136 | * Return the next X messages from the mail store. |
6a488035 | 137 | * |
90c8230e TO |
138 | * @param int $count |
139 | * Number of messages to fetch (0 to fetch all). | |
6a488035 | 140 | * |
a6c01b45 CW |
141 | * @return array |
142 | * array of ezcMail objects | |
6a488035 | 143 | */ |
00be9182 | 144 | public function fetchNext($count = 1) { |
9372d656 | 145 | $offset = 1; |
6a488035 | 146 | if (isset($this->_transport->options->uidReferencing) and $this->_transport->options->uidReferencing) { |
9372d656 | 147 | $offset = $this->_transport->listUniqueIdentifiers(); |
148 | $offset = array_shift($offset); | |
6a488035 TO |
149 | } |
150 | try { | |
151 | $set = $this->_transport->fetchFromOffset($offset, $count); | |
152 | if ($this->_debug) { | |
153 | print "fetching $count messages\n"; | |
154 | } | |
155 | } | |
353ffa53 | 156 | catch (ezcMailOffsetOutOfRangeException$e) { |
6a488035 TO |
157 | if ($this->_debug) { |
158 | print "got to the end of the mailbox\n"; | |
159 | } | |
be2fb01f | 160 | return []; |
6a488035 | 161 | } |
be2fb01f | 162 | $mails = []; |
317fceb4 | 163 | $parser = new ezcMailParser(); |
6a488035 TO |
164 | //set property text attachment as file CRM-5408 |
165 | $parser->options->parseTextAttachmentsAsFiles = TRUE; | |
166 | ||
167 | foreach ($set->getMessageNumbers() as $nr) { | |
168 | if ($this->_debug) { | |
169 | print "retrieving message $nr\n"; | |
170 | } | |
171 | $single = $parser->parseMail($this->_transport->fetchByMessageNr($nr)); | |
172 | $mails[$nr] = $single[0]; | |
173 | } | |
174 | return $mails; | |
175 | } | |
176 | ||
177 | /** | |
178 | * Point to (and create if needed) a local Maildir for storing retrieved mail | |
179 | * | |
90c8230e TO |
180 | * @param string $name |
181 | * Name of the Maildir. | |
6a488035 | 182 | * |
77b97be7 | 183 | * @throws Exception |
a6c01b45 CW |
184 | * @return string |
185 | * path to the Maildir's cur directory | |
6a488035 | 186 | */ |
00be9182 | 187 | public function maildir($name) { |
6a488035 TO |
188 | $config = CRM_Core_Config::singleton(); |
189 | $dir = $config->customFileUploadDir . DIRECTORY_SEPARATOR . $name; | |
be2fb01f | 190 | foreach ([ |
7e8c8317 SL |
191 | 'cur', |
192 | 'new', | |
193 | 'tmp', | |
194 | ] as $sub) { | |
6a488035 TO |
195 | if (!file_exists($dir . DIRECTORY_SEPARATOR . $sub)) { |
196 | if ($this->_debug) { | |
197 | print "creating $dir/$sub\n"; | |
198 | } | |
199 | if (!mkdir($dir . DIRECTORY_SEPARATOR . $sub, 0700, TRUE)) { | |
200 | throw new Exception('Could not create ' . $dir . DIRECTORY_SEPARATOR . $sub); | |
201 | } | |
202 | } | |
203 | } | |
204 | return $dir . DIRECTORY_SEPARATOR . 'cur'; | |
205 | } | |
96025800 | 206 | |
6a488035 | 207 | } |