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 ($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             $oTemplate->assign('class', '');
  70             $oTemplate->assign('id', '');
  71             $oTemplate->assign('onclick', '');
  72             $output = $oTemplate->fetch('hyperlink.tpl');
  73             $links[] = $output;
  74         }
  75     }
  76
  77     if (count($links) > 0) {
  78         $oTemplate->assign('links', $links);
  79         $output = $oTemplate->fetch('plugins/listcommands/read_body_header.tpl');
  80         return array('read_body_header' => $output);
  81     }
  82
  83 }
  84
  85 /**
  86  * Returns an array with the actions as translated strings.
  87  * @return array action as key, translated string as value
  88  */
  89 function listcommands_fieldsdescr() {
  90     return array('post'   => _("Post to List"),
  91             'reply'       => _("Reply to List"),
  92             'subscribe'   => _("Subscribe"),
  93             'unsubscribe' => _("Unsubscribe"),
  94             'archive'     => _("List Archives"),
  95             'owner'       => _("Contact Listowner"),
  96             'help'        => _("Help"));
  97 }
  98