/* IRC plugin for Miranda IM Copyright (C) 2003-05 Jurgen Persson Copyright (C) 2007-09 George Hazan 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. */ // This file holds functions that are called upon receiving // certain commands from the server. #include "stdafx.h" #include "version.h" using namespace irc; VOID CALLBACK IdentTimerProc(HWND, UINT, UINT_PTR idEvent, DWORD) { CIrcProto *ppro = GetTimerOwner(idEvent); if (ppro == NULL) return; ppro->KillChatTimer(ppro->IdentTimer); if (ppro->m_iStatus == ID_STATUS_OFFLINE || ppro->m_iStatus == ID_STATUS_CONNECTING) return; if (ppro->IsConnected() && ppro->m_identTimer) ppro->KillIdent(); } VOID CALLBACK TimerProc(HWND, UINT, UINT_PTR idEvent, DWORD) { CIrcProto *ppro = GetTimerOwner(idEvent); if (ppro == NULL) return; ppro->KillChatTimer(ppro->InitTimer); if (ppro->m_iStatus == ID_STATUS_OFFLINE || ppro->m_iStatus == ID_STATUS_CONNECTING) return; if (ppro->m_forceVisible) ppro->PostIrcMessage(L"/MODE %s -i", ppro->m_info.sNick); if (mir_strlen(ppro->m_myHost) == 0 && ppro->IsConnected()) ppro->DoUserhostWithReason(2, (L"S" + ppro->m_info.sNick), true, L"%s", ppro->m_info.sNick); } VOID CALLBACK KeepAliveTimerProc(HWND, UINT, UINT_PTR idEvent, DWORD) { CIrcProto *ppro = GetTimerOwner(idEvent); if (ppro == NULL) return; if (!ppro->m_sendKeepAlive || (ppro->m_iStatus == ID_STATUS_OFFLINE || ppro->m_iStatus == ID_STATUS_CONNECTING)) { ppro->KillChatTimer(ppro->KeepAliveTimer); return; } wchar_t temp2[270]; if (!ppro->m_info.sServerName.IsEmpty()) mir_snwprintf(temp2, L"PING %s", ppro->m_info.sServerName); else mir_snwprintf(temp2, L"PING %u", time(0)); if (ppro->IsConnected()) ppro->SendIrcMessage(temp2, false); } VOID CALLBACK OnlineNotifTimerProc3(HWND, UINT, UINT_PTR idEvent, DWORD) { CIrcProto *ppro = GetTimerOwner(idEvent); if (ppro == NULL) return; if (!ppro->m_channelAwayNotification || ppro->m_iStatus == ID_STATUS_OFFLINE || ppro->m_iStatus == ID_STATUS_CONNECTING || (!ppro->m_autoOnlineNotification && !ppro->bTempForceCheck) || ppro->bTempDisableCheck) { ppro->KillChatTimer(ppro->OnlineNotifTimer3); ppro->m_channelsToWho = L""; return; } CMStringW name = GetWord(ppro->m_channelsToWho, 0); if (name.IsEmpty()) { ppro->m_channelsToWho = L""; int count = pci->SM_GetCount(ppro->m_szModuleName); for (int i = 0; i < count; i++) { GC_INFO gci = { 0 }; gci.Flags = GCF_BYINDEX | GCF_NAME | GCF_TYPE | GCF_COUNT; gci.iItem = i; gci.pszModule = ppro->m_szModuleName; if (!Chat_GetInfo(&gci) && gci.iType == GCW_CHATROOM) if (gci.iCount <= ppro->m_onlineNotificationLimit) ppro->m_channelsToWho += CMStringW(gci.pszName) + L" "; } } if (ppro->m_channelsToWho.IsEmpty()) { ppro->SetChatTimer(ppro->OnlineNotifTimer3, 60 * 1000, OnlineNotifTimerProc3); return; } name = GetWord(ppro->m_channelsToWho, 0); ppro->DoUserhostWithReason(2, L"S" + name, true, L"%s", name); CMStringW temp = GetWordAddress(ppro->m_channelsToWho, 1); ppro->m_channelsToWho = temp; if (ppro->m_iTempCheckTime) ppro->SetChatTimer(ppro->OnlineNotifTimer3, ppro->m_iTempCheckTime * 1000, OnlineNotifTimerProc3); else ppro->SetChatTimer(ppro->OnlineNotifTimer3, ppro->m_onlineNotificationTime * 1000, OnlineNotifTimerProc3); } VOID CALLBACK OnlineNotifTimerProc(HWND, UINT, UINT_PTR idEvent, DWORD) { CIrcProto *ppro = GetTimerOwner(idEvent); if (ppro == NULL) return; if (ppro->m_iStatus == ID_STATUS_OFFLINE || ppro->m_iStatus == ID_STATUS_CONNECTING || (!ppro->m_autoOnlineNotification && !ppro->bTempForceCheck) || ppro->bTempDisableCheck) { ppro->KillChatTimer(ppro->OnlineNotifTimer); ppro->m_namesToWho = L""; return; } CMStringW name = GetWord(ppro->m_namesToWho, 0); CMStringW name2 = GetWord(ppro->m_namesToUserhost, 0); if (name.IsEmpty() && name2.IsEmpty()) { DBVARIANT dbv; for (MCONTACT hContact = db_find_first(ppro->m_szModuleName); hContact; hContact = db_find_next(hContact, ppro->m_szModuleName)) { if (ppro->isChatRoom(hContact)) continue; BYTE bDCC = ppro->getByte(hContact, "DCC", 0); BYTE bHidden = db_get_b(hContact, "CList", "Hidden", 0); if (bDCC || bHidden) continue; if (ppro->getWString(hContact, "Default", &dbv)) continue; BYTE bAdvanced = ppro->getByte(hContact, "AdvancedMode", 0); if (!bAdvanced) { db_free(&dbv); if (!ppro->getWString(hContact, "Nick", &dbv)) { ppro->m_namesToUserhost += CMStringW(dbv.ptszVal) + L" "; db_free(&dbv); } } else { db_free(&dbv); DBVARIANT dbv2; wchar_t* DBNick = NULL; wchar_t* DBWildcard = NULL; if (!ppro->getWString(hContact, "Nick", &dbv)) DBNick = dbv.ptszVal; if (!ppro->getWString(hContact, "UWildcard", &dbv2)) DBWildcard = dbv2.ptszVal; if (DBNick && (!DBWildcard || !WCCmp(CharLower(DBWildcard), CharLower(DBNick)))) ppro->m_namesToWho += CMStringW(DBNick) + L" "; else if (DBWildcard) ppro->m_namesToWho += CMStringW(DBWildcard) + L" "; if (DBNick) db_free(&dbv); if (DBWildcard) db_free(&dbv2); } } } if (ppro->m_namesToWho.IsEmpty() && ppro->m_namesToUserhost.IsEmpty()) { ppro->SetChatTimer(ppro->OnlineNotifTimer, 60 * 1000, OnlineNotifTimerProc); return; } name = GetWord(ppro->m_namesToWho, 0); name2 = GetWord(ppro->m_namesToUserhost, 0); CMStringW temp; if (!name.IsEmpty()) { ppro->DoUserhostWithReason(2, L"S" + name, true, L"%s", name); temp = GetWordAddress(ppro->m_namesToWho, 1); ppro->m_namesToWho = temp; } if (!name2.IsEmpty()) { CMStringW params; for (int i = 0; i < 3; i++) { params = L""; for (int j = 0; j < 5; j++) params += GetWord(ppro->m_namesToUserhost, i * 5 + j) + L" "; if (params[0] != ' ') ppro->DoUserhostWithReason(1, CMStringW(L"S") + params, true, params); } temp = GetWordAddress(ppro->m_namesToUserhost, 15); ppro->m_namesToUserhost = temp; } if (ppro->m_iTempCheckTime) ppro->SetChatTimer(ppro->OnlineNotifTimer, ppro->m_iTempCheckTime * 1000, OnlineNotifTimerProc); else ppro->SetChatTimer(ppro->OnlineNotifTimer, ppro->m_onlineNotificationTime * 1000, OnlineNotifTimerProc); } int CIrcProto::AddOutgoingMessageToDB(MCONTACT hContact, const wchar_t *msg) { if (m_iStatus == ID_STATUS_OFFLINE || m_iStatus == ID_STATUS_CONNECTING) return 0; CMStringW S = DoColorCodes(msg, TRUE, FALSE); DBEVENTINFO dbei = { sizeof(dbei) }; dbei.szModule = m_szModuleName; dbei.eventType = EVENTTYPE_MESSAGE; dbei.timestamp = (DWORD)time(NULL); dbei.flags = DBEF_SENT + DBEF_UTF; dbei.pBlob = (PBYTE)mir_utf8encodeW(S); dbei.cbBlob = (DWORD)mir_strlen((char*)dbei.pBlob) + 1; db_event_add(hContact, &dbei); mir_free(dbei.pBlob); return 1; } void __cdecl CIrcProto::ResolveIPThread(void *di) { Thread_SetName("IRC: ResolveIPThread"); IPRESOLVE* ipr = (IPRESOLVE *)di; { mir_cslock lock(m_resolve); if (ipr != NULL && (ipr->iType == IP_AUTO && mir_strlen(m_myHost) == 0 || ipr->iType == IP_MANUAL)) { hostent* myhost = gethostbyname(ipr->sAddr); if (myhost) { IN_ADDR in; memcpy(&in, myhost->h_addr, 4); if (ipr->iType == IP_AUTO) strncpy_s(m_myHost, inet_ntoa(in), _TRUNCATE); else strncpy_s(m_mySpecifiedHostIP, inet_ntoa(in), _TRUNCATE); } } } delete ipr; } bool CIrcProto::OnIrc_PING(const CIrcMessage* pmsg) { wchar_t szResponse[100]; mir_snwprintf(szResponse, L"PONG %s", pmsg->parameters[0]); SendIrcMessage(szResponse); return false; } bool CIrcProto::OnIrc_WELCOME(const CIrcMessage* pmsg) { if (pmsg->parameters[0] != m_info.sNick) m_info.sNick = pmsg->parameters[0]; if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) { static wchar_t host[1024]; int i = 0; CMStringW word = GetWord(pmsg->parameters[1], i); while (!word.IsEmpty()) { if (wcschr(word, '!') && wcschr(word, '@')) { mir_wstrncpy(host, word, _countof(host)); wchar_t* p1 = wcschr(host, '@'); if (p1) ForkThread(&CIrcProto::ResolveIPThread, new IPRESOLVE(_T2A(p1 + 1), IP_AUTO)); } word = GetWord(pmsg->parameters[1], ++i); } } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOTOOLONG(const CIrcMessage* pmsg) { CMStringW command = GetNextUserhostReason(2); if (command[0] == 'U') ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_BACKFROMAWAY(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { int Temp = m_iStatus; m_iStatus = m_iDesiredStatus = ID_STATUS_ONLINE; ProtoBroadcastAck(NULL, ACKTYPE_STATUS, ACKRESULT_SUCCESS, (HANDLE)Temp, ID_STATUS_ONLINE); if (m_perform) DoPerform("Event: Available"); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_SETAWAY(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { int Temp = m_iDesiredStatus; m_iStatus = m_iDesiredStatus = ID_STATUS_AWAY; ProtoBroadcastAck(NULL, ACKTYPE_STATUS, ACKRESULT_SUCCESS, (HANDLE)Temp, ID_STATUS_AWAY); if (m_perform) { switch (Temp) { case ID_STATUS_AWAY: DoPerform("Event: Away"); break; case ID_STATUS_NA: DoPerform("Event: Not available"); break; case ID_STATUS_DND: DoPerform("Event: Do not disturb"); break; case ID_STATUS_OCCUPIED: DoPerform("Event: Occupied"); break; case ID_STATUS_OUTTOLUNCH: DoPerform("Event: Out for lunch"); break; case ID_STATUS_ONTHEPHONE: DoPerform("Event: On the phone"); break; default: m_iStatus = ID_STATUS_AWAY; DoPerform("Event: Away"); break; } } } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_JOIN(const CIrcMessage* pmsg) { if (pmsg->parameters.getCount() > 0 && pmsg->m_bIncoming && pmsg->prefix.sNick != m_info.sNick) { CMStringW host = pmsg->prefix.sUser + L"@" + pmsg->prefix.sHost; DoEvent(GC_EVENT_JOIN, pmsg->parameters[0], pmsg->prefix.sNick, NULL, TranslateT("Normal"), host, NULL, true, false); DoEvent(GC_EVENT_SETCONTACTSTATUS, pmsg->parameters[0], pmsg->prefix.sNick, NULL, NULL, NULL, ID_STATUS_ONLINE, FALSE, FALSE); } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_QUIT(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { CMStringW host = pmsg->prefix.sUser + L"@" + pmsg->prefix.sHost; DoEvent(GC_EVENT_QUIT, NULL, pmsg->prefix.sNick, pmsg->parameters.getCount() > 0 ? pmsg->parameters[0].c_str() : NULL, NULL, host, NULL, true, false); CONTACT user = { pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, false, false, false }; CList_SetOffline(&user); if (pmsg->prefix.sNick == m_info.sNick) Chat_Control(m_szModuleName, NULL, SESSION_OFFLINE); } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_PART(const CIrcMessage* pmsg) { if (pmsg->parameters.getCount() > 0 && pmsg->m_bIncoming) { CMStringW host = pmsg->prefix.sUser + L"@" + pmsg->prefix.sHost; DoEvent(GC_EVENT_PART, pmsg->parameters[0], pmsg->prefix.sNick, pmsg->parameters.getCount() > 1 ? pmsg->parameters[1].c_str() : NULL, NULL, host, NULL, true, false); if (pmsg->prefix.sNick == m_info.sNick) { CMStringW S = MakeWndID(pmsg->parameters[0]); Chat_Control(m_szModuleName, S, SESSION_OFFLINE); } } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_KICK(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) DoEvent(GC_EVENT_KICK, pmsg->parameters[0], pmsg->parameters[1], pmsg->parameters.getCount() > 2 ? pmsg->parameters[2].c_str() : NULL, pmsg->prefix.sNick, NULL, NULL, true, false); else ShowMessage(pmsg); if (pmsg->parameters[1] == m_info.sNick) { CMStringW S = MakeWndID(pmsg->parameters[0]); Chat_Control(m_szModuleName, S, SESSION_OFFLINE); if (m_rejoinIfKicked) { CHANNELINFO *wi = (CHANNELINFO *)Chat_GetUserInfo(m_szModuleName, MakeWndID(pmsg->parameters[0])); if (wi && wi->pszPassword) PostIrcMessage(L"/JOIN %s %s", pmsg->parameters[0], wi->pszPassword); else PostIrcMessage(L"/JOIN %s", pmsg->parameters[0]); } } return true; } bool CIrcProto::OnIrc_MODEQUERY(const CIrcMessage* pmsg) { if (pmsg->parameters.getCount() > 2 && pmsg->m_bIncoming && IsChannel(pmsg->parameters[1])) { CMStringW sPassword = L""; CMStringW sLimit = L""; bool bAdd = false; int iParametercount = 3; LPCTSTR p1 = pmsg->parameters[2]; while (*p1 != '\0') { if (*p1 == '+') bAdd = true; if (*p1 == '-') bAdd = false; if (*p1 == 'l' && bAdd) { if ((int)pmsg->parameters.getCount() > iParametercount) sLimit = pmsg->parameters[iParametercount]; iParametercount++; } if (*p1 == 'k' && bAdd) { if ((int)pmsg->parameters.getCount() > iParametercount) sPassword = pmsg->parameters[iParametercount]; iParametercount++; } p1++; } AddWindowItemData(pmsg->parameters[1], sLimit.IsEmpty() ? 0 : sLimit.c_str(), pmsg->parameters[2], sPassword.IsEmpty() ? 0 : sPassword.c_str(), 0); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_MODE(const CIrcMessage* pmsg) { bool flag = false; bool bContainsValidModes = false; CMStringW sModes = L""; CMStringW sParams = L""; if (pmsg->parameters.getCount() > 1 && pmsg->m_bIncoming) { if (IsChannel(pmsg->parameters[0])) { bool bAdd = false; int iParametercount = 2; LPCTSTR p1 = pmsg->parameters[1]; while (*p1 != '\0') { if (*p1 == '+') { bAdd = true; sModes += L"+"; } if (*p1 == '-') { bAdd = false; sModes += L"-"; } if (*p1 == 'l' && bAdd && iParametercount < (int)pmsg->parameters.getCount()) { bContainsValidModes = true; sModes += L"l"; sParams += L" " + pmsg->parameters[iParametercount]; iParametercount++; } if (*p1 == 'b' || *p1 == 'k' && iParametercount < (int)pmsg->parameters.getCount()) { bContainsValidModes = true; sModes += *p1; sParams += L" " + pmsg->parameters[iParametercount]; iParametercount++; } if (strchr(sUserModes, (char)*p1)) { CMStringW sStatus = ModeToStatus(*p1); if ((int)pmsg->parameters.getCount() > iParametercount) { if (!mir_wstrcmp(pmsg->parameters[2], m_info.sNick)) { char cModeBit = -1; CMStringW windowName = MakeWndID(pmsg->parameters[0]); CHANNELINFO *wi = (CHANNELINFO*)Chat_GetUserInfo(m_szModuleName, windowName); switch (*p1) { case 'v': cModeBit = 0; break; case 'h': cModeBit = 1; break; case 'o': cModeBit = 2; break; case 'a': cModeBit = 3; break; case 'q': cModeBit = 4; break; } // set bit for own mode on this channel (voice/hop/op/admin/owner) if (wi && cModeBit >= 0) { if (bAdd) wi->OwnMode |= (1 << cModeBit); else wi->OwnMode &= ~(1 << cModeBit); } Chat_SetUserInfo(m_szModuleName, windowName, wi); } DoEvent(bAdd ? GC_EVENT_ADDSTATUS : GC_EVENT_REMOVESTATUS, pmsg->parameters[0], pmsg->parameters[iParametercount], pmsg->prefix.sNick, sStatus, NULL, NULL, m_oldStyleModes ? false : true, false); iParametercount++; } } else if (*p1 != 'b' && *p1 != ' ' && *p1 != '+' && *p1 != '-') { bContainsValidModes = true; if (*p1 != 'l' && *p1 != 'k') sModes += *p1; flag = true; } p1++; } if (m_oldStyleModes) { wchar_t temp[256]; mir_snwprintf(temp, TranslateT("%s sets mode %s"), pmsg->prefix.sNick, pmsg->parameters[1]); CMStringW sMessage = temp; for (int i = 2; i < (int)pmsg->parameters.getCount(); i++) sMessage += L" " + pmsg->parameters[i]; DoEvent(GC_EVENT_INFORMATION, pmsg->parameters[0], pmsg->prefix.sNick, sMessage, NULL, NULL, NULL, true, false); } else if (bContainsValidModes) { for (int i = iParametercount; i < (int)pmsg->parameters.getCount(); i++) sParams += L" " + pmsg->parameters[i]; wchar_t temp[4000]; mir_snwprintf(temp, TranslateT("%s sets mode %s%s"), pmsg->prefix.sNick, sModes, sParams); DoEvent(GC_EVENT_INFORMATION, pmsg->parameters[0], pmsg->prefix.sNick, temp, NULL, NULL, NULL, true, false); } if (flag) PostIrcMessage(L"/MODE %s", pmsg->parameters[0]); } else { wchar_t temp[256]; mir_snwprintf(temp, TranslateT("%s sets mode %s"), pmsg->prefix.sNick, pmsg->parameters[1]); CMStringW sMessage = temp; for (int i = 2; i < (int)pmsg->parameters.getCount(); i++) sMessage += L" " + pmsg->parameters[i]; DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, pmsg->prefix.sNick, sMessage, NULL, NULL, NULL, true, false); } } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_NICK(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 0) { bool bIsMe = pmsg->prefix.sNick == m_info.sNick ? true : false; if (m_info.sNick == pmsg->prefix.sNick && pmsg->parameters.getCount() > 0) { m_info.sNick = pmsg->parameters[0]; setWString("Nick", m_info.sNick); } CMStringW host = pmsg->prefix.sUser + L"@" + pmsg->prefix.sHost; DoEvent(GC_EVENT_NICK, NULL, pmsg->prefix.sNick, pmsg->parameters[0], NULL, host, NULL, true, bIsMe); Chat_ChangeUserId(m_szModuleName, NULL, pmsg->prefix.sNick, pmsg->parameters[0]); CONTACT user = { pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, false, false, false }; MCONTACT hContact = CList_FindContact(&user); if (hContact) { if (getWord(hContact, "Status", ID_STATUS_OFFLINE) == ID_STATUS_OFFLINE) setWord(hContact, "Status", ID_STATUS_ONLINE); setWString(hContact, "Nick", pmsg->parameters[0]); setWString(hContact, "User", pmsg->prefix.sUser); setWString(hContact, "Host", pmsg->prefix.sHost); } } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_NOTICE(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) { if (IsCTCP(pmsg)) return true; if (!m_ignore || !IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'n')) { CMStringW S; CMStringW S2; CMStringW S3; if (pmsg->prefix.sNick.GetLength() > 0) S = pmsg->prefix.sNick; else S = m_info.sNetwork; S3 = m_info.sNetwork; if (IsChannel(pmsg->parameters[0])) S2 = pmsg->parameters[0]; else { GC_INFO gci = { 0 }; gci.Flags = GCF_BYID | GCF_TYPE; gci.pszModule = m_szModuleName; CMStringW str = GetWord(pmsg->parameters[1], 0); if (str[0] == '[' && str[1] == '#' && str[str.GetLength() - 1] == ']') { str.Delete(str.GetLength() - 1, 1); str.Delete(0, 1); CMStringW Wnd = MakeWndID(str); gci.pszID = Wnd; if (!Chat_GetInfo(&gci) && gci.iType == GCW_CHATROOM) S2 = GetWord(gci.pszID, 0); else S2 = L""; } else S2 = L""; } DoEvent(GC_EVENT_NOTICE, S2.IsEmpty() ? 0 : S2.c_str(), S, pmsg->parameters[1], NULL, S3, NULL, true, false); } } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_YOURHOST(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { static const wchar_t* lpszFmt = L"Your host is %99[^ \x5b,], running version %99s"; wchar_t szHostName[100], szVersion[100]; if (swscanf(pmsg->parameters[1], lpszFmt, &szHostName, &szVersion) > 0) m_info.sServerName = szHostName; if (pmsg->parameters[0] != m_info.sNick) m_info.sNick = pmsg->parameters[0]; } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_INVITE(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && (m_ignore && IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'i'))) return true; if (pmsg->m_bIncoming && m_joinOnInvite && pmsg->parameters.getCount() > 1 && mir_wstrcmpi(pmsg->parameters[0], m_info.sNick) == 0) PostIrcMessage(L"/JOIN %s", pmsg->parameters[1]); ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_PINGPONG(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->sCommand == L"PING") { wchar_t szResponse[100]; mir_snwprintf(szResponse, L"PONG %s", pmsg->parameters[0]); SendIrcMessage(szResponse); } return true; } bool CIrcProto::OnIrc_PRIVMSG(const CIrcMessage* pmsg) { if (pmsg->parameters.getCount() > 1) { if (IsCTCP(pmsg)) return true; CMStringW mess = pmsg->parameters[1]; bool bIsChannel = IsChannel(pmsg->parameters[0]); if (pmsg->m_bIncoming && !bIsChannel) { mess = DoColorCodes(mess, TRUE, FALSE); CONTACT user = { pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, false, false, false }; if (CallService(MS_IGNORE_ISIGNORED, NULL, IGNOREEVENT_MESSAGE)) if (!CList_FindContact(&user)) return true; if ((m_ignore && IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'q'))) { MCONTACT hContact = CList_FindContact(&user); if (!hContact || (hContact && db_get_b(hContact, "CList", "Hidden", 0) == 1)) return true; } MCONTACT hContact = CList_AddContact(&user, false, true); PROTORECVEVENT pre = { 0 }; pre.timestamp = (DWORD)time(NULL); pre.szMessage = mir_utf8encodeW(mess); setWString(hContact, "User", pmsg->prefix.sUser); setWString(hContact, "Host", pmsg->prefix.sHost); ProtoChainRecvMsg(hContact, &pre); mir_free(pre.szMessage); return true; } if (bIsChannel) { if (!(pmsg->m_bIncoming && m_ignore && IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'm'))) { if (!pmsg->m_bIncoming) mess.Replace(L"%%", L"%"); DoEvent(GC_EVENT_MESSAGE, pmsg->parameters[0], pmsg->m_bIncoming ? pmsg->prefix.sNick : m_info.sNick, mess, NULL, NULL, NULL, true, pmsg->m_bIncoming ? false : true); } return true; } } ShowMessage(pmsg); return true; } bool CIrcProto::IsCTCP(const CIrcMessage* pmsg) { // is it a ctcp command, i e is the first and last characer of a PRIVMSG or NOTICE text ASCII 1 CMStringW mess = pmsg->parameters[1]; if (!(mess.GetLength() > 3 && mess[0] == 1 && mess[mess.GetLength() - 1] == 1)) return false; // set mess to contain the ctcp command, excluding the leading and trailing ASCII 1 mess.Delete(0, 1); mess.Delete(mess.GetLength() - 1, 1); // exploit??? if (mess.Find(1) != -1 || mess.Find(L"%newl") != -1) { wchar_t temp[4096]; mir_snwprintf(temp, TranslateT("CTCP ERROR: Malformed CTCP command received from %s!%s@%s. Possible attempt to take control of your IRC client registered"), pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost); DoEvent(GC_EVENT_INFORMATION, 0, m_info.sNick, temp, NULL, NULL, NULL, true, false); return true; } // extract the type of ctcp command CMStringW ocommand = GetWord(mess, 0); CMStringW command = GetWord(mess, 0); command.MakeLower(); // should it be ignored? if (m_ignore) { if (IsChannel(pmsg->parameters[0])) { if (command == L"action" && IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'm')) return true; } else { if (command == L"action") { if (IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'q')) return true; } else if (command == L"dcc") { if (IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'd')) return true; } else if (IsIgnored(pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, 'c')) return true; } } if (pmsg->sCommand == L"PRIVMSG") { // incoming ACTION if (command == L"action") { mess.Delete(0, 6); if (IsChannel(pmsg->parameters[0])) { if (mess.GetLength() > 1) { mess.Delete(0, 1); if (!pmsg->m_bIncoming) mess.Replace(L"%%", L"%"); DoEvent(GC_EVENT_ACTION, pmsg->parameters[0], pmsg->m_bIncoming ? pmsg->prefix.sNick : m_info.sNick, mess, NULL, NULL, NULL, true, pmsg->m_bIncoming ? false : true); } } else if (pmsg->m_bIncoming) { mess.Insert(0, pmsg->prefix.sNick); mess.Insert(0, L"* "); mess.Insert(mess.GetLength(), L" *"); CIrcMessage msg = *pmsg; msg.parameters[1] = mess; OnIrc_PRIVMSG(&msg); } } // incoming FINGER else if (pmsg->m_bIncoming && command == L"finger") { PostIrcMessage(L"/NOTICE %s \001FINGER %s (%s)\001", pmsg->prefix.sNick, m_name, m_userID); wchar_t temp[300]; mir_snwprintf(temp, TranslateT("CTCP FINGER requested by %s"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } // incoming VERSION else if (pmsg->m_bIncoming && command == L"version") { PostIrcMessage(L"/NOTICE %s \001VERSION Miranda NG %%mirver (IRC v.%%version)" L", " _A2W(__COPYRIGHT) L"\001", pmsg->prefix.sNick); wchar_t temp[300]; mir_snwprintf(temp, TranslateT("CTCP VERSION requested by %s"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } // incoming SOURCE else if (pmsg->m_bIncoming && command == L"source") { PostIrcMessage(L"/NOTICE %s \001SOURCE Get Miranda IRC here: http://miranda-ng.org/ \001", pmsg->prefix.sNick); wchar_t temp[300]; mir_snwprintf(temp, TranslateT("CTCP SOURCE requested by %s"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } // incoming USERINFO else if (pmsg->m_bIncoming && command == L"userinfo") { PostIrcMessage(L"/NOTICE %s \001USERINFO %s\001", pmsg->prefix.sNick, m_userInfo); wchar_t temp[300]; mir_snwprintf(temp, TranslateT("CTCP USERINFO requested by %s"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } // incoming PING else if (pmsg->m_bIncoming && command == L"ping") { PostIrcMessage(L"/NOTICE %s \001%s\001", pmsg->prefix.sNick, mess); wchar_t temp[300]; mir_snwprintf(temp, TranslateT("CTCP PING requested by %s"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } // incoming TIME else if (pmsg->m_bIncoming && command == L"time") { wchar_t temp[300]; time_t tim = time(NULL); mir_wstrncpy(temp, _wctime(&tim), 25); PostIrcMessage(L"/NOTICE %s \001TIME %s\001", pmsg->prefix.sNick, temp); mir_snwprintf(temp, TranslateT("CTCP TIME requested by %s"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } // incoming DCC request... lots of stuff happening here... else if (pmsg->m_bIncoming && command == L"dcc") { CMStringW type = GetWord(mess, 1); type.MakeLower(); // components of a dcc message CMStringW sFile = L""; DWORD dwAdr = 0; int iPort = 0; unsigned __int64 dwSize = 0; CMStringW sToken = L""; bool bIsChat = (type == L"chat"); // 1. separate the dcc command into the correct pieces if (bIsChat || type == L"send") { // if the filename is surrounded by quotes, do this if (GetWord(mess, 2)[0] == '\"') { int end = 0; int begin = mess.Find('\"', 0); if (begin >= 0) { end = mess.Find('\"', begin + 1); if (end >= 0) { sFile = mess.Mid(begin + 1, end - begin - 1); begin = mess.Find(' ', end); if (begin >= 0) { CMStringW rest = mess.Mid(begin); dwAdr = wcstoul(GetWord(rest, 0), NULL, 10); iPort = _wtoi(GetWord(rest, 1)); dwSize = _wtoi64(GetWord(rest, 2)); sToken = GetWord(rest, 3); } } } } // ... or try another method of separating the dcc command else if (!GetWord(mess, (bIsChat) ? 4 : 5).IsEmpty()) { int index = (bIsChat) ? 4 : 5; bool bFlag = false; // look for the part of the ctcp command that contains adress, port and size while (!bFlag && !GetWord(mess, index).IsEmpty()) { CMStringW sTemp; if (type == L"chat") sTemp = GetWord(mess, index - 1) + GetWord(mess, index); else sTemp = GetWord(mess, index - 2) + GetWord(mess, index - 1) + GetWord(mess, index); // if all characters are number it indicates we have found the adress, port and size parameters int ind = 0; while (sTemp[ind] != '\0') { if (!iswdigit(sTemp[ind])) break; ind++; } if (sTemp[ind] == '\0' && GetWord(mess, index + ((bIsChat) ? 1 : 2)).IsEmpty()) bFlag = true; index++; } if (bFlag) { wchar_t* p1 = wcsdup(GetWordAddress(mess, 2)); wchar_t* p2 = (wchar_t*)GetWordAddress(p1, index - 5); if (type == L"send") { if (p2 > p1) { p2--; while (p2 != p1 && *p2 == ' ') { *p2 = '\0'; p2--; } sFile = p1; } } else sFile = L"chat"; free(p1); dwAdr = wcstoul(GetWord(mess, index - (bIsChat ? 2 : 3)), NULL, 10); iPort = _wtoi(GetWord(mess, index - (bIsChat ? 1 : 2))); dwSize = _wtoi64(GetWord(mess, index - 1)); sToken = GetWord(mess, index); } } } else if (type == L"accept" || type == L"resume") { // if the filename is surrounded by quotes, do this if (GetWord(mess, 2)[0] == '\"') { int end = 0; int begin = mess.Find('\"', 0); if (begin >= 0) { end = mess.Find('\"', begin + 1); if (end >= 0) { sFile = mess.Mid(begin + 1, end); begin = mess.Find(' ', end); if (begin >= 0) { CMStringW rest = mess.Mid(begin); iPort = _wtoi(GetWord(rest, 0)); dwSize = _wtoi(GetWord(rest, 1)); sToken = GetWord(rest, 2); } } } } // ... or try another method of separating the dcc command else if (!GetWord(mess, 4).IsEmpty()) { int index = 4; bool bFlag = false; // look for the part of the ctcp command that contains adress, port and size while (!bFlag && !GetWord(mess, index).IsEmpty()) { CMStringW sTemp = GetWord(mess, index - 1) + GetWord(mess, index); // if all characters are number it indicates we have found the adress, port and size parameters int ind = 0; while (sTemp[ind] != '\0') { if (!iswdigit(sTemp[ind])) break; ind++; } if (sTemp[ind] == '\0' && GetWord(mess, index + 2).IsEmpty()) bFlag = true; index++; } if (bFlag) { wchar_t* p1 = wcsdup(GetWordAddress(mess, 2)); wchar_t* p2 = (wchar_t*)GetWordAddress(p1, index - 4); if (p2 > p1) { p2--; while (p2 != p1 && *p2 == ' ') { *p2 = '\0'; p2--; } sFile = p1; } free(p1); iPort = _wtoi(GetWord(mess, index - 2)); dwSize = _wtoi64(GetWord(mess, index - 1)); sToken = GetWord(mess, index); } } } // end separating dcc commands // 2. Check for malformed dcc commands or other errors if (bIsChat || type == L"send") { wchar_t szTemp[256]; szTemp[0] = '\0'; unsigned long ulAdr = 0; if (m_manualHost) ulAdr = ConvertIPToInteger(m_mySpecifiedHostIP); else ulAdr = ConvertIPToInteger(m_IPFromServer ? m_myHost : m_myLocalHost); if (bIsChat && !m_DCCChatEnabled) mir_snwprintf(szTemp, TranslateT("DCC: Chat request from %s denied"), pmsg->prefix.sNick); else if (type == L"send" && !m_DCCFileEnabled) mir_snwprintf(szTemp, TranslateT("DCC: File transfer request from %s denied"), pmsg->prefix.sNick); else if (type == L"send" && !iPort && ulAdr == 0) mir_snwprintf(szTemp, TranslateT("DCC: Reverse file transfer request from %s denied [No local IP]"), pmsg->prefix.sNick); if (sFile.IsEmpty() || dwAdr == 0 || dwSize == 0 || iPort == 0 && sToken.IsEmpty()) mir_snwprintf(szTemp, TranslateT("DCC ERROR: Malformed CTCP request from %s [%s]"), pmsg->prefix.sNick, mess); if (szTemp[0]) { DoEvent(GC_EVENT_INFORMATION, 0, m_info.sNick, szTemp, NULL, NULL, NULL, true, false); return true; } // remove path from the filename if the remote client (stupidly) sent it CMStringW sFileCorrected = sFile; int i = sFile.ReverseFind('\\'); if (i != -1) sFileCorrected = sFile.Mid(i + 1); sFile = sFileCorrected; } else if (type == L"accept" || type == L"resume") { wchar_t szTemp[256]; szTemp[0] = '\0'; if (type == L"resume" && !m_DCCFileEnabled) mir_snwprintf(szTemp, TranslateT("DCC: File transfer resume request from %s denied"), pmsg->prefix.sNick); if (sToken.IsEmpty() && iPort == 0 || sFile.IsEmpty()) mir_snwprintf(szTemp, TranslateT("DCC ERROR: Malformed CTCP request from %s [%s]"), pmsg->prefix.sNick, mess); if (szTemp[0]) { DoEvent(GC_EVENT_INFORMATION, 0, m_info.sNick, szTemp, NULL, NULL, NULL, true, false); return true; } // remove path from the filename if the remote client (stupidly) sent it CMStringW sFileCorrected = sFile; int i = sFile.ReverseFind('\\'); if (i != -1) sFileCorrected = sFile.Mid(i + 1); sFile = sFileCorrected; } // 3. Take proper actions considering type of command // incoming chat request if (bIsChat) { CONTACT user = { pmsg->prefix.sNick, 0, 0, false, false, true }; MCONTACT hContact = CList_FindContact(&user); // check if it should be ignored if (m_DCCChatIgnore == 1 || m_DCCChatIgnore == 2 && hContact && db_get_b(hContact, "CList", "NotOnList", 0) == 0 && db_get_b(hContact, "CList", "Hidden", 0) == 0) { CMStringW host = pmsg->prefix.sUser + L"@" + pmsg->prefix.sHost; CList_AddDCCChat(pmsg->prefix.sNick, host, dwAdr, iPort); // add a CHAT event to the clist } else { wchar_t szTemp[512]; mir_snwprintf(szTemp, TranslateT("DCC: Chat request from %s denied"), pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, 0, m_info.sNick, szTemp, NULL, NULL, NULL, true, false); } } // remote requested that the file should be resumed if (type == L"resume") { CDccSession *dcc; if (sToken.IsEmpty()) dcc = FindDCCSendByPort(iPort); else dcc = FindPassiveDCCSend(_wtoi(sToken)); // reverse ft if (dcc) { InterlockedExchange(&dcc->dwWhatNeedsDoing, (long)FILERESUME_RESUME); dcc->dwResumePos = dwSize; // dwSize is the resume position PostIrcMessage(L"/PRIVMSG %s \001DCC ACCEPT %s\001", pmsg->prefix.sNick, GetWordAddress(mess, 2)); } } // remote accepted your request for a file resume if (type == L"accept") { CDccSession *dcc; if (sToken.IsEmpty()) dcc = FindDCCRecvByPortAndName(iPort, pmsg->prefix.sNick); else dcc = FindPassiveDCCRecv(pmsg->prefix.sNick, sToken); // reverse ft if (dcc) { InterlockedExchange(&dcc->dwWhatNeedsDoing, (long)FILERESUME_RESUME); dcc->dwResumePos = dwSize; // dwSize is the resume position SetEvent(dcc->hEvent); } } if (type == L"send") { CMStringW sTokenBackup = sToken; bool bTurbo = false; // TDCC indicator if (!sToken.IsEmpty() && sToken[sToken.GetLength() - 1] == 'T') { bTurbo = true; sToken.Delete(sToken.GetLength() - 1, 1); } // if a token exists and the port is non-zero it is the remote // computer telling us that is has accepted to act as server for // a reverse filetransfer. The plugin should connect to that computer // and start sedning the file (if the token is valid). Compare to DCC RECV if (!sToken.IsEmpty() && iPort) { CDccSession *dcc = FindPassiveDCCSend(_wtoi(sToken)); if (dcc) { dcc->SetupPassive(dwAdr, iPort); dcc->Connect(); } } else { CONTACT user = { pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, false, false, false }; if (CallService(MS_IGNORE_ISIGNORED, NULL, IGNOREEVENT_FILE)) if (!CList_FindContact(&user)) return true; MCONTACT hContact = CList_AddContact(&user, false, true); if (hContact) { DCCINFO* di = new DCCINFO; di->hContact = hContact; di->sFile = sFile; di->dwSize = dwSize; di->sContactName = pmsg->prefix.sNick; di->dwAdr = dwAdr; di->iPort = iPort; di->iType = DCC_SEND; di->bSender = false; di->bTurbo = bTurbo; di->bSSL = false; di->bReverse = (iPort == 0 && !sToken.IsEmpty()) ? true : false; if (di->bReverse) di->sToken = sTokenBackup; setWString(hContact, "User", pmsg->prefix.sUser); setWString(hContact, "Host", pmsg->prefix.sHost); wchar_t* tszTemp = sFile.GetBuffer(); PROTORECVFILET pre = { 0 }; pre.dwFlags = PRFF_UNICODE; pre.timestamp = (DWORD)time(NULL); pre.fileCount = 1; pre.files.w = &tszTemp; pre.lParam = (LPARAM)di; ProtoChainRecvFile(hContact, &pre); } } } // end type == "send" } else if (pmsg->m_bIncoming) { wchar_t temp[300]; mir_snwprintf(temp, TranslateT("CTCP %s requested by %s"), ocommand, pmsg->prefix.sNick); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, temp, NULL, NULL, NULL, true, false); } } // handle incoming ctcp in notices. This technique is used for replying to CTCP queries else if (pmsg->sCommand == L"NOTICE") { wchar_t szTemp[300]; szTemp[0] = '\0'; //if we got incoming CTCP Version for contact in CList - then write its as MirVer for that contact! if (pmsg->m_bIncoming && command == L"version") { CONTACT user = { pmsg->prefix.sNick, pmsg->prefix.sUser, pmsg->prefix.sHost, false, false, false }; MCONTACT hContact = CList_FindContact(&user); if (hContact) setWString(hContact, "MirVer", DoColorCodes(GetWordAddress(mess, 1), TRUE, FALSE)); } // if the whois window is visible and the ctcp reply belongs to the user in it, then show the reply in the whois window if (m_whoisDlg && IsWindowVisible(m_whoisDlg->GetHwnd())) { m_whoisDlg->m_InfoNick.GetText(szTemp, _countof(szTemp)); if (mir_wstrcmpi(szTemp, pmsg->prefix.sNick) == 0) { if (pmsg->m_bIncoming && (command == L"version" || command == L"userinfo" || command == L"time")) { SetActiveWindow(m_whoisDlg->GetHwnd()); m_whoisDlg->m_Reply.SetText(DoColorCodes(GetWordAddress(mess, 1), TRUE, FALSE)); return true; } if (pmsg->m_bIncoming && command == L"ping") { SetActiveWindow(m_whoisDlg->GetHwnd()); int s = (int)time(0) - (int)_wtol(GetWordAddress(mess, 1)); wchar_t szTmp[30]; if (s == 1) mir_snwprintf(szTmp, TranslateT("%u second"), s); else mir_snwprintf(szTmp, TranslateT("%u seconds"), s); m_whoisDlg->m_Reply.SetText(DoColorCodes(szTmp, TRUE, FALSE)); return true; } } } //... else show the reply in the current window if (pmsg->m_bIncoming && command == L"ping") { int s = (int)time(0) - (int)_wtol(GetWordAddress(mess, 1)); mir_snwprintf(szTemp, TranslateT("CTCP PING reply from %s: %u sec(s)"), pmsg->prefix.sNick, s); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, szTemp, NULL, NULL, NULL, true, false); } else { mir_snwprintf(szTemp, TranslateT("CTCP %s reply from %s: %s"), ocommand, pmsg->prefix.sNick, GetWordAddress(mess, 1)); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, szTemp, NULL, NULL, NULL, true, false); } } return true; } bool CIrcProto::OnIrc_NAMES(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 3) sNamesList += pmsg->parameters[3] + L" "; ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_ENDNAMES(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) { CMStringW name = L"a"; int i = 0; BOOL bFlag = false; // Is the user on the names list? while (!name.IsEmpty()) { name = GetWord(sNamesList, i); i++; if (!name.IsEmpty()) { int index = 0; while (wcschr(sUserModePrefixes, name[index])) index++; if (!mir_wstrcmpi(name.Mid(index), m_info.sNick)) { bFlag = true; break; } } } if (bFlag) { const wchar_t* sChanName = pmsg->parameters[1]; if (sChanName[0] == '@' || sChanName[0] == '*' || sChanName[0] == '=') sChanName++; // Add a new chat window CMStringW sID = MakeWndID(sChanName); BYTE btOwnMode = 0; if (!Chat_NewSession(GCW_CHATROOM, m_szModuleName, sID, sChanName)) { PostIrcMessage(L"/MODE %s", sChanName); // register the statuses Chat_AddGroup(m_szModuleName, sID, TranslateT("Owner")); Chat_AddGroup(m_szModuleName, sID, TranslateT("Admin")); Chat_AddGroup(m_szModuleName, sID, TranslateT("Op")); Chat_AddGroup(m_szModuleName, sID, TranslateT("Halfop")); Chat_AddGroup(m_szModuleName, sID, TranslateT("Voice")); Chat_AddGroup(m_szModuleName, sID, TranslateT("Normal")); { int k = 0; CMStringW sTemp = GetWord(sNamesList, k); const wchar_t *pwszNormal = TranslateT("Normal"); // Fill the nicklist while (!sTemp.IsEmpty()) { CMStringW sStat; CMStringW sTemp2 = sTemp; sStat = PrefixToStatus(sTemp[0]); // fix for networks like freshirc where they allow more than one prefix while (PrefixToStatus(sTemp[0]) != pwszNormal) sTemp.Delete(0, 1); GCDEST gcd = { m_szModuleName, sID, GC_EVENT_JOIN }; GCEVENT gce = { &gcd }; gce.ptszUID = sTemp; gce.ptszNick = sTemp; gce.ptszStatus = sStat; BOOL bIsMe = (!mir_wstrcmpi(gce.ptszNick, m_info.sNick)) ? TRUE : FALSE; if (bIsMe) { char BitNr = -1; switch (sTemp2[0]) { case '+': BitNr = 0; break; case '%': BitNr = 1; break; case '@': BitNr = 2; break; case '!': BitNr = 3; break; case '*': BitNr = 4; break; } if (BitNr >= 0) btOwnMode = (1 << BitNr); else btOwnMode = 0; } gce.bIsMe = bIsMe; gce.time = bIsMe ? time(0) : 0; Chat_Event(&gce); DoEvent(GC_EVENT_SETCONTACTSTATUS, sChanName, sTemp, NULL, NULL, NULL, ID_STATUS_ONLINE, FALSE, FALSE); // fix for networks like freshirc where they allow more than one prefix if (PrefixToStatus(sTemp2[0]) != pwszNormal) { sTemp2.Delete(0, 1); sStat = PrefixToStatus(sTemp2[0]); while (sStat != pwszNormal) { DoEvent(GC_EVENT_ADDSTATUS, sID, sTemp, L"system", sStat, NULL, NULL, false, false, 0); sTemp2.Delete(0, 1); sStat = PrefixToStatus(sTemp2[0]); } } k++; sTemp = GetWord(sNamesList, k); } } //Set the item data for the window { CHANNELINFO *wi = (CHANNELINFO *)Chat_GetUserInfo(m_szModuleName, sID); if (!wi) wi = new CHANNELINFO; wi->OwnMode = btOwnMode; wi->pszLimit = 0; wi->pszMode = 0; wi->pszPassword = 0; wi->pszTopic = 0; wi->codepage = getCodepage(); Chat_SetUserInfo(m_szModuleName, sID, wi); if (!sTopic.IsEmpty() && !mir_wstrcmpi(GetWord(sTopic, 0), sChanName)) { DoEvent(GC_EVENT_TOPIC, sChanName, sTopicName.IsEmpty() ? NULL : sTopicName.c_str(), GetWordAddress(sTopic, 1), NULL, sTopicTime.IsEmpty() ? NULL : sTopicTime.c_str(), NULL, true, false); AddWindowItemData(sChanName, 0, 0, 0, GetWordAddress(sTopic, 1)); sTopic = L""; sTopicName = L""; sTopicTime = L""; } } DBVARIANT dbv; if (!getWString("JTemp", &dbv)) { CMStringW command = L"a"; CMStringW save = L""; int k = 0; while (!command.IsEmpty()) { command = GetWord(dbv.ptszVal, k); k++; if (!command.IsEmpty()) { CMStringW S = command.Mid(1); if (!mir_wstrcmpi(sChanName, S)) break; save += command + L" "; } } if (!command.IsEmpty()) { save += GetWordAddress(dbv.ptszVal, k); switch (command[0]) { case 'M': Chat_Control(m_szModuleName, sID, WINDOW_HIDDEN); break; case 'X': Chat_Control(m_szModuleName, sID, WINDOW_MAXIMIZE); break; default: Chat_Control(m_szModuleName, sID, SESSION_INITDONE); break; } } else Chat_Control(m_szModuleName, sID, SESSION_INITDONE); if (save.IsEmpty()) db_unset(NULL, m_szModuleName, "JTemp"); else setWString("JTemp", save); db_free(&dbv); } else Chat_Control(m_szModuleName, sID, SESSION_INITDONE); Chat_Control(m_szModuleName, sID, SESSION_ONLINE); } } } sNamesList = L""; ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_INITIALTOPIC(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 2) { AddWindowItemData(pmsg->parameters[1], 0, 0, 0, pmsg->parameters[2]); sTopic = pmsg->parameters[1] + L" " + pmsg->parameters[2]; sTopicName = L""; sTopicTime = L""; } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_INITIALTOPICNAME(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 3) { wchar_t tTimeBuf[128], *tStopStr; time_t ttTopicTime; sTopicName = pmsg->parameters[2]; ttTopicTime = wcstol(pmsg->parameters[3], &tStopStr, 10); wcsftime(tTimeBuf, 128, L"%#c", localtime(&ttTopicTime)); sTopicTime = tTimeBuf; } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_TOPIC(const CIrcMessage* pmsg) { if (pmsg->parameters.getCount() > 1 && pmsg->m_bIncoming) { DoEvent(GC_EVENT_TOPIC, pmsg->parameters[0], pmsg->prefix.sNick, pmsg->parameters[1], NULL, sTopicTime.IsEmpty() ? NULL : sTopicTime.c_str(), NULL, true, false); AddWindowItemData(pmsg->parameters[0], 0, 0, 0, pmsg->parameters[1]); } ShowMessage(pmsg); return true; } static void __stdcall sttShowDlgList(void* param) { CIrcProto *ppro = (CIrcProto*)param; if (ppro->m_listDlg == NULL) { ppro->m_listDlg = new CListDlg(ppro); ppro->m_listDlg->Show(); } SetEvent(ppro->m_evWndCreate); } bool CIrcProto::OnIrc_LISTSTART(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { CallFunctionAsync(sttShowDlgList, this); WaitForSingleObject(m_evWndCreate, INFINITE); m_channelNumber = 0; } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_LIST(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming == 1 && m_listDlg && pmsg->parameters.getCount() > 2) { m_channelNumber++; LVITEM lvItem; HWND hListView = GetDlgItem(m_listDlg->GetHwnd(), IDC_INFO_LISTVIEW); lvItem.iItem = ListView_GetItemCount(hListView); lvItem.mask = LVIF_TEXT | LVIF_PARAM; lvItem.iSubItem = 0; lvItem.pszText = pmsg->parameters[1].GetBuffer(); lvItem.lParam = lvItem.iItem; lvItem.iItem = ListView_InsertItem(hListView, &lvItem); lvItem.mask = LVIF_TEXT; lvItem.iSubItem = 1; lvItem.pszText = pmsg->parameters[pmsg->parameters.getCount() - 2].GetBuffer(); ListView_SetItem(hListView, &lvItem); wchar_t* temp = mir_wstrdup(pmsg->parameters[pmsg->parameters.getCount() - 1]); wchar_t* find = wcsstr(temp, L"[+"); wchar_t* find2 = wcsstr(temp, L"]"); wchar_t* save = temp; if (find == temp && find2 != NULL && find + 8 >= find2) { temp = wcsstr(temp, L"]"); if (mir_wstrlen(temp) > 1) { temp++; temp[0] = '\0'; lvItem.iSubItem = 2; lvItem.pszText = save; ListView_SetItem(hListView, &lvItem); temp[0] = ' '; temp++; } else temp = save; } lvItem.iSubItem = 3; CMStringW S = DoColorCodes(temp, TRUE, FALSE); lvItem.pszText = S.GetBuffer(); ListView_SetItem(hListView, &lvItem); temp = save; mir_free(temp); int percent = 100; if (m_noOfChannels > 0) percent = (int)(m_channelNumber * 100) / m_noOfChannels; wchar_t text[100]; if (percent < 100) mir_snwprintf(text, TranslateT("Downloading list (%u%%) - %u channels"), percent, m_channelNumber); else mir_snwprintf(text, TranslateT("Downloading list - %u channels"), m_channelNumber); m_listDlg->m_status.SetText(text); } return true; } bool CIrcProto::OnIrc_LISTEND(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_listDlg) { EnableWindow(GetDlgItem(m_listDlg->GetHwnd(), IDC_JOIN), true); ListView_SetSelectionMark(GetDlgItem(m_listDlg->GetHwnd(), IDC_INFO_LISTVIEW), 0); ListView_SetColumnWidth(GetDlgItem(m_listDlg->GetHwnd(), IDC_INFO_LISTVIEW), 1, LVSCW_AUTOSIZE); ListView_SetColumnWidth(GetDlgItem(m_listDlg->GetHwnd(), IDC_INFO_LISTVIEW), 2, LVSCW_AUTOSIZE); ListView_SetColumnWidth(GetDlgItem(m_listDlg->GetHwnd(), IDC_INFO_LISTVIEW), 3, LVSCW_AUTOSIZE); m_listDlg->UpdateList(); wchar_t text[100]; mir_snwprintf(text, TranslateT("Done: %u channels"), m_channelNumber); int percent = 100; if (m_noOfChannels > 0) percent = (int)(m_channelNumber * 100) / m_noOfChannels; if (percent < 70) { mir_wstrcat(text, L" "); mir_wstrcat(text, TranslateT("(probably truncated by server)")); } SetDlgItemText(m_listDlg->GetHwnd(), IDC_TEXT, text); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_BANLIST(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 2) { if (m_managerDlg->GetHwnd() && ( m_managerDlg->m_radio1.GetState() && pmsg->sCommand == L"367" || m_managerDlg->m_radio2.GetState() && pmsg->sCommand == L"346" || m_managerDlg->m_radio3.GetState() && pmsg->sCommand == L"348") && !m_managerDlg->m_radio1.Enabled() && !m_managerDlg->m_radio2.Enabled() && !m_managerDlg->m_radio3.Enabled()) { CMStringW S = pmsg->parameters[2]; if (pmsg->parameters.getCount() > 3) { S += L" - "; S += pmsg->parameters[3]; if (pmsg->parameters.getCount() > 4) { S += L" - ( "; time_t time = _wtoi(pmsg->parameters[4]); S += _wctime(&time); S.Replace(L"\n", L" "); S += L")"; } } SendDlgItemMessage(m_managerDlg->GetHwnd(), IDC_LIST, LB_ADDSTRING, 0, (LPARAM)S.c_str()); } } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_BANLISTEND(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) { if (m_managerDlg->GetHwnd() && (m_managerDlg->m_radio1.GetState() && pmsg->sCommand == L"368" || m_managerDlg->m_radio2.GetState() && pmsg->sCommand == L"347" || m_managerDlg->m_radio3.GetState() && pmsg->sCommand == L"349") && !m_managerDlg->m_radio1.Enabled() && !m_managerDlg->m_radio2.Enabled() && !m_managerDlg->m_radio3.Enabled()) { if (strchr(sChannelModes, 'b')) m_managerDlg->m_radio1.Enable(); if (strchr(sChannelModes, 'I')) m_managerDlg->m_radio2.Enable(); if (strchr(sChannelModes, 'e')) m_managerDlg->m_radio3.Enable(); if (BST_UNCHECKED == IsDlgButtonChecked(m_managerDlg->GetHwnd(), IDC_NOTOP)) m_managerDlg->m_add.Enable(); } } ShowMessage(pmsg); return true; } static void __stdcall sttShowWhoisWnd(void* param) { CIrcMessage* pmsg = (CIrcMessage*)param; CIrcProto *ppro = (CIrcProto*)pmsg->m_proto; if (ppro->m_whoisDlg == NULL) { ppro->m_whoisDlg = new CWhoisDlg(ppro); ppro->m_whoisDlg->Show(); } SetEvent(ppro->m_evWndCreate); ppro->m_whoisDlg->ShowMessage(pmsg); delete pmsg; } bool CIrcProto::OnIrc_WHOIS_NAME(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 5 && m_manualWhoisCount > 0) { CallFunctionAsync(sttShowWhoisWnd, new CIrcMessage(*pmsg)); WaitForSingleObject(m_evWndCreate, INFINITE); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_CHANNELS(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_whoisDlg && pmsg->parameters.getCount() > 2 && m_manualWhoisCount > 0) m_whoisDlg->m_InfoChannels.SetText(pmsg->parameters[2]); ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_AWAY(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_whoisDlg && pmsg->parameters.getCount() > 2 && m_manualWhoisCount > 0) m_whoisDlg->m_InfoAway2.SetText(pmsg->parameters[2]); if (m_manualWhoisCount < 1 && pmsg->m_bIncoming && pmsg->parameters.getCount() > 2) WhoisAwayReply = pmsg->parameters[2]; ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_OTHER(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_whoisDlg && pmsg->parameters.getCount() > 2 && m_manualWhoisCount > 0) { wchar_t temp[1024], temp2[1024]; m_whoisDlg->m_InfoOther.GetText(temp, 1000); mir_wstrcat(temp, L"%s\r\n"); mir_snwprintf(temp2, temp, pmsg->parameters[2]); m_whoisDlg->m_InfoOther.SetText(temp2); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_END(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1 && m_manualWhoisCount < 1) { CONTACT user = { pmsg->parameters[1], NULL, NULL, false, false, true }; MCONTACT hContact = CList_FindContact(&user); if (hContact) ProtoBroadcastAck(hContact, ACKTYPE_AWAYMSG, ACKRESULT_SUCCESS, (HANDLE)1, (LPARAM)WhoisAwayReply.c_str()); } m_manualWhoisCount--; if (m_manualWhoisCount < 0) m_manualWhoisCount = 0; ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_IDLE(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_whoisDlg && pmsg->parameters.getCount() > 2 && m_manualWhoisCount > 0) { int S = _wtoi(pmsg->parameters[2]); int D = S / (60 * 60 * 24); S -= (D * 60 * 60 * 24); int H = S / (60 * 60); S -= (H * 60 * 60); int M = S / 60; S -= (M * 60); wchar_t temp[100]; if (D) mir_snwprintf(temp, TranslateT("%ud, %uh, %um, %us"), D, H, M, S); else if (H) mir_snwprintf(temp, TranslateT("%uh, %um, %us"), H, M, S); else if (M) mir_snwprintf(temp, TranslateT("%um, %us"), M, S); else if (S) mir_snwprintf(temp, TranslateT("%us"), S); else temp[0] = 0; wchar_t temp3[256]; wchar_t tTimeBuf[128], *tStopStr; time_t ttTime = wcstol(pmsg->parameters[3], &tStopStr, 10); wcsftime(tTimeBuf, 128, L"%c", localtime(&ttTime)); mir_snwprintf(temp3, TranslateT("online since %s, idle %s"), tTimeBuf, temp); m_whoisDlg->m_AwayTime.SetText(temp3); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_SERVER(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_whoisDlg && pmsg->parameters.getCount() > 2 && m_manualWhoisCount > 0) m_whoisDlg->m_InfoServer.SetText(pmsg->parameters[2]); ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_AUTH(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && m_whoisDlg && pmsg->parameters.getCount() > 2 && m_manualWhoisCount > 0) { if (pmsg->sCommand == L"330") m_whoisDlg->m_InfoAuth.SetText(pmsg->parameters[2]); else if (pmsg->parameters[2] == L"is an identified user" || pmsg->parameters[2] == L"is a registered nick") m_whoisDlg->m_InfoAuth.SetText(pmsg->parameters[2]); else OnIrc_WHOIS_OTHER(pmsg); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHOIS_NO_USER(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 2 && !IsChannel(pmsg->parameters[1])) { if (m_whoisDlg) m_whoisDlg->ShowMessageNoUser(pmsg); CONTACT user = { pmsg->parameters[1], NULL, NULL, false, false, false }; MCONTACT hContact = CList_FindContact(&user); if (hContact) { AddOutgoingMessageToDB(hContact, (CMStringW)L"> " + pmsg->parameters[2] + (CMStringW)L": " + pmsg->parameters[1]); DBVARIANT dbv; if (!getWString(hContact, "Default", &dbv)) { setWString(hContact, "Nick", dbv.ptszVal); DBVARIANT dbv2; if (getByte(hContact, "AdvancedMode", 0) == 0) DoUserhostWithReason(1, ((CMStringW)L"S" + dbv.ptszVal), true, dbv.ptszVal); else { if (!getWString(hContact, "UWildcard", &dbv2)) { DoUserhostWithReason(2, ((CMStringW)L"S" + dbv2.ptszVal), true, dbv2.ptszVal); db_free(&dbv2); } else DoUserhostWithReason(2, ((CMStringW)L"S" + dbv.ptszVal), true, dbv.ptszVal); } setString(hContact, "User", ""); setString(hContact, "Host", ""); db_free(&dbv); } } } ShowMessage(pmsg); return true; } static void __stdcall sttShowNickWnd(void* param) { CIrcMessage* pmsg = (CIrcMessage*)param; CIrcProto *ppro = pmsg->m_proto; if (ppro->m_nickDlg == NULL) { ppro->m_nickDlg = new CNickDlg(ppro); ppro->m_nickDlg->Show(); } SetEvent(ppro->m_evWndCreate); SetDlgItemText(ppro->m_nickDlg->GetHwnd(), IDC_CAPTION, TranslateT("Change nickname")); SetDlgItemText(ppro->m_nickDlg->GetHwnd(), IDC_TEXT, pmsg->parameters.getCount() > 2 ? pmsg->parameters[2] : L""); ppro->m_nickDlg->m_Enick.SetText(pmsg->parameters[1]); ppro->m_nickDlg->m_Enick.SendMsg(CB_SETEDITSEL, 0, MAKELPARAM(0, -1)); delete pmsg; } bool CIrcProto::OnIrc_NICK_ERR(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { if (nickflag && ((m_alternativeNick[0] != 0)) && (pmsg->parameters.getCount() > 2 && mir_wstrcmp(pmsg->parameters[1], m_alternativeNick))) { wchar_t m[200]; mir_snwprintf(m, L"NICK %s", m_alternativeNick); if (IsConnected()) SendIrcMessage(m); } else { CallFunctionAsync(sttShowNickWnd, new CIrcMessage(*pmsg)); WaitForSingleObject(m_evWndCreate, INFINITE); } } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_JOINERROR(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming) { DBVARIANT dbv; if (!getWString("JTemp", &dbv)) { CMStringW command = L"a"; CMStringW save = L""; int i = 0; while (!command.IsEmpty()) { command = GetWord(dbv.ptszVal, i); i++; if (!command.IsEmpty() && pmsg->parameters[0] == command.Mid(1)) save += command + L" "; } db_free(&dbv); if (save.IsEmpty()) db_unset(NULL, m_szModuleName, "JTemp"); else setWString("JTemp", save); } } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_UNKNOWN(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 0) { if (pmsg->parameters[0] == L"WHO" && GetNextUserhostReason(2) != L"U") return true; if (pmsg->parameters[0] == L"USERHOST" && GetNextUserhostReason(1) != L"U") return true; } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_ENDMOTD(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && !bPerformDone) DoOnConnect(pmsg); ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_NOOFCHANNELS(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) m_noOfChannels = _wtoi(pmsg->parameters[1]); if (pmsg->m_bIncoming && !bPerformDone) DoOnConnect(pmsg); ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_ERROR(const CIrcMessage* pmsg) { if (pmsg->m_bIncoming && !m_disableErrorPopups && m_iDesiredStatus != ID_STATUS_OFFLINE) { CMStringW S; if (pmsg->parameters.getCount() > 0) S = DoColorCodes(pmsg->parameters[0], TRUE, FALSE); else S = TranslateT("Unknown"); Clist_TrayNotifyW(m_szModuleName, TranslateT("IRC error"), S, NIIF_ERROR, 15000); } ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHO_END(const CIrcMessage* pmsg) { CMStringW command = GetNextUserhostReason(2); if (command[0] == 'S') { if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) { // is it a channel? if (IsChannel(pmsg->parameters[1])) { CMStringW S; CMStringW User = GetWord(m_whoReply, 0); while (!User.IsEmpty()) { if (GetWord(m_whoReply, 3)[0] == 'G') { S += User; S += L"\t"; DoEvent(GC_EVENT_SETCONTACTSTATUS, pmsg->parameters[1], User, NULL, NULL, NULL, ID_STATUS_AWAY, FALSE, FALSE); } else DoEvent(GC_EVENT_SETCONTACTSTATUS, pmsg->parameters[1], User, NULL, NULL, NULL, ID_STATUS_ONLINE, FALSE, FALSE); CMStringW SS = GetWordAddress(m_whoReply, 4); if (SS.IsEmpty()) break; m_whoReply = SS; User = GetWord(m_whoReply, 0); } Chat_SetStatusEx(m_szModuleName, pmsg->parameters[1], GC_SSE_TABDELIMITED, S.IsEmpty() ? NULL : S.c_str()); return true; } /// if it is not a channel ptrW UserList(mir_wstrdup(m_whoReply)); const wchar_t* p1 = UserList; m_whoReply = L""; CONTACT ccUser = { pmsg->parameters[1], NULL, NULL, false, true, false }; MCONTACT hContact = CList_FindContact(&ccUser); if (hContact && getByte(hContact, "AdvancedMode", 0) == 1) { ptrW DBHost(getWStringA(hContact, "UHost")); ptrW DBNick(getWStringA(hContact, "Nick")); ptrW DBUser(getWStringA(hContact, "UUser")); ptrW DBDefault(getWStringA(hContact, "Default")); ptrW DBManUser(getWStringA(hContact, "User")); ptrW DBManHost(getWStringA(hContact, "Host")); ptrW DBWildcard(getWStringA(hContact, "UWildcard")); if (DBWildcard) CharLower(DBWildcard); CMStringW nick; CMStringW user; CMStringW host; CMStringW away = GetWord(p1, 3); while (!away.IsEmpty()) { nick = GetWord(p1, 0); user = GetWord(p1, 1); host = GetWord(p1, 2); if ((DBWildcard && WCCmp(DBWildcard, nick) || DBNick && !mir_wstrcmpi(DBNick, nick) || DBDefault && !mir_wstrcmpi(DBDefault, nick)) && (WCCmp(DBUser, user) && WCCmp(DBHost, host))) { if (away[0] == 'G' && getWord(hContact, "Status", ID_STATUS_OFFLINE) != ID_STATUS_AWAY) setWord(hContact, "Status", ID_STATUS_AWAY); else if (away[0] == 'H' && getWord(hContact, "Status", ID_STATUS_OFFLINE) != ID_STATUS_ONLINE) setWord(hContact, "Status", ID_STATUS_ONLINE); if ((DBNick && mir_wstrcmpi(nick, DBNick)) || !DBNick) setWString(hContact, "Nick", nick); if ((DBManUser && mir_wstrcmpi(user, DBManUser)) || !DBManUser) setWString(hContact, "User", user); if ((DBManHost && mir_wstrcmpi(host, DBManHost)) || !DBManHost) setWString(hContact, "Host", host); return true; } p1 = GetWordAddress(p1, 4); away = GetWord(p1, 3); } if (DBWildcard && DBNick && !WCCmp(CharLower(DBWildcard), CharLower(DBNick))) { setWString(hContact, "Nick", DBDefault); DoUserhostWithReason(2, ((CMStringW)L"S" + DBWildcard), true, (wchar_t*)DBWildcard); setString(hContact, "User", ""); setString(hContact, "Host", ""); return true; } if (getWord(hContact, "Status", ID_STATUS_OFFLINE) != ID_STATUS_OFFLINE) { setWord(hContact, "Status", ID_STATUS_OFFLINE); setWString(hContact, "Nick", DBDefault); setString(hContact, "User", ""); setString(hContact, "Host", ""); } } } } else ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_WHO_REPLY(const CIrcMessage* pmsg) { CMStringW command = PeekAtReasons(2); if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 6 && command[0] == 'S') { m_whoReply.AppendFormat(L"%s %s %s %s ", pmsg->parameters[5], pmsg->parameters[2], pmsg->parameters[3], pmsg->parameters[6]); if (mir_wstrcmpi(pmsg->parameters[5], m_info.sNick) == 0) { wchar_t host[1024]; mir_wstrncpy(host, pmsg->parameters[3], 1024); ForkThread(&CIrcProto::ResolveIPThread, new IPRESOLVE(_T2A(host), IP_AUTO)); } } if (command[0] == 'U') ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_TRYAGAIN(const CIrcMessage* pmsg) { CMStringW command = L""; if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 1) { if (pmsg->parameters[1] == L"WHO") command = GetNextUserhostReason(2); if (pmsg->parameters[1] == L"USERHOST") command = GetNextUserhostReason(1); } if (command[0] == 'U') ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_USERHOST_REPLY(const CIrcMessage* pmsg) { CMStringW command; if (pmsg->m_bIncoming) { command = GetNextUserhostReason(1); if (!command.IsEmpty() && command != L"U" && pmsg->parameters.getCount() > 1) { CONTACT finduser = { NULL, NULL, NULL, false, false, false }; int awaystatus = 0; CMStringW sTemp; CMStringW host; CMStringW user; CMStringW nick; CMStringW mask; CMStringW mess; CMStringW channel; // Status-check pre-processing: Setup check-list OBJLIST checklist(10); if (command[0] == 'S') { sTemp = GetWord(command, 0); sTemp.Delete(0, 1); for (int j = 1; !sTemp.IsEmpty(); j++) { checklist.insert(new CMStringW(sTemp)); sTemp = GetWord(command, j); } } // Cycle through results for (int j = 0;; j++) { sTemp = GetWord(pmsg->parameters[1], j); if (sTemp.IsEmpty()) break; wchar_t *p1 = mir_wstrdup(sTemp); // Pull out host, user and nick wchar_t *p2 = wcschr(p1, '@'); if (p2) { *p2 = '\0'; p2++; host = p2; } p2 = wcschr(p1, '='); if (p2) { if (*(p2 - 1) == '*') *(p2 - 1) = '\0'; // remove special char for IRCOps *p2 = '\0'; p2++; awaystatus = *p2; p2++; user = p2; nick = p1; } mess = L""; mask = nick + L"!" + user + L"@" + host; if (host.IsEmpty() || user.IsEmpty() || nick.IsEmpty()) { mir_free(p1); continue; } // Do command switch (command[0]) { case 'S': // Status check finduser.name = nick.GetBuffer(); finduser.host = host.GetBuffer(); finduser.user = user.GetBuffer(); { MCONTACT hContact = CList_FindContact(&finduser); if (hContact && getByte(hContact, "AdvancedMode", 0) == 0) { setWord(hContact, "Status", awaystatus == '-' ? ID_STATUS_AWAY : ID_STATUS_ONLINE); setWString(hContact, "User", user); setWString(hContact, "Host", host); setWString(hContact, "Nick", nick); // If user found, remove from checklist for (int i = 0; i < checklist.getCount(); i++) if (!mir_wstrcmpi(checklist[i], nick)) checklist.remove(i); } } break; case 'I': // m_ignore mess = L"/IGNORE %question=\""; mess += TranslateT("Please enter the hostmask (nick!user@host)\nNOTE! Contacts on your contact list are never ignored"); mess += (CMStringW)L"\",\"" + TranslateT("Ignore") + L"\",\"*!*@" + host + L"\""; if (m_ignoreChannelDefault) mess += L" +qnidcm"; else mess += L" +qnidc"; break; case 'J': // Unignore mess = L"/UNIGNORE *!*@" + host; break; case 'B': // Ban channel = (command.c_str() + 1); mess = L"/MODE " + channel + L" +b *!*@" + host; break; case 'K': // Ban & Kick channel = (command.c_str() + 1); mess.Format(L"/MODE %s +b *!*@%s%%newl/KICK %s %s", channel, host, channel, nick); break; case 'L': // Ban & Kick with reason channel = (command.c_str() + 1); mess.Format(L"/MODE %s +b *!*@%s%%newl/KICK %s %s %%question=\"%s\",\"%s\",\"%s\"", channel, host, channel, nick, TranslateT("Please enter the reason"), TranslateT("Ban'n Kick"), TranslateT("Jerk")); break; } mir_free(p1); // Post message if (!mess.IsEmpty()) PostIrcMessageWnd(NULL, NULL, mess); } // Status-check post-processing: make buddies in ckeck-list offline if (command[0] == 'S') { for (int i = 0; i < checklist.getCount(); i++) { finduser.name = checklist[i].GetBuffer(); finduser.ExactNick = true; CList_SetOffline(&finduser); } } return true; } } if (!pmsg->m_bIncoming || command == L"U") ShowMessage(pmsg); return true; } bool CIrcProto::OnIrc_SUPPORT(const CIrcMessage* pmsg) { static const wchar_t *lpszFmt = L"Try server %99[^ ,], port %19s"; wchar_t szAltServer[100]; wchar_t szAltPort[20]; if (pmsg->parameters.getCount() > 1 && swscanf(pmsg->parameters[1], lpszFmt, &szAltServer, &szAltPort) == 2) { ShowMessage(pmsg); mir_strncpy(m_serverName, _T2A(szAltServer), 99); mir_strncpy(m_portStart, _T2A(szAltPort), 9); m_noOfChannels = 0; ConnectToServer(); return true; } if (pmsg->m_bIncoming && !bPerformDone) DoOnConnect(pmsg); if (pmsg->m_bIncoming && pmsg->parameters.getCount() > 0) { CMStringW S; for (int i = 0; i < pmsg->parameters.getCount(); i++) { wchar_t* temp = mir_wstrdup(pmsg->parameters[i]); if (wcsstr(temp, L"CHANTYPES=")) { wchar_t* p1 = wcschr(temp, '='); p1++; if (mir_wstrlen(p1) > 0) sChannelPrefixes = p1; } if (wcsstr(temp, L"CHANMODES=")) { wchar_t* p1 = wcschr(temp, '='); p1++; if (mir_wstrlen(p1) > 0) sChannelModes = (char*)_T2A(p1); } if (wcsstr(temp, L"PREFIX=")) { wchar_t* p1 = wcschr(temp, '('); wchar_t* p2 = wcschr(temp, ')'); if (p1 && p2) { p1++; if (p1 != p2) sUserModes = (char*)_T2A(p1); sUserModes = sUserModes.Mid(0, p2 - p1); p2++; if (*p2 != '\0') sUserModePrefixes = p2; } else { p1 = wcschr(temp, '='); p1++; sUserModePrefixes = p1; for (int n = 0; n < sUserModePrefixes.GetLength() + 1; n++) { if (sUserModePrefixes[n] == '@') sUserModes.SetAt(n, 'o'); else if (sUserModePrefixes[n] == '+') sUserModes.SetAt(n, 'v'); else if (sUserModePrefixes[n] == '-') sUserModes.SetAt(n, 'u'); else if (sUserModePrefixes[n] == '%') sUserModes.SetAt(n, 'h'); else if (sUserModePrefixes[n] == '!') sUserModes.SetAt(n, 'a'); else if (sUserModePrefixes[n] == '*') sUserModes.SetAt(n, 'q'); else if (sUserModePrefixes[n] == '\0') sUserModes.SetAt(n, '\0'); else sUserModes.SetAt(n, '_'); } } } mir_free(temp); } } ShowMessage(pmsg); return true; } void CIrcProto::OnIrcDefault(const CIrcMessage* pmsg) { ShowMessage(pmsg); } void CIrcProto::OnIrcDisconnected() { m_statusMessage = L""; db_unset(NULL, m_szModuleName, "JTemp"); bTempDisableCheck = false; bTempForceCheck = false; m_iTempCheckTime = 0; m_myHost[0] = '\0'; int Temp = m_iStatus; KillIdent(); KillChatTimer(OnlineNotifTimer); KillChatTimer(OnlineNotifTimer3); KillChatTimer(KeepAliveTimer); KillChatTimer(InitTimer); KillChatTimer(IdentTimer); m_iStatus = m_iDesiredStatus = ID_STATUS_OFFLINE; ProtoBroadcastAck(NULL, ACKTYPE_STATUS, ACKRESULT_SUCCESS, (HANDLE)Temp, ID_STATUS_OFFLINE); CMStringW sDisconn = L"\035\002"; sDisconn += TranslateT("*Disconnected*"); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, sDisconn, NULL, NULL, NULL, true, false); Chat_Control(m_szModuleName, NULL, SESSION_OFFLINE); if (!Miranda_IsTerminated()) CList_SetAllOffline(m_disconnectDCCChats); // restore the original nick, cause it might be changed memcpy(m_nick, m_pNick, sizeof(m_nick)); setWString("Nick", m_pNick); Menu_EnableItem(hMenuJoin, false); Menu_EnableItem(hMenuList, false); Menu_EnableItem(hMenuNick, false); } ///////////////////////////////////////////////////////////////////////////////////////// // OnConnect static void __stdcall sttMainThrdOnConnect(void* param) { CIrcProto *ppro = (CIrcProto*)param; ppro->SetChatTimer(ppro->InitTimer, 1 * 1000, TimerProc); if (ppro->m_identTimer) ppro->SetChatTimer(ppro->IdentTimer, 60 * 1000, IdentTimerProc); if (ppro->m_sendKeepAlive) ppro->SetChatTimer(ppro->KeepAliveTimer, 60 * 1000, KeepAliveTimerProc); if (ppro->m_autoOnlineNotification && !ppro->bTempDisableCheck || ppro->bTempForceCheck) { ppro->SetChatTimer(ppro->OnlineNotifTimer, 1000, OnlineNotifTimerProc); if (ppro->m_channelAwayNotification) ppro->SetChatTimer(ppro->OnlineNotifTimer3, 3000, OnlineNotifTimerProc3); } } bool CIrcProto::DoOnConnect(const CIrcMessage*) { bPerformDone = true; nickflag = true; Menu_ModifyItem(hMenuJoin, NULL, INVALID_HANDLE_VALUE, 0); Menu_ModifyItem(hMenuList, NULL, INVALID_HANDLE_VALUE, 0); Menu_ModifyItem(hMenuNick, NULL, INVALID_HANDLE_VALUE, 0); int Temp = m_iStatus; m_iStatus = ID_STATUS_ONLINE; ProtoBroadcastAck(NULL, ACKTYPE_STATUS, ACKRESULT_SUCCESS, (HANDLE)Temp, m_iStatus); if (m_iDesiredStatus == ID_STATUS_AWAY) PostIrcMessage(L"/AWAY %s", m_statusMessage.Mid(0, 450)); if (m_perform) { DoPerform("ALL NETWORKS"); if (IsConnected()) { DoPerform(_T2A(m_info.sNetwork)); switch (Temp) { case ID_STATUS_FREECHAT: DoPerform("Event: Free for chat"); break; case ID_STATUS_ONLINE: DoPerform("Event: Available"); break; } } } if (m_rejoinChannels) { int count = pci->SM_GetCount(m_szModuleName); for (int i = 0; i < count; i++) { GC_INFO gci = { 0 }; gci.Flags = GCF_BYINDEX | GCF_DATA | GCF_NAME | GCF_TYPE; gci.iItem = i; gci.pszModule = m_szModuleName; if (!Chat_GetInfo(&gci) && gci.iType == GCW_CHATROOM) { CHANNELINFO *wi = (CHANNELINFO*)gci.pItemData; if (wi && wi->pszPassword) PostIrcMessage(L"/JOIN %s %s", gci.pszName, wi->pszPassword); else PostIrcMessage(L"/JOIN %s", gci.pszName); } } } Chat_AddGroup(m_szModuleName, SERVERWINDOW, TranslateT("Normal")); Chat_Control(m_szModuleName, SERVERWINDOW, SESSION_ONLINE); CallFunctionAsync(sttMainThrdOnConnect, this); nickflag = false; return 0; } static void __cdecl AwayWarningThread(LPVOID) { Thread_SetName("IRC: AwayWarningThread"); MessageBox(NULL, TranslateT("The usage of /AWAY in your perform buffer is restricted\n as IRC sends this command automatically."), TranslateT("IRC Error"), MB_OK); } int CIrcProto::DoPerform(const char* event) { CMStringA sSetting = CMStringA("PERFORM:") + event; sSetting.MakeUpper(); DBVARIANT dbv; if (!getWString(sSetting, &dbv)) { if (!my_strstri(dbv.ptszVal, L"/away")) PostIrcMessageWnd(NULL, NULL, dbv.ptszVal); else mir_forkthread(AwayWarningThread, NULL); db_free(&dbv); return 1; } return 0; } int CIrcProto::IsIgnored(const CMStringW& nick, const CMStringW& address, const CMStringW& host, char type) { return IsIgnored(nick + L"!" + address + L"@" + host, type); } int CIrcProto::IsIgnored(CMStringW user, char type) { for (int i = 0; i < m_ignoreItems.getCount(); i++) { const CIrcIgnoreItem& C = m_ignoreItems[i]; if (type == 0 && !mir_wstrcmpi(user, C.mask)) return i + 1; bool bUserContainsWild = (wcschr(user, '*') != NULL || wcschr(user, '?') != NULL); if (!bUserContainsWild && WCCmp(C.mask, user) || bUserContainsWild && !mir_wstrcmpi(user, C.mask)) { if (C.flags.IsEmpty() || C.flags[0] != '+') continue; if (!wcschr(C.flags, type)) continue; if (C.network.IsEmpty()) return i + 1; if (IsConnected() && !mir_wstrcmpi(C.network, m_info.sNetwork)) return i + 1; } } return 0; } bool CIrcProto::AddIgnore(const wchar_t* mask, const wchar_t* flags, const wchar_t* network) { RemoveIgnore(mask); m_ignoreItems.insert(new CIrcIgnoreItem(mask, (L"+" + CMStringW(flags)), network)); RewriteIgnoreSettings(); if (m_ignoreDlg) m_ignoreDlg->RebuildList(); return true; } bool CIrcProto::RemoveIgnore(const wchar_t* mask) { int idx; while ((idx = IsIgnored(mask, '\0')) != 0) m_ignoreItems.remove(idx - 1); RewriteIgnoreSettings(); if (m_ignoreDlg) m_ignoreDlg->RebuildList(); return true; }