<?php
- /**
- * newmail.php
- *
- * Copyright (c) 1999-2002 The SquirrelMail Project Team
- * Copyright (c) 2000 by Michael Huttinger
- * Licensed under the GNU GPL. For full terms see the file COPYING.
- *
- * Quite a hack -- but my first attempt at a plugin. We were
- * looking for a way to play a sound when there was unseen
- * messages to look at. Nice for users who keep the squirrel
- * mail window up for long periods of time and want to know
- * when mail arrives.
- *
- * Basically, I hacked much of left_main.php into a plugin that
- * goes through each mail folder and increments a flag if
- * there are unseen messages. If the final count of unseen
- * folders is > 0, then we play a sound (using the HTML at the
- * far end of this script).
- *
- * This was tested with IE5.0 - but I hear Netscape works well,
- * too (with a plugin).
- *
- * $Id$
- */
-
- function CheckNewMailboxSound($imapConnection, $mailbox, $real_box, $delimeter, $unseen, &$total_unseen) {
- global $folder_prefix, $trash_folder, $sent_folder;
- global $color, $move_to_sent, $move_to_trash;
- global $unseen_notify, $unseen_type, $newmail_allbox, $newmail_recent;
- global $newmail_changetitle;
-
- $mailboxURL = urlencode($real_box);
- $unseen_found = 0;
-
- // Skip folders for Sent and Trash
-
- if ($real_box == $sent_folder ||
- $real_box == $trash_folder) {
- return 0;
- }
-
- if (($unseen_notify == 2 && $real_box == 'INBOX') ||
- ($unseen_notify == 3 && ($newmail_allbox == 'on' ||
- $real_box == 'INBOX'))) {
- $unseen = sqimap_unseen_messages($imapConnection, $real_box);
- $total_unseen += $unseen;
-
- if($newmail_recent == 'on') {
- $unseen = sqimap_mailbox_select( $imapConnection, $real_box, TRUE, TRUE);
- }
-
- if ($unseen > 0) {
- $unseen_found = 1;
- }
- }
- return( $unseen_found );
- }
-
- function squirrelmail_plugin_init_newmail() {
- global $squirrelmail_plugin_hooks;
-
- $squirrelmail_plugin_hooks['left_main_before']['newmail'] = 'newmail_plugin';
- $squirrelmail_plugin_hooks['optpage_register_block']['newmail'] = 'newmail_optpage_register_block';
- $squirrelmail_plugin_hooks['options_save']['newmail'] = 'newmail_sav';
- $squirrelmail_plugin_hooks['loading_prefs']['newmail'] = 'newmail_pref';
- }
-
- function newmail_optpage_register_block() {
- // Gets added to the user's OPTIONS page.
- global $optpage_blocks;
-
- if ( !soupNazi() ) {
-
- /* Register Squirrelspell with the $optionpages array. */
- $optpage_blocks[] = array(
- 'name' => _("NewMail Options"),
- 'url' => '../plugins/newmail/newmail_opt.php',
- 'desc' => _("This configures settings for playing sounds and/or showing popup windows when new mail arrives."),
- 'js' => TRUE
- );
- }
- }
-
- function newmail_sav() {
-
- global $username,$data_dir;
- global $submit_newmail,$media_file,$media_reset,$media_enable,$media_popup;
- global $media_recent,$media_sel;
- global $media_allbox, $media_changetitle;
-
- if ( isset($submit_newmail) ) {
-
- if(isset($media_enable)) {
- setPref($data_dir,$username,'newmail_enable',$media_enable);
- } else {
- setPref($data_dir,$username,'newmail_enable','');
- }
- if(isset($media_popup)) {
- setPref($data_dir,$username,'newmail_popup',$media_popup);
- } else {
- setPref($data_dir,$username,'newmail_popup','');
- }
- if(isset($media_allbox)) {
- setPref($data_dir,$username,'newmail_allbox',$media_allbox);
- } else {
- setPref($data_dir,$username,'newmail_allbox','');
- }
- if(isset($media_recent)) {
- setPref($data_dir,$username,'newmail_recent',$media_recent);
- } else {
- setPref($data_dir,$username,'newmail_recent','');
- }
- if(isset($media_changetitle)) {
- setPref($data_dir,$username,'newmail_changetitle',$media_changetitle);
- } else {
- setPref($data_dir,$username,'newmail_changetitle','');
- }
- if(isset($media_sel)) {
- if($media_sel == '(local media)') {
- setPref($data_dir,$username,'newmail_media',StripSlashes($media_file));
- } else {
- setPref($data_dir,$username,'newmail_media',$media_sel);
- }
- } else {
- setPref($data_dir,$username,'newmail_media','');
- }
- echo html_tag( 'p', _("New Mail Notification options saved"), 'center' );
- }
- }
-
- function newmail_pref() {
-
- global $username,$data_dir;
- global $newmail_media,$newmail_enable,$newmail_popup,$newmail_allbox;
- global $newmail_recent, $newmail_changetitle;
-
- $newmail_recent = getPref($data_dir,$username,'newmail_recent');
- $newmail_enable = getPref($data_dir,$username,'newmail_enable');
- $newmail_media = getPref($data_dir, $username, 'newmail_media', '../plugins/newmail/sounds/Notify.wav');
- $newmail_popup = getPref($data_dir, $username, 'newmail_popup');
- $newmail_allbox = getPref($data_dir, $username, 'newmail_allbox');
- $newmail_changetitle = getPref($data_dir, $username, 'newmail_changetitle');
-
- }
-
- function newmail_plugin() {
-
- global $username,$key,$imapServerAddress,$imapPort;
- global $newmail_media,$newmail_enable,$newmail_popup,$newmail_recent;
- global $newmail_changetitle;
- global $imapConnection;
-
- if ($newmail_enable == 'on' ||
- $newmail_popup == 'on' ||
- $newmail_changetitle) {
-
- // open a connection on the imap port (143)
-
- $boxes = sqimap_mailbox_list($imapConnection);
- $delimeter = sqimap_get_delimiter($imapConnection);
-
- $status = 0;
- $totalNew = 0;
-
- for ($i = 0;$i < count($boxes); $i++) {
-
- $line = '';
- $mailbox = $boxes[$i]['formatted'];
-
- if (! isset($boxes[$i]['unseen']))
- $boxes[$i]['unseen'] = '';
- if ($boxes[$i]['flags']) {
- $noselect = false;
- for ($h = 0; $h < count($boxes[$i]['flags']); $h++) {
- if (strtolower($boxes[$i]["flags"][$h]) == 'noselect')
- $noselect = TRUE;
- }
- if (! $noselect) {
- $status = $status + CheckNewMailboxSound($imapConnection, $mailbox,
- $boxes[$i]['unformatted'], $delimeter, $boxes[$i]['unseen'],
- $totalNew);
- }
- } else {
- $status = $status + CheckNewMailboxSound($imapConnection, $mailbox, $boxes[$i]['unformatted'],
- $delimeter, $boxes[$i]['unseen'], $totalNew);
- }
-
- }
-
- // sqimap_logout($imapConnection);
-
- // If we found unseen messages, then we
- // will play the sound as follows:
-
- if ($newmail_changetitle) {
- echo "<script language=\"javascript\">\n" .
- "function ChangeTitleLoad() {\n";
- if( $totalNew > 1 || $totalNew == 0 ) {
- echo 'window.parent.document.title = "' .
- sprintf(_("%s New Messages"), $totalNew ) .
- "\";\n";
- } else {
- echo 'window.parent.document.title = "' .
- sprintf(_("%s New Message"), $totalNew ) .
- "\";\n";
- }
- echo "if (BeforeChangeTitle != null)\n".
- "BeforeChangeTitle();\n".
- "}\n".
- "BeforeChangeTitle = window.onload;\n".
- "window.onload = ChangeTitleLoad;\n".
- "</script>\n";
- }
-
- if ($status > 0 && $newmail_enable == 'on') {
- echo "<EMBED SRC=\"$newmail_media\" HIDDEN=TRUE AUTOSTART=TRUE>\n";
- }
- if ($status >0 && $newmail_popup == 'on') {
- echo "<SCRIPT LANGUAGE=\"JavaScript\">\n".
- "<!--\n".
- "function PopupScriptLoad() {\n".
- 'window.open("../plugins/newmail/newmail.php", "SMPopup",'.
- "\"width=200,height=130,scrollbars=no\");\n".
- "if (BeforePopupScript != null)\n".
- "BeforePopupScript();\n".
- "}\n".
- "BeforePopupScript = window.onload;\n".
- "window.onload = PopupScriptLoad;\n".
- // Idea by: Nic Wolfe (Nic@TimelapseProductions.com)
- // Web URL: http://fineline.xs.mw
- // More code from Tyler Akins
- "// End -->\n".
- "</script>\n";
-
- }
- }
- }
-?>
+/**
+ * newmail.php
+ *
+ * Copyright (c) 2000 by Michael Huttinger
+ *
+ * Quite a hack -- but my first attempt at a plugin. We were
+ * looking for a way to play a sound when there was unseen
+ * messages to look at. Nice for users who keep the squirrel
+ * mail window up for long periods of time and want to know
+ * when mail arrives.
+ *
+ * Basically, I hacked much of left_main.php into a plugin that
+ * goes through each mail folder and increments a flag if
+ * there are unseen messages. If the final count of unseen
+ * folders is > 0, then we play a sound (using the HTML at the
+ * far end of this script).
+ *
+ * This was tested with IE5.0 - but I hear Netscape works well,
+ * too (with a plugin).
+ *
+ * @copyright © 1999-2007 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
+ * @version $Id$
+ * @package plugins
+ * @subpackage newmail
+ */
+
+
+/**
+ * Init newmail plugin
+ */
+function squirrelmail_plugin_init_newmail() {
+ global $squirrelmail_plugin_hooks;
+ $totalNewArr=array();
+ global $totalNewArr;
+
+ $squirrelmail_plugin_hooks['folder_status']['newmail'] = 'newmail_folder_status';
+ $squirrelmail_plugin_hooks['left_main_after']['newmail'] = 'newmail_plugin';
+ $squirrelmail_plugin_hooks['optpage_register_block']['newmail'] = 'newmail_optpage_register_block';
+ $squirrelmail_plugin_hooks['options_save']['newmail'] = 'newmail_sav';
+ $squirrelmail_plugin_hooks['loading_prefs']['newmail'] = 'newmail_pref';
+ $squirrelmail_plugin_hooks['optpage_set_loadinfo']['newmail'] = 'newmail_set_loadinfo';
+}
+
+/**
+ * Register newmail option block
+ */
+function newmail_optpage_register_block() {
+ include_once(SM_PATH . 'plugins/newmail/functions.php');
+ newmail_optpage_register_block_function();
+}
+
+/**
+ * Save newmail plugin settings
+ */
+function newmail_sav() {
+ include_once(SM_PATH . 'plugins/newmail/functions.php');
+ newmail_sav_function();
+}
+
+/**
+ * Load newmail plugin settings
+ */
+function newmail_pref() {
+ include_once(SM_PATH . 'plugins/newmail/functions.php');
+ newmail_pref_function();
+}
+
+/**
+ * Set loadinfo data
+ *
+ * Used by option page when saving settings.
+ */
+function newmail_set_loadinfo() {
+ include_once(SM_PATH . 'plugins/newmail/functions.php');
+ newmail_set_loadinfo_function();
+}
+
+/**
+ * Insert needed data in left_main
+ */
+function newmail_plugin() {
+ include_once(SM_PATH . 'plugins/newmail/functions.php');
+ newmail_plugin_function();
+}
projects / squirrelmail.git / blobdiff