/* 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. */ #include "irc.h" BOOL bChatInstalled = FALSE, m_bMbotInstalled = FALSE; void CIrcProto::InitMainMenus(void) { char temp[ MAXMODULELABELLENGTH ]; char *d = temp + mir_snprintf(temp, SIZEOF(temp), m_szModuleName); CLISTMENUITEM mi = { sizeof(mi) }; mi.pszService = temp; if ( bChatInstalled ) { HGENMENU hRoot = MO_GetProtoRootMenu( m_szModuleName ); if ( hRoot == NULL ) { // Root popupmenuitem mi.ptszName = m_tszUserName; mi.position = -1999901010; mi.hParentMenu = HGENMENU_ROOT; mi.flags = CMIF_ROOTPOPUP | CMIF_TCHAR | CMIF_KEEPUNTRANSLATED; mi.icolibItem = GetIconHandle(IDI_MAIN); hRoot = hMenuRoot = Menu_AddProtoMenuItem(&mi); } else { if (hMenuRoot) CallService(MS_CLIST_REMOVEMAINMENUITEM, (WPARAM)hMenuRoot, 0); hMenuRoot = NULL; } mi.flags = CMIF_CHILDPOPUP; mi.pszName = LPGEN("&Quick connect"); mi.icolibItem = GetIconHandle(IDI_QUICK); strcpy( d, IRC_QUICKCONNECT ); mi.position = 201001; mi.hParentMenu = hRoot; hMenuQuick = Menu_AddProtoMenuItem(&mi); if (m_iStatus != ID_STATUS_OFFLINE) mi.flags |= CMIF_GRAYED; mi.pszName = LPGEN("&Join channel"); mi.icolibItem = LoadSkinnedIconHandle(SKINICON_CHAT_JOIN);//GetIconHandle(IDI_JOIN); strcpy( d, IRC_JOINCHANNEL ); mi.position = 201002; hMenuJoin = Menu_AddProtoMenuItem(&mi); mi.pszName = LPGEN("&Change your nickname"); mi.icolibItem = GetIconHandle(IDI_RENAME); strcpy( d, IRC_CHANGENICK ); mi.position = 201003; hMenuNick = Menu_AddProtoMenuItem(&mi); mi.pszName = LPGEN("Show the &list of available channels"); mi.icolibItem = GetIconHandle(IDI_LIST); strcpy( d, IRC_SHOWLIST ); mi.position = 201004; hMenuList = Menu_AddProtoMenuItem(&mi); if (m_useServer) mi.flags &= ~CMIF_GRAYED; mi.pszName = LPGEN("&Show the server window"); mi.icolibItem = GetIconHandle(IDI_SERVER); strcpy( d, IRC_SHOWSERVER ); mi.position = 201005; hMenuServer = Menu_AddProtoMenuItem(&mi); } } ///////////////////////////////////////////////////////////////////////////////////////// static HGENMENU hUMenuChanSettings, hUMenuWhois, hUMenuDisconnect, hUMenuIgnore; static HANDLE hMenuChanSettings, hMenuWhois, hMenuDisconnect, hMenuIgnore; static CIrcProto* IrcGetInstanceByHContact(HANDLE hContact) { char* szProto = GetContactProto(hContact); if (szProto == NULL) return NULL; for (int i = 0; i < g_Instances.getCount(); i++) if (!strcmp(szProto, g_Instances[i]->m_szModuleName)) return g_Instances[i]; return NULL; } static INT_PTR IrcMenuChanSettings(WPARAM wParam, LPARAM lParam) { CIrcProto *ppro = IrcGetInstanceByHContact((HANDLE)wParam); return (ppro) ? ppro->OnMenuChanSettings(wParam, lParam) : 0; } static INT_PTR IrcMenuWhois(WPARAM wParam, LPARAM lParam) { CIrcProto *ppro = IrcGetInstanceByHContact((HANDLE)wParam); return (ppro) ? ppro->OnMenuWhois(wParam, lParam) : 0; } static INT_PTR IrcMenuDisconnect(WPARAM wParam, LPARAM lParam) { CIrcProto *ppro = IrcGetInstanceByHContact((HANDLE)wParam); return (ppro) ? ppro->OnMenuDisconnect(wParam, lParam) : 0; } static INT_PTR IrcMenuIgnore(WPARAM wParam, LPARAM lParam) { CIrcProto *ppro = IrcGetInstanceByHContact((HANDLE)wParam); return (ppro) ? ppro->OnMenuIgnore(wParam, lParam) : 0; } int IrcPrebuildContactMenu( WPARAM wParam, LPARAM lParam ) { Menu_ShowItem(hUMenuChanSettings, false); Menu_ShowItem(hUMenuWhois, false); Menu_ShowItem(hUMenuDisconnect, false); Menu_ShowItem(hUMenuIgnore, false); CIrcProto *ppro = IrcGetInstanceByHContact((HANDLE)wParam); return (ppro) ? ppro->OnMenuPreBuild(wParam, lParam) : 0; } void InitContactMenus(void) { char temp[MAXMODULELABELLENGTH]; char *d = temp + mir_snprintf(temp, SIZEOF(temp), "IRC"); CLISTMENUITEM mi = { sizeof(mi) }; mi.pszService = temp; mi.pszName = LPGEN("Channel &settings"); mi.icolibItem = GetIconHandle(IDI_MANAGER); strcpy(d, IRC_UM_CHANSETTINGS); mi.popupPosition = 500090002; hUMenuChanSettings = Menu_AddContactMenuItem(&mi); hMenuChanSettings = CreateServiceFunction(temp, IrcMenuChanSettings); mi.pszName = LPGEN("&WhoIs info"); mi.icolibItem = GetIconHandle(IDI_WHOIS); strcpy(d, IRC_UM_WHOIS); mi.popupPosition = 500090001; hUMenuWhois = Menu_AddContactMenuItem(&mi); hMenuWhois = CreateServiceFunction(temp, IrcMenuWhois); mi.pszName = LPGEN("Di&sconnect"); mi.icolibItem = GetIconHandle(IDI_DELETE); strcpy(d, IRC_UM_DISCONNECT); mi.popupPosition = 500090001; hUMenuDisconnect = Menu_AddContactMenuItem(&mi); hMenuDisconnect = CreateServiceFunction(temp, IrcMenuDisconnect); mi.pszName = LPGEN("&Add to ignore list"); mi.icolibItem = GetIconHandle(IDI_BLOCK); strcpy(d, IRC_UM_IGNORE); mi.popupPosition = 500090002; hUMenuIgnore = Menu_AddContactMenuItem(&mi); hMenuIgnore = CreateServiceFunction( temp, IrcMenuIgnore ); HookEvent(ME_CLIST_PREBUILDCONTACTMENU, IrcPrebuildContactMenu); } void UninitContactMenus(void) { CallService(MS_CLIST_REMOVECONTACTMENUITEM, (WPARAM)hUMenuChanSettings, 0); CallService(MS_CLIST_REMOVECONTACTMENUITEM, (WPARAM)hUMenuWhois, 0); CallService(MS_CLIST_REMOVECONTACTMENUITEM, (WPARAM)hUMenuDisconnect, 0); CallService(MS_CLIST_REMOVECONTACTMENUITEM, (WPARAM)hUMenuIgnore, 0); DestroyServiceFunction(hMenuChanSettings); DestroyServiceFunction(hMenuWhois); DestroyServiceFunction(hMenuDisconnect); DestroyServiceFunction(hMenuIgnore); } INT_PTR __cdecl CIrcProto::OnDoubleclicked(WPARAM, LPARAM lParam) { if (!lParam) return 0; CLISTEVENT* pcle = (CLISTEVENT*)lParam; if ( getByte((HANDLE) pcle->hContact, "DCC", 0) != 0) { DCCINFO* pdci = ( DCCINFO* )pcle->lParam; CMessageBoxDlg* dlg = new CMessageBoxDlg( this, pdci ); dlg->Show(); HWND hWnd = dlg->GetHwnd(); TCHAR szTemp[500]; mir_sntprintf(szTemp, SIZEOF(szTemp), TranslateT("%s (%s) is requesting a client-to-client chat connection."), pdci->sContactName.c_str(), pdci->sHostmask.c_str()); SetDlgItemText( hWnd, IDC_TEXT, szTemp ); ShowWindow( hWnd, SW_SHOW ); return 1; } return 0; } int __cdecl CIrcProto::OnContactDeleted(WPARAM wp, LPARAM) { HANDLE hContact = ( HANDLE )wp; if ( !hContact ) return 0; DBVARIANT dbv; if ( !getTString( hContact, "Nick", &dbv )) { int type = getByte(hContact, "ChatRoom", 0); if ( type != 0 ) { CMString S = _T(""); if (type == GCW_CHATROOM) S = MakeWndID( dbv.ptszVal ); if (type == GCW_SERVER) S = SERVERWINDOW; GCDEST gcd = { m_szModuleName, S.c_str(), GC_EVENT_CONTROL }; GCEVENT gce = { sizeof(gce), &gcd }; int i = CallChatEvent( SESSION_TERMINATE, (LPARAM)&gce); if (i && type == GCW_CHATROOM) PostIrcMessage( _T("/PART %s %s"), dbv.ptszVal, m_userInfo); } else { BYTE bDCC = getByte(( HANDLE )wp, "DCC", 0) ; if ( bDCC ) { CDccSession* dcc = FindDCCSession((HANDLE)wp); if ( dcc ) dcc->Disconnect(); } } db_free(&dbv); } return 0; } INT_PTR __cdecl CIrcProto::OnJoinChat(WPARAM wp, LPARAM) { if (!wp ) return 0; DBVARIANT dbv; if ( !getTString(( HANDLE )wp, "Nick", &dbv)) { if ( getByte(( HANDLE )wp, "ChatRoom", 0) == GCW_CHATROOM) PostIrcMessage( _T("/JOIN %s"), dbv.ptszVal); db_free(&dbv); } return 0; } INT_PTR __cdecl CIrcProto::OnLeaveChat(WPARAM wp, LPARAM) { if (!wp ) return 0; DBVARIANT dbv; if ( !getTString(( HANDLE )wp, "Nick", &dbv)) { if ( getByte(( HANDLE )wp, "ChatRoom", 0) == GCW_CHATROOM) { PostIrcMessage( _T("/PART %s %s"), dbv.ptszVal, m_userInfo); CMString S = MakeWndID(dbv.ptszVal); GCDEST gcd = { m_szModuleName, S.c_str(), GC_EVENT_CONTROL }; GCEVENT gce = { sizeof(gce), &gcd }; CallChatEvent(SESSION_TERMINATE, (LPARAM)&gce); } db_free(&dbv); } return 0; } INT_PTR __cdecl CIrcProto::OnMenuChanSettings(WPARAM wp, LPARAM) { if (!wp ) return 0; HANDLE hContact = (HANDLE) wp; DBVARIANT dbv; if ( !getTString( hContact, "Nick", &dbv )) { PostIrcMessageWnd(dbv.ptszVal, NULL, _T("/CHANNELMANAGER")); db_free(&dbv); } return 0; } INT_PTR __cdecl CIrcProto::OnMenuWhois(WPARAM wp, LPARAM) { if ( !wp ) return 0; DBVARIANT dbv; if ( !getTString(( HANDLE )wp, "Nick", &dbv)) { PostIrcMessage( _T("/WHOIS %s %s"), dbv.ptszVal, dbv.ptszVal); db_free(&dbv); } return 0; } INT_PTR __cdecl CIrcProto::OnMenuDisconnect(WPARAM wp, LPARAM) { CDccSession* dcc = FindDCCSession((HANDLE)wp); if ( dcc ) dcc->Disconnect(); return 0; } INT_PTR __cdecl CIrcProto::OnMenuIgnore(WPARAM wp, LPARAM) { if (!wp) return 0; HANDLE hContact = (HANDLE)wp; DBVARIANT dbv; if ( !getTString(hContact, "Nick", &dbv )) { if ( !isChatRoom(hContact)) { char* host = NULL; DBVARIANT dbv1; if ( !getString(hContact, "Host", &dbv1)) host = dbv1.pszVal; if ( host ) { String S; if (m_ignoreChannelDefault) S = "+qnidcm"; else S = "+qnidc"; PostIrcMessage( _T("/IGNORE %%question=\"%s\",\"%s\",\"*!*@%S\" %s"), TranslateT("Please enter the hostmask (nick!user@host) \nNOTE! Contacts on your contact list are never ignored"), TranslateT("Ignore"), host, S.c_str()); db_free(&dbv1); } } db_free(&dbv); } return 0; } INT_PTR __cdecl CIrcProto::OnJoinMenuCommand(WPARAM, LPARAM) { if ( !m_joinDlg ) { m_joinDlg = new CJoinDlg( this ); m_joinDlg->Show(); } SetDlgItemText( m_joinDlg->GetHwnd(), IDC_CAPTION, TranslateT("Join channel")); SetWindowText( GetDlgItem( m_joinDlg->GetHwnd(), IDC_TEXT), TranslateT("Please enter a channel to join")); SendMessage( GetDlgItem( m_joinDlg->GetHwnd(), IDC_ENICK), EM_SETSEL, 0,MAKELPARAM(0,-1)); ShowWindow( m_joinDlg->GetHwnd(), SW_SHOW); SetActiveWindow( m_joinDlg->GetHwnd()); return 0; } INT_PTR __cdecl CIrcProto::OnQuickConnectMenuCommand(WPARAM, LPARAM) { if ( !m_quickDlg ) { m_quickDlg = new CQuickDlg( this ); m_quickDlg->Show(); SetWindowText( m_quickDlg->GetHwnd(), TranslateT( "Quick connect" )); SetDlgItemText( m_quickDlg->GetHwnd(), IDC_TEXT, TranslateT( "Please select IRC network and enter the password if needed" )); SetDlgItemText( m_quickDlg->GetHwnd(), IDC_CAPTION, TranslateT( "Quick connect" )); WindowSetIcon( m_quickDlg->GetHwnd(), IDI_QUICK ); } ShowWindow( m_quickDlg->GetHwnd(), SW_SHOW ); SetActiveWindow( m_quickDlg->GetHwnd()); return 0; } INT_PTR __cdecl CIrcProto::OnShowListMenuCommand(WPARAM, LPARAM) { PostIrcMessage( _T("/LIST")); return 0; } INT_PTR __cdecl CIrcProto::OnShowServerMenuCommand(WPARAM, LPARAM) { GCDEST gcd = { m_szModuleName, SERVERWINDOW, GC_EVENT_CONTROL }; GCEVENT gce = { sizeof(gce), &gcd }; CallChatEvent( WINDOW_VISIBLE, (LPARAM)&gce); return 0; } INT_PTR __cdecl CIrcProto::OnChangeNickMenuCommand(WPARAM, LPARAM) { if ( !m_nickDlg ) { m_nickDlg = new CNickDlg( this ); m_nickDlg->Show(); } SetDlgItemText( m_nickDlg->GetHwnd(), IDC_CAPTION, TranslateT("Change nickname")); SetWindowText( GetDlgItem( m_nickDlg->GetHwnd(), IDC_TEXT), TranslateT("Please enter a unique nickname")); m_nickDlg->m_Enick.SetText( m_info.sNick.c_str()); m_nickDlg->m_Enick.SendMsg( CB_SETEDITSEL, 0, MAKELPARAM(0,-1)); ShowWindow( m_nickDlg->GetHwnd(), SW_SHOW); SetActiveWindow( m_nickDlg->GetHwnd()); return 0; } static void DoChatFormatting( TCHAR* pszText ) { TCHAR* p1 = pszText; int iFG = -1; int iRemoveChars; TCHAR InsertThis[50]; while (*p1 != '\0') { iRemoveChars = 0; InsertThis[0] = 0; if ( *p1 == '%' ) { switch ( p1[1] ) { case 'B': case 'b': lstrcpy(InsertThis, _T("\002")); iRemoveChars = 2; break; case 'I': case 'i': lstrcpy(InsertThis, _T("\026")); iRemoveChars = 2; break; case 'U': case 'u': lstrcpy(InsertThis, _T("\037")); iRemoveChars = 2; break; case 'c': { lstrcpy(InsertThis, _T("\003")); iRemoveChars = 2; TCHAR szTemp[3]; lstrcpyn(szTemp, p1 + 2, 3); iFG = _ttoi(szTemp); } break; case 'C': if ( p1[2] == '%' && p1[3] == 'F') { lstrcpy(InsertThis, _T("\00399,99")); iRemoveChars = 4; } else { lstrcpy(InsertThis, _T("\00399")); iRemoveChars = 2; } iFG = -1; break; case 'f': if (p1 - 3 >= pszText && p1[-3] == '\003') lstrcpy(InsertThis, _T(",")); else if ( iFG >= 0 ) mir_sntprintf(InsertThis, SIZEOF(InsertThis), _T("\003%u,"), iFG); else lstrcpy(InsertThis, _T("\00399,")); iRemoveChars = 2; break; case 'F': if (iFG >= 0) mir_sntprintf(InsertThis, SIZEOF(InsertThis), _T("\003%u,99"), iFG); else lstrcpy(InsertThis, _T("\00399,99")); iRemoveChars = 2; break; case '%': lstrcpy(InsertThis, _T("%")); iRemoveChars = 2; break; default: iRemoveChars = 2; break; } MoveMemory(p1 + lstrlen(InsertThis), p1 + iRemoveChars, sizeof(TCHAR)*(lstrlen(p1) - iRemoveChars + 1)); CopyMemory(p1, InsertThis, sizeof(TCHAR)*lstrlen(InsertThis)); if (iRemoveChars || lstrlen(InsertThis)) p1 += lstrlen(InsertThis); else p1++; } else p1++; } } int __cdecl CIrcProto::GCEventHook(WPARAM wParam,LPARAM lParam) { GCHOOK *gch= (GCHOOK*) lParam; CMString S = _T(""); EnterCriticalSection(&m_gchook); // handle the hook if (gch) { if (!lstrcmpiA(gch->pDest->pszModule, m_szModuleName)) { TCHAR *p1 = mir_tstrdup( gch->pDest->ptszID ); TCHAR *p2 = _tcsstr( p1, _T(" - ")); if (p2) *p2 = '\0'; switch( gch->pDest->iType ) { case GC_SESSION_TERMINATE: FreeWindowItemData(p1, (CHANNELINFO*)gch->dwData); break; case GC_USER_MESSAGE: if (gch && gch->ptszText && *gch->ptszText) { TCHAR* pszText = new TCHAR[lstrlen(gch->ptszText)+1000]; lstrcpy(pszText, gch->ptszText); DoChatFormatting(pszText); PostIrcMessageWnd(p1, NULL, pszText); delete []pszText; } break; case GC_USER_CHANMGR: PostIrcMessageWnd(p1, NULL, _T("/CHANNELMANAGER")); break; case GC_USER_PRIVMESS: { TCHAR szTemp[4000]; mir_sntprintf(szTemp, SIZEOF(szTemp), _T("/QUERY %s"), gch->ptszUID ); PostIrcMessageWnd(p1, NULL, szTemp); } break; case GC_USER_LOGMENU: switch( gch->dwData ) { case 1: OnChangeNickMenuCommand(NULL, NULL); break; case 2: PostIrcMessageWnd(p1, NULL, _T("/CHANNELMANAGER")); break; case 3: PostIrcMessage( _T("/PART %s %s"), p1, m_userInfo ); { S = MakeWndID(p1); GCDEST gcd = { m_szModuleName, S.c_str(), GC_EVENT_CONTROL }; GCEVENT gce = { sizeof(gce), &gcd }; CallChatEvent(SESSION_TERMINATE, (LPARAM)&gce); } break; case 4: // show server window PostIrcMessageWnd(p1, NULL, _T("/SERVERSHOW")); break; /* case 5: // nickserv register nick PostIrcMessage( _T("/nickserv REGISTER %%question=\"%s\",\"%s\""), TranslateT("Please enter your authentification code"), TranslateT("Authentificate nick")); break; */ case 6: // nickserv Identify PostIrcMessage( _T("/nickserv AUTH %%question=\"%s\",\"%s\""), TranslateT("Please enter your authentification code"), TranslateT("Authentificate nick")); break; case 7: // nickserv drop nick if (MessageBox(0, TranslateT("Are you sure you want to unregister your current nick?"), TranslateT("Delete nick"), MB_ICONERROR + MB_YESNO + MB_DEFBUTTON2) == IDYES) PostIrcMessage( _T("/nickserv DROP")); break; case 8: // nickserv Identify { CQuestionDlg* dlg = new CQuestionDlg( this ); dlg->Show(); HWND question_hWnd = dlg->GetHwnd(); HWND hEditCtrl = GetDlgItem( question_hWnd, IDC_EDIT); SetDlgItemText( question_hWnd, IDC_CAPTION, TranslateT("Identify nick")); SetWindowText( GetDlgItem( question_hWnd, IDC_TEXT), TranslateT("Please enter your password")); SetDlgItemText( question_hWnd, IDC_HIDDENEDIT, _T("/nickserv IDENTIFY %question=\"%s\",\"%s\"")); SetWindowLongPtr(GetDlgItem( question_hWnd, IDC_EDIT), GWL_STYLE, (LONG)GetWindowLongPtr(GetDlgItem( question_hWnd, IDC_EDIT), GWL_STYLE) | ES_PASSWORD); SendMessage(hEditCtrl, EM_SETPASSWORDCHAR,(WPARAM)_T('*'),0 ); SetFocus(hEditCtrl); dlg->Activate(); } break; case 9: // nickserv remind password { DBVARIANT dbv; if ( !getTString( "Nick", &dbv )) { PostIrcMessage( _T("/nickserv SENDPASS %s"), dbv.ptszVal); db_free( &dbv ); } } break; case 10: // nickserv set new password PostIrcMessage( _T("/nickserv SET PASSWORD %%question=\"%s\",\"%s\""), TranslateT("Please enter your new password"), TranslateT("Set new password")); break; case 11: // nickserv set language PostIrcMessage( _T("/nickserv SET LANGUAGE %%question=\"%s\",\"%s\""), TranslateT("Please enter desired language ID (numeric value, depends on server)"), TranslateT("Change language of NickServ messages")); break; case 12: // nickserv set homepage PostIrcMessage( _T("/nickserv SET URL %%question=\"%s\",\"%s\""), TranslateT("Please enter URL that will be linked to your nick"), TranslateT("Set URL, linked to nick")); break; case 13: // nickserv set email PostIrcMessage( _T("/nickserv SET EMAIL %%question=\"%s\",\"%s\""), TranslateT("Please enter your e-mail, that will be linked to your nick"), TranslateT("Set e-mail, linked to nick")); break; case 14: // nickserv set info PostIrcMessage( _T("/nickserv SET INFO %%question=\"%s\",\"%s\""), TranslateT("Please enter some information about your nick"), TranslateT("Set information for nick")); break; case 15: // nickserv kill unauth off PostIrcMessage( _T("/nickserv SET KILL OFF")); break; case 16: // nickserv kill unauth on PostIrcMessage( _T("/nickserv SET KILL ON")); break; case 17: // nickserv kill unauth quick PostIrcMessage( _T("/nickserv SET KILL QUICK")); break; case 18: // nickserv hide nick from /LIST PostIrcMessage( _T("/nickserv SET PRIVATE ON")); break; case 19: // nickserv show nick to /LIST PostIrcMessage( _T("/nickserv SET PRIVATE OFF")); break; case 20: // nickserv Hide e-mail from info PostIrcMessage( _T("/nickserv SET HIDE EMAIL ON")); break; case 21: // nickserv Show e-mail in info PostIrcMessage( _T("/nickserv SET HIDE EMAIL OFF")); break; case 22: // nickserv Set security for nick PostIrcMessage( _T("/nickserv SET SECURE ON")); break; case 23: // nickserv Remove security for nick PostIrcMessage( _T("/nickserv SET SECURE OFF")); break; case 24: // nickserv Link nick to current PostIrcMessage( _T("/nickserv LINK %%question=\"%s\",\"%s\""), TranslateT("Please enter nick you want to link to your current nick"), TranslateT("Link another nick to current nick")); break; case 25: // nickserv Unlink nick from current PostIrcMessage( _T("/nickserv LINK %%question=\"%s\",\"%s\""), TranslateT("Please enter nick you want to unlink from your current nick"), TranslateT("Unlink another nick from current nick")); break; case 26: // nickserv Set main nick PostIrcMessage( _T("/nickserv LINK %%question=\"%s\",\"%s\""), TranslateT("Please enter nick you want to set as your main nick"), TranslateT("Set main nick")); break; case 27: // nickserv list all linked nicks PostIrcMessage( _T("/nickserv LISTLINKS")); break; case 28: // nickserv list all channels owned PostIrcMessage( _T("/nickserv LISTCHANS")); break; } break; case GC_USER_NICKLISTMENU: switch(gch->dwData) { case 1: PostIrcMessage( _T("/MODE %s +o %s"), p1, gch->ptszUID ); break; case 2: PostIrcMessage( _T("/MODE %s -o %s"), p1, gch->ptszUID ); break; case 3: PostIrcMessage( _T("/MODE %s +v %s"), p1, gch->ptszUID ); break; case 4: PostIrcMessage( _T("/MODE %s -v %s"), p1, gch->ptszUID ); break; case 5: PostIrcMessage( _T("/KICK %s %s"), p1, gch->ptszUID ); break; case 6: PostIrcMessage( _T("/KICK %s %s %%question=\"%s\",\"%s\",\"%s\""), p1, gch->ptszUID, TranslateT("Please enter the reason"), TranslateT("Kick"), TranslateT("Jerk")); break; case 7: DoUserhostWithReason(1, _T("B") + (CMString)p1, true, _T("%s"), gch->ptszUID ); break; case 8: DoUserhostWithReason(1, _T("K") + (CMString)p1, true, _T("%s"), gch->ptszUID ); break; case 9: DoUserhostWithReason(1, _T("L") + (CMString)p1, true, _T("%s"), gch->ptszUID ); break; case 10: PostIrcMessage( _T("/WHOIS %s %s"), gch->ptszUID, gch->ptszUID ); break; // case 11: // DoUserhostWithReason(1, "I", true, "%s", gch->ptszUID ); // break; // case 12: // DoUserhostWithReason(1, "J", true, "%s", gch->ptszUID ); // break; case 13: PostIrcMessage( _T("/DCC CHAT %s"), gch->ptszUID ); break; case 14: PostIrcMessage( _T("/DCC SEND %s"), gch->ptszUID ); break; case 15: DoUserhostWithReason(1, _T("I"), true, _T("%s"), gch->ptszUID ); break; case 16: PostIrcMessage( _T("/MODE %s +h %s"), p1, gch->ptszUID ); break; case 17: PostIrcMessage( _T("/MODE %s -h %s"), p1, gch->ptszUID ); break; case 18: PostIrcMessage( _T("/MODE %s +q %s"), p1, gch->ptszUID ); break; case 19: PostIrcMessage( _T("/MODE %s -q %s"), p1, gch->ptszUID ); break; case 20: PostIrcMessage( _T("/MODE %s +a %s"), p1, gch->ptszUID ); break; case 21: PostIrcMessage( _T("/MODE %s -a %s"), p1, gch->ptszUID ); break; case 22: PostIrcMessage( _T("/NOTICE %s %%question=\"%s\",\"%s\""), gch->ptszUID, TranslateT("Please enter the notice text"), TranslateT("Send notice")); break; case 23: PostIrcMessage( _T("/INVITE %s %%question=\"%s\",\"%s\""), gch->ptszUID, TranslateT("Please enter the channel name to invite to"), TranslateT("Invite to channel")); break; case 30: { PROTOSEARCHRESULT psr = { 0 }; psr.cbSize = sizeof(psr); psr.flags = PSR_TCHAR; psr.id = gch->ptszUID; psr.nick = gch->ptszUID; ADDCONTACTSTRUCT acs = { 0 }; acs.handleType = HANDLE_SEARCHRESULT; acs.szProto = m_szModuleName; acs.psr = &psr; CallService(MS_ADDCONTACT_SHOW, 0, (LPARAM)&acs); } break; case 31: //slap { TCHAR tszTemp[4000]; mir_sntprintf(tszTemp, SIZEOF(tszTemp), _T("/slap %s"), gch->ptszUID); PostIrcMessageWnd(p1, NULL, tszTemp); } break; case 32: //nickserv info { TCHAR tszTemp[4000]; mir_sntprintf(tszTemp, SIZEOF(tszTemp), _T("/nickserv INFO %s ALL"), gch->ptszUID); PostIrcMessageWnd(p1, NULL, tszTemp); } break; case 33: //nickserv ghost { TCHAR tszTemp[4000]; mir_sntprintf(tszTemp, SIZEOF(tszTemp), _T("/nickserv GHOST %s"), gch->ptszUID); PostIrcMessageWnd(p1, NULL, tszTemp); } break; } break; } mir_free( p1 ); } } LeaveCriticalSection(&m_gchook); return 0; } ///////////////////////////////////////////////////////////////////////////////////////// static gc_item logItems[] = { { LPGENT("&Change your nickname" ), 1, MENU_ITEM, FALSE }, { LPGENT("Channel &settings" ), 2, MENU_ITEM, FALSE }, { _T(""), 0, MENU_SEPARATOR, FALSE }, { LPGENT("NickServ"), 0, MENU_NEWPOPUP, FALSE }, { LPGENT("Register nick" ), 5, MENU_POPUPITEM, TRUE }, { LPGENT("Auth nick" ), 6, MENU_POPUPITEM, FALSE }, { LPGENT("Delete nick" ), 7, MENU_POPUPITEM, FALSE }, { LPGENT("Identify nick" ), 8, MENU_POPUPITEM, FALSE }, { LPGENT("Remind password" ), 9, MENU_POPUPITEM, FALSE }, { LPGENT("Set new password" ), 10, MENU_POPUPITEM, TRUE }, { LPGENT("Set language" ), 11, MENU_POPUPITEM, FALSE }, { LPGENT("Set homepage" ), 12, MENU_POPUPITEM, FALSE }, { LPGENT("Set e-mail" ), 13, MENU_POPUPITEM, FALSE }, { LPGENT("Set info" ), 14, MENU_POPUPITEM, FALSE }, { _T("" ), 0, MENU_POPUPSEPARATOR, FALSE }, { LPGENT("Hide e-mail from info" ), 20, MENU_POPUPITEM, FALSE }, { LPGENT("Show e-mail in info" ), 21, MENU_POPUPITEM, FALSE }, { _T("" ), 0, MENU_POPUPSEPARATOR, FALSE }, { LPGENT("Set security for nick" ), 22, MENU_POPUPITEM, FALSE }, { LPGENT("Remove security for nick" ), 23, MENU_POPUPITEM, FALSE }, { _T("" ), 0, MENU_POPUPSEPARATOR, FALSE }, { LPGENT("Link nick to current" ), 24, MENU_POPUPITEM, FALSE }, { LPGENT("Unlink nick from current" ), 25, MENU_POPUPITEM, FALSE }, { LPGENT("Set main nick" ), 26, MENU_POPUPITEM, FALSE }, { LPGENT("List all your nicks" ), 27, MENU_POPUPITEM, FALSE }, { LPGENT("List your channels" ), 28, MENU_POPUPITEM, FALSE }, { _T("" ), 0, MENU_POPUPSEPARATOR, FALSE }, { LPGENT("Kill unauthorized: off" ), 15, MENU_POPUPITEM, FALSE }, { LPGENT("Kill unauthorized: on" ), 16, MENU_POPUPITEM, FALSE }, { LPGENT("Kill unauthorized: quick" ), 17, MENU_POPUPITEM, FALSE }, { _T("" ), 0, MENU_POPUPSEPARATOR, FALSE }, { LPGENT("Hide nick from list" ), 18, MENU_POPUPITEM, FALSE }, { LPGENT("Show nick to list" ), 19, MENU_POPUPITEM, FALSE }, { LPGENT("Show the server &window" ), 4, MENU_ITEM, FALSE }, { _T(""), 0, MENU_SEPARATOR, FALSE }, { LPGENT("&Leave the channel" ), 3, MENU_ITEM, FALSE } }; static gc_item nickItems[] = { { LPGENT("&WhoIs info"), 10, MENU_ITEM, FALSE }, //0 { LPGENT("&Invite to channel"), 23, MENU_ITEM, FALSE }, { LPGENT("Send ¬ice"), 22, MENU_ITEM, FALSE }, { LPGENT("&Slap"), 31, MENU_ITEM, FALSE }, { LPGENT("Nickserv info"), 32, MENU_ITEM, FALSE }, { LPGENT("Nickserv kill ghost"), 33, MENU_ITEM, FALSE }, //5 { LPGENT("&Control"), 0, MENU_NEWPOPUP, FALSE }, { LPGENT("Give Owner"), 18, MENU_POPUPITEM, FALSE }, //7 { LPGENT("Take Owner"), 19, MENU_POPUPITEM, FALSE }, { LPGENT("Give Admin"), 20, MENU_POPUPITEM, FALSE }, { LPGENT("Take Admin"), 21, MENU_POPUPITEM, FALSE }, //10 { LPGENT("Give &Op"), 1, MENU_POPUPITEM, FALSE }, { LPGENT("Take O&p"), 2, MENU_POPUPITEM, FALSE }, { LPGENT("Give &Halfop"), 16, MENU_POPUPITEM, FALSE }, { LPGENT("Take H&alfop"), 17, MENU_POPUPITEM, FALSE }, { LPGENT("Give &Voice"), 3, MENU_POPUPITEM, FALSE }, //15 { LPGENT("Take V&oice"), 4, MENU_POPUPITEM, FALSE }, { _T(""), 0, MENU_POPUPSEPARATOR, FALSE }, { LPGENT("&Kick"), 5, MENU_POPUPITEM, FALSE }, { LPGENT("Ki&ck (reason)"), 6, MENU_POPUPITEM, FALSE }, { LPGENT("&Ban"), 7, MENU_POPUPITEM, FALSE }, //20 { LPGENT("Ban'&n kick"), 8, MENU_POPUPITEM, FALSE }, { LPGENT("Ban'n kick (&reason)"), 9, MENU_POPUPITEM, FALSE }, { LPGENT("&Direct Connection"), 0, MENU_NEWPOPUP, FALSE }, { LPGENT("Request &Chat"), 13, MENU_POPUPITEM, FALSE }, { LPGENT("Send &File"), 14, MENU_POPUPITEM, FALSE }, //25 { LPGENT("Add to &ignore list"), 15, MENU_ITEM, FALSE }, { _T(""), 12, MENU_SEPARATOR, FALSE }, { LPGENT("&Add User"), 30, MENU_ITEM, FALSE } }; int __cdecl CIrcProto::GCMenuHook(WPARAM, LPARAM lParam) { GCMENUITEMS *gcmi= (GCMENUITEMS*) lParam; if ( gcmi ) { if ( !lstrcmpiA( gcmi->pszModule, m_szModuleName )) { if ( gcmi->Type == MENU_ON_LOG ) { if ( lstrcmpi( gcmi->pszID, SERVERWINDOW)) { gcmi->nItems = SIZEOF(logItems); gcmi->Item = logItems; } else gcmi->nItems = 0; } if (gcmi->Type == MENU_ON_NICKLIST) { CONTACT user ={ (TCHAR*)gcmi->pszUID, NULL, NULL, false, false, false}; HANDLE hContact = CList_FindContact(&user); gcmi->nItems = SIZEOF(nickItems); gcmi->Item = nickItems; BOOL bIsInList = (hContact && db_get_b(hContact, "CList", "NotOnList", 0) == 0); gcmi->Item[gcmi->nItems-1].bDisabled = bIsInList; unsigned long ulAdr = 0; if (m_manualHost) ulAdr = ConvertIPToInteger(m_mySpecifiedHostIP); else ulAdr = ConvertIPToInteger(m_IPFromServer?m_myHost:m_myLocalHost); gcmi->Item[23].bDisabled = ulAdr == 0?TRUE:FALSE; //DCC submenu TCHAR stzChanName[100]; const TCHAR* temp = _tcschr( gcmi->pszID, ' ' ); int len = min((( temp == NULL ) ? lstrlen( gcmi->pszID ) : ( int )( temp - gcmi->pszID + 1 )), SIZEOF(stzChanName)-1 ); lstrcpyn( stzChanName, gcmi->pszID, len ); stzChanName[ len ] = 0; CHANNELINFO *wi = (CHANNELINFO *)DoEvent(GC_EVENT_GETITEMDATA,stzChanName, NULL, NULL, NULL, NULL, NULL, false, false, 0); BOOL bServOwner = strchr(sUserModes.c_str(), 'q') == NULL?FALSE:TRUE; BOOL bServAdmin = strchr(sUserModes.c_str(), 'a') == NULL?FALSE:TRUE; BOOL bOwner = bServOwner?((wi->OwnMode>>4)&01):FALSE; BOOL bAdmin = bServAdmin?((wi->OwnMode>>3)&01):FALSE; BOOL bOp = strchr(sUserModes.c_str(), 'o') == NULL?FALSE:((wi->OwnMode>>2)&01); BOOL bHalfop = strchr(sUserModes.c_str(), 'h') == NULL?FALSE:((wi->OwnMode>>1)&01); BOOL bForceEnable = GetAsyncKeyState(VK_CONTROL); gcmi->Item[6].bDisabled /* "Control" submenu */ = !(bForceEnable|| bHalfop || bOp || bAdmin || bOwner); gcmi->Item[7].uType = gcmi->Item[8].uType = /* +/- Owner */ bServOwner?MENU_POPUPITEM:0; gcmi->Item[9].uType = gcmi->Item[10].uType = /* +/- Admin */ bServAdmin?MENU_POPUPITEM:0; gcmi->Item[7].bDisabled = gcmi->Item[8].bDisabled = gcmi->Item[9].bDisabled = gcmi->Item[10].bDisabled = /* +/- Owner/Admin */ !(bForceEnable || bOwner); gcmi->Item[11].bDisabled = gcmi->Item[12].bDisabled = gcmi->Item[13].bDisabled = gcmi->Item[14].bDisabled = /* +/- Op/hop */ !(bForceEnable || bOp || bAdmin || bOwner); } } } return 0; } int __cdecl CIrcProto::OnPreShutdown(WPARAM, LPARAM) { EnterCriticalSection(&cs); if ( m_perform && IsConnected()) if ( DoPerform( "Event: Disconnect" )) Sleep( 200 ); DisconnectAllDCCSessions( true ); if ( IsConnected()) Disconnect(); if ( m_listDlg ) m_listDlg->Close(); if ( m_nickDlg ) m_nickDlg->Close(); if ( m_joinDlg ) m_joinDlg->Close(); LeaveCriticalSection(&cs); return 0; } int __cdecl CIrcProto::OnMenuPreBuild(WPARAM wParam, LPARAM) { DBVARIANT dbv; HANDLE hContact = (HANDLE)wParam; if (hContact == NULL) return 0; char *szProto = GetContactProto(hContact); if (szProto && !lstrcmpiA(szProto, m_szModuleName)) { bool bIsOnline = getWord(hContact, "Status", ID_STATUS_OFFLINE) != ID_STATUS_OFFLINE; // context menu for chatrooms if (getByte(hContact, "ChatRoom", 0) == GCW_CHATROOM) Menu_ShowItem(hUMenuChanSettings, true); // context menu for contact else if ( !getTString( hContact, "Default", &dbv )) { Menu_ShowItem(hUMenuChanSettings, false); // for DCC contact BYTE bDcc = getByte( hContact, "DCC", 0) ; if (bDcc) Menu_ShowItem(hUMenuDisconnect, true); else { // for normal contact Menu_ShowItem(hUMenuWhois, IsConnected()); bool bEnabled = true; if (bIsOnline) { DBVARIANT dbv3; if ( !getString( hContact, "Host", &dbv3)) { if (dbv3.pszVal[0] == 0) bEnabled = false; db_free(&dbv3); } } Menu_ShowItem(hUMenuIgnore, bEnabled); } db_free( &dbv ); } } return 0; } int __cdecl CIrcProto::OnDbSettingChanged(WPARAM wParam, LPARAM lParam) { HANDLE hContact = ( HANDLE ) wParam; if ( hContact == NULL || !IsConnected()) return 0; DBCONTACTWRITESETTING* cws = ( DBCONTACTWRITESETTING* )lParam; if ( strcmp( cws->szModule, "CList" )) return 0; if ( cws->value.type != DBVT_DELETED && !( cws->value.type==DBVT_BYTE && cws->value.bVal==0 )) return 0; if ( !strcmp( cws->szSetting, "NotOnList" )) { DBVARIANT dbv; if ( !getTString( hContact, "Nick", &dbv )) { if ( getByte( "MirVerAutoRequest", 1)) PostIrcMessage( _T("/PRIVMSG %s \001VERSION\001"), dbv.ptszVal ); db_free( &dbv ); } } return 0; } void __cdecl CIrcProto::ConnectServerThread( void* ) { InterlockedIncrement((long *) &m_bConnectThreadRunning); InterlockedIncrement((long *) &m_bConnectRequested); while ( !Miranda_Terminated() && m_bConnectRequested > 0 ) { while(m_bConnectRequested > 0) InterlockedDecrement((long *) &m_bConnectRequested); if (IsConnected()) { Sleep(200); Disconnect(); } m_info.bNickFlag = false; int Temp = m_iStatus; m_iStatus = ID_STATUS_CONNECTING; nickflag = true; ProtoBroadcastAck(NULL,ACKTYPE_STATUS,ACKRESULT_SUCCESS,(HANDLE)Temp,ID_STATUS_CONNECTING); Sleep(100); EnterCriticalSection(&cs); Connect(si); LeaveCriticalSection(&cs); if (IsConnected()) { if ( m_mySpecifiedHost[0] ) ForkThread( &CIrcProto::ResolveIPThread, new IPRESOLVE( m_mySpecifiedHost, IP_MANUAL )); DoEvent(GC_EVENT_CHANGESESSIONAME, SERVERWINDOW, NULL, m_info.sNetwork.c_str(), NULL, NULL, NULL, FALSE, TRUE); } else { Temp = m_iDesiredStatus; m_iStatus = m_iDesiredStatus = ID_STATUS_OFFLINE; ProtoBroadcastAck( NULL, ACKTYPE_LOGIN, ACKRESULT_FAILED, NULL, LOGINERR_NONETWORK ); ProtoBroadcastAck(NULL,ACKTYPE_STATUS,ACKRESULT_SUCCESS,(HANDLE)Temp,ID_STATUS_OFFLINE); Sleep(100); } } InterlockedDecrement((long *)&m_bConnectThreadRunning); } void __cdecl CIrcProto::DisconnectServerThread( void* ) { mir_cslock lck(cs); if (IsConnected()) Disconnect(); return; } void CIrcProto::ConnectToServer(void) { m_portCount = StrToIntA(m_portStart); si.sServer = GetWord(m_serverName, 0); si.iPort = m_portCount; si.sNick = m_nick; si.sUserID = m_userID; si.sFullName = m_name; si.sPassword = m_password; si.bIdentServer = ((m_ident) ? (true) : (false)); si.iIdentServerPort = StrToInt(m_identPort); si.sIdentServerType = m_identSystem; si.m_iSSL = m_iSSL; si.sNetwork = m_network; bPerformDone = false; bTempDisableCheck = false; bTempForceCheck = false; m_iTempCheckTime = 0; sChannelPrefixes = _T("&#"); sUserModes = "ov"; sUserModePrefixes = _T("@+"); sChannelModes = "btnimklps"; if (!m_bConnectThreadRunning) ForkThread( &CIrcProto::ConnectServerThread, 0 ); else if (m_bConnectRequested < 1) InterlockedIncrement((long *) &m_bConnectRequested); TCHAR szTemp[300]; mir_sntprintf(szTemp, SIZEOF(szTemp), _T("\0033%s \002%s\002 (%S: %u)"), TranslateT("Connecting to"), si.sNetwork.c_str(), si.sServer.c_str(), si.iPort); DoEvent(GC_EVENT_INFORMATION, SERVERWINDOW, NULL, szTemp, NULL, NULL, NULL, true, false); } void CIrcProto::DisconnectFromServer(void) { if ( m_perform && IsConnected()) DoPerform( "Event: Disconnect" ); GCDEST gcd = { m_szModuleName, 0, GC_EVENT_CONTROL }; GCEVENT gce = { sizeof(gce), &gcd }; CallChatEvent( SESSION_TERMINATE, (LPARAM)&gce); ForkThread( &CIrcProto::DisconnectServerThread, 0 ); } ///////////////////////////////////////////////////////////////////////////////////////// // GetMyAwayMsg - obtain the current away message INT_PTR __cdecl CIrcProto::GetMyAwayMsg(WPARAM wParam,LPARAM lParam) { if (( int )wParam != m_iStatus ) return 0; const TCHAR* p = m_statusMessage.c_str(); return (lParam & SGMA_UNICODE) ? (INT_PTR)mir_t2u(p) : (INT_PTR)mir_t2a(p); }