/* Name: NewEventNotify - Plugin for Miranda IM File: popup.c - Displays a popup using the popup-plugin by hrk Version: 2.2.3 Description: Notifies you about some events Author: icebreaker, Date: 21.07.02 15:46 / Update: 16.09.02 17:45 Copyright: (C) 2002 Starzinger Michael This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "stdafx.h" extern int g_IsServiceAvail; static int PopupCount = 0; PLUGIN_DATA* PopupList[MAX_POPUPS]; int NumberPopupData(MCONTACT hContact, int eventType) { for (int n=0; n < MAX_POPUPS; n++) { if (!PopupList[n] && !hContact && eventType == -1) return n; if (PopupList[n] && (PopupList[n]->hContact == hContact) && (PopupList[n]->iLock == 0) && (eventType == -1 || PopupList[n]->eventType == (UINT)eventType)) return n; } return -1; } static int FindPopupData(PLUGIN_DATA* pdata) { for (int n=0; n < MAX_POPUPS; n++) if (PopupList[n] == pdata) return n; return -1; } static void FreePopupEventData(PLUGIN_DATA* pdata) { pdata->iLock = 1; EVENT_DATA_EX* eventData = pdata->firstEventData; while (eventData) { if (eventData->next) { eventData = eventData->next; mir_free(eventData->prev); eventData->prev = NULL; } else { mir_free(eventData); eventData = NULL; } } pdata->lastEventData = pdata->firstEventData = pdata->firstShowEventData = NULL; // remove from popup list if present if (FindPopupData(pdata) != -1) PopupList[FindPopupData(pdata)] = NULL; } int PopupAct(HWND hWnd, UINT mask, PLUGIN_DATA* pdata) { if (mask & MASK_OPEN) { if (pdata) { // do MS_MSG_SENDMESSAGE instead if wanted to reply and not read! if (pdata->pluginOptions->bMsgReplyWindow && pdata->eventType == EVENTTYPE_MESSAGE) CallServiceSync(MS_MSG_SENDMESSAGE, (WPARAM)pdata->hContact, 0); // JK, use core (since 0.3.3+) else { EVENT_DATA_EX *eventData = pdata->firstEventData; if (eventData == NULL) return 0; for (int idx = 0;; idx++) { CLISTEVENT *cle = pcli->pfnGetEvent(pdata->hContact, idx); if (cle == NULL) break; if (cle->hDbEvent == eventData->hEvent) { if (ServiceExists(cle->pszService)) CallServiceSync(cle->pszService, 0, (LPARAM)cle); // JK, use core (since 0.3.3+) break; } } } } } if (mask & MASK_REMOVE) { if (pdata) { EVENT_DATA_EX *eventData = pdata->firstEventData; pdata->iLock = 1; while (eventData) { pcli->pfnRemoveEvent(pdata->hContact, eventData->hEvent); db_event_markRead(pdata->hContact, eventData->hEvent); eventData = eventData->next; } FreePopupEventData(pdata); } } if (mask & MASK_DISMISS) { KillTimer(hWnd, TIMER_TO_ACTION); FreePopupEventData(pdata); PUDeletePopup(hWnd); } return 0; } static LRESULT CALLBACK PopupDlgProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam) { PLUGIN_DATA *pdata = (PLUGIN_DATA*)PUGetPluginData(hWnd); if (pdata == NULL) return FALSE; switch (message) { case WM_COMMAND: PopupAct(hWnd, pdata->pluginOptions->maskActL, pdata); break; case WM_CONTEXTMENU: PopupAct(hWnd, pdata->pluginOptions->maskActR, pdata); break; case UM_FREEPLUGINDATA: PopupCount--; mir_free(pdata); return TRUE; case UM_INITPOPUP: pdata->hWnd = hWnd; SetTimer(hWnd, TIMER_TO_ACTION, pdata->iSeconds * 1000, NULL); break; case WM_MOUSEWHEEL: if ((short)HIWORD(wParam) > 0 && pdata->firstShowEventData->prev && (pdata->pluginOptions->bShowON || pdata->firstShowEventData->number >= pdata->pluginOptions->iNumberMsg)) { pdata->firstShowEventData = pdata->firstShowEventData->prev; PopupUpdate(pdata->hContact, NULL); } if ((short)HIWORD(wParam) < 0 && pdata->firstShowEventData->next && (!pdata->pluginOptions->bShowON || pdata->countEvent - pdata->firstShowEventData->number >= pdata->pluginOptions->iNumberMsg)) { pdata->firstShowEventData = pdata->firstShowEventData->next; PopupUpdate(pdata->hContact, NULL); } break; case WM_SETCURSOR: SetFocus(hWnd); break; case WM_TIMER: if (wParam != TIMER_TO_ACTION) break; PopupAct(hWnd, pdata->pluginOptions->maskActTE, pdata); break; } return DefWindowProc(hWnd, message, wParam, lParam); } static TCHAR* GetEventPreview(DBEVENTINFO *dbei) { TCHAR *comment1 = NULL; TCHAR *comment2 = NULL; char *commentFix = NULL; //now get text switch (dbei->eventType) { case EVENTTYPE_MESSAGE: if (dbei->pBlob) { if (dbei->flags & DBEF_UTF) { // utf-8 in blob comment1 = mir_utf8decodeT((char*)dbei->pBlob); } else if (dbei->cbBlob == (mir_tstrlen((TCHAR *)dbei->pBlob)+1)*(sizeof(TCHAR)+1)) { // wchar in blob (the old hack) comment1 = mir_tstrdup((TCHAR*)dbei->pBlob); } else comment1 = mir_a2t((char *)dbei->pBlob); } commentFix = POPUP_COMMENT_MESSAGE; break; case EVENTTYPE_URL: // url if (dbei->pBlob) comment2 = mir_a2t((char *)dbei->pBlob); // comment if (dbei->pBlob) comment1 = mir_a2t((char *)dbei->pBlob + mir_strlen((char *)dbei->pBlob) + 1); commentFix = POPUP_COMMENT_URL; break; case EVENTTYPE_FILE: if (dbei->pBlob) { char *p = (char*)dbei->pBlob + sizeof(DWORD); // filenames comment2 = (dbei->flags & DBEF_UTF) ? mir_utf8decodeT(p) : mir_a2t(p); p += mir_strlen(p) + 1; // description comment1 = (dbei->flags & DBEF_UTF) ? mir_utf8decodeT(p) : mir_a2t(p); } commentFix = POPUP_COMMENT_FILE; break; //blob format is: //ASCIIZ nick //ASCIIZ UID case EVENTTYPE_CONTACTS: if (dbei->pBlob) { // count contacts in event char* pcBlob = (char *)dbei->pBlob; char* pcEnd = (char *)(dbei->pBlob + dbei->cbBlob); int nContacts; TCHAR szBuf[512]; for (nContacts = 1; ; nContacts++) { // Nick pcBlob += mir_strlen(pcBlob) + 1; // UIN pcBlob += mir_strlen(pcBlob) + 1; // check for end of contacts if (pcBlob >= pcEnd) break; } mir_sntprintf(szBuf, TranslateT("Received %d contacts."), nContacts); comment1 = mir_tstrdup(szBuf); } commentFix = POPUP_COMMENT_CONTACTS; break; //blob format is: //DWORD numeric uin (ICQ only afaik) //DWORD HANDLE to contact //ASCIIZ nick (or text UID) //ASCIIZ first name //ASCIIZ last name //ASCIIZ email (or YID) case EVENTTYPE_ADDED: if (dbei->pBlob) { char szUin[16]; TCHAR szBuf[2048]; TCHAR* szNick = NULL; char *pszNick = (char *)dbei->pBlob + 8; char *pszFirst = pszNick + mir_strlen(pszNick) + 1; char *pszLast = pszFirst + mir_strlen(pszFirst) + 1; char *pszEmail = pszLast + mir_strlen(pszLast) + 1; mir_snprintf(szUin, "%d", *((DWORD*)dbei->pBlob)); if (mir_strlen(pszNick) > 0) { if (dbei->flags & DBEF_UTF) szNick = mir_utf8decodeT(pszNick); else szNick = mir_a2t(pszNick); } else if (mir_strlen(pszEmail) > 0) { if (dbei->flags & DBEF_UTF) szNick = mir_utf8decodeT(pszEmail); else szNick = mir_a2t(pszEmail); } else if (*((DWORD*)dbei->pBlob) > 0) szNick = mir_a2t(szUin); if (szNick) { mir_tstrcpy(szBuf, szNick); mir_tstrcat(szBuf, TranslateT(" added you to the contact list")); mir_free(szNick); comment1 = mir_tstrdup(szBuf); } } commentFix = POPUP_COMMENT_ADDED; break; case EVENTTYPE_AUTHREQUEST: if (dbei->pBlob) { char szUin[16]; TCHAR szBuf[2048]; TCHAR* szNick = NULL; char *pszNick = (char *)dbei->pBlob + 8; char *pszFirst = pszNick + mir_strlen(pszNick) + 1; char *pszLast = pszFirst + mir_strlen(pszFirst) + 1; char *pszEmail = pszLast + mir_strlen(pszLast) + 1; mir_snprintf(szUin, "%d", *((DWORD*)dbei->pBlob)); if (mir_strlen(pszNick) > 0) { if (dbei->flags & DBEF_UTF) szNick = mir_utf8decodeT(pszNick); else szNick = mir_a2t(pszNick); } else if (mir_strlen(pszEmail) > 0) { if (dbei->flags & DBEF_UTF) szNick = mir_utf8decodeT(pszEmail); else szNick = mir_a2t(pszEmail); } else if (*((DWORD*)dbei->pBlob) > 0) szNick = mir_a2t(szUin); if (szNick) { mir_tstrcpy(szBuf, szNick); mir_tstrcat(szBuf, TranslateT(" requested authorization")); mir_free(szNick); comment1 = mir_tstrdup(szBuf); } } commentFix = POPUP_COMMENT_AUTH; break; //blob format is: //ASCIIZ text, usually "Sender IP: xxx.xxx.xxx.xxx\r\n%s" //ASCIIZ from name //ASCIIZ from e-mail case ICQEVENTTYPE_WEBPAGER: if (dbei->pBlob) comment1 = mir_a2t((const char *)dbei->pBlob); commentFix = POPUP_COMMENT_WEBPAGER; break; //blob format is: //ASCIIZ text, usually of the form "Subject: %s\r\n%s" //ASCIIZ from name //ASCIIZ from e-mail case ICQEVENTTYPE_EMAILEXPRESS: if (dbei->pBlob) comment1 = mir_a2t((const char *)dbei->pBlob); commentFix = POPUP_COMMENT_EMAILEXP; break; //blob format is: //ASCIIZ text, usually of the form "SMS From: +XXXXXXXX\r\nTEXT" case ICQEVENTTYPE_SMS: if (dbei->pBlob) { if (dbei->flags & DBEF_UTF) { // utf-8 in blob comment1 = mir_utf8decodeT((char*)dbei->pBlob); } else if (dbei->cbBlob == (mir_tstrlen((TCHAR *)dbei->pBlob)+1)*(sizeof(TCHAR)+1)) { // wchar in blob (the old hack) comment1 = mir_tstrdup((TCHAR*)dbei->pBlob); } else comment1 = mir_a2t((char *)dbei->pBlob); } commentFix = POPUP_COMMENT_SMS; break; //blob format is: //ASCIIZ text, usually of the form "SMS Confirmation From: +XXXXXXXXXXXX\r\nSMS was sent succesfully" case ICQEVENTTYPE_SMSCONFIRMATION: if (dbei->pBlob) { if (dbei->flags & DBEF_UTF) { // utf-8 in blob comment1 = mir_utf8decodeT((char*)dbei->pBlob); } else if (dbei->cbBlob == (mir_tstrlen((TCHAR *)dbei->pBlob)+1)*(sizeof(TCHAR)+1)) { // wchar in blob (the old hack) comment1 = mir_tstrdup((TCHAR*)dbei->pBlob); } else comment1 = mir_a2t((char *)dbei->pBlob); } commentFix = POPUP_COMMENT_SMSCONFIRMATION; break; default: if (ServiceExists(MS_DB_EVENT_GETTYPE)) { DBEVENTTYPEDESCR *pei = (DBEVENTTYPEDESCR*)CallService(MS_DB_EVENT_GETTYPE, (WPARAM)dbei->szModule, (LPARAM)dbei->eventType); // support for custom database event types if (pei && dbei->pBlob) { DBEVENTGETTEXT svc = {dbei, DBVT_TCHAR, CP_ACP}; TCHAR *pet = (TCHAR*)CallService(MS_DB_EVENT_GETTEXT, 0, (LPARAM)&svc); if (pet) { // we've got event text, move to our memory space comment1 = mir_tstrdup(pet); mir_free(pet); } commentFix = pei->descr; } else commentFix = POPUP_COMMENT_OTHER; } else commentFix = POPUP_COMMENT_OTHER; } if ( mir_tstrlen(comment1) > 0) { mir_free(comment2); return comment1; } if ( mir_tstrlen(comment2) > 0) { mir_free(comment1); return comment2; } mir_free(comment1); mir_free(comment2); return TranslateTS( mir_a2t(commentFix)); } int PopupShow(PLUGIN_OPTIONS* pluginOptions, MCONTACT hContact, MEVENT hEvent, UINT eventType) { TCHAR* sampleEvent; long iSeconds; //there has to be a maximum number of popups shown at the same time if (PopupCount >= MAX_POPUPS) return 2; //check if we should report this kind of event //get the prefered icon as well //CHANGE: iSeconds is -1 because I use my timer to hide popup POPUPDATAW pudw; pudw.iSeconds = -1; switch (eventType) { case EVENTTYPE_MESSAGE: if (!(pluginOptions->maskNotify & MASK_MESSAGE)) return 1; pudw.lchIcon = Skin_LoadIcon(SKINICON_EVENT_MESSAGE); pudw.colorBack = pluginOptions->bDefaultColorMsg ? 0 : pluginOptions->colBackMsg; pudw.colorText = pluginOptions->bDefaultColorMsg ? 0 : pluginOptions->colTextMsg; iSeconds = pluginOptions->iDelayMsg; sampleEvent = TranslateT("This is a sample message event :-)"); break; case EVENTTYPE_URL: if (!(pluginOptions->maskNotify & MASK_URL)) return 1; pudw.lchIcon = Skin_LoadIcon(SKINICON_EVENT_URL); pudw.colorBack = pluginOptions->bDefaultColorUrl ? 0 : pluginOptions->colBackUrl; pudw.colorText = pluginOptions->bDefaultColorUrl ? 0 : pluginOptions->colTextUrl; iSeconds = pluginOptions->iDelayUrl; sampleEvent = TranslateT("This is a sample URL event ;-)"); break; case EVENTTYPE_FILE: if (!(pluginOptions->maskNotify & MASK_FILE)) return 1; pudw.lchIcon = Skin_LoadIcon(SKINICON_EVENT_FILE); pudw.colorBack = pluginOptions->bDefaultColorFile ? 0 : pluginOptions->colBackFile; pudw.colorText = pluginOptions->bDefaultColorFile ? 0 : pluginOptions->colTextFile; iSeconds = pluginOptions->iDelayFile; sampleEvent = TranslateT("This is a sample file event :-D"); break; default: if (!(pluginOptions->maskNotify & MASK_OTHER)) return 1; pudw.lchIcon = Skin_LoadIcon(SKINICON_OTHER_MIRANDA); pudw.colorBack = pluginOptions->bDefaultColorOthers ? 0 : pluginOptions->colBackOthers; pudw.colorText = pluginOptions->bDefaultColorOthers ? 0 : pluginOptions->colTextOthers; iSeconds = pluginOptions->iDelayOthers; sampleEvent = TranslateT("This is a sample other event ;-D"); break; } //get DBEVENTINFO with pBlob if preview is needed (when is test then is off) DBEVENTINFO dbe = { sizeof(dbe) }; if (hEvent) { if ((pluginOptions->bPreview || eventType == EVENTTYPE_ADDED || eventType == EVENTTYPE_AUTHREQUEST)) { dbe.cbBlob = db_event_getBlobSize(hEvent); dbe.pBlob = (PBYTE)mir_alloc(dbe.cbBlob); } db_event_get(hEvent, &dbe); } EVENT_DATA_EX *eventData = (EVENT_DATA_EX*)mir_alloc(sizeof(EVENT_DATA_EX)); eventData->hEvent = hEvent; eventData->number = 1; eventData->next = NULL; eventData->prev = NULL; // retrieve correct hContact for AUTH events if (dbe.pBlob && (eventType == EVENTTYPE_ADDED || eventType == EVENTTYPE_AUTHREQUEST)) hContact = DbGetAuthEventContact(&dbe); // set plugin_data ... will be usable within PopupDlgProc PLUGIN_DATA *pdata = (PLUGIN_DATA*)mir_alloc(sizeof(PLUGIN_DATA)); pdata->eventType = eventType; pdata->hContact = hContact; pdata->pluginOptions = pluginOptions; pdata->countEvent = 1; pdata->iLock = 0; pdata->iSeconds = (iSeconds > 0) ? iSeconds : pluginOptions->iDelayDefault; pdata->firstEventData = pdata->firstShowEventData = pdata->lastEventData = eventData; // finally create the popup pudw.lchContact = hContact; pudw.PluginWindowProc = PopupDlgProc; pudw.PluginData = pdata; // if hContact is NULL, && hEvent is NULL then popup is only Test if ((hContact == NULL) && (hEvent == NULL)) { _tcsncpy(pudw.lptzContactName, TranslateT("Plugin Test"), MAX_CONTACTNAME); _tcsncpy(pudw.lptzText, TranslateTS(sampleEvent), MAX_SECONDLINE); } else { // get the needed event data _tcsncpy(pudw.lptzContactName, (TCHAR*)pcli->pfnGetContactDisplayName(hContact, 0), MAX_CONTACTNAME); _tcsncpy(pudw.lptzText, ptrT(GetEventPreview(&dbe)), MAX_SECONDLINE); } PopupCount++; PopupList[NumberPopupData(NULL, -1)] = pdata; // send data to popup plugin if (ServiceExists(MS_POPUP_ADDPOPUPT)) { // popup creation failed, release popupdata if (PUAddPopupW(&pudw) < 0) { FreePopupEventData(pdata); mir_free(pdata); } } if (dbe.pBlob) mir_free(dbe.pBlob); return 0; } int PopupUpdate(MCONTACT hContact, MEVENT hEvent) { // merge only message popups PLUGIN_DATA *pdata = (PLUGIN_DATA*)PopupList[NumberPopupData(hContact, EVENTTYPE_MESSAGE)]; if (hEvent) { pdata->countEvent++; pdata->lastEventData->next = (EVENT_DATA_EX *)mir_alloc(sizeof(EVENT_DATA_EX)); pdata->lastEventData->next->prev = pdata->lastEventData; pdata->lastEventData = pdata->lastEventData->next; pdata->lastEventData->hEvent = hEvent; pdata->lastEventData->number = pdata->lastEventData->prev->number + 1; pdata->lastEventData->next = NULL; if (!pdata->pluginOptions->bShowON && pdata->countEvent > pdata->pluginOptions->iNumberMsg && pdata->pluginOptions->iNumberMsg) pdata->firstShowEventData = pdata->firstShowEventData->next; //re-init timer delay KillTimer(pdata->hWnd, TIMER_TO_ACTION); SetTimer(pdata->hWnd, TIMER_TO_ACTION, pdata->iSeconds * 1000, NULL); } TCHAR lpzText[MAX_SECONDLINE*2] = _T("\0\0"); if (pdata->pluginOptions->bShowHeaders) mir_sntprintf(lpzText, TranslateT("[b]Number of new message(s): %d[/b]\n"), pdata->countEvent); int doReverse = pdata->pluginOptions->bShowON; if ((pdata->firstShowEventData != pdata->firstEventData && doReverse) || (pdata->firstShowEventData != pdata->lastEventData && !doReverse)) mir_sntprintf(lpzText, _T("%s...\n"), lpzText); //take the active event as starting one EVENT_DATA_EX *eventData = pdata->firstShowEventData; int iEvent = 0; while (true) { if (iEvent) eventData = (doReverse) ? eventData->next : eventData->prev; iEvent++; //get DBEVENTINFO with pBlob if preview is needed (when is test then is off) DBEVENTINFO dbe = {0}; dbe.cbSize = sizeof(dbe); dbe.pBlob = NULL; dbe.cbBlob = 0; if (pdata->pluginOptions->bPreview && eventData->hEvent) { dbe.cbBlob = db_event_getBlobSize(eventData->hEvent); dbe.pBlob = (PBYTE)mir_alloc(dbe.cbBlob); } if (eventData->hEvent) db_event_get(eventData->hEvent, &dbe); if (pdata->pluginOptions->bShowDate || pdata->pluginOptions->bShowTime) { TCHAR timestamp[MAX_DATASIZE]; TCHAR formatTime[MAX_DATASIZE]; if (pdata->pluginOptions->bShowDate) _tcsncpy(formatTime, _T("%Y.%m.%d"), _countof(formatTime)); else if (pdata->pluginOptions->bShowTime) mir_tstrncat(formatTime, _T(" %H:%M"), _countof(formatTime) - mir_tstrlen(formatTime)); time_t localTime = dbe.timestamp; _tcsftime(timestamp, _countof(timestamp), formatTime, localtime(&localTime)); mir_sntprintf(lpzText, _T("%s[b][i]%s[/i][/b]\n"), lpzText, timestamp); } // prepare event preview TCHAR* szEventPreview = GetEventPreview(&dbe); mir_sntprintf(lpzText, _T("%s%s"), lpzText, szEventPreview); mir_free(szEventPreview); if (dbe.pBlob) mir_free(dbe.pBlob); if (doReverse) { if ((iEvent >= pdata->pluginOptions->iNumberMsg && pdata->pluginOptions->iNumberMsg) || !eventData->next) break; } else if ((iEvent >= pdata->pluginOptions->iNumberMsg && pdata->pluginOptions->iNumberMsg) || !eventData->prev) break; mir_sntprintf(lpzText, _T("%s\n"), lpzText); } if ((doReverse && eventData->next) || (!doReverse && eventData->prev)) mir_sntprintf(lpzText, _T("%s\n..."), lpzText); PUChangeTextT(pdata->hWnd, lpzText); return 0; } int PopupPreview(PLUGIN_OPTIONS* pluginOptions) { PopupShow(pluginOptions, NULL, NULL, EVENTTYPE_MESSAGE); PopupShow(pluginOptions, NULL, NULL, EVENTTYPE_URL); PopupShow(pluginOptions, NULL, NULL, EVENTTYPE_FILE); PopupShow(pluginOptions, NULL, NULL, -1); return 0; }