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).
32 include_once(SM_PATH
. 'functions/display_messages.php');
34 function CheckNewMailboxSound($imapConnection, $mailbox, $real_box, $delimeter, $unseen, &$total_new) {
36 global $trash_folder, $sent_folder,
37 $unseen_notify, $newmail_allbox,
40 $mailboxURL = urlencode($real_box);
41 $unseen = $recent = 0;
43 // Skip folders for Sent and Trash
45 if ($real_box == $sent_folder ||
46 $real_box == $trash_folder) {
50 if (($unseen_notify == 2 && $real_box == 'INBOX') ||
51 ($unseen_notify == 3 && ($newmail_allbox == 'on' ||
52 $real_box == 'INBOX'))) {
53 $status = sqimap_status_messages( $imapConnection, $real_box);
54 if($newmail_recent == 'on') {
55 $total_new +
= $status['RECENT'];
57 $total_new +
= $status['UNSEEN'];
67 function squirrelmail_plugin_init_newmail() {
68 global $squirrelmail_plugin_hooks;
70 $squirrelmail_plugin_hooks['left_main_before']['newmail'] = 'newmail_plugin';
71 $squirrelmail_plugin_hooks['optpage_register_block']['newmail'] = 'newmail_optpage_register_block';
72 $squirrelmail_plugin_hooks['options_save']['newmail'] = 'newmail_sav';
73 $squirrelmail_plugin_hooks['loading_prefs']['newmail'] = 'newmail_pref';
76 function newmail_optpage_register_block() {
77 // Gets added to the user's OPTIONS page.
78 global $optpage_blocks;
80 if ( checkForJavascript() ) {
81 /* Register Squirrelspell with the $optionpages array. */
82 $optpage_blocks[] = array(
83 'name' => _("NewMail Options"),
84 'url' => SM_PATH
. 'plugins/newmail/newmail_opt.php',
85 'desc' => _("This configures settings for playing sounds and/or showing popup windows when new mail arrives."),
91 function newmail_sav() {
92 global $data_dir, $username;
94 if ( sqgetGlobalVar('submit_newmail', $submit, SQ_POST
) ) {
99 $media_changetitle = '';
102 sqgetGlobalVar('media_enable', $media_enable, SQ_POST
);
103 sqgetGlobalVar('media_popup', $media_popup, SQ_POST
);
104 sqgetGlobalVar('media_allbox', $media_allbox, SQ_POST
);
105 sqgetGlobalVar('media_recent', $media_recent, SQ_POST
);
106 sqgetGlobalVar('media_changetitle', $media_changetitle, SQ_POST
);
108 setPref($data_dir,$username,'newmail_enable',$media_enable);
109 setPref($data_dir,$username,'newmail_popup', $media_popup);
110 setPref($data_dir,$username,'newmail_allbox',$media_allbox);
111 setPref($data_dir,$username,'newmail_recent',$media_recent);
112 setPref($data_dir,$username,'newmail_changetitle',$media_changetitle);
114 if( sqgetGlobalVar('media_sel', $media_sel, SQ_POST
) &&
115 ($media_sel == '(none)' ||
$media_sel == '(local media)') ) {
116 removePref($data_dir,$username,'newmail_media');
118 setPref($data_dir,$username,'newmail_media',$media_sel);
120 echo html_tag( 'p', _("New Mail Notification options saved"), 'center' );
124 function newmail_pref() {
126 global $username,$data_dir;
127 global $newmail_media,$newmail_enable,$newmail_popup,$newmail_allbox;
128 global $newmail_recent, $newmail_changetitle;
130 $newmail_recent = getPref($data_dir,$username,'newmail_recent');
131 $newmail_enable = getPref($data_dir,$username,'newmail_enable');
132 $newmail_media = getPref($data_dir, $username, 'newmail_media', '(none)');
133 $newmail_popup = getPref($data_dir, $username, 'newmail_popup');
134 $newmail_allbox = getPref($data_dir, $username, 'newmail_allbox');
135 $newmail_changetitle = getPref($data_dir, $username, 'newmail_changetitle');
139 function newmail_plugin() {
141 global $username, $newmail_media, $newmail_enable, $newmail_popup,
142 $newmail_recent, $newmail_changetitle, $imapConnection, $PHP_SELF;
144 if ($newmail_enable == 'on' ||
145 $newmail_popup == 'on' ||
146 $newmail_changetitle) {
148 // open a connection on the imap port (143)
150 $boxes = sqimap_mailbox_list($imapConnection);
151 $delimeter = sqimap_get_delimiter($imapConnection);
156 for ($i = 0;$i < count($boxes); $i++
) {
159 $mailbox = $boxes[$i]['formatted'];
161 if (! isset($boxes[$i]['unseen'])) {
162 $boxes[$i]['unseen'] = '';
164 if ($boxes[$i]['flags']) {
166 for ($h = 0; $h < count($boxes[$i]['flags']); $h++
) {
167 if (strtolower($boxes[$i]["flags"][$h]) == 'noselect') {
172 $status +
= CheckNewMailboxSound($imapConnection,
174 $boxes[$i]['unformatted'],
176 $boxes[$i]['unseen'],
180 $status +
= CheckNewMailboxSound($imapConnection,
182 $boxes[$i]['unformatted'],
184 $boxes[$i]['unseen'],
190 // sqimap_logout($imapConnection);
192 // If we found unseen messages, then we
193 // will play the sound as follows:
195 if ($newmail_changetitle) {
196 echo "<script language=\"javascript\">\n" .
197 "function ChangeTitleLoad() {\n";
198 echo 'window.parent.document.title = "' .
199 sprintf(ngettext("%s New Message","%s New Messages",$totalNew), $totalNew) .
201 echo "if (BeforeChangeTitle != null)\n".
202 "BeforeChangeTitle();\n".
204 "BeforeChangeTitle = window.onload;\n".
205 "window.onload = ChangeTitleLoad;\n".
209 if ($totalNew > 0 && $newmail_enable == 'on' && $newmail_media != '' ) {
210 echo '<embed src="'.htmlspecialchars($newmail_media) .
211 "\" hidden=\"true\" autostart=\"true\">\n";
213 if ($totalNew > 0 && $newmail_popup == 'on') {
214 echo "<script language=\"JavaScript\">\n".
216 "function PopupScriptLoad() {\n".
217 'window.open("'.sqm_baseuri().'plugins/newmail/newmail.php?numnew='.$totalNew.
219 "\"width=200,height=130,scrollbars=no\");\n".
220 "if (BeforePopupScript != null)\n".
221 "BeforePopupScript();\n".
223 "BeforePopupScript = window.onload;\n".
224 "window.onload = PopupScriptLoad;\n".
225 // Idea by: Nic Wolfe (Nic@TimelapseProductions.com)
226 // Web URL: http://fineline.xs.mw
227 // More code from Tyler Akins