Mercurial > hg > rc1
annotate plugins/thunderbird_labels/thunderbird_labels.php @ 58:082a19037887 default tip
More cleaning up php8 Warnings/deprecations
| author | Charlie Root |
|---|---|
| date | Wed, 15 Oct 2025 14:06:01 -0400 |
| parents | 91f005a4f7e9 |
| children |
| rev | line source |
|---|---|
| 0 | 1 <?php |
| 2 /** | |
| 3 * Thunderbird Labels Plugin for Roundcube Webmail | |
| 4 * | |
| 5 * Plugin to show the 5 Message Labels Thunderbird Email-Client provides for IMAP | |
| 6 * | |
| 7 * @version $Revision$ | |
| 8 * @author Michael Kefeder | |
| 9 * @url http://code.google.com/p/rcmail-thunderbird-labels/ | |
| 10 */ | |
| 11 class thunderbird_labels extends rcube_plugin | |
| 12 { | |
| 13 public $task = 'mail|settings'; | |
| 14 private $rc; | |
| 15 private $map; | |
|
49
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
16 private $name; |
|
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
17 private $add_tb_flags; |
|
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
18 private $message_tb_labels; |
| 0 | 19 function init() |
| 20 { | |
| 21 $this->rc = rcmail::get_instance(); | |
| 22 $this->load_config(); | |
| 23 $this->add_texts('localization/', false); | |
| 24 | |
| 25 $this->setCustomLabels(); | |
| 26 | |
| 27 if ($this->rc->task == 'mail') | |
| 28 { | |
| 29 # -- disable plugin when printing message | |
| 30 if ($this->rc->action == 'print') | |
| 31 return; | |
| 32 | |
| 33 if (!$this->rc->config->get('tb_label_enable')) | |
| 34 // disable plugin according to prefs | |
| 35 return; | |
| 36 | |
| 9 | 37 // how many labels? |
| 38 $max_id = $this->rc->config->get('tb_max_label'); | |
| 39 // pass 'tb_max_label', 'tb_label_enable_shortcuts' | |
| 40 // and 'tb_label_style' prefs to JS | |
| 41 $this->rc->output->set_env('tb_max_label', $max_id); | |
| 0 | 42 $this->rc->output->set_env('tb_label_enable_shortcuts', $this->rc->config->get('tb_label_enable_shortcuts')); |
| 43 $this->rc->output->set_env('tb_label_style', $this->rc->config->get('tb_label_style')); | |
| 44 | |
| 45 $this->include_script('tb_label.js'); | |
| 46 $this->add_hook('messages_list', array($this, 'read_flags')); | |
| 47 $this->add_hook('message_load', array($this, 'read_single_flags')); | |
| 48 $this->add_hook('template_object_messageheaders', array($this, 'color_headers')); | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
49 $this->add_hook('render_page', array($this, 'tblabelpopup')); |
| 35 | 50 $this->add_hook('message_ready', array($this, 'whiteMessage')); |
| 0 | 51 $this->include_stylesheet($this->local_skin_path() . '/tb_label.css'); |
| 52 | |
| 53 $this->name = get_class($this); | |
| 54 # -- additional TB flags | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
55 $this->add_tb_flags = array(); |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
56 for ($i = 1; $i <= $max_id; $i++) { |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
57 $this->add_tb_flags['LABEL'.$i]='$Label'.$i; |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
58 } |
| 0 | 59 $this->message_tb_labels = array(); |
| 60 | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
61 # This builds the toolbar button, but |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
62 # it's also used by the ctxtmenu initialisation |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
63 # contextmenu.js:rcube_context_menu to build |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
64 # the context menu, and that somehow |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
65 # ends up with display: none??? |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
66 # Bother, missed it, it's before this.container.show |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
67 # Afeter ul.appendnd -- inside menu.show on 307 |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
68 # 567? Yes -- that's calling 'hide', but overriding |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
69 # doesn't fix :-( |
| 0 | 70 $this->add_button( |
| 71 array( | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
72 #'command' => 'plugin.thunderbird_labels.rcm_tb_label_submenu', |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
73 'name' => 'tblabellink', |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
74 'id' => 'tblabelpopuplink', |
| 29 | 75 'domain' => $this->ID, |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
76 'type' => 'link', |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
77 'class' => 'button tblabel', |
| 29 | 78 'label' => 'tb_label_button_label', |
| 79 'title' => 'tb_label_button_title', | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
80 'onclick' => "UI.toggle_popup('tblabelpopup',event);return false", |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
81 'aria-haspopup' => true, |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
82 'aria-expanded' => false, |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
83 'aria-owns' => 'plugin.thunderbird_labels.rcm_tb_label_submenu-menu' |
|
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
84 #'classact' => 'listbutton add', |
| 0 | 85 ), |
| 86 'toolbar' | |
| 87 ); | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
88 |
| 0 | 89 // JS function "set_flags" => PHP function "set_flags" |
| 90 $this->register_action('plugin.thunderbird_labels.set_flags', array($this, 'set_flags')); | |
| 91 | |
| 35 | 92 #rcube::write_log('lab','set_flags registered'); |
| 0 | 93 |
| 94 if (method_exists($this, 'require_plugin') | |
| 95 && in_array('contextmenu', $this->rc->config->get('plugins')) | |
| 96 && $this->require_plugin('contextmenu') | |
| 97 && $this->rc->config->get('tb_label_enable_contextmenu')) | |
| 98 { | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
99 if ($this->rc->action == 'list') |
| 0 | 100 $this->add_hook('render_mailboxlist', array($this, 'show_tb_label_contextmenu')); |
| 27 | 101 #rcube::write_log('lab','ctxt: '.$this->rc->action); |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
102 } |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
103 else { |
| 27 | 104 #rcube::write_log('lab','no ctxt'); |
| 0 | 105 } |
| 106 } | |
| 107 elseif ($this->rc->task == 'settings') | |
| 108 { | |
| 109 $this->include_stylesheet($this->local_skin_path() . '/tb_label.css'); | |
| 110 $this->add_hook('preferences_list', array($this, 'prefs_list')); | |
| 111 $this->add_hook('preferences_sections_list', array($this, 'prefs_section')); | |
| 112 $this->add_hook('preferences_save', array($this, 'prefs_save')); | |
| 113 } | |
| 114 } | |
| 115 | |
| 116 private function setCustomLabels() | |
| 117 { | |
| 118 $c = $this->rc->config->get('tb_label_custom_labels'); | |
| 119 if (empty($c)) | |
| 120 { | |
| 121 // if no user specific labels, use localized strings by default | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
122 $max_id = $this->rc->config->get('tb_max_label'); |
| 23 | 123 $parmLabs = array(); |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
124 $tb_flag_text = array(); |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
125 for ($i = 0; $i <= $max_id; $i++) { |
| 23 | 126 $lab=$this->getText('label'.$i); |
| 127 $isParm=($lab[-1]=='1'); | |
| 128 $lab=substr($lab,0,strlen($lab)-1); | |
| 129 $tb_flag_text[$i] = $lab; | |
| 130 if ($isParm) { | |
| 131 $parmLabs[$i]=strtolower($lab); | |
| 132 } | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
133 } |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
134 $this->rc->config->set('tb_label_custom_labels', |
| 23 | 135 $tb_flag_text); |
| 136 $this->rc->config->set('tb_label_parm_labels', | |
| 137 $parmLabs); | |
| 0 | 138 } |
| 139 // pass label strings to JS | |
| 140 $this->rc->output->set_env('tb_label_custom_labels', $this->rc->config->get('tb_label_custom_labels')); | |
| 23 | 141 $this->rc->output->set_env('tb_label_parm_labels', $this->rc->config->get('tb_label_parm_labels')); |
| 0 | 142 } |
| 143 | |
| 144 // create a section for the tb-labels Settings | |
| 145 public function prefs_section($args) | |
| 146 { | |
| 147 $args['list']['thunderbird_labels'] = array( | |
| 148 'id' => 'thunderbird_labels', | |
| 149 'section' => rcube::Q($this->gettext('tb_label_options')) | |
| 150 ); | |
| 151 | |
| 152 return $args; | |
| 153 } | |
| 154 | |
| 155 // display thunderbird-labels prefs in Roundcube Settings | |
| 156 public function prefs_list($args) | |
| 157 { | |
| 158 if ($args['section'] != 'thunderbird_labels') | |
| 159 return $args; | |
| 160 | |
| 161 $this->load_config(); | |
| 162 $dont_override = (array) $this->rc->config->get('dont_override', array()); | |
| 163 | |
| 164 $args['blocks']['tb_label'] = array(); | |
| 165 $args['blocks']['tb_label']['name'] = $this->gettext('tb_label_options'); | |
| 166 | |
| 167 $key = 'tb_label_enable'; | |
| 168 if (!in_array($key, $dont_override)) | |
| 169 { | |
| 170 $input = new html_checkbox(array( | |
| 171 'name' => $key, | |
| 172 'id' => $key, | |
| 173 'value' => 1 | |
| 174 )); | |
| 175 $content = $input->show($this->rc->config->get($key)); | |
| 176 $args['blocks']['tb_label']['options'][$key] = array( | |
| 177 'title' => $this->gettext('tb_label_enable_option'), | |
| 178 'content' => $content | |
| 179 ); | |
| 180 } | |
| 181 | |
| 182 $key = 'tb_label_enable_shortcuts'; | |
| 183 if (!in_array($key, $dont_override)) | |
| 184 { | |
| 185 $input = new html_checkbox(array( | |
| 186 'name' => $key, | |
| 187 'id' => $key, | |
| 188 'value' => 1 | |
| 189 )); | |
| 190 $content = $input->show($this->rc->config->get($key)); | |
| 191 $args['blocks']['tb_label']['options'][$key] = array( | |
| 192 'title' => $this->gettext('tb_label_enable_shortcuts_option'), | |
| 193 'content' => $content | |
| 194 ); | |
| 195 } | |
| 196 | |
| 197 $key = 'tb_label_style'; | |
| 198 if (!in_array($key, $dont_override)) | |
| 199 { | |
| 200 $select = new html_select(array( | |
| 201 'name' => $key, | |
| 202 'id' => $key | |
| 203 )); | |
| 204 $select->add(array($this->gettext('thunderbird'), $this->gettext('bullets')), array('thunderbird', 'bullets')); | |
| 205 $content = $select->show($this->rc->config->get($key)); | |
| 206 | |
| 207 $args['blocks']['tb_label']['options'][$key] = array( | |
| 208 'title' => $this->gettext('tb_label_style_option'), | |
| 209 'content' => $content | |
| 210 ); | |
| 211 } | |
| 212 | |
| 213 $key = 'tb_label_custom_labels'; | |
| 214 if (!in_array($key, $dont_override) | |
| 215 && $this->rc->config->get('tb_label_modify_labels')) | |
| 216 { | |
| 217 $old = $this->rc->config->get($key); | |
| 23 | 218 $oldParms = $this->rc->config->get('tb_label_parm_labels'); |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
219 $max_id = $this->rc->config->get('tb_max_label'); |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
220 for($i=1; $i<=$max_id; $i++) |
| 0 | 221 { |
|
19
49706603be30
begin to add UI support for parameterised labels, e.g. Dates
Charlie Root
parents:
9
diff
changeset
|
222 $oldVal = $old[$i]; |
| 23 | 223 $oparm=$oldParms[$i]?1:0; |
| 0 | 224 $input = new html_inputfield(array( |
| 225 'name' => $key.$i, | |
| 226 'id' => $key.$i, | |
| 227 'type' => 'text', | |
| 228 'autocomplete' => 'off', | |
| 23 | 229 'value' => $oldVal)); |
|
19
49706603be30
begin to add UI support for parameterised labels, e.g. Dates
Charlie Root
parents:
9
diff
changeset
|
230 $parmBox = new html_checkbox(array( |
|
49706603be30
begin to add UI support for parameterised labels, e.g. Dates
Charlie Root
parents:
9
diff
changeset
|
231 'name' => $key.$i.'parm', |
|
49706603be30
begin to add UI support for parameterised labels, e.g. Dates
Charlie Root
parents:
9
diff
changeset
|
232 'id' => $key.$i.'parm', |
|
49706603be30
begin to add UI support for parameterised labels, e.g. Dates
Charlie Root
parents:
9
diff
changeset
|
233 'value' => 1)); |
| 0 | 234 $args['blocks']['tb_label']['options'][$key.$i] = array( |
| 235 'title' => $this->gettext('tb_label_label')." ".$i, | |
|
19
49706603be30
begin to add UI support for parameterised labels, e.g. Dates
Charlie Root
parents:
9
diff
changeset
|
236 'content' => $input->show()." ".$parmBox->show($oparm) |
| 0 | 237 ); |
| 238 } | |
| 239 } | |
| 240 | |
| 241 return $args; | |
| 242 } | |
| 243 | |
| 244 // save prefs after modified in UI | |
| 245 public function prefs_save($args) | |
| 246 { | |
| 9 | 247 #rcube::write_log('lab','saving: '.print_r($args,true)); |
| 2 | 248 if ($args['section'] != 'thunderbird_labels') |
| 0 | 249 return $args; |
| 250 | |
| 251 | |
| 252 $this->load_config(); | |
| 253 $dont_override = (array) $this->rc->config->get('dont_override', array()); | |
| 254 | |
| 255 if (!in_array('tb_label_enable', $dont_override)) | |
| 256 $args['prefs']['tb_label_enable'] = rcube_utils::get_input_value('tb_label_enable', rcube_utils::INPUT_POST) ? true : false; | |
| 257 | |
| 258 if (!in_array('tb_label_enable_shortcuts', $dont_override)) | |
| 259 $args['prefs']['tb_label_enable_shortcuts'] = rcube_utils::get_input_value('tb_label_enable_shortcuts', rcube_utils::INPUT_POST) ? true : false; | |
| 260 | |
| 261 if (!in_array('tb_label_style', $dont_override)) | |
| 262 $args['prefs']['tb_label_style'] = rcube_utils::get_input_value('tb_label_style', rcube_utils::INPUT_POST); | |
| 263 | |
| 264 if (!in_array('tb_label_custom_labels', $dont_override) | |
| 265 && $this->rc->config->get('tb_label_modify_labels')) | |
| 266 { | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
267 $max_id = $this->rc->config->get('tb_max_label'); |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
268 $tb_lab_prefs = array(); |
| 23 | 269 $tb_parm_prefs = array(); |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
270 $tb_lab_prefs[0] = $this->gettext('label0'); |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
271 for ($i = 1; $i <= $max_id; $i++) { |
| 23 | 272 $tb_lab_prefs[$i] = rcube_utils::get_input_value('tb_label_custom_labels'.$i, rcube_utils::INPUT_POST); |
| 273 if (rcube_utils::get_input_value('tb_label_custom_labels'.$i.'parm', rcube_utils::INPUT_POST)) { | |
| 274 $tb_parm_prefs[$i] = strtolower($tb_lab_prefs[$i]); | |
| 275 } | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
276 } |
| 2 | 277 $args['prefs']['tb_label_custom_labels'] = $tb_lab_prefs; |
| 23 | 278 $args['prefs']['tb_label_parm_labels'] = $tb_parm_prefs; |
| 0 | 279 } |
| 280 | |
| 281 return $args; | |
| 282 } | |
| 283 | |
| 284 public function show_tb_label_contextmenu($args) | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
285 # never called? |
| 0 | 286 { |
| 287 #$this->api->output->add_label('copymessage.copyingmessage'); | |
| 288 $li = html::tag('li', | |
| 289 array('class' => 'submenu'), | |
| 290 '<span>'.rcube::Q($this->gettext('tb_label_contextmenu_title')).'</span>' . $this->_gen_label_submenu($args, 'tb_label_ctxm_submenu')); | |
| 291 $out .= html::tag('ul', array('id' => 'tb_label_ctxm_mainmenu'), $li); | |
| 29 | 292 #rcube::write_log('lab',"stblc $out"); |
| 0 | 293 $this->api->output->add_footer(html::div(array('style' => 'display: none;'), $out)); |
| 294 } | |
| 295 | |
| 296 private function _gen_label_submenu($args, $id) | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
297 # never called? |
| 0 | 298 { |
| 299 $out = ''; | |
| 300 $custom_labels = $this->rc->config->get('tb_label_custom_labels'); | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
301 $max_id = $this->rc->config->get('tb_max_label'); |
|
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
302 for ($i = 0; $i <= $max_id; $i++) |
| 0 | 303 { |
| 304 $separator = ($i == 0)? ' separator_below' :''; | |
| 305 $out .= '<li class="label'.$i.$separator. | |
| 306 ' ctxm_tb_label"><a href="#ctxm_tb_label" class="active" onclick="rcmail_ctxm_label_set('.$i.')"><span>'. | |
| 307 $i.' '.$custom_labels[$i]. | |
| 308 '</span></a></li>'; | |
| 309 } | |
| 310 $out = html::tag('ul', array('class' => 'popupmenu toolbarmenu folders', 'id' => $id), $out); | |
| 311 return $out; | |
| 312 } | |
| 313 | |
| 314 public function read_single_flags($args) | |
| 315 { | |
| 9 | 316 #rcube::write_log($this->name, print_r(($args['object']), true)); |
| 0 | 317 if (!isset($args['object'])) { |
| 318 return; | |
| 319 } | |
| 320 | |
| 321 if (is_array($args['object']->headers->flags)) | |
| 322 { | |
| 323 $this->message_tb_labels = array(); | |
| 324 foreach ($args['object']->headers->flags as $flagname => $flagvalue) | |
| 325 { | |
| 326 $flag = is_numeric("$flagvalue")? $flagname:$flagvalue;// for compatibility with < 0.5.4 | |
| 327 $flag = strtolower($flag); | |
| 328 if (preg_match('/^\$?label/', $flag)) | |
| 329 { | |
| 330 $flag_no = preg_replace('/^\$?label/', '', $flag); | |
| 35 | 331 #rcube::write_log($this->name, "Single message Flag: ".$flag." Flag_no:".$flag_no); |
| 0 | 332 $this->message_tb_labels[] = (int)$flag_no; |
| 333 } | |
| 334 } | |
| 335 } | |
| 336 # -- no return value for this hook | |
| 337 } | |
| 338 | |
| 339 /** | |
| 340 * Writes labelnumbers for single message display | |
| 341 * Coloring of Message header table happens via Javascript | |
| 342 */ | |
| 343 public function color_headers($p) | |
| 344 { | |
| 9 | 345 #rcube::write_log($this->name, print_r($p, true)); |
| 0 | 346 # -- always write array, even when empty |
| 347 $p['content'] .= '<script type="text/javascript"> | |
| 348 var tb_labels_for_message = ['.join(',', $this->message_tb_labels).']; | |
| 349 </script>'; | |
| 350 return $p; | |
| 351 } | |
| 352 | |
| 353 public function read_flags($args) | |
| 354 { | |
| 355 // add color information for all messages | |
| 356 // dont loop over all messages if we dont have any highlights or no msgs | |
| 357 if (!isset($args['messages']) or !is_array($args['messages'])) { | |
| 358 return $args; | |
| 359 } | |
| 360 // loop over all messages and add $LabelX info to the extra_flags | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
361 $mbox = $this->rc->output->get_env('mailbox') ?: $this->rc->storage->get_folder(); |
| 29 | 362 #rcube::write_log($this->name, "mbox: $mbox"); |
| 0 | 363 foreach($args['messages'] as $message) |
| 364 { | |
| 365 $message->list_flags['extra_flags']['tb_labels'] = array(); # always set extra_flags, needed for javascript later! | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
366 $message->list_flags['extra_flags']['tb_lparms'] = array(); |
| 23 | 367 $keyPos = array_search($_SESSION['sort_col'],$this->rc->config->get('tb_label_parm_labels')); |
| 29 | 368 #rcube::write_log($this->name,"sort? $keyPos ".$_SESSION['sort_order']." ".print_r($this->rc->config->get('tb_label_parm_labels'),true)); |
| 21 | 369 if (is_array($message->flags)) |
| 0 | 370 foreach ($message->flags as $flagname => $flagvalue) |
| 371 { | |
| 372 $flag = is_numeric("$flagvalue")? $flagname:$flagvalue;// for compatibility with < 0.5.4 | |
| 373 $flag = strtolower($flag); | |
| 374 if (preg_match('/^\$?label/', $flag)) | |
| 375 { | |
| 376 $flag_no = preg_replace('/^\$?label/', '', $flag); | |
| 29 | 377 #rcube::write_log($this->name, "Flag:".$flag." Flag_no:".$flag_no); |
| 20 | 378 if ($ppos = strpos($flag_no,'_') > -1) { |
| 379 // We have a flag parameter value... | |
| 23 | 380 $pn=(int)substr($flag_no,0,$ppos); |
| 381 $pv=substr($flag_no,$ppos+1); | |
| 20 | 382 $message->list_flags['extra_flags']['tb_lparms'][]=array( |
| 23 | 383 'number' => $pn, |
| 384 'parm' => $pv); | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
385 if ($keyPos && $message->depth==0) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
386 $message->sortKey=array_map('intval',preg_split('#[/-]#',$pv)); |
| 23 | 387 } |
| 20 | 388 } |
| 389 else { | |
| 390 $message->list_flags['extra_flags']['tb_labels'][] = (int)$flag_no; | |
| 391 } | |
| 0 | 392 } |
| 393 } | |
| 394 } | |
| 23 | 395 if ($keyPos) { |
| 396 $rev = $_SESSION['sort_order']=='DESC'; | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
397 $datesSort = |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
398 function($a, $b) use ($rev) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
399 if ($ak=$a->sortKey) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
400 if ($bk=$b->sortKey) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
401 // each key is sd sm ed em |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
402 if ($ak[1]<$bk[1]) return $rev?1:-1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
403 if ($ak[1]>$bk[1]) return $rev?-1:1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
404 // start month is the same |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
405 if ($ak[0]<$bk[0]) return $rev?1:-1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
406 if ($ak[0]>$bk[0]) return $rev?-1:1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
407 // start date is the same |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
408 if ($ak[3]<$bk[3]) return $rev?1:-1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
409 if ($ak[3]>$bk[3]) return $rev?-1:1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
410 // end month is the same |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
411 if ($ak[2]<$bk[2]) return $rev?1:-1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
412 if ($ak[2]>$bk[2]) return $rev?-1:1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
413 // both dates are the same |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
414 return 0; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
415 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
416 else { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
417 return $rev?1:-1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
418 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
419 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
420 else if ($b->sortKey) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
421 return $rev?-1:1; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
422 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
423 else { |
| 23 | 424 return 0; |
| 425 } | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
426 }; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
427 if ($this->rc->config->get('message_threading')[$mbox]) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
428 // The threading information is contained in three fields: |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
429 // depth, parent_uid and uid |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
430 // I _think_ if you gave every depth0 message its dates as key |
| 25 | 431 // every depth>0 [already sorted by date, see list.inc:71] |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
432 // Then first sort all the depth0 messages into a new array |
| 25 | 433 // then iterate over them, pull all depth1 with shared parent |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
434 // insert after parent |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
435 // repeat at depth 1, etc. |
| 25 | 436 $sm = array(); // sorted result accumulates here |
| 437 $rm = array(); // unprocessed remnant | |
| 438 foreach ($args['messages'] as $m) { | |
| 439 if ($m->depth===0) { | |
| 440 $sm[]=$m; | |
| 441 } | |
| 442 else { | |
| 443 $rm[]=$m; | |
| 444 } | |
| 445 } | |
| 27 | 446 #rcube::write_log($this->name,"ts0: |".$rm[0]->depth."| |".($rm[0]->depth===0)."|"); |
| 25 | 447 usort($sm,$datesSort); |
| 448 $depth=0; | |
| 449 $foundSome=true; | |
| 450 while ($foundSome) { | |
| 27 | 451 #rcube::write_log($this->name,"ts: $depth ".count($sm).' '.count($rm)); |
| 25 | 452 $foundSome=false; |
| 453 $tsm = array(); | |
| 454 $trm = array(); | |
| 455 foreach ($sm as $m) { | |
| 456 $tsm[]=$m; | |
| 457 if ($m->depth===$depth) { | |
| 458 $puid = $m->uid; | |
| 459 foreach ($rm as $c) { | |
| 460 if ($c->parent_uid===$puid) { | |
| 461 $tsm[]=$c; | |
| 462 $foundSome=true; | |
| 463 } | |
| 464 else { | |
| 465 $trm[]=$c; | |
| 466 } | |
| 467 } | |
| 468 $rm = $trm; | |
| 469 $trm = array(); | |
| 470 } | |
| 471 } | |
| 472 $sm = $tsm; | |
| 473 $depth+=1; | |
| 474 } | |
| 475 $args['messages']=$sm; | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
476 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
477 else { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
478 usort($args['messages'],$datesSort); |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
479 } |
| 23 | 480 } |
| 0 | 481 return($args); |
| 482 } | |
| 483 | |
| 484 // set flags in IMAP server | |
| 485 function set_flags() | |
| 486 { | |
|
49
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
487 #rcube::write_log($this->name, "set: ".print_r($_GET, true)." rc: ".print_r($this->rc,true)); |
| 0 | 488 |
|
49
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
489 $imap = $this->rc->storage; |
| 0 | 490 $cbox = rcube_utils::get_input_value('_cur', rcube_utils::INPUT_GET); |
| 491 $mbox = rcube_utils::get_input_value('_mbox', rcube_utils::INPUT_GET); | |
| 492 $toggle_label = rcube_utils::get_input_value('_toggle_label', rcube_utils::INPUT_GET); | |
| 493 $flag_uids = rcube_utils::get_input_value('_flag_uids', rcube_utils::INPUT_GET); | |
| 494 $flag_uids = explode(',', $flag_uids); | |
| 495 $unflag_uids = rcube_utils::get_input_value('_unflag_uids', rcube_utils::INPUT_GET); | |
| 496 $unflag_uids = explode(',', $unflag_uids); | |
| 497 | |
|
49
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
498 $imap->conn->flags = array_merge($imap->conn->flags ?? array(), |
|
91f005a4f7e9
Slowly cleaning up more php8 Warnings/deprecations
Charlie Root
parents:
35
diff
changeset
|
499 $this->add_tb_flags); |
| 0 | 500 |
| 9 | 501 #rcube::write_log($this->name, print_r($flag_uids, true)); |
| 502 #rcube::write_log($this->name, print_r($unflag_uids, true)); | |
| 0 | 503 |
| 504 if (!is_array($unflag_uids) | |
| 505 || !is_array($flag_uids)) | |
| 506 return false; | |
| 507 | |
| 508 $imap->set_flag($flag_uids, $toggle_label, $mbox); | |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
509 // belt and braces |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
510 if (count($unflag_uids)>0) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
511 $flaggedMsgs = $imap->list_flags($mbox,$unflag_uids); |
| 27 | 512 #rcube::write_log($this->name,'oldFlags: '.print_r($flaggedMsgs,true)); |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
513 $fullFlags=array(); |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
514 foreach ($flaggedMsgs as $uid => $flags) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
515 foreach ($flags as $flag => $x) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
516 $pos=strpos(strtolower($flag),$toggle_label); |
| 27 | 517 #rcube::write_log($this->name,"flag?: $flag $toggle_label $pos"); |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
518 if ($pos>-1 && $pos<2 && !in_array($flag,$fullFlags)) { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
519 $fullFlags[]=$flag; |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
520 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
521 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
522 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
523 if (count($fullFlags)==0) { |
| 27 | 524 #rcube::write_log('errors',"no full flags for $toggle_label in ".print_r($flaggedMsgs,true)); |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
525 $imap->set_flag($unflag_uids, "UN$toggle_label", $mbox); |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
526 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
527 else { |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
528 foreach ($fullFlags as $flag) { |
| 27 | 529 #rcube::write_log($this->name,"UNsetting $flag in $mbox for ".join(',',$unflag_uids)); |
|
24
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
530 $imap->set_flag($unflag_uids, "UN$flag", $mbox); |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
531 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
532 } |
|
4869fae20b88
do better at flag deletion, unthreaded dates sort working, preparing for threaded
Charlie Root
parents:
23
diff
changeset
|
533 } |
| 0 | 534 $this->api->output->send(); |
| 535 } | |
| 536 | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
537 function tblabelpopup() |
| 0 | 538 { |
| 539 $custom_labels = $this->rc->config->get('tb_label_custom_labels'); | |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
540 $max_id = $this->rc->config->get('tb_max_label'); |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
541 $out = '<div id="tblabelpopup" class="popupmenu"> |
| 0 | 542 <ul class="toolbarmenu">'; |
|
1
5821049f1791
most of the way to allowing arbitrarily many labels
Charlie Root
parents:
0
diff
changeset
|
543 for ($i = 0; $i <= $max_id; $i++) |
| 0 | 544 { |
| 545 $separator = ($i == 0)? ' separator_below' :''; | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
546 $out .= '<li class="label'.$i.$separator.'"><a href="#" id="tblabel'.$i.'" class="active">'.$i.' '.$custom_labels[$i].'</a></li>'; |
| 0 | 547 } |
| 548 $out .= '</ul> | |
| 549 </div>'; | |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
550 $this->rc->output->add_gui_object('tblabelpopup_obj', 'tblabelpopup'); |
| 27 | 551 #rcube::write_log('lab',"tblp $out"); |
|
26
b2b6c0af2383
remove _ from name, lots of other hacks to get label context menu working
Charlie Root
parents:
25
diff
changeset
|
552 $this->rc->output->add_footer($out); |
| 0 | 553 } |
| 31 | 554 |
| 555 public static function whiteMessage($data) { | |
| 556 require_once 'Mail/RFC822.php'; | |
| 35 | 557 $message = $data['message']; |
| 558 $hdrs = $message->headers(); | |
| 31 | 559 $to = $hdrs['To']; |
| 560 $cc = $hdrs['Cc']; | |
| 35 | 561 $util = new Mail_RFC822(); |
| 562 $addrs = $util->parseAddressList($to); | |
| 31 | 563 if ($cc) { |
| 35 | 564 foreach ($util->parseAddressList($cc) as $addr) { |
| 31 | 565 $addrs[]=$addr; |
| 566 } | |
| 567 } | |
| 568 #rcube::write_log('lab',"cc: ".print_r($cca,true)); | |
| 569 $wp = popen("/usr/local/bin/makeWhite.sh >>/var/log/white.log 2>&1",'w'); | |
| 570 foreach ($addrs as $addr) { | |
| 571 fwrite($wp,$addr->mailbox.'@'.$addr->host."\n"); | |
| 572 } | |
| 573 fclose($wp); | |
| 574 return $data; | |
| 575 } | |
| 576 | |
| 0 | 577 } |
| 578 |