HANDLE JabberDBCreateContact( TCHAR* jid, TCHAR* nick, BOOL temporary, BOOL stripResource )
{
TCHAR* s, *p, *q;
int len;
char* szProto;
if ( jid==NULL || jid[0]=='\0' )
return NULL;
s = mir_tstrdup( jid );
q = NULL;
// strip resource if present
if (( p = _tcschr( s, '@' )) != NULL )
if (( q = _tcschr( p, '/' )) != NULL )
*q = '\0';
if ( !stripResource && q!=NULL ) // so that resource is not stripped
*q = '/';
len = _tcslen( s );
// We can't use JabberHContactFromJID() here because of the stripResource option
HANDLE hContact = ( HANDLE ) JCallService( MS_DB_CONTACT_FINDFIRST, 0, 0 );
while ( hContact != NULL ) {
szProto = ( char* )JCallService( MS_PROTO_GETCONTACTBASEPROTO, ( WPARAM ) hContact, 0 );
if ( szProto!=NULL && !strcmp( jabberProtoName, szProto )) {
DBVARIANT dbv;
if ( !JGetStringT( hContact, "jid", &dbv )) {
p = dbv.ptszVal;
if ( p && ( int )_tcslen( p )>=len && ( p[len]=='\0'||p[len]=='/' ) && !_tcsnicmp( p, s, len )) {
JFreeVariant( &dbv );
break;
}
JFreeVariant( &dbv );
} }
hContact = ( HANDLE ) JCallService( MS_DB_CONTACT_FINDNEXT, ( WPARAM ) hContact, 0 );
}
if ( hContact == NULL ) {
hContact = ( HANDLE ) JCallService( MS_DB_CONTACT_ADD, 0, 0 );
JCallService( MS_PROTO_ADDTOCONTACT, ( WPARAM ) hContact, ( LPARAM )jabberProtoName );
JSetStringT( hContact, "jid", s );
if ( nick != NULL && *nick != '\0' )
JSetStringT( hContact, "Nick", nick );
if ( temporary )
DBWriteContactSettingByte( hContact, "CList", "NotOnList", 1 );
else
JabberSendGetVcard( s );
JabberLog( "Create Jabber contact jid=" TCHAR_STR_PARAM ", nick=" TCHAR_STR_PARAM, s, nick );
JabberDBCheckIsTransportedContact(s,hContact);
}
mir_free( s );
return hContact;
}
int JabberGcInit( WPARAM wParam, LPARAM lParam )
{
JABBER_LIST_ITEM* item = ( JABBER_LIST_ITEM* )wParam;
GCSESSION gcw = {0};
GCEVENT gce = {0};
TCHAR* szNick = JabberNickFromJID( item->jid );
gcw.cbSize = sizeof(GCSESSION);
gcw.iType = GCW_CHATROOM;
gcw.pszModule = jabberProtoName;
gcw.ptszName = szNick;
gcw.ptszID = item->jid;
gcw.dwFlags = GC_TCHAR;
JCallService( MS_GC_NEWSESSION, NULL, (LPARAM)&gcw );
HANDLE hContact = JabberHContactFromJID( item->jid );
if ( hContact != NULL ) {
DBVARIANT dbv;
if ( !DBGetContactSettingTString( hContact, jabberProtoName, "MyNick", &dbv )) {
if ( !lstrcmp( dbv.ptszVal, szNick ))
JDeleteSetting( hContact, "MyNick" );
else
JSetStringT( hContact, "MyNick", item->nick );
JFreeVariant( &dbv );
}
else JSetStringT( hContact, "MyNick", item->nick );
}
mir_free( szNick );
item->bChatActive = TRUE;
GCDEST gcd = { jabberProtoName, NULL, GC_EVENT_ADDGROUP };
gcd.ptszID = item->jid;
gce.cbSize = sizeof(GCEVENT);
gce.pDest = &gcd;
gce.dwFlags = GC_TCHAR;
for ( int i = SIZEOF(sttRoles)-1; i >= 0; i-- ) {
gce.ptszStatus = TranslateTS( sttRoles[i] );
JCallService(MS_GC_EVENT, NULL, ( LPARAM )&gce );
}
gce.cbSize = sizeof(GCEVENT);
gce.pDest = &gcd;
gcd.iType = GC_EVENT_CONTROL;
JCallService(MS_GC_EVENT, SESSION_INITDONE, (LPARAM)&gce);
JCallService(MS_GC_EVENT, SESSION_ONLINE, (LPARAM)&gce);
return 0;
}
void CJabberProto::SearchDeleteFromRecent( const TCHAR* szAddr, BOOL deleteLastFromDB )
{
DBVARIANT dbv;
char key[30];
//search in recent
for ( int i=0; i<10; i++ ) {
sprintf(key,"RecentlySearched_%d",i);
if ( !JGetStringT( NULL, key, &dbv )) {
if ( !_tcsicmp( szAddr, dbv.ptszVal )) {
JFreeVariant( &dbv );
for ( int j=i; j<10; j++ ) {
sprintf( key, "RecentlySearched_%d", j+1 );
if ( !JGetStringT( NULL, key, &dbv )) {
sprintf(key,"RecentlySearched_%d",j);
JSetStringT(NULL,key,dbv.ptszVal);
JFreeVariant( &dbv );
}
else {
if ( deleteLastFromDB ) {
sprintf(key,"RecentlySearched_%d",j);
JDeleteSetting(NULL,key);
}
break;
} }
break;
}
else JFreeVariant( &dbv );
} } }
BOOL JabberDBCheckIsTransportedContact(const TCHAR* jid, HANDLE hContact)
{
// check if transport is already set
if ( !jid || !hContact )
return FALSE;
// strip domain part from jid
TCHAR* domain = _tcschr(( TCHAR* )jid, '@' );
BOOL isAgent = (domain == NULL) ? TRUE : FALSE;
if ( domain!=NULL )
domain = NEWTSTR_ALLOCA(domain+1);
else
domain = NEWTSTR_ALLOCA(jid);
TCHAR* resourcepos = _tcschr( domain, '/' );
if ( resourcepos != NULL )
*resourcepos = '\0';
if ( jabberTransports.getIndex( domain ) == -1 )
{
if (isAgent)
{
jabberTransports.insert( _tcsdup(domain) );
JSetByte( hContact, "IsTransport", 1 );
}
else
return FALSE;
}
JSetStringT( hContact, "Transport", domain );
JSetByte( hContact, "IsTransported", 1 );
PushIconLibRegistration( domain );
return TRUE;
}
void CJabberProto::SearchAddToRecent( const TCHAR* szAddr, HWND hwndDialog )
{
DBVARIANT dbv;
char key[30];
SearchDeleteFromRecent( szAddr );
for ( int j=9; j > 0; j-- ) {
sprintf( key, "RecentlySearched_%d", j-1 );
if ( !JGetStringT( NULL, key, &dbv )) {
sprintf(key,"RecentlySearched_%d",j);
JSetStringT(NULL,key,dbv.ptszVal);
JFreeVariant(&dbv);
} }
sprintf( key, "RecentlySearched_%d", 0 );
JSetStringT( NULL, key, szAddr );
if ( hwndDialog )
JabberSearchAddUrlToRecentCombo( hwndDialog, szAddr );
}
int JabberMenuConvertChatContact( WPARAM wParam, LPARAM lParam )
{
BYTE bIsChatRoom = (BYTE)JGetByte( (HANDLE ) wParam, "ChatRoom", 0 );
if ((bIsChatRoom == GCW_CHATROOM) || bIsChatRoom == 0 ) {
DBVARIANT dbv;
if ( !JGetStringT( (HANDLE ) wParam, (bIsChatRoom == GCW_CHATROOM)?(char*)"ChatRoomID":(char*)"jid", &dbv )) {
JDeleteSetting( (HANDLE ) wParam, (bIsChatRoom == GCW_CHATROOM)?"ChatRoomID":"jid");
JSetStringT( (HANDLE ) wParam, (bIsChatRoom != GCW_CHATROOM)?"ChatRoomID":"jid", dbv.ptszVal);
JFreeVariant( &dbv );
JSetByte((HANDLE ) wParam, "ChatRoom", (bIsChatRoom == GCW_CHATROOM)?0:GCW_CHATROOM);
} }
return 0;
}
static void sttSendPrivateMessage( JABBER_LIST_ITEM* item, const TCHAR* nick )
{
TCHAR szFullJid[ 256 ];
mir_sntprintf( szFullJid, SIZEOF(szFullJid), _T("%s/%s"), item->jid, nick );
HANDLE hContact = JabberDBCreateContact( szFullJid, NULL, TRUE, FALSE );
if ( hContact != NULL ) {
for ( int i=0; i < item->resourceCount; i++ ) {
if ( _tcsicmp( item->resource[i].resourceName, nick ) == 0 ) {
JSetWord( hContact, "Status", item->resource[i].status );
break;
} }
DBWriteContactSettingByte( hContact, "CList", "Hidden", 1 );
JSetStringT( hContact, "Nick", nick );
DBWriteContactSettingDword( hContact, "Ignore", "Mask1", 0 );
JCallService( MS_MSG_SENDMESSAGE, ( WPARAM )hContact, 0 );
} }
void JabberUpdateMirVer(JABBER_LIST_ITEM *item)
{
HANDLE hContact = JabberHContactFromJID(item->jid);
if (!hContact)
return;
int resource = -1;
if (item->resourceMode == RSMODE_LASTSEEN)
resource = item->lastSeenResource;
else if (item->resourceMode == RSMODE_MANUAL)
resource = item->manualResource;
if ((resource < 0) || (resource >= item->resourceCount))
return;
if (!item->resource[resource].software)
return;
JSetStringT(hContact, "MirVer", item->resource[resource].software);
}
void sttRenameParticipantNick( JABBER_LIST_ITEM* item, TCHAR* oldNick, XmlNode *itemNode )
{
TCHAR* newNick = JabberXmlGetAttrValue( itemNode, "nick" );
TCHAR* jid = JabberXmlGetAttrValue( itemNode, "jid" );
if ( newNick == NULL )
return;
for ( int i=0; i < item->resourceCount; i++ ) {
JABBER_RESOURCE_STATUS& RS = item->resource[i];
if ( !lstrcmp( RS.resourceName, oldNick )) {
replaceStr( RS.resourceName, newNick );
if ( !lstrcmp( item->nick, oldNick )) {
replaceStr( item->nick, newNick );
HANDLE hContact = JabberHContactFromJID( item->jid );
if ( hContact != NULL )
JSetStringT( hContact, "MyNick", newNick );
}
GCDEST gcd = { jabberProtoName, NULL, GC_EVENT_CHUID };
gcd.ptszID = item->jid;
GCEVENT gce = {0};
gce.cbSize = sizeof(GCEVENT);
gce.pDest = &gcd;
gce.ptszNick = oldNick;
gce.ptszText = newNick;
if (jid != NULL)
gce.ptszUserInfo = jid;
gce.time = time(0);
gce.dwFlags = GC_TCHAR;
JCallService( MS_GC_EVENT, NULL, ( LPARAM )&gce );
gcd.iType = GC_EVENT_NICK;
gce.ptszNick = oldNick;
gce.ptszUID = newNick;
gce.ptszText = newNick;
JCallService( MS_GC_EVENT, NULL, ( LPARAM )&gce );
break;
} } }
static BOOL CALLBACK JabberGroupchatDlgProc( HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam )
{
HWND lv;
LVCOLUMN lvCol;
LVITEM lvItem;
JABBER_LIST_ITEM *item;
switch ( msg ) {
case WM_INITDIALOG:
// lParam is the initial conference server ( if any )
SendMessage( hwndDlg, WM_SETICON, ICON_BIG, ( LPARAM )iconBigList[0] );
TranslateDialogDefault( hwndDlg );
sortColumn = -1;
// Add columns
lv = GetDlgItem( hwndDlg, IDC_ROOM );
lvCol.mask = LVCF_TEXT | LVCF_WIDTH | LVCF_SUBITEM;
lvCol.pszText = TranslateT( "JID" );
lvCol.cx = 210;
lvCol.iSubItem = 0;
ListView_InsertColumn( lv, 0, &lvCol );
lvCol.pszText = TranslateT( "Name" );
lvCol.cx = 150;
lvCol.iSubItem = 1;
ListView_InsertColumn( lv, 1, &lvCol );
lvCol.pszText = TranslateT( "Type" );
lvCol.cx = 60;
lvCol.iSubItem = 2;
ListView_InsertColumn( lv, 2, &lvCol );
if ( jabberOnline ) {
if (( TCHAR* )lParam != NULL ) {
SetDlgItemText( hwndDlg, IDC_SERVER, ( TCHAR* )lParam );
int iqId = JabberSerialNext();
JabberIqAdd( iqId, IQ_PROC_DISCOROOMSERVER, JabberIqResultDiscoRoomItems );
XmlNodeIq iq( "get", iqId, ( TCHAR* )lParam );
XmlNode* query = iq.addQuery( "http://jabber.org/protocol/disco#items" );
JabberSend( jabberThreadInfo->s, iq );
}
else {
for ( int i=0; i < GC_SERVER_LIST_SIZE; i++ ) {
char text[100];
mir_snprintf( text, sizeof( text ), "GcServerLast%d", i );
DBVARIANT dbv;
if ( !JGetStringT( NULL, text, &dbv )) {
SendDlgItemMessage( hwndDlg, IDC_SERVER, CB_ADDSTRING, 0, ( LPARAM )dbv.ptszVal );
JFreeVariant( &dbv );
} } }
}
else EnableWindow( GetDlgItem( hwndDlg, IDC_JOIN ), FALSE );
return TRUE;
case WM_JABBER_ACTIVATE:
// lParam = server from which agent information is obtained
if ( lParam )
SetDlgItemText( hwndDlg, IDC_SERVER, ( TCHAR* )lParam );
ListView_DeleteAllItems( GetDlgItem( hwndDlg, IDC_ROOM ));
EnableWindow( GetDlgItem( hwndDlg, IDC_BROWSE ), FALSE );
return TRUE;
case WM_JABBER_REFRESH:
// lParam = server from which agent information is obtained
{
int i;
TCHAR szBuffer[256];
char text[128];
if ( lParam ){
_tcsncpy( szBuffer, ( TCHAR* )lParam, SIZEOF( szBuffer ));
for ( i=0; i<GC_SERVER_LIST_SIZE; i++ ) {
mir_snprintf( text, SIZEOF( text ), "GcServerLast%d", i );
DBVARIANT dbv;
if ( !JGetStringT( NULL, text, &dbv )) {
JSetStringT( NULL, text, szBuffer );
if ( !_tcsicmp( dbv.ptszVal, ( TCHAR* )lParam )) {
JFreeVariant( &dbv );
break;
}
_tcsncpy( szBuffer, dbv.ptszVal, SIZEOF( szBuffer ));
JFreeVariant( &dbv );
}
else {
JSetStringT( NULL, text, szBuffer );
break;
} }
SendDlgItemMessage( hwndDlg, IDC_SERVER, CB_RESETCONTENT, 0, 0 );
for ( i=0; i<GC_SERVER_LIST_SIZE; i++ ) {
mir_snprintf( text, SIZEOF( text ), "GcServerLast%d", i );
DBVARIANT dbv;
if ( !JGetStringT( NULL, text, &dbv )) {
SendDlgItemMessage( hwndDlg, IDC_SERVER, CB_ADDSTRING, 0, ( LPARAM )dbv.ptszVal );
JFreeVariant( &dbv );
} }
SetDlgItemText( hwndDlg, IDC_SERVER, ( TCHAR* )lParam );
}
i = 0;
lv = GetDlgItem( hwndDlg, IDC_ROOM );
ListView_DeleteAllItems( lv );
LVITEM lvItem;
lvItem.iItem = 0;
while (( i=JabberListFindNext( LIST_ROOM, i )) >= 0 ) {
if (( item=JabberListGetItemPtrFromIndex( i )) != NULL ) {
lvItem.mask = LVIF_PARAM | LVIF_TEXT;
lvItem.iSubItem = 0;
_tcsncpy( szBuffer, item->jid, SIZEOF(szBuffer));
szBuffer[ SIZEOF(szBuffer)-1 ] = 0;
lvItem.lParam = ( LPARAM )item->jid;
lvItem.pszText = szBuffer;
ListView_InsertItem( lv, &lvItem );
lvItem.mask = LVIF_TEXT;
lvItem.iSubItem = 1;
lvItem.pszText = item->name;
ListView_SetItem( lv, &lvItem );
lvItem.iSubItem = 2;
lvItem.pszText = item->type;
ListView_SetItem( lv, &lvItem );
lvItem.iItem++;
}
i++;
}
EnableWindow( GetDlgItem( hwndDlg, IDC_BROWSE ), TRUE );
}
return TRUE;
case WM_JABBER_CHECK_ONLINE:
{
TCHAR text[128];
if ( jabberOnline ) {
EnableWindow( GetDlgItem( hwndDlg, IDC_JOIN ), TRUE );
GetDlgItemText( hwndDlg, IDC_SERVER, text, SIZEOF( text ));
EnableWindow( GetDlgItem( hwndDlg, IDC_BROWSE ), ( text[0]!='\0' ));
}
else {
EnableWindow( GetDlgItem( hwndDlg, IDC_JOIN ), FALSE );
EnableWindow( GetDlgItem( hwndDlg, IDC_BROWSE ), FALSE );
SetDlgItemTextA( hwndDlg, IDC_SERVER, "" );
lv = GetDlgItem( hwndDlg, IDC_ROOM );
ListView_DeleteAllItems( lv );
}
break;
}
case WM_NOTIFY:
switch ( wParam ) {
case IDC_ROOM:
switch (( ( LPNMHDR )lParam )->code ) {
case LVN_COLUMNCLICK:
{
LPNMLISTVIEW pnmlv = ( LPNMLISTVIEW ) lParam;
if ( pnmlv->iSubItem>=0 && pnmlv->iSubItem<=1 ) {
if ( pnmlv->iSubItem == sortColumn )
sortAscending = !sortAscending;
else {
sortAscending = TRUE;
sortColumn = pnmlv->iSubItem;
}
ListView_SortItems( GetDlgItem( hwndDlg, IDC_ROOM ), GroupchatCompare, sortColumn );
}
}
break;
}
break;
}
break;
case WM_COMMAND:
switch ( LOWORD( wParam )) {
case WM_JABBER_JOIN:
if ( jabberChatDllPresent ) {
lv = GetDlgItem( hwndDlg, IDC_ROOM );
if (( lvItem.iItem=ListView_GetNextItem( lv, -1, LVNI_SELECTED )) >= 0 ) {
lvItem.iSubItem = 0;
lvItem.mask = LVIF_PARAM;
ListView_GetItem( lv, &lvItem );
ListView_SetItemState( lv, lvItem.iItem, 0, LVIS_SELECTED ); // Unselect the item
DialogBoxParam( hInst, MAKEINTRESOURCE( IDD_GROUPCHAT_JOIN ), hwndDlg, JabberGroupchatJoinDlgProc, ( LPARAM )lvItem.lParam );
}
else {
TCHAR text[128];
GetDlgItemText( hwndDlg, IDC_SERVER, text, SIZEOF( text ));
DialogBoxParam( hInst, MAKEINTRESOURCE( IDD_GROUPCHAT_JOIN ), hwndDlg, JabberGroupchatJoinDlgProc, ( LPARAM )text );
} }
else JabberChatDllError();
return TRUE;
case WM_JABBER_ADD_TO_ROSTER:
lv = GetDlgItem( hwndDlg, IDC_ROOM );
if (( lvItem.iItem=ListView_GetNextItem( lv, -1, LVNI_SELECTED )) >= 0 ) {
lvItem.iSubItem = 0;
lvItem.mask = LVIF_PARAM;
ListView_GetItem( lv, &lvItem );
TCHAR* jid = ( TCHAR* )lvItem.lParam;
{ GCSESSION gcw = {0};
gcw.cbSize = sizeof(GCSESSION);
gcw.iType = GCW_CHATROOM;
gcw.pszID = t2a(jid);
gcw.pszModule = jabberProtoName;
gcw.pszName = NEWSTR_ALLOCA(gcw.pszID);
char* p = ( char* )strchr( gcw.pszName, '@' );
if ( p != NULL )
*p = 0;
CallService( MS_GC_NEWSESSION, 0, ( LPARAM )&gcw );
mir_free((void*)gcw.pszID);
}
{ XmlNodeIq iq( "set" );
XmlNode* query = iq.addQuery( "jabber:iq:roster" );
XmlNode* item = query->addChild( "item" ); item->addAttr( "jid", jid );
JabberSend( jabberThreadInfo->s, iq );
}
{ XmlNode p( "presence" ); p.addAttr( "to", jid ); p.addAttr( "type", "subscribe" );
JabberSend( jabberThreadInfo->s, p );
} }
break;
case WM_JABBER_ADD_TO_BOOKMARKS:
lv = GetDlgItem( hwndDlg, IDC_ROOM );
if (( lvItem.iItem=ListView_GetNextItem( lv, -1, LVNI_SELECTED )) >= 0 ) {
lvItem.iSubItem = 0;
lvItem.mask = LVIF_PARAM;
ListView_GetItem( lv, &lvItem );
JABBER_LIST_ITEM* item = JabberListGetItemPtr( LIST_BOOKMARK, ( TCHAR* )lvItem.lParam );
if ( item == NULL ) {
item = JabberListGetItemPtr( LIST_ROOM, ( TCHAR* )lvItem.lParam );
if (item != NULL) {
item->type = _T("conference");
JabberAddEditBookmark(NULL, (LPARAM) item);
}
}
}
break;
case IDC_SERVER:
{ TCHAR text[ 128 ];
GetDlgItemText( hwndDlg, IDC_SERVER, text, SIZEOF( text ));
if ( jabberOnline && ( text[0] || HIWORD( wParam )==CBN_SELCHANGE ))
EnableWindow( GetDlgItem( hwndDlg, IDC_BROWSE ), TRUE );
break;
}
case IDC_BROWSE:
{ TCHAR text[ 128 ];
GetDlgItemText( hwndDlg, IDC_SERVER, text, SIZEOF( text ));
if ( jabberOnline && text[0] ) {
EnableWindow( GetDlgItem( hwndDlg, IDC_BROWSE ), FALSE );
ListView_DeleteAllItems( GetDlgItem( hwndDlg, IDC_ROOM ));
GetDlgItemText( hwndDlg, IDC_SERVER, text, SIZEOF( text ));
int iqId = JabberSerialNext();
JabberIqAdd( iqId, IQ_PROC_DISCOROOMSERVER, JabberIqResultDiscoRoomItems );
XmlNodeIq iq( "get", iqId, text );
XmlNode* query = iq.addQuery( "http://jabber.org/protocol/disco#items" );
JabberSend( jabberThreadInfo->s, iq );
}
return TRUE;
}
case IDCLOSE:
DestroyWindow( hwndDlg );
return TRUE;
}
break;
case WM_CONTEXTMENU:
if (( HWND )wParam == GetDlgItem( hwndDlg, IDC_ROOM )) {
HMENU hMenu = CreatePopupMenu();
AppendMenu( hMenu, MF_STRING, WM_JABBER_JOIN, TranslateT( "Join" ));
AppendMenu( hMenu, MF_STRING, WM_JABBER_ADD_TO_ROSTER, TranslateT( "Add to roster" ));
if ( jabberThreadInfo->caps & CAPS_BOOKMARK ) AppendMenu( hMenu, MF_STRING, WM_JABBER_ADD_TO_BOOKMARKS, TranslateT( "Add to Bookmarks" ));
TrackPopupMenu( hMenu, TPM_LEFTALIGN | TPM_NONOTIFY, LOWORD(lParam), HIWORD(lParam), 0, hwndDlg, 0 );
::DestroyMenu( hMenu );
return TRUE;
}
break;
case WM_CLOSE:
DestroyWindow( hwndDlg );
break;
case WM_DESTROY:
hwndJabberGroupchat = NULL;
break;
}
return FALSE;
}
