plugins/sent_subfolders/setup.php

   1 <?php
   2
   3 /**
   4  * setup.php -- Sent Subfolders Setup File
   5  *
   6  * This is a standard SquirrelMail 1.2 API for plugins.
   7  *
   8  * @copyright &copy; 1999-2007 The SquirrelMail Project Team
   9  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  10  * @version $Id$
  11  * @package plugins
  12  * @subpackage sent_subfolders
  13  */
  14
  15 /**
  16  */
  17 define('SMPREF_SENT_SUBFOLDERS_DISABLED',  0);
  18 define('SMPREF_SENT_SUBFOLDERS_YEARLY',    1);
  19 define('SMPREF_SENT_SUBFOLDERS_QUARTERLY', 2);
  20 define('SMPREF_SENT_SUBFOLDERS_MONTHLY',   3);
  21 define('SMOPT_GRP_SENT_SUBFOLDERS','SENT_SUBFOLDERS');
  22
  23 /**
  24  * Adds plugin to SquirrelMail's hooks
  25  */
  26 function squirrelmail_plugin_init_sent_subfolders() {
  27     /* Standard initialization API. */
  28     global $squirrelmail_plugin_hooks;
  29
  30     /* The hooks to make the sent subfolders display correctly. */
  31     $squirrelmail_plugin_hooks
  32     ['check_handleAsSent_result']['sent_subfolders'] =
  33         'sent_subfolders_check_handleAsSent';
  34
  35     /* The hooks to automatically update sent subfolders. */
  36     $squirrelmail_plugin_hooks
  37     ['left_main_before']['sent_subfolders'] =
  38         'sent_subfolders_update_sentfolder';
  39
  40     $squirrelmail_plugin_hooks
  41     ['compose_send']['sent_subfolders'] =
  42         'sent_subfolders_update_sentfolder';
  43
  44     /* The hook to load the sent subfolders prefs. */
  45     $squirrelmail_plugin_hooks
  46     ['loading_prefs']['sent_subfolders'] =
  47         'sent_subfolders_load_prefs';
  48
  49     /* The hooks to handle sent subfolders options. */
  50     $squirrelmail_plugin_hooks
  51     ['optpage_loadhook_folder']['sent_subfolders'] =
  52         'sent_subfolders_optpage_loadhook_folders';
  53
  54     /* mark base sent folder as special mailbox */
  55     $squirrelmail_plugin_hooks
  56     ['special_mailbox']['sent_subfolders'] =
  57         'sent_subfolders_special_mailbox';
  58 }
  59
  60 function sent_subfolders_check_handleAsSent() {
  61     global $handleAsSent_result, $sent_subfolders_base,
  62            $use_sent_subfolders;
  63
  64     // FIXME: hardcoded folder
  65     $sent_subfolders_base = 'INBOX.Sent';
  66     $args = func_get_arg(0);
  67     sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
  68
  69     /* Only check the folder string if we have been passed a mailbox. */
  70     if ($use_sent_subfolders && (count($args) > 1)) {
  71         /* Chop up the folder strings as needed. */
  72         $base_str = $sent_subfolders_base . $delimiter;
  73         $mbox_str = substr($args[1], 0, strlen($base_str));
  74
  75         /* Perform the comparison. */
  76         $handleAsSent_result =
  77             ( $handleAsSent_result
  78             || ($base_str == $mbox_str)
  79             || ($sent_subfolders_base == $args[1])
  80             );
  81     }
  82 }
  83
  84 /**
  85  * Loads sent_subfolders settings
  86  */
  87 function sent_subfolders_load_prefs() {
  88     global $use_sent_subfolders, $data_dir, $username,
  89            $sent_subfolders_setting, $sent_subfolders_base;
  90
  91     $use_sent_subfolders = getPref
  92     ($data_dir, $username, 'use_sent_subfolders', SMPREF_OFF);
  93
  94     $sent_subfolders_setting = getPref
  95     ($data_dir, $username, 'sent_subfolders_setting', SMPREF_SENT_SUBFOLDERS_DISABLED);
  96
  97     $sent_subfolders_base = getPref
  98     ($data_dir, $username, 'sent_subfolders_base', SMPREF_NONE);
  99 }
 100
 101 /**
 102  * Adds sent_subfolders options in folder preferences
 103  */
 104 function sent_subfolders_optpage_loadhook_folders() {
 105     global $username, $optpage_data, $imapServerAddress, $imapPort, $show_contain_subfolders_option;
 106
 107     /* Get some imap data we need later. */
 108     $imapConnection = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
 109     $boxes = sqimap_mailbox_list($imapConnection);
 110     sqimap_logout($imapConnection);
 111
 112     /* Load the Sent Subfolder Options into an array. */
 113     $optgrp = _("Sent Subfolders Options");
 114     $optvals = array();
 115
 116     $optvals[] = array(
 117         'name'    => 'sent_subfolders_setting',
 118         'caption' => _("Use Sent Subfolders"),
 119         'type'    => SMOPT_TYPE_STRLIST,
 120         'refresh' => SMOPT_REFRESH_FOLDERLIST,
 121         'posvals' => array(SMPREF_SENT_SUBFOLDERS_DISABLED  => _("Disabled"),
 122                         SMPREF_SENT_SUBFOLDERS_MONTHLY   => _("Monthly"),
 123                         SMPREF_SENT_SUBFOLDERS_QUARTERLY => _("Quarterly"),
 124                         SMPREF_SENT_SUBFOLDERS_YEARLY    => _("Yearly")),
 125         'save'    => 'save_option_sent_subfolders_setting'
 126     );
 127
 128     $filtered_folders=array_filter($boxes, "filter_folders");
 129     $sent_subfolders_base_values = array('whatever'=>$filtered_folders);
 130
 131     $optvals[] = array(
 132         'name'    => 'sent_subfolders_base',
 133         'caption' => _("Base Sent Folder"),
 134         'type'    => SMOPT_TYPE_FLDRLIST,
 135         'refresh' => SMOPT_REFRESH_FOLDERLIST,
 136         'posvals' => $sent_subfolders_base_values,
 137         'folder_filter' => 'noinferiors'
 138     );
 139
 140     if ($show_contain_subfolders_option) {
 141         $optvals[] = array(
 142             'name' => 'sent_subfolders_warning',
 143             'caption' => _("Warning"),
 144             'type' => SMOPT_TYPE_COMMENT,
 145             'comment' => _("There are some restrictions in Sent Subfolder options.")
 146             );
 147     }
 148
 149     /* Add our option data to the global array. */
 150     $optpage_data['grps'][SMOPT_GRP_SENT_SUBFOLDERS] = $optgrp;
 151     $optpage_data['vals'][SMOPT_GRP_SENT_SUBFOLDERS] = $optvals;
 152 }
 153
 154 /**
 155  * Defines folder filtering rules
 156  *
 157  * Callback function that should exclude some folders from folder listing.
 158  * @param array $fldr list of folders. See sqimap_mailbox_list
 159  * @return boolean returns true, if folder has to included in folder listing
 160  * @access private
 161  */
 162 function filter_folders($fldr) {
 163     return strtolower($fldr['unformatted'])!='inbox';
 164 }
 165
 166 /**
 167  * Saves sent_subfolder_options
 168  */
 169 function save_option_sent_subfolders_setting($option) {
 170     global $data_dir, $username, $use_sent_subfolders;
 171
 172     /* Set use_sent_subfolders as either on or off. */
 173     if ($option->new_value == SMPREF_SENT_SUBFOLDERS_DISABLED) {
 174         setPref($data_dir, $username, 'use_sent_subfolders', SMPREF_OFF);
 175     } else {
 176         setPref($data_dir, $username, 'use_sent_subfolders', SMPREF_ON);
 177         setPref($data_dir, $username, 'move_to_sent', SMPREF_ON);
 178     }
 179
 180     /* Now just save the option as normal. */
 181     save_option($option);
 182 }
 183
 184 /**
 185  * Update sent_subfolders settings
 186  *
 187  * function updates default sent folder value and
 188  * creates required imap folders
 189  */
 190 function sent_subfolders_update_sentfolder() {
 191     global $sent_folder, $username;
 192     global $sent_subfolders_base, $sent_subfolders_setting;
 193     global $data_dir, $imapServerAddress, $imapPort;
 194     global $use_sent_subfolders, $move_to_sent;
 195
 196     sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
 197
 198     if ($use_sent_subfolders || $move_to_sent) {
 199         $year = date('Y');
 200         $month = date('m');
 201         $quarter = sent_subfolder_getQuarter($month);
 202
 203         /**
 204          * Regarding the structure we've got three main possibilities.
 205          * One sent holder. level 0.
 206          * Multiple year holders with messages in it. level 1.
 207          * Multiple year folders with holders in it. level 2.
 208          */
 209
 210         switch ($sent_subfolders_setting) {
 211         case SMPREF_SENT_SUBFOLDERS_YEARLY:
 212             $level = 1;
 213             $sent_subfolder = $sent_subfolders_base . $delimiter
 214                             . $year;
 215             break;
 216         case SMPREF_SENT_SUBFOLDERS_QUARTERLY:
 217             $level = 2;
 218             $sent_subfolder = $sent_subfolders_base . $delimiter
 219                             . $year
 220                             . $delimiter . $quarter;
 221             $year_folder = $sent_subfolders_base . $delimiter
 222                             . $year;
 223             break;
 224         case SMPREF_SENT_SUBFOLDERS_MONTHLY:
 225             $level = 2;
 226             $sent_subfolder = $sent_subfolders_base . $delimiter
 227                             . $year
 228                             . $delimiter . $month;
 229             $year_folder = $sent_subfolders_base. $delimiter . $year;
 230             break;
 231         case SMPREF_SENT_SUBFOLDERS_DISABLED:
 232         default:
 233             $level = 0;
 234             $sent_subfolder = $sent_folder;
 235             $year_folder = $sent_folder;
 236         }
 237
 238         /* If this folder is NOT the current sent folder, update stuff. */
 239         if ($sent_subfolder != $sent_folder) {
 240             /* Auto-create folders, if they do not yet exist. */
 241             if ($sent_subfolder != 'none') {
 242                 /* Create the imap connection. */
 243                 $ic = sqimap_login($username, false, $imapServerAddress, $imapPort, 10);
 244
 245                 $boxes = false;
 246                 /**
 247                  * If sent_subfolder can't store messages (noselect) ||
 248                  * year_folder can't store subfolders (noinferiors) in level=2 setup ||
 249                  * subfolder_base can't store subfolders (noinferiors), setup is broken
 250                  */
 251                 if (sqimap_mailbox_is_noselect($ic,$sent_subfolder,$boxes) ||
 252                     ($level==2 && sqimap_mailbox_is_noinferiors($ic,$year_folder,$boxes)) ||
 253                      sqimap_mailbox_is_noinferiors($ic,$sent_subfolders_base,$boxes)) {
 254                     error_box(_("Sent Subfolders plugin is misconfigured."));
 255                 } else {
 256                     if ($level==2) {
 257                         /* Auto-create the year folder, if it does not yet exist. */
 258                         if (!sqimap_mailbox_exists($ic, $year_folder)) {
 259                             sqimap_mailbox_create($ic, $year_folder, 'noselect');
 260                             // TODO: safety check for imap servers that can't create subfolders
 261
 262                         } else if (!sqimap_mailbox_is_subscribed($ic, $year_folder)) {
 263                             sqimap_subscribe($ic, $year_folder);
 264                         }
 265                     }
 266
 267                     /* Auto-create the subfolder, if it does not yet exist. */
 268                     if (!sqimap_mailbox_exists($ic, $sent_subfolder)) {
 269                         sqimap_mailbox_create($ic, $sent_subfolder, '');
 270                     } else if (!sqimap_mailbox_is_subscribed($ic, $sent_subfolder)) {
 271                         sqimap_subscribe($ic, $sent_subfolder);
 272                     }
 273                     /* Update sent_folder setting. */
 274                     //setPref($data_dir, $username, 'sent_folder', $sent_subfolder);
 275                     //setPref($data_dir, $username, 'move_to_sent', SMPREF_ON);
 276                     $sent_folder = $sent_subfolder;
 277                     $move_to_sent = SMPREF_ON;
 278                 }
 279                 /* Close the imap connection. */
 280                 sqimap_logout($ic);
 281             }
 282
 283         }
 284     }
 285 }
 286
 287 /**
 288  * Sets quarter subfolder names
 289  *
 290  * @param string $month numeric month
 291  * @return string quarter name (Q + number)
 292  */
 293 function sent_subfolder_getQuarter($month) {
 294     switch ($month) {
 295         case '01':
 296         case '02':
 297         case '03':
 298             $result = '1';
 299             break;
 300         case '04':
 301         case '05':
 302         case '06':
 303             $result = '2';
 304             break;
 305         case '07':
 306         case '08':
 307         case '09':
 308             $result = '3';
 309             break;
 310         case '10':
 311         case '11':
 312         case '12':
 313             $result = '4';
 314             break;
 315         default:
 316             $result = 'ERR';
 317     }
 318
 319     /* Return the current quarter. */
 320     return ('Q' . $result);
 321 }
 322
 323 /**
 324  * detects if mailbox is part of sent_subfolders
 325  *
 326  * @param string $mb imap folder name
 327  * @return boolean 1 - is part of sent_subfolders, 0 - is not part of sent_subfolders
 328  */
 329 function sent_subfolders_special_mailbox($mb) {
 330     global $data_dir, $username;
 331
 332     sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
 333
 334     $use_sent_subfolders = getPref
 335         ($data_dir, $username, 'use_sent_subfolders', SMPREF_OFF);
 336     $sent_subfolders_base = getPref($data_dir, $username, 'sent_subfolders_base', 'na');
 337
 338     /**
 339      * If sent_subfolders are used and mailbox is equal to subfolder base
 340      * or mailbox matches subfolder base + delimiter.
 341      */
 342     if ($use_sent_subfolders == SMPREF_ON &&
 343     ($mb == $sent_subfolders_base || stristr($mb,$sent_subfolders_base . $delimiter) ) ) {
 344         return 1;
 345     }
 346     return 0;
 347 }