almost forgot: SMPATH fixes from Paul BORKED spamcop
[squirrelmail.git] / plugins / newmail / setup.php
CommitLineData
4508b1b6 1<?php
2
3 /**
15e6162e 4 * newmail.php
cc61478a 5 *
15e6162e 6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
7 * Copyright (c) 2000 by Michael Huttinger
8 * Licensed under the GNU GPL. For full terms see the file COPYING.
cc61478a 9 *
15e6162e 10 * Quite a hack -- but my first attempt at a plugin. We were
11 * looking for a way to play a sound when there was unseen
12 * messages to look at. Nice for users who keep the squirrel
13 * mail window up for long periods of time and want to know
14 * when mail arrives.
cc61478a 15 *
15e6162e 16 * Basically, I hacked much of left_main.php into a plugin that
17 * goes through each mail folder and increments a flag if
18 * there are unseen messages. If the final count of unseen
19 * folders is > 0, then we play a sound (using the HTML at the
20 * far end of this script).
cc61478a 21 *
15e6162e 22 * This was tested with IE5.0 - but I hear Netscape works well,
23 * too (with a plugin).
cc61478a 24 *
15e6162e 25 * $Id$
cc61478a 26 */
4508b1b6 27
2d4c15d6 28 function CheckNewMailboxSound($imapConnection, $mailbox, $real_box, $delimeter, $unseen, &$total_unseen) {
7d931c28 29
30 global $folder_prefix, $trash_folder, $sent_folder,
31 $color, $move_to_sent, $move_to_trash,
32 $unseen_notify, $unseen_type, $newmail_allbox,
33 $newmail_recent, $newmail_changetitle;
4508b1b6 34
2d4c15d6 35 $mailboxURL = urlencode($real_box);
36 $unseen_found = 0;
4508b1b6 37
2d4c15d6 38 // Skip folders for Sent and Trash
4508b1b6 39
6a745675 40 if ($real_box == $sent_folder ||
2d4c15d6 41 $real_box == $trash_folder) {
6a745675 42 return 0;
2d4c15d6 43 }
4508b1b6 44
2d4c15d6 45 if (($unseen_notify == 2 && $real_box == 'INBOX') ||
46 ($unseen_notify == 3 && ($newmail_allbox == 'on' ||
6a745675 47 $real_box == 'INBOX'))) {
2d4c15d6 48 $unseen = sqimap_unseen_messages($imapConnection, $real_box);
6a745675 49 $total_unseen += $unseen;
50
51 if($newmail_recent == 'on') {
52 $unseen = sqimap_mailbox_select( $imapConnection, $real_box, TRUE, TRUE);
53 }
54
2d4c15d6 55 if ($unseen > 0) {
56 $unseen_found = 1;
6a745675 57 }
2d4c15d6 58 }
59 return( $unseen_found );
60 }
4508b1b6 61
3d75ef16 62 function squirrelmail_plugin_init_newmail() {
63 global $squirrelmail_plugin_hooks;
6a745675 64
3d75ef16 65 $squirrelmail_plugin_hooks['left_main_before']['newmail'] = 'newmail_plugin';
cbe5423b 66 $squirrelmail_plugin_hooks['optpage_register_block']['newmail'] = 'newmail_optpage_register_block';
3d75ef16 67 $squirrelmail_plugin_hooks['options_save']['newmail'] = 'newmail_sav';
68 $squirrelmail_plugin_hooks['loading_prefs']['newmail'] = 'newmail_pref';
69 }
4508b1b6 70
cbe5423b 71 function newmail_optpage_register_block() {
3d75ef16 72 // Gets added to the user's OPTIONS page.
cbe5423b 73 global $optpage_blocks;
4508b1b6 74
3d75ef16 75 if ( !soupNazi() ) {
4508b1b6 76
3d75ef16 77 /* Register Squirrelspell with the $optionpages array. */
cbe5423b 78 $optpage_blocks[] = array(
3d75ef16 79 'name' => _("NewMail Options"),
80 'url' => '../plugins/newmail/newmail_opt.php',
81 'desc' => _("This configures settings for playing sounds and/or showing popup windows when new mail arrives."),
82 'js' => TRUE
83 );
84 }
85 }
4508b1b6 86
e697b6cc 87 function newmail_sav() {
88
89 global $username,$data_dir;
90 global $submit_newmail,$media_file,$media_reset,$media_enable,$media_popup;
91 global $media_recent,$media_sel;
92 global $media_allbox, $media_changetitle;
93
cc61478a 94 if ( isset($submit_newmail) ) {
95
e697b6cc 96 if(isset($media_enable)) {
97 setPref($data_dir,$username,'newmail_enable',$media_enable);
98 } else {
99 setPref($data_dir,$username,'newmail_enable','');
100 }
101 if(isset($media_popup)) {
102 setPref($data_dir,$username,'newmail_popup',$media_popup);
103 } else {
104 setPref($data_dir,$username,'newmail_popup','');
105 }
106 if(isset($media_allbox)) {
107 setPref($data_dir,$username,'newmail_allbox',$media_allbox);
108 } else {
109 setPref($data_dir,$username,'newmail_allbox','');
110 }
111 if(isset($media_recent)) {
112 setPref($data_dir,$username,'newmail_recent',$media_recent);
113 } else {
114 setPref($data_dir,$username,'newmail_recent','');
115 }
116 if(isset($media_changetitle)) {
117 setPref($data_dir,$username,'newmail_changetitle',$media_changetitle);
118 } else {
119 setPref($data_dir,$username,'newmail_changetitle','');
120 }
121 if(isset($media_sel)) {
122 if($media_sel == '(local media)') {
123 setPref($data_dir,$username,'newmail_media',StripSlashes($media_file));
124 } else {
125 setPref($data_dir,$username,'newmail_media',$media_sel);
126 }
127 } else {
128 setPref($data_dir,$username,'newmail_media','');
129 }
4cf43843 130 echo html_tag( 'p', _("New Mail Notification options saved"), 'center' );
e697b6cc 131 }
132 }
4508b1b6 133
2d4c15d6 134 function newmail_pref() {
135
136 global $username,$data_dir;
137 global $newmail_media,$newmail_enable,$newmail_popup,$newmail_allbox;
138 global $newmail_recent, $newmail_changetitle;
139
140 $newmail_recent = getPref($data_dir,$username,'newmail_recent');
141 $newmail_enable = getPref($data_dir,$username,'newmail_enable');
cc61478a 142 $newmail_media = getPref($data_dir, $username, 'newmail_media', '../plugins/newmail/sounds/Notify.wav');
2d4c15d6 143 $newmail_popup = getPref($data_dir, $username, 'newmail_popup');
144 $newmail_allbox = getPref($data_dir, $username, 'newmail_allbox');
145 $newmail_changetitle = getPref($data_dir, $username, 'newmail_changetitle');
e697b6cc 146
2d4c15d6 147 }
148
e697b6cc 149 function newmail_plugin() {
150
7d931c28 151 global $username, $key, $imapServerAddress, $imapPort,
152 $newmail_media, $newmail_enable, $newmail_popup,
153 $newmail_recent, $newmail_changetitle, $imapConnection;
154
e697b6cc 155 if ($newmail_enable == 'on' ||
156 $newmail_popup == 'on' ||
157 $newmail_changetitle) {
158
159 // open a connection on the imap port (143)
160
161 $boxes = sqimap_mailbox_list($imapConnection);
162 $delimeter = sqimap_get_delimiter($imapConnection);
163
164 $status = 0;
165 $totalNew = 0;
166
167 for ($i = 0;$i < count($boxes); $i++) {
168
169 $line = '';
170 $mailbox = $boxes[$i]['formatted'];
171
7d931c28 172 if (! isset($boxes[$i]['unseen'])) {
e697b6cc 173 $boxes[$i]['unseen'] = '';
7d931c28 174 }
e697b6cc 175 if ($boxes[$i]['flags']) {
176 $noselect = false;
177 for ($h = 0; $h < count($boxes[$i]['flags']); $h++) {
7d931c28 178 if (strtolower($boxes[$i]["flags"][$h]) == 'noselect') {
e697b6cc 179 $noselect = TRUE;
7d931c28 180 }
e697b6cc 181 }
182 if (! $noselect) {
7d931c28 183 $status += CheckNewMailboxSound($imapConnection,
184 $mailbox,
185 $boxes[$i]['unformatted'],
186 $delimeter,
187 $boxes[$i]['unseen'],
188 $totalNew);
e697b6cc 189 }
190 } else {
7d931c28 191 $status += CheckNewMailboxSound($imapConnection,
192 $mailbox,
193 $boxes[$i]['unformatted'],
194 $delimeter,
195 $boxes[$i]['unseen'],
196 $totalNew);
e697b6cc 197 }
198
199 }
4508b1b6 200
e697b6cc 201 // sqimap_logout($imapConnection);
202
203 // If we found unseen messages, then we
204 // will play the sound as follows:
205
206 if ($newmail_changetitle) {
207 echo "<script language=\"javascript\">\n" .
208 "function ChangeTitleLoad() {\n";
975e3687 209 if( $totalNew > 1 || $totalNew == 0 ) {
e697b6cc 210 echo 'window.parent.document.title = "' .
7d931c28 211 sprintf(_("%s New Messages"), $totalNew ) .
e697b6cc 212 "\";\n";
213 } else {
214 echo 'window.parent.document.title = "' .
7d931c28 215 sprintf(_("%s New Message"), $totalNew ) .
e697b6cc 216 "\";\n";
217 }
218 echo "if (BeforeChangeTitle != null)\n".
219 "BeforeChangeTitle();\n".
220 "}\n".
221 "BeforeChangeTitle = window.onload;\n".
222 "window.onload = ChangeTitleLoad;\n".
223 "</script>\n";
224 }
225
7d931c28 226 if ($totalNew > 0 && $newmail_enable == 'on') {
cc61478a 227 echo "<EMBED SRC=\"$newmail_media\" HIDDEN=TRUE AUTOSTART=TRUE>\n";
e697b6cc 228 }
7d931c28 229 if ($totalNew > 0 && $newmail_popup == 'on') {
e697b6cc 230 echo "<SCRIPT LANGUAGE=\"JavaScript\">\n".
231 "<!--\n".
232 "function PopupScriptLoad() {\n".
7d931c28 233 'window.open("../plugins/newmail/newmail.php", "SMPopup",'.
234 "\"width=200,height=130,scrollbars=no\");\n".
235 "if (BeforePopupScript != null)\n".
236 "BeforePopupScript();\n".
e697b6cc 237 "}\n".
238 "BeforePopupScript = window.onload;\n".
239 "window.onload = PopupScriptLoad;\n".
240 // Idea by: Nic Wolfe (Nic@TimelapseProductions.com)
241 // Web URL: http://fineline.xs.mw
242 // More code from Tyler Akins
243 "// End -->\n".
244 "</script>\n";
245
246 }
247 }
248 }
cbe5423b 249?>