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            $message, $ent_num, $priority_level, $compose_new_win, $uid_support;
  26
  27     $subject = trim($message->header->subject);
  28
  29     /**
  30      * Array of commands we can deal with from the header. The Reply option
  31      * is added later because we generate it using the Post information.
  32      */
  33     $fieldsdescr = array('Post'        => _("Post to List"),
  34                          'Reply'       => _("Reply to List"),
  35                          'Subscribe'   => _("Subscribe"),
  36                          'Unsubscribe' => _("Unsubscribe"),
  37                          'Archive'     => _("List Archives"),
  38                          'Owner'       => _("Contact Listowner"),
  39                          'Help'        => _("Help"));
  40     $fields = array_keys($fieldsdescr);
  41
  42     $sorted_cmds = array();
  43     $unsorted_cmds = array();
  44     $output = array();
  45
  46     $lfields = 'List-' . implode (' List-', $fields);
  47
  48     $sid = sqimap_session_id($uid_support);
  49     fputs ($imapConnection, "$sid FETCH $passed_id BODY.PEEK[HEADER.FIELDS ($lfields)]\r\n");
  50     $read = sqimap_read_data($imapConnection, $sid, true, $response, $emessage);
  51
  52     for ($i = 1; $i < count($read); $i++) {
  53         foreach ($fields as $field) {
  54             if ( preg_match("/^List-$field: *<(.+?)>/i", $read[$i], $match) ) {
  55                 $unsorted_cmds[$field] = $match[1];
  56             }
  57         }
  58     }
  59
  60     if (count($unsorted_cmds) == 0) {
  61         return;
  62     }
  63
  64     foreach ($fields as $field) {
  65         foreach ($unsorted_cmds as $cmd => $url) {
  66             if ($field == $cmd) {
  67                 $cmds[$cmd] = $url;
  68             }
  69         }
  70     }
  71
  72     foreach ($cmds as $cmd => $url) {
  73         if (eregi('mailto:(.+)', $url, $regs)) {
  74             $purl = parse_url($url);
  75
  76             if (($cmd == 'Post') || ($cmd == 'Owner')) {
  77                 $url = 'compose.php?';
  78             } else {
  79                 $url = "../plugins/listcommands/mailout.php?action=$cmd&amp;";
  80             }
  81
  82             $url .= 'mailbox=' . urlencode($mailbox)
  83                   . '&amp;send_to=' . $purl['path'];
  84
  85             if (isset($purl['query'])) {
  86                 $url .= '&amp;' . $purl['query'];
  87             }
  88             if ($compose_new_win == '1') {
  89                 $output[] = "<a href=\"javascript:void(0)\" onclick=\"comp_in_new(false,'$url')\">" . $fieldsdescr[$cmd] . '</A>';
  90             }
  91             else {
  92                 $output[] = '<A HREF="' . $url . '">' . $fieldsdescr[$cmd] . '</A>';
  93             }
  94             if ($cmd == 'Post') {
  95                 $url .= '&amp;reply_subj=' . urlencode($subject)
  96                       . '&amp;reply_id=' . $passed_id
  97                       . '&amp;ent_num=' . $ent_num
  98                       . '&amp;mailprio=' . $priority_level;
  99                 if ($compose_new_win == '1') {
 100                     $output[] = "<A HREF=\"javascript:void(0)\" onClick=\"comp_in_new(false,'$url')\">" . $fieldsdescr['Reply'] . '</A>';
 101                 }
 102                 else {
 103                     $output[] = '<A HREF="' . $url . '">' . $fieldsdescr['Reply'] . '</A>';
 104                 }
 105             }
 106         } else if (eregi('^(http|ftp)', $url)) {
 107             $output[] = '<A HREF="' . $url . '" TARGET="_blank">'
 108                       . $fieldsdescr[$cmd] . '</A>';
 109         }
 110     }
 111
 112     if (count($output) > 0) {
 113         echo html_tag( 'tr',
 114                     html_tag( 'td', str_replace(' ', '&nbsp;', _("Mailing List:")), 'right', $color[0]) .
 115                     html_tag( 'td',
 116                         '<small>' . implode('&nbsp;|&nbsp;', $output) . '</small>' ,
 117                     'left', $color[0], 'width="100%" colspan="2"')
 118                 );
 119     }
 120 }
 121
 122 ?>