6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 * Implementation of RFC 2369 for SquirrelMail.
10 * When viewing a message from a mailinglist complying with this RFC,
11 * this plugin displays a menu which gives the user a choice of mailinglist
12 * commands such as (un)subscribe, help and list archives.
17 function squirrelmail_plugin_init_listcommands () {
18 global $squirrelmail_plugin_hooks;
20 $squirrelmail_plugin_hooks['read_body_header']['listcommands'] = 'plugin_listcommands_menu';
24 function plugin_listcommands_menu () {
26 global $imapConnection, $passed_id, $color, $mailbox,
27 $subject, $ent_num, $priority_level;
29 /* Array of commands we can deal with from the header. The Reply option is
30 * added later because we generate it using the Post information.
32 $fieldsdescr = array( 'Help' => _("Help"),
33 'Unsubscribe' => _("Unsubscribe"),
34 'Subscribe' => _("Subscribe"),
35 'Post' => _("Post to the list"),
36 'Archive' => _("List Archives"),
37 'Owner' => _("Contact Listowner") );
38 $fields = array_keys ($fieldsdescr);
39 $fieldsdescr['Reply'] = _("Reply to the list");
44 $lfields = 'List-' . implode (' List-', $fields);
46 $sid = sqimap_session_id();
47 fputs ($imapConnection, "$sid FETCH $passed_id BODY.PEEK[HEADER.FIELDS ($lfields)]\r\n");
48 $read = sqimap_read_data ($imapConnection, $sid, true, $response, $emessage);
50 for ($i = 1; $i < count($read); $i++
) {
51 foreach ($fields as $field) {
52 if ( preg_match("/^List-$field: *<(.+?)>/i", $read[$i], $match) ) {
53 $cmds[$field] = $match[1];
58 foreach ($cmds as $cmd => $url) {
59 if ( eregi('mailto:(.+)', $url, $regs) ) {
60 $purl = parse_url($url);
62 if ( $cmd == 'Post' ||
$cmd == 'Owner' ) {
63 $url = 'compose.php?';
65 $url = '../plugins/listcommands/mailout.php?action=' . $cmd . '&';
68 $url .= 'mailbox=' . urlencode($mailbox) . '&send_to=' . $purl['path'];
70 if ( isset($purl['query']) ) {
71 $url .= '&' . $purl['query'];
74 $output[] = '<A HREF="' . $url . '">' . $fieldsdescr[$cmd] . '</A>';
76 if ( $cmd == 'Post' ) {
77 $url .= '&reply_subj=' . urlencode($subject) .
78 '&reply_id=' . $passed_id .
79 '&ent_num=' . $ent_num .
80 '&mailprio=' . $priority_level;
81 $output[] = '<A HREF="' . $url . '">' . $fieldsdescr['Reply'] . '</A>';
83 } elseif ( eregi('^(http|ftp)', $url) ) {
84 $output[] = '<A HREF="' . $url . '" TARGET="_blank">' . $fieldsdescr[$cmd] . '</A>';
88 if (count($output) > 0) {
89 echo "<tr><td BGCOLOR=\"$color[0]\" WIDTH=\"100%\" colspan=\"3\">".
90 '<SMALL>' . _("Mailinglist options:") . ' ' . implode (' | ', $output) .