Happy New Year
[squirrelmail.git] / plugins / listcommands / functions.php
1 <?php
2
3 /**
4 * functions.php
5 *
6 * Implementation of RFC 2369 for SquirrelMail.
7 * When viewing a message from a mailinglist complying with this RFC,
8 * this plugin displays a menu which gives the user a choice of mailinglist
9 * commands such as (un)subscribe, help and list archives.
10 *
11 * @copyright 1999-2018 The SquirrelMail Project Team
12 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
13 * @version $Id$
14 * @package plugins
15 * @subpackage listcommands
16 */
17
18 /**
19 * Get current list of subscribed non-RFC-compliant mailing lists for logged-in user
20 *
21 * @return array The list of mailing list addresses, keyed by integer index
22 */
23 function get_non_rfc_lists() {
24 global $username, $data_dir;
25 $lists = getPref($data_dir, $username, 'non_rfc_lists', array());
26 $new_lists = array();
27 if (!empty($lists)) {
28 $lists = explode(':', $lists);
29 foreach ($lists as $list) {
30 list($index, $list_addr) = explode('_', $list);
31 if ((!empty($index) || $index === '0') && !empty($list_addr))
32 $new_lists[$index] = $list_addr;
33 }
34 }
35 $lists = $new_lists;
36 sort($lists);
37 return $lists;
38 }
39
40 /**
41 * Show mailing list management option section on options page
42 */
43 function plugin_listcommands_optpage_register_block_do()
44 {
45 global $optpage_blocks, $listcommands_allow_non_rfc_list_management;
46
47 // only allow management of non-RFC lists if admin deems necessary
48 //
49 @include_once(SM_PATH . 'plugins/listcommands/config.php');
50 if (!$listcommands_allow_non_rfc_list_management)
51 return;
52
53 $optpage_blocks[] = array(
54 'name' => _("Mailing Lists"),
55 'url' => '../plugins/listcommands/options.php',
56 'desc' => _("Manage the (non-RFC-compliant) mailing lists that you are subscribed to for the purpose of providing one-click list replies when responding to list messages."),
57 'js' => false
58 );
59
60 }
61
62 /**
63 * internal function that builds mailing list links
64 */
65 function plugin_listcommands_menu_do() {
66 global $passed_id, $passed_ent_id, $mailbox, $message,
67 $startMessage, $oTemplate, $listcommands_allow_non_rfc_list_management;
68
69 @include_once(SM_PATH . 'plugins/listcommands/config.php');
70
71 /**
72 * Array of commands we can deal with from the header. The Reply option
73 * is added later because we generate it using the Post information.
74 */
75 $fieldsdescr = listcommands_fieldsdescr();
76 $links = array();
77
78 foreach ($message->rfc822_header->mlist as $cmd => $actions) {
79
80 /* I don't know this action... skip it */
81 if ( !array_key_exists($cmd, $fieldsdescr) ) {
82 continue;
83 }
84
85 /* proto = {mailto,href} */
86 $aActions = array_keys($actions);
87 // note that we only use the first cmd/action, ignore the rest
88 $proto = array_shift($aActions);
89 $act = array_shift($actions);
90
91 if ($proto == 'mailto') {
92
93 $identity = '';
94
95 if (($cmd == 'post') || ($cmd == 'owner')) {
96 $url = 'src/compose.php?'.
97 (isset($startMessage)?'startMessage='.$startMessage.'&amp;':'');
98 } else {
99 $url = "plugins/listcommands/mailout.php?action=$cmd&amp;";
100
101 // try to find which identity the mail should come from
102 include_once(SM_PATH . 'functions/identity.php');
103 $idents = get_identities();
104 // ripped from src/compose.php
105 $identities = array();
106 if (count($idents) > 1) {
107 foreach($idents as $nr=>$data) {
108 $enc_from_name = '"'.$data['full_name'].'" <'. $data['email_address'].'>';
109 $identities[] = $enc_from_name;
110 }
111
112 $identity_match = $message->rfc822_header->findAddress($identities);
113 if ($identity_match !== FALSE) {
114 $identity = $identity_match;
115 }
116 }
117 }
118
119 // if things like subject are given, peel them off and give
120 // them to src/compose.php as is (not encoded)
121 if (strpos($act, '?') > 0) {
122 list($act, $parameters) = explode('?', $act, 2);
123 $parameters = '&amp;identity=' . $identity . '&amp;' . $parameters;
124 } else {
125 $parameters = '&amp;identity=' . $identity;
126 }
127
128 $url .= 'send_to=' . urlencode($act) . $parameters;
129
130 $links[$cmd] = makeComposeLink($url, $fieldsdescr[$cmd]);
131
132 if ($cmd == 'post') {
133 if (!isset($mailbox))
134 $mailbox = 'INBOX';
135 $url .= '&amp;passed_id='.$passed_id.
136 '&amp;mailbox='.urlencode($mailbox).
137 (isset($passed_ent_id)?'&amp;passed_ent_id='.$passed_ent_id:'');
138 $url .= '&amp;smaction=reply';
139
140 $links['reply'] = makeComposeLink($url, $fieldsdescr['reply']);
141 }
142 } else if ($proto == 'href') {
143 $links[$cmd] = create_hyperlink($act, $fieldsdescr[$cmd], '_blank');
144 }
145 }
146
147
148 // allow non-rfc reply link if admin allows and message is from
149 // non-rfc list the user has configured
150 //
151 if ($listcommands_allow_non_rfc_list_management) {
152
153 $non_rfc_lists = get_non_rfc_lists();
154
155 $recipients = formatRecipientString($message->rfc822_header->to, "to") . ' '
156 . formatRecipientString($message->rfc822_header->cc, "cc") . ' '
157 . formatRecipientString($message->rfc822_header->bcc, "bcc");
158
159 if (!in_array('post', array_keys($links))) {
160
161 foreach ($non_rfc_lists as $non_rfc_list) {
162 if (preg_match('/(^|,|<|\s)' . preg_quote($non_rfc_list) . '($|,|>|\s)/', $recipients)) {
163 $url = 'src/compose.php?'
164 . (isset($startMessage)?'startMessage='.$startMessage.'&amp;':'')
165 . 'send_to=' . str_replace('?','&amp;', $non_rfc_list);
166
167 $links['post'] = makeComposeLink($url, $fieldsdescr['post']);
168
169 break;
170 }
171 }
172
173 }
174
175 if (!in_array('reply', array_keys($links))) {
176
177 foreach ($non_rfc_lists as $non_rfc_list) {
178 if (preg_match('/(^|,|\s)' . preg_quote($non_rfc_list) . '($|,|\s)/', $recipients)) {
179 if (!isset($mailbox))
180 $mailbox = 'INBOX';
181 $url = 'src/compose.php?'
182 . (isset($startMessage)?'startMessage='.$startMessage.'&amp;':'')
183 . 'send_to=' . str_replace('?','&amp;', $non_rfc_list)
184 . '&amp;passed_id='.$passed_id
185 . '&amp;mailbox='.urlencode($mailbox)
186 . (isset($passed_ent_id)?'&amp;passed_ent_id='.$passed_ent_id:'')
187 . '&amp;smaction=reply';
188
189 $links['reply'] = makeComposeLink($url, $fieldsdescr['reply']);
190
191 break;
192 }
193 }
194
195 }
196
197 }
198
199
200 if (count($links) > 0) {
201 $oTemplate->assign('links', $links);
202 $output = $oTemplate->fetch('plugins/listcommands/read_body_header.tpl');
203 return array('read_body_header' => $output);
204 }
205
206 }
207
208 /**
209 * Returns an array with the actions as translated strings.
210 * @return array action as key, translated string as value
211 */
212 function listcommands_fieldsdescr() {
213 return array('post' => _("Post to List"),
214 'reply' => _("Reply to List"),
215 'subscribe' => _("Subscribe"),
216 'unsubscribe' => _("Unsubscribe"),
217 'archive' => _("List Archives"),
218 'owner' => _("Contact Listowner"),
219 'help' => _("Help"));
220 }
221