adb7b49d22400f16f8c6b637df15a28372384386
[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 &copy; 1999-2006 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 * internal function that builds mailing list links
20 */
21 function plugin_listcommands_menu_do() {
22 global $passed_id, $passed_ent_id, $color, $mailbox, $message, $startMessage, $oTemplate;
23
24 /**
25 * Array of commands we can deal with from the header. The Reply option
26 * is added later because we generate it using the Post information.
27 */
28 $fieldsdescr = listcommands_fieldsdescr();
29 $links = array();
30
31 foreach ($message->rfc822_header->mlist as $cmd => $actions) {
32
33 /* I don't know this action... skip it */
34 if ( !array_key_exists($cmd, $fieldsdescr) ) {
35 continue;
36 }
37
38 /* proto = {mailto,href} */
39 $aActions = array_keys($actions);
40 $proto = array_shift($aActions);
41 $act = array_shift($actions);
42
43 if (1||$proto == 'mailto') {
44
45 if (($cmd == 'post') || ($cmd == 'owner')) {
46 $url = 'src/compose.php?'.
47 (isset($startMessage)?'startMessage='.$startMessage.'&amp;':'');
48 } else {
49 $url = "plugins/listcommands/mailout.php?action=$cmd&amp;";
50 }
51 $url .= 'send_to=' . str_replace('?','&amp;', $act);
52
53 $links[] = makeComposeLink($url, $fieldsdescr[$cmd]);
54
55 if ($cmd == 'post') {
56 if (!isset($mailbox))
57 $mailbox = 'INBOX';
58 $url .= '&amp;passed_id='.$passed_id.
59 '&amp;mailbox='.urlencode($mailbox).
60 (isset($passed_ent_id)?'&amp;passed_ent_id='.$passed_ent_id:'');
61 $url .= '&amp;smaction=reply';
62
63 $links[] = makeComposeLink($url, $fieldsdescr['reply']);
64 }
65 } else if ($proto == 'href') {
66 $oTemplate->assign('uri', $act);
67 $oTemplate->assign('target', '_blank');
68 $oTemplate->assign('text', $fieldsdescr[$cmd]);
69 $output = $oTemplate->fetch('hyperlink.tpl');
70 $links[] = $output;
71 }
72 }
73
74 if (count($links) > 0) {
75 $oTemplate->assign('links', $links);
76 $output = $oTemplate->fetch('plugins/listcommands/read_body_header.tpl');
77 return array('read_body_header' => $output);
78 }
79
80 }
81
82 /**
83 * Returns an array with the actions as translated strings.
84 * @return array action as key, translated string as value
85 */
86 function listcommands_fieldsdescr() {
87 return array('post' => _("Post to List"),
88 'reply' => _("Reply to List"),
89 'subscribe' => _("Subscribe"),
90 'unsubscribe' => _("Unsubscribe"),
91 'archive' => _("List Archives"),
92 'owner' => _("Contact Listowner"),
93 'help' => _("Help"));
94 }
95