plugins/listcommands/setup.php

   1 <?php
   2
   3 /**
   4  * setup.php
   5  *
   6  * Copyright (c) 1999-2002 The SquirrelMail Project Team
   7  * Licensed under the GNU GPL. For full terms see the file COPYING.
   8  *
   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.
  13  *
  14  * $Id$
  15  */
  16
  17 function squirrelmail_plugin_init_listcommands () {
  18     global $squirrelmail_plugin_hooks;
  19
  20     $squirrelmail_plugin_hooks['read_body_header']['listcommands'] = 'plugin_listcommands_menu';
  21 }
  22
  23 function plugin_listcommands_menu() {
  24     global $imapConnection, $passed_id, $color, $mailbox,
  25            $subject, $ent_num, $priority_level;
  26
  27     /**
  28      * Array of commands we can deal with from the header. The Reply option
  29      * is added later because we generate it using the Post information.
  30      */
  31     $fieldsdescr = array('Post'        => _("Post to List"),
  32                          'Reply'       => _("Reply to List"),
  33                          'Subscribe'   => _("Subscribe"),
  34                          'Unsubscribe' => _("Unsubscribe"),
  35                          'Archive'     => _("List Archives"),
  36                          'Owner'       => _("Contact Listowner"),
  37                          'Help'        => _("Help"));
  38     $fields = array_keys($fieldsdescr);
  39
  40     $sorted_cmds = array();
  41     $unsorted_cmds = array();
  42     $output = array();
  43
  44     $lfields = 'List-' . implode (' List-', $fields);
  45
  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);
  49
  50     for ($i = 1; $i < count($read); $i++) {
  51         foreach ($fields as $field) {
  52             if ( preg_match("/^List-$field: *<(.+?)>/i", $read[$i], $match) ) {
  53                 $unsorted_cmds[$field] = $match[1];
  54             }
  55         }
  56     }
  57
  58     if (count($unsorted_cmds) == 0) {
  59         return;
  60     }
  61
  62     foreach ($fields as $field) {
  63         foreach ($unsorted_cmds as $cmd => $url) {
  64             if ($field == $cmd) {
  65                 $cmds[$cmd] = $url;
  66             }
  67         }
  68     }
  69
  70     foreach ($cmds as $cmd => $url) {
  71         if (eregi('mailto:(.+)', $url, $regs)) {
  72             $purl = parse_url($url);
  73
  74             if (($cmd == 'Post') || ($cmd == 'Owner')) {
  75                 $url = 'compose.php?';
  76             } else {
  77                 $url = "../plugins/listcommands/mailout.php?action=$cmd&";
  78             }
  79
  80             $url .= 'mailbox=' . urlencode($mailbox)
  81                   . '&send_to=' . $purl['path'];
  82
  83             if (isset($purl['query'])) {
  84                 $url .= '&' . $purl['query'];
  85             }
  86
  87             $output[] = '<A HREF="' . $url . '">' . $fieldsdescr[$cmd] . '</A>';
  88
  89             if ($cmd == 'Post') {
  90                 $url .= '&reply_subj=' . urlencode($subject)
  91                       . '&reply_id=' . $passed_id
  92                       . '&ent_num=' . $ent_num
  93                       . '&mailprio=' . $priority_level;
  94                 $output[] = '<A HREF="' . $url . '">' . $fieldsdescr['Reply'] . '</A>';
  95             }
  96         } else if (eregi('^(http|ftp)', $url)) {
  97             $output[] = '<A HREF="' . $url . '" TARGET="_blank">'
  98                       . $fieldsdescr[$cmd] . '</A>';
  99         }
 100     }
 101
 102     if (count($output) > 0) {
 103         echo "<tr>";
 104         echo "<td BGCOLOR=\"$color[0]\">"
 105            .   str_replace(' ', '&nbsp;', _("Mailing List:"))
 106            . '</td>';
 107         echo "<td BGCOLOR=\"$color[0]\" WIDTH=\"100%\" colspan=\"2\">"
 108            .   '<SMALL>' . implode('&nbsp;|&nbsp;', $output) . '</SMALL>'
 109            . '</td>';
 110         echo '</tr>';
 111     }
 112 }
 113
 114 ?>