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.
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
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).
22
* This was tested with IE5.0 - but I hear Netscape works well,
23
* too (with a plugin).
25
* $Id: setup.php,v 1.19 2003/10/27 22:24:40 tassium Exp $
32
include_once(SM_PATH . 'functions/display_messages.php');
34
function CheckNewMailboxSound($imapConnection, $mailbox, $real_box, $delimeter, $unseen, &$total_new) {
36
global $folder_prefix, $trash_folder, $sent_folder,
37
$color, $move_to_sent, $move_to_trash,
38
$unseen_notify, $unseen_type, $newmail_allbox,
39
$newmail_recent, $newmail_changetitle;
41
$mailboxURL = urlencode($real_box);
42
$unseen = $recent = 0;
44
// Skip folders for Sent and Trash
46
if ($real_box == $sent_folder ||
47
$real_box == $trash_folder) {
51
if (($unseen_notify == 2 && $real_box == 'INBOX') ||
52
($unseen_notify == 3 && ($newmail_allbox == 'on' ||
53
$real_box == 'INBOX'))) {
54
$status = sqimap_status_messages( $imapConnection, $real_box);
55
if($newmail_recent == 'on') {
56
$total_new += $status['RECENT'];
58
$total_new += $status['UNSEEN'];
68
function squirrelmail_plugin_init_newmail() {
69
global $squirrelmail_plugin_hooks;
71
$squirrelmail_plugin_hooks['left_main_before']['newmail'] = 'newmail_plugin';
72
$squirrelmail_plugin_hooks['optpage_register_block']['newmail'] = 'newmail_optpage_register_block';
73
$squirrelmail_plugin_hooks['options_save']['newmail'] = 'newmail_sav';
74
$squirrelmail_plugin_hooks['loading_prefs']['newmail'] = 'newmail_pref';
77
function newmail_optpage_register_block() {
78
// Gets added to the user's OPTIONS page.
79
global $optpage_blocks;
83
/* Register Squirrelspell with the $optionpages array. */
84
$optpage_blocks[] = array(
85
'name' => _("NewMail Options"),
86
'url' => SM_PATH . 'plugins/newmail/newmail_opt.php',
87
'desc' => _("This configures settings for playing sounds and/or showing popup windows when new mail arrives."),
93
function newmail_sav() {
94
global $data_dir, $username;
96
if ( sqgetGlobalVar('submit_newmail', $submit, SQ_POST) ) {
101
$media_changetitle = '';
104
sqgetGlobalVar('media_enable', $media_enable, SQ_POST);
105
sqgetGlobalVar('media_popup', $media_popup, SQ_POST);
106
sqgetGlobalVar('media_allbox', $media_allbox, SQ_POST);
107
sqgetGlobalVar('media_recent', $media_recent, SQ_POST);
108
sqgetGlobalVar('media_changetitle', $media_changetitle, SQ_POST);
110
setPref($data_dir,$username,'newmail_enable',$media_enable);
111
setPref($data_dir,$username,'newmail_popup', $media_popup);
112
setPref($data_dir,$username,'newmail_allbox',$media_allbox);
113
setPref($data_dir,$username,'newmail_recent',$media_recent);
114
setPref($data_dir,$username,'newmail_changetitle',$media_changetitle);
116
if( sqgetGlobalVar('media_sel', $media_sel, SQ_POST) &&
117
($media_sel == '(none)' || $media_sel == '(local media)') ) {
118
removePref($data_dir,$username,'newmail_media');
120
setPref($data_dir,$username,'newmail_media',$media_sel);
122
echo html_tag( 'p', _("New Mail Notification options saved"), 'center' );
126
function newmail_pref() {
128
global $username,$data_dir;
129
global $newmail_media,$newmail_enable,$newmail_popup,$newmail_allbox;
130
global $newmail_recent, $newmail_changetitle;
132
$newmail_recent = getPref($data_dir,$username,'newmail_recent');
133
$newmail_enable = getPref($data_dir,$username,'newmail_enable');
134
$newmail_media = getPref($data_dir, $username, 'newmail_media', '(none)');
135
$newmail_popup = getPref($data_dir, $username, 'newmail_popup');
136
$newmail_allbox = getPref($data_dir, $username, 'newmail_allbox');
137
$newmail_changetitle = getPref($data_dir, $username, 'newmail_changetitle');
141
function newmail_plugin() {
143
global $username, $key, $imapServerAddress, $imapPort,
144
$newmail_media, $newmail_enable, $newmail_popup,
145
$newmail_recent, $newmail_changetitle, $imapConnection, $PHP_SELF;
147
if ($newmail_enable == 'on' ||
148
$newmail_popup == 'on' ||
149
$newmail_changetitle) {
151
// open a connection on the imap port (143)
153
$boxes = sqimap_mailbox_list($imapConnection);
154
$delimeter = sqimap_get_delimiter($imapConnection);
159
for ($i = 0;$i < count($boxes); $i++) {
162
$mailbox = $boxes[$i]['formatted'];
164
if (! isset($boxes[$i]['unseen'])) {
165
$boxes[$i]['unseen'] = '';
167
if ($boxes[$i]['flags']) {
169
for ($h = 0; $h < count($boxes[$i]['flags']); $h++) {
170
if (strtolower($boxes[$i]["flags"][$h]) == 'noselect') {
175
$status += CheckNewMailboxSound($imapConnection,
177
$boxes[$i]['unformatted'],
179
$boxes[$i]['unseen'],
183
$status += CheckNewMailboxSound($imapConnection,
185
$boxes[$i]['unformatted'],
187
$boxes[$i]['unseen'],
193
// sqimap_logout($imapConnection);
195
// If we found unseen messages, then we
196
// will play the sound as follows:
198
if ($newmail_changetitle) {
199
echo "<script language=\"javascript\">\n" .
200
"function ChangeTitleLoad() {\n";
201
if( $totalNew > 1 || $totalNew == 0 ) {
202
echo 'window.parent.document.title = "' .
203
sprintf(_("%s New Messages"), $totalNew ) .
206
echo 'window.parent.document.title = "' .
207
sprintf(_("%s New Message"), $totalNew ) .
210
echo "if (BeforeChangeTitle != null)\n".
211
"BeforeChangeTitle();\n".
213
"BeforeChangeTitle = window.onload;\n".
214
"window.onload = ChangeTitleLoad;\n".
218
if ($totalNew > 0 && $newmail_enable == 'on' && $newmail_media != '' ) {
219
echo "<EMBED SRC=\"$newmail_media\" HIDDEN=TRUE AUTOSTART=TRUE>\n";
221
if ($totalNew > 0 && $newmail_popup == 'on') {
222
echo "<SCRIPT LANGUAGE=\"JavaScript\">\n".
224
"function PopupScriptLoad() {\n".
225
'window.open("'.sqm_baseuri().'plugins/newmail/newmail.php?numnew='.$totalNew.
227
"\"width=200,height=130,scrollbars=no\");\n".
228
"if (BeforePopupScript != null)\n".
229
"BeforePopupScript();\n".
231
"BeforePopupScript = window.onload;\n".
232
"window.onload = PopupScriptLoad;\n".
233
// Idea by: Nic Wolfe (Nic@TimelapseProductions.com)
234
// Web URL: http://fineline.xs.mw
235
// More code from Tyler Akins