BOOL loadRecent(int iRecent)
{
DBVARIANT dbv;
char setting[MAXMODULELABELLENGTH];
cleanup();
mir_snprintf(setting, sizeof(setting), "rcMuc_%d_server", iRecent);
if ( !ppro->JGetStringT( NULL, setting, &dbv )) {
server = mir_tstrdup( dbv.ptszVal );
JFreeVariant( &dbv );
}
mir_snprintf(setting, sizeof(setting), "rcMuc_%d_room", iRecent);
if ( !ppro->JGetStringT( NULL, setting, &dbv )) {
room = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
mir_snprintf(setting, sizeof(setting), "rcMuc_%d_nick", iRecent);
if ( !ppro->JGetStringT( NULL, setting, &dbv )) {
nick = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
mir_snprintf(setting, sizeof(setting), "rcMuc_%d_passwordW", iRecent);
password = ppro->JGetStringCrypt(NULL, setting);
return room || server || nick || password;
}
INT_PTR __cdecl CJabberProto::OnJoinChat( WPARAM wParam, LPARAM )
{
DBVARIANT nick, jid;
HANDLE hContact = ( HANDLE )wParam;
if ( JGetStringT( hContact, "ChatRoomID", &jid ))
return 0;
if ( JGetStringT( hContact, "MyNick", &nick ))
if ( JGetStringT( NULL, "Nick", &nick )) {
JFreeVariant( &jid );
return 0;
}
TCHAR *password = JGetStringCrypt( hContact, "LoginPassword" );
if ( JGetWord( hContact, "Status", 0 ) != ID_STATUS_ONLINE ) {
if ( !jabberChatDllPresent )
JabberChatDllError();
else {
TCHAR* p = _tcschr( jid.ptszVal, '@' );
if ( p != NULL ) {
*p++ = 0;
GroupchatJoinRoom( p, jid.ptszVal, nick.ptszVal, password );
} } }
mir_free( password );
JFreeVariant( &nick );
JFreeVariant( &jid );
return 0;
}
static void JabberContactListCreateClistGroup( TCHAR* groupName )
{
char str[33];
int i;
DBVARIANT dbv;
for ( i=0;;i++ ) {
itoa( i, str, 10 );
if ( DBGetContactSettingTString( NULL, "CListGroups", str, &dbv ))
break;
TCHAR* name = dbv.ptszVal;
if ( name[0]!='\0' && !_tcscmp( name+1, groupName )) {
// Already exists, no need to create
JFreeVariant( &dbv );
return;
}
JFreeVariant( &dbv );
}
// Create new group with id = i ( str is the text representation of i )
TCHAR newName[128];
newName[0] = 1 | GROUPF_EXPANDED;
_tcsncpy( newName+1, groupName, SIZEOF( newName )-1 );
newName[ SIZEOF( newName )-1] = '\0';
DBWriteContactSettingTString( NULL, "CListGroups", str, newName );
JCallService( MS_CLUI_GROUPADDED, i+1, 0 );
}
int JabberMenuBookmarkAdd( WPARAM wParam, LPARAM lParam )
{
DBVARIANT dbv;
if ( !wParam ) return 0; // we do not add ourself to the roster. (buggy situation - should not happen)
if ( !JGetStringT( ( HANDLE ) wParam, "ChatRoomID", &dbv )) {
TCHAR *roomID = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
if ( JabberListGetItemPtr( LIST_BOOKMARK, roomID ) == NULL ) {
TCHAR *nick = 0;
if ( !JGetStringT( ( HANDLE ) wParam, "Nick", &dbv ) ) {
nick = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
JABBER_LIST_ITEM* item = NULL;
item = ( JABBER_LIST_ITEM* )mir_alloc( sizeof( JABBER_LIST_ITEM ));
ZeroMemory( item, sizeof( JABBER_LIST_ITEM ));
item->jid = mir_tstrdup(roomID);
item->name = ( TCHAR* )JCallService( MS_CLIST_GETCONTACTDISPLAYNAME, wParam, GCDNF_TCHAR );
item->type = _T("conference");
if ( !JGetStringT(( HANDLE ) wParam, "MyNick", &dbv ) ) {
item->nick = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
JabberAddEditBookmark(NULL, (LPARAM) item);
mir_free(item);
if (nick) mir_free(nick);
}
mir_free(roomID);
}
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 );
} } }
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;
}
void __cdecl CJabberProto::OnRenameContact( DBCONTACTWRITESETTING* cws, HANDLE hContact )
{
DBVARIANT jid;
if ( JGetStringT( hContact, "jid", &jid ))
return;
JABBER_LIST_ITEM* item = ListGetItemPtr( LIST_ROSTER, jid.ptszVal );
JFreeVariant( &jid );
if ( item == NULL )
return;
if ( cws->value.type == DBVT_DELETED ) {
TCHAR* nick = ( TCHAR* )JCallService( MS_CLIST_GETCONTACTDISPLAYNAME, ( WPARAM )hContact, GCDNF_NOMYHANDLE | GCDNF_TCHAR );
AddContactToRoster( item->jid, nick, item->group );
mir_free(nick);
return;
}
TCHAR* newNick = sttSettingToTchar( cws );
if ( newNick ) {
if ( lstrcmp( item->nick, newNick )) {
Log( "Renaming contact " TCHAR_STR_PARAM ": " TCHAR_STR_PARAM " -> " TCHAR_STR_PARAM, item->jid, item->nick, newNick );
AddContactToRoster( item->jid, newNick, item->group );
}
mir_free( newNick );
} }
int CJabberProto::OnContactDeleted( WPARAM wParam, LPARAM )
{
if( !m_bJabberOnline ) // should never happen
return 0;
DBVARIANT dbv;
if ( !JGetStringT(( HANDLE ) wParam, JGetByte( (HANDLE ) wParam, "ChatRoom", 0 )?(char*)"ChatRoomID":(char*)"jid", &dbv )) {
if ( ListExist( LIST_ROSTER, dbv.ptszVal )) {
if ( !_tcschr( dbv.ptszVal, _T( '@' ))) {
TCHAR szStrippedJid[JABBER_MAX_JID_LEN];
JabberStripJid( m_ThreadInfo->fullJID, szStrippedJid, SIZEOF(szStrippedJid) );
TCHAR *szDog = _tcschr( szStrippedJid, _T('@'));
if ( szDog && _tcsicmp( szDog + 1, dbv.ptszVal ))
m_ThreadInfo->send( XmlNodeIq( _T("set"), SerialNext(), dbv.ptszVal ) << XQUERY( _T(JABBER_FEAT_REGISTER)) << XCHILD( _T("remove")));
}
// Remove from roster, server also handles the presence unsubscription process.
m_ThreadInfo->send( XmlNodeIq( _T("set"), SerialNext()) << XQUERY( _T(JABBER_FEAT_IQ_ROSTER))
<< XCHILD( _T("item")) << XATTR( _T("jid"), dbv.ptszVal ) << XATTR( _T("subscription"), _T("remove")));
}
JFreeVariant( &dbv );
}
return 0;
}
void JabberGetAvatarFileName( HANDLE hContact, char* pszDest, int cbLen )
{
JCallService( MS_DB_GETPROFILEPATH, cbLen, LPARAM( pszDest ));
int tPathLen = strlen( pszDest );
tPathLen += mir_snprintf( pszDest + tPathLen, MAX_PATH - tPathLen, "\\Jabber\\" );
CreateDirectoryA( pszDest, NULL );
char* szFileType;
switch( JGetByte( hContact, "AvatarType", PA_FORMAT_PNG )) {
case PA_FORMAT_JPEG: szFileType = "jpg"; break;
case PA_FORMAT_GIF: szFileType = "gif"; break;
case PA_FORMAT_BMP: szFileType = "bmp"; break;
case PA_FORMAT_PNG: szFileType = "png"; break;
default: szFileType = "bin";
}
if ( hContact != NULL ) {
char str[ 256 ];
DBVARIANT dbv;
if ( !JGetStringUtf( hContact, "jid", &dbv )) {
strncpy( str, dbv.pszVal, sizeof str );
str[ sizeof(str)-1 ] = 0;
JFreeVariant( &dbv );
}
else ltoa(( long )hContact, str, 10 );
char* hash = JabberSha1( str );
mir_snprintf( pszDest + tPathLen, MAX_PATH - tPathLen, "%s.%s", hash, szFileType );
mir_free( hash );
}
else if ( jabberThreadInfo != NULL ) {
mir_snprintf( pszDest + tPathLen, MAX_PATH - tPathLen, TCHAR_STR_PARAM"@%s avatar.%s", jabberThreadInfo->username, jabberThreadInfo->server, szFileType );
}
else {
DBVARIANT dbv1, dbv2;
BOOL res1 = DBGetContactSetting( NULL, jabberProtoName, "LoginName", &dbv1 );
BOOL res2 = DBGetContactSetting( NULL, jabberProtoName, "LoginServer", &dbv2 );
mir_snprintf( pszDest + tPathLen, MAX_PATH - tPathLen, "%s@%s avatar.%s",
res1 ? "noname" : dbv1.pszVal,
res2 ? jabberProtoName : dbv2.pszVal,
szFileType );
if (!res1) JFreeVariant( &dbv1 );
if (!res2) JFreeVariant( &dbv2 );
}
}
int JabberMenuRosterAdd( WPARAM wParam, LPARAM lParam )
{
DBVARIANT dbv;
if ( !wParam ) return 0; // we do not add ourself to the roster. (buggy situation - should not happen)
if ( !JGetStringT( ( HANDLE ) wParam, "ChatRoomID", &dbv )) {
TCHAR *roomID = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
if ( JabberListGetItemPtr( LIST_ROSTER, roomID ) == NULL ) {
TCHAR *nick = 0;
TCHAR *group = 0;
if ( !DBGetContactSettingTString( ( HANDLE ) wParam, "CList", "Group", &dbv ) ) {
group = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
if ( !JGetStringT( ( HANDLE ) wParam, "Nick", &dbv ) ) {
nick = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
JabberAddContactToRoster(roomID, nick, group, SUB_NONE);
if ( JGetByte( "AddRoster2Bookmarks", TRUE ) == TRUE ) {
JABBER_LIST_ITEM* item = NULL;
item = JabberListGetItemPtr(LIST_BOOKMARK, roomID);
if (!item) {
item = ( JABBER_LIST_ITEM* )mir_alloc( sizeof( JABBER_LIST_ITEM ));
ZeroMemory( item, sizeof( JABBER_LIST_ITEM ));
item->jid = mir_tstrdup(roomID);
item->name = mir_tstrdup(nick);
if ( !JGetStringT( ( HANDLE ) wParam, "MyNick", &dbv ) ) {
item->nick = mir_tstrdup(dbv.ptszVal);
JFreeVariant( &dbv );
}
JabberAddEditBookmark(NULL, (LPARAM) item);
mir_free(item);
}
}
if (nick) mir_free(nick);
if (nick) mir_free(group);
}
mir_free(roomID);
}
return 0;
}
TCHAR *CJabberProto::JGetStringT( HANDLE hContact, char* valueName, TCHAR *buf, int size )
{
DBVARIANT dbv = {0};
if (JGetStringT(hContact, valueName, &dbv))
return NULL;
lstrcpyn(buf, dbv.ptszVal, size);
JFreeVariant(&dbv);
return buf;
}
TCHAR *CJabberProto::JGetStringT( HANDLE hContact, char* valueName )
{
DBVARIANT dbv = {0};
if (JGetStringT(hContact, valueName, &dbv))
return NULL;
TCHAR *res = mir_tstrdup(dbv.ptszVal);
JFreeVariant(&dbv);
return res;
}
void JabberResolveTransportNicks( TCHAR* jid )
{
// Set all contacts to offline
HANDLE hContact = jabberThreadInfo->resolveContact;
if ( hContact == NULL )
hContact = ( HANDLE ) JCallService( MS_DB_CONTACT_FINDFIRST, 0, 0 );
for ( ; hContact != NULL; hContact = ( HANDLE )JCallService( MS_DB_CONTACT_FINDNEXT, ( WPARAM ) hContact, 0 )) {
char* szProto = ( char* )JCallService( MS_PROTO_GETCONTACTBASEPROTO, ( WPARAM ) hContact, 0 );
if ( lstrcmpA( szProto, jabberProtoName ))
continue;
if ( !JGetByte( hContact, "IsTransported", 0 ))
continue;
DBVARIANT dbv, nick;
if ( JGetStringT( hContact, "jid", &dbv ))
continue;
if ( JGetStringT( hContact, "Nick", &nick )) {
JFreeVariant( &dbv );
continue;
}
TCHAR* p = _tcschr( dbv.ptszVal, '@' );
if ( p ) {
*p = 0;
if ( !lstrcmp( jid, p+1 ) && !lstrcmp( dbv.ptszVal, nick.ptszVal )) {
*p = '@';
jabberThreadInfo->resolveID = JabberSendGetVcard( dbv.ptszVal );
jabberThreadInfo->resolveContact = hContact;
JFreeVariant( &dbv );
JFreeVariant( &nick );
return;
} }
JFreeVariant( &dbv );
JFreeVariant( &nick );
}
jabberThreadInfo->resolveID = -1;
jabberThreadInfo->resolveContact = NULL;
}
void __cdecl CJabberProto::OnRenameGroup( DBCONTACTWRITESETTING* cws, HANDLE hContact )
{
DBVARIANT jid, dbv;
if ( JGetStringT( hContact, "jid", &jid ))
return;
JABBER_LIST_ITEM* item = ListGetItemPtr( LIST_ROSTER, jid.ptszVal );
JFreeVariant( &jid );
if ( item == NULL )
return;
TCHAR* nick;
if ( !DBGetContactSettingTString( hContact, "CList", "MyHandle", &dbv )) {
nick = mir_tstrdup( dbv.ptszVal );
JFreeVariant( &dbv );
}
else if ( !JGetStringT( hContact, "Nick", &dbv )) {
nick = mir_tstrdup( dbv.ptszVal );
JFreeVariant( &dbv );
}
else nick = JabberNickFromJID( item->jid );
if ( nick == NULL )
return;
if ( cws->value.type == DBVT_DELETED ) {
if ( item->group != NULL ) {
Log( "Group set to nothing" );
AddContactToRoster( item->jid, nick, NULL );
}
}
else {
TCHAR* p = sttSettingToTchar( cws );
if ( cws->value.pszVal != NULL && lstrcmp( p, item->group )) {
Log( "Group set to " TCHAR_STR_PARAM, p );
if ( p )
AddContactToRoster( item->jid, nick, p );
}
mir_free( p );
}
mir_free( nick );
}
void __cdecl CJabberProto::OnAddContactForever( DBCONTACTWRITESETTING* cws, HANDLE hContact )
{
if ( cws->value.type != DBVT_DELETED && !( cws->value.type==DBVT_BYTE && cws->value.bVal==0 ))
return;
DBVARIANT jid, dbv;
if ( JGetStringT( hContact, "jid", &jid ))
return;
TCHAR *nick;
Log( "Add " TCHAR_STR_PARAM " permanently to list", jid.pszVal );
if ( !DBGetContactSettingTString( hContact, "CList", "MyHandle", &dbv )) {
nick = mir_tstrdup( dbv.ptszVal );
JFreeVariant( &dbv );
}
else if ( !JGetStringT( hContact, "Nick", &dbv )) {
nick = mir_tstrdup( dbv.ptszVal );
JFreeVariant( &dbv );
}
else nick = JabberNickFromJID( jid.ptszVal );
if ( nick == NULL ) {
JFreeVariant( &jid );
return;
}
if ( !DBGetContactSettingTString( hContact, "CList", "Group", &dbv )) {
AddContactToRoster( jid.ptszVal, nick, dbv.ptszVal );
JFreeVariant( &dbv );
}
else AddContactToRoster( jid.ptszVal, nick, NULL );
m_ThreadInfo->send( XmlNode( _T("presence")) << XATTR( _T("to"), jid.ptszVal ) << XATTR( _T("type"), _T("subscribe")));
SendGetVcard( jid.ptszVal );
mir_free( nick );
DBDeleteContactSetting( hContact, "CList", "Hidden" );
JFreeVariant( &jid );
}
int JabberMenuTransportResolve( WPARAM wParam, LPARAM lParam )
{
HANDLE hContact = ( HANDLE )wParam;
if ( !JGetByte( hContact, "IsTransport", 0 ))
return 0;
DBVARIANT jid;
if ( !JGetStringT( hContact, "jid", &jid )) {
JabberResolveTransportNicks( jid.ptszVal );
JFreeVariant( &jid );
}
return 0;
}
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;
}
void JabberCheckAllContactsAreTransported()
{
HANDLE hContact = ( HANDLE ) JCallService( MS_DB_CONTACT_FINDFIRST, 0, 0 );
while ( hContact != NULL ) {
char* szProto = ( char* )JCallService( MS_PROTO_GETCONTACTBASEPROTO, ( WPARAM ) hContact, 0 );
if ( !lstrcmpA( jabberProtoName, szProto )) {
DBVARIANT dbv;
if ( !JGetStringT( hContact, "jid", &dbv )) {
JabberDBCheckIsTransportedContact( dbv.ptszVal, hContact );
JFreeVariant( &dbv );
} }
hContact = ( HANDLE )JCallService( MS_DB_CONTACT_FINDNEXT, ( WPARAM )hContact, 0 );
} }
int JabberMenuRevokeAuth( WPARAM wParam, LPARAM lParam )
{
HANDLE hContact;
DBVARIANT dbv;
if (( hContact=( HANDLE ) wParam )!=NULL && jabberOnline ) {
if ( !JGetStringT( hContact, "jid", &dbv )) {
XmlNode presence( "presence" ); presence.addAttr( "to", dbv.ptszVal ); presence.addAttr( "type", "unsubscribed" );
JabberSend( jabberThreadInfo->s, presence );
JFreeVariant( &dbv );
} }
return 0;
}
int JabberMenuJoinLeave( WPARAM wParam, LPARAM lParam )
{
DBVARIANT dbv, jid;
if ( JGetStringT(( HANDLE )wParam, "ChatRoomID", &jid ))
return 0;
if ( JGetStringT(( HANDLE )wParam, "MyNick", &dbv ))
if ( JGetStringT( NULL, "Nick", &dbv )) {
JFreeVariant( &jid );
return 0;
}
if ( JGetWord(( HANDLE )wParam, "Status", 0 ) != ID_STATUS_ONLINE ) {
if ( !jabberChatDllPresent ) {
JabberChatDllError();
goto LBL_Return;
}
TCHAR* p = _tcschr( jid.ptszVal, '@' );
if ( p == NULL )
goto LBL_Return;
*p++ = 0;
JabberGroupchatJoinRoom( p, jid.ptszVal, dbv.ptszVal, _T(""));
}
else {
JABBER_LIST_ITEM* item = JabberListGetItemPtr( LIST_CHATROOM, jid.ptszVal );
if ( item != NULL )
JabberGcQuit( item, 0, NULL );
}
LBL_Return:
JFreeVariant( &dbv );
JFreeVariant( &jid );
return 0;
}
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;
}
INT_PTR __cdecl CJabberProto::OnLeaveChat( WPARAM wParam, LPARAM )
{
DBVARIANT jid;
HANDLE hContact = ( HANDLE )wParam;
if ( JGetStringT( hContact, "ChatRoomID", &jid ))
return 0;
if ( JGetWord( hContact, "Status", 0 ) != ID_STATUS_OFFLINE ) {
JABBER_LIST_ITEM* item = ListGetItemPtr( LIST_CHATROOM, jid.ptszVal );
if ( item != NULL )
GcQuit( item, 0, NULL );
}
JFreeVariant( &jid );
return 0;
}
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 JabberMenuTransportLogin( WPARAM wParam, LPARAM lParam )
{
HANDLE hContact = ( HANDLE )wParam;
if ( !JGetByte( hContact, "IsTransport", 0 ))
return 0;
DBVARIANT jid;
if ( JGetStringT( hContact, "jid", &jid ))
return 0;
JABBER_LIST_ITEM* item = JabberListGetItemPtr( LIST_ROSTER, jid.ptszVal );
if ( item != NULL ) {
XmlNode p( "presence" ); p.addAttr( "to", item->jid );
if ( item->status == ID_STATUS_ONLINE )
p.addAttr( "type", "unavailable" );
JabberSend( jabberThreadInfo->s, p );
}
JFreeVariant( &jid );
return 0;
}
static BOOL CALLBACK JabberGcLogInviteDlgProc( HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam )
{
switch ( msg ) {
case WM_INITDIALOG:
{
RECT dlgRect, scrRect;
GetWindowRect( hwndDlg, &dlgRect );
SystemParametersInfo( SPI_GETWORKAREA, 0, &scrRect, 0 );
SetWindowPos( hwndDlg, HWND_TOPMOST, (scrRect.right/2)-(dlgRect.right/2), (scrRect.bottom/2)-(dlgRect.bottom/2), 0, 0, SWP_NOSIZE );
TranslateDialogDefault( hwndDlg );
SendMessage( hwndDlg, WM_SETICON, ICON_BIG, ( LPARAM )iconBigList[0]);
SetDlgItemText( hwndDlg, IDC_ROOM, ( TCHAR* )lParam );
SetWindowLong(GetDlgItem(hwndDlg, IDC_CLIST), GWL_STYLE,
GetWindowLong(GetDlgItem(hwndDlg, IDC_CLIST), GWL_STYLE)|CLS_HIDEOFFLINE|CLS_CHECKBOXES|CLS_HIDEEMPTYGROUPS|CLS_USEGROUPS|CLS_GREYALTERNATE|CLS_GROUPCHECKBOXES);
SendMessage(GetDlgItem(hwndDlg, IDC_CLIST), CLM_SETEXSTYLE, CLS_EX_DISABLEDRAGDROP|CLS_EX_TRACKSELECT, 0);
ResetListOptions(GetDlgItem(hwndDlg, IDC_CLIST));
FilterList(GetDlgItem(hwndDlg, IDC_CLIST));
SendDlgItemMessage(hwndDlg, IDC_ADDJID, BUTTONSETASFLATBTN, 0, 0);
SendDlgItemMessage(hwndDlg, IDC_ADDJID, BM_SETIMAGE, IMAGE_ICON, (LPARAM)iconList[17]);//LoadIconEx("addroster"));
// use new operator to properly construct LIST object
JabberGcLogInviteDlgData *data = new JabberGcLogInviteDlgData((TCHAR *)lParam);
data->room = mir_tstrdup((TCHAR *)lParam);
SetWindowLong(hwndDlg, GWL_USERDATA, (LONG)data);
}
return TRUE;
case WM_COMMAND:
switch ( LOWORD( wParam )) {
case IDC_ADDJID:
{
TCHAR buf[JABBER_MAX_JID_LEN];
GetWindowText(GetDlgItem(hwndDlg, IDC_NEWJID), buf, SIZEOF(buf));
SetWindowText(GetDlgItem(hwndDlg, IDC_NEWJID), _T(""));
if (JabberHContactFromJID(buf))
break;
JabberGcLogInviteDlgData *data = (JabberGcLogInviteDlgData *)GetWindowLong(hwndDlg, GWL_USERDATA);
int i;
for (i = 0; i < data->newJids.getCount(); ++i)
if (!lstrcmp(data->newJids[i]->jid, buf))
break;
if (i != data->newJids.getCount())
break;
JabberGcLogInviteDlgJidData *jidData = (JabberGcLogInviteDlgJidData *)mir_alloc(sizeof(JabberGcLogInviteDlgJidData));
lstrcpy(jidData->jid, buf);
CLCINFOITEM cii = {0};
cii.cbSize = sizeof(cii);
cii.flags = CLCIIF_CHECKBOX;
mir_sntprintf(buf, SIZEOF(buf), _T("%s (%s)"), jidData->jid, TranslateT("not on roster"));
cii.pszText = buf;
jidData->hItem = SendDlgItemMessage(hwndDlg,IDC_CLIST,CLM_ADDINFOITEM,0,(LPARAM)&cii);
SendDlgItemMessage(hwndDlg, IDC_CLIST, CLM_SETCHECKMARK, jidData->hItem, 1);
data->newJids.insert(jidData);
}
break;
case IDC_INVITE:
{
JabberGcLogInviteDlgData *data = (JabberGcLogInviteDlgData *)GetWindowLong(hwndDlg, GWL_USERDATA);
TCHAR* room = data->room;
if ( room != NULL ) {
TCHAR text[256];
GetDlgItemText( hwndDlg, IDC_REASON, text, SIZEOF( text ));
HWND hwndList = GetDlgItem(hwndDlg, IDC_CLIST);
// invite users from roster
for (HANDLE hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
hContact;
hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDNEXT, (WPARAM)hContact, 0)) {
char *proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);
if ( !lstrcmpA(proto, jabberProtoName) && !DBGetContactSettingByte(hContact, proto, "ChatRoom", 0)) {
if (int hItem = SendMessage(hwndList, CLM_FINDCONTACT, (WPARAM)hContact, 0)) {
if ( SendMessage(hwndList, CLM_GETCHECKMARK, (WPARAM)hItem, 0 )) {
DBVARIANT dbv={0};
JGetStringT(hContact, "jid", &dbv);
if (dbv.ptszVal && ( dbv.type == DBVT_ASCIIZ || dbv.type == DBVT_WCHAR ))
InviteUser(room, dbv.ptszVal, text);
JFreeVariant(&dbv);
} } } }
// invite others
for (int i = 0; i < data->newJids.getCount(); ++i)
if (SendMessage(hwndList, CLM_GETCHECKMARK, (WPARAM)data->newJids[i]->hItem, 0))
InviteUser(room, data->newJids[i]->jid, text);
} }
// Fall through
case IDCANCEL:
case IDCLOSE:
DestroyWindow( hwndDlg );
return TRUE;
}
break;
case WM_NOTIFY:
if (((LPNMHDR)lParam)->idFrom == IDC_CLIST) {
switch (((LPNMHDR)lParam)->code) {
case CLN_NEWCONTACT:
FilterList(GetDlgItem(hwndDlg,IDC_CLIST));
break;
case CLN_LISTREBUILT:
FilterList(GetDlgItem(hwndDlg,IDC_CLIST));
break;
case CLN_OPTIONSCHANGED:
ResetListOptions(GetDlgItem(hwndDlg,IDC_CLIST));
break;
} }
break;
case WM_CLOSE:
DestroyWindow( hwndDlg );
break;
case WM_DESTROY:
JabberGcLogInviteDlgData *data = (JabberGcLogInviteDlgData *)GetWindowLong(hwndDlg, GWL_USERDATA);
delete data;
break;
}
return FALSE;
}
static INT_PTR CALLBACK JabberSearchAdvancedDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
JabberSearchData* dat = ( JabberSearchData* )GetWindowLongPtr( hwndDlg, GWLP_USERDATA );
switch ( msg ) {
case WM_INITDIALOG:
{
TranslateDialogDefault(hwndDlg);
dat = ( JabberSearchData * )mir_alloc( sizeof( JabberSearchData ));
memset( dat, 0, sizeof( JabberSearchData ));
dat->ppro = ( CJabberProto* )lParam;
SetWindowLongPtr( hwndDlg, GWLP_USERDATA, (LONG_PTR)dat );
/* Server Combo box */
char szServerName[100];
if ( dat->ppro->JGetStaticString( "Jud", NULL, szServerName, sizeof szServerName ))
strcpy( szServerName, "users.jabber.org" );
SetDlgItemTextA(hwndDlg,IDC_SERVER,szServerName);
SendDlgItemMessageA(hwndDlg,IDC_SERVER,CB_ADDSTRING,0,(LPARAM)szServerName);
//TO DO: Add Transports here
int i, transpCount = dat->ppro->m_lstTransports.getCount();
for ( i=0; i < transpCount; i++ ) {
TCHAR* szTransp = dat->ppro->m_lstTransports[i];
if ( szTransp )
JabberSearchAddUrlToRecentCombo(hwndDlg, szTransp );
}
DBVARIANT dbv;
char key[30];
for ( i=0; i < 10; i++ ) {
sprintf(key,"RecentlySearched_%d",i);
if ( !dat->ppro->JGetStringT( NULL, key, &dbv )) {
JabberSearchAddUrlToRecentCombo(hwndDlg, dbv.ptszVal );
JFreeVariant( &dbv );
} }
//TO DO: Add 4 recently used
dat->lastRequestIq = dat->ppro->SearchRenewFields(hwndDlg,dat);
}
return TRUE;
case WM_COMMAND:
if ( LOWORD(wParam) == IDC_SERVER ) {
switch ( HIWORD( wParam )) {
case CBN_SETFOCUS:
PostMessage(GetParent(hwndDlg),WM_COMMAND, MAKEWPARAM(0,EN_SETFOCUS), (LPARAM)hwndDlg);
return TRUE;
case CBN_EDITCHANGE:
EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);
return TRUE;
case CBN_EDITUPDATE:
JabberSearchFreeData(hwndDlg, dat);
EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);
return TRUE;
case CBN_SELENDOK:
EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);
PostMessage(hwndDlg,WM_COMMAND,MAKEWPARAM(IDC_GO,BN_CLICKED),0);
return TRUE;
}
}
else if ( LOWORD(wParam) == IDC_GO && HIWORD(wParam) == BN_CLICKED ) {
dat->ppro->SearchRenewFields( hwndDlg, dat );
return TRUE;
}
break;
case WM_SIZE:
{
//Resize IDC_FRAME to take full size
RECT rcForm;
GetWindowRect(hwndDlg, &rcForm);
RECT rcFrame;
GetWindowRect( GetDlgItem(hwndDlg, IDC_FRAME), &rcFrame );
rcFrame.bottom = rcForm.bottom;
SetWindowPos(GetDlgItem(hwndDlg,IDC_FRAME),NULL,0,0,rcFrame.right-rcFrame.left,rcFrame.bottom-rcFrame.top,SWP_NOZORDER|SWP_NOMOVE);
GetWindowRect(GetDlgItem(hwndDlg,IDC_VSCROLL), &rcForm);
SetWindowPos(GetDlgItem(hwndDlg,IDC_VSCROLL),NULL,0,0,rcForm.right-rcForm.left,rcFrame.bottom-rcFrame.top,SWP_NOZORDER|SWP_NOMOVE);
JabberSearchRefreshFrameScroll(hwndDlg, dat);
}
return TRUE;
case WM_USER+11:
{
dat->fSearchRequestIsXForm=TRUE;
dat->xNode = ( HXML )wParam;
JabberFormCreateUI( GetDlgItem(hwndDlg, IDC_FRAME), dat->xNode, &dat->CurrentHeight,TRUE);
ShowWindow(GetDlgItem(hwndDlg, IDC_FRAME), SW_SHOW);
dat->nJSInfCount=1;
return TRUE;
}
case WM_USER+10:
{
Data* MyDat = ( Data* )lParam;
if ( MyDat ) {
dat->fSearchRequestIsXForm = ( BOOL )wParam;
dat->CurrentHeight = JabberSearchAddField(hwndDlg,MyDat);
mir_free( MyDat->Label );
mir_free( MyDat->Var );
mir_free( MyDat->defValue );
free( MyDat );
}
else
{
JabberSearchRefreshFrameScroll(hwndDlg,dat);
ScrollWindow( GetDlgItem( hwndDlg, IDC_FRAME ), 0, dat->curPos - 0, NULL, &( dat->frameRect ));
SetScrollPos( GetDlgItem( hwndDlg, IDC_VSCROLL ), SB_CTL, 0, FALSE );
dat->curPos=0;
}
return TRUE;
}
case WM_MOUSEWHEEL:
{
int zDelta = GET_WHEEL_DELTA_WPARAM(wParam);
if ( zDelta ) {
int nScrollLines=0;
SystemParametersInfo(SPI_GETWHEELSCROLLLINES,0,(void*)&nScrollLines,0);
for (int i=0; i<(nScrollLines+1)/2; i++)
SendMessage(hwndDlg,WM_VSCROLL, (zDelta<0)?SB_LINEDOWN:SB_LINEUP,0);
} }
return TRUE;
case WM_VSCROLL:
{
int pos;
if ( dat != NULL ) {
pos = dat->curPos;
switch ( LOWORD( wParam )) {
case SB_LINEDOWN:
pos += 10;
break;
case SB_LINEUP:
pos -= 10;
break;
case SB_PAGEDOWN:
pos += ( dat->CurrentHeight - 10 );
break;
case SB_PAGEUP:
pos -= ( dat->CurrentHeight - 10 );
break;
case SB_THUMBTRACK:
pos = HIWORD( wParam );
break;
}
if ( pos > ( dat->CurrentHeight - dat->frameHeight ))
pos = dat->CurrentHeight - dat->frameHeight;
if ( pos < 0 )
pos = 0;
if ( dat->curPos != pos ) {
ScrollWindow( GetDlgItem( hwndDlg, IDC_FRAME ), 0, dat->curPos - pos, NULL , &( dat->frameRect ));
SetScrollPos( GetDlgItem( hwndDlg, IDC_VSCROLL ), SB_CTL, pos, TRUE );
RECT Invalid=dat->frameRect;
if (dat->curPos - pos >0)
Invalid.bottom=Invalid.top+(dat->curPos - pos);
else
Invalid.top=Invalid.bottom+(dat->curPos - pos);
RedrawWindow(GetDlgItem( hwndDlg, IDC_FRAME ), NULL, NULL, RDW_UPDATENOW |RDW_ALLCHILDREN);
dat->curPos = pos;
} } }
return TRUE;
case WM_DESTROY:
JabberSearchFreeData( hwndDlg, dat );
JabberFormDestroyUI( GetDlgItem( hwndDlg, IDC_FRAME ));
mir_free( dat );
SetWindowLongPtr( hwndDlg, GWLP_USERDATA, 0 );
return TRUE;
}
return FALSE;
}
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;
}
static BOOL CALLBACK JabberGroupchatJoinDlgProc( HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam )
{
TCHAR text[128];
TCHAR* p;
switch ( msg ) {
case WM_INITDIALOG:
{
// lParam is the room JID ( room@server ) in UTF-8
hwndJabberJoinGroupchat = hwndDlg;
TranslateDialogDefault( hwndDlg );
if ( lParam ){
_tcsncpy( text, ( TCHAR* )lParam, SIZEOF( text ));
if (( p = _tcschr( text, '@' )) != NULL ) {
*p = '\0';
// Need to save room name in UTF-8 in case the room codepage is different
// from the local code page
TCHAR* room = mir_tstrdup( text );
SetWindowLong( hwndDlg, GWL_USERDATA, ( LONG ) room );
SetDlgItemText( hwndDlg, IDC_ROOM, room );
SetDlgItemText( hwndDlg, IDC_SERVER, p+1 );
}
else SetDlgItemText( hwndDlg, IDC_SERVER, text );
}
DBVARIANT dbv;
if ( !JGetStringT( NULL, "Nick", &dbv )) {
SetDlgItemText( hwndDlg, IDC_NICK, dbv.ptszVal );
JFreeVariant( &dbv );
}
else {
TCHAR* nick = JabberNickFromJID( jabberJID );
SetDlgItemText( hwndDlg, IDC_NICK, nick );
mir_free( nick );
} }
return TRUE;
case WM_COMMAND:
switch ( LOWORD( wParam )) {
case IDC_ROOM:
if (( HWND )lParam==GetFocus() && HIWORD( wParam )==EN_CHANGE ) {
// Change in IDC_ROOM field is detected,
// invalidate the saved UTF-8 room name if any
char* str = ( char* )GetWindowLong( hwndDlg, GWL_USERDATA );
if ( str != NULL ) {
mir_free( str );
SetWindowLong( hwndDlg, GWL_USERDATA, ( LONG ) NULL );
} }
break;
case IDOK:
{
GetDlgItemText( hwndDlg, IDC_SERVER, text, SIZEOF( text ));
TCHAR* server = NEWTSTR_ALLOCA( text ), *room;
if (( room=( TCHAR* )GetWindowLong( hwndDlg, GWL_USERDATA )) != NULL )
room = NEWTSTR_ALLOCA( room );
else {
GetDlgItemText( hwndDlg, IDC_ROOM, text, SIZEOF( text ));
room = NEWTSTR_ALLOCA( text );
}
GetDlgItemText( hwndDlg, IDC_NICK, text, SIZEOF( text ));
TCHAR* nick = NEWTSTR_ALLOCA( text );
GetDlgItemText( hwndDlg, IDC_PASSWORD, text, SIZEOF( text ));
TCHAR* password = NEWTSTR_ALLOCA( text );
JabberGroupchatJoinRoom( server, room, nick, password );
}
// fall through
case IDCANCEL:
EndDialog( hwndDlg, 0 );
break;
}
break;
case WM_JABBER_CHECK_ONLINE:
if ( !jabberOnline ) EndDialog( hwndDlg, 0 );
break;
case WM_DESTROY:
{
char* str = ( char* )GetWindowLong( hwndDlg, GWL_USERDATA );
if ( str != NULL )
mir_free( str );
hwndJabberJoinGroupchat = NULL;
}
break;
}
return FALSE;
}
void CJabberProto::ByteSendThread( JABBER_BYTE_TRANSFER *jbt )
{
char* localAddr;
char* localAddrInternal;
struct in_addr in;
DBVARIANT dbv;
TCHAR szPort[8];
HANDLE hEvent = NULL;
TCHAR* proxyJid;
CJabberIqInfo* pInfo = NULL;
int nIqId = 0;
Log( "Thread started: type=bytestream_send" );
BOOL bDirect = m_options.BsDirect;
if ( m_options.BsProxyManual ) {
proxyJid = NULL;
if ( !DBGetContactSettingString( NULL, m_szModuleName, "BsProxyServer", &dbv )) {
proxyJid = mir_a2t( dbv.pszVal );
JFreeVariant( &dbv );
}
if ( proxyJid ) {
jbt->bProxyDiscovered = FALSE;
jbt->szProxyHost = NULL;
jbt->szProxyPort = NULL;
jbt->szProxyJid = NULL;
jbt->hProxyEvent = CreateEvent( NULL, FALSE, FALSE, NULL );
pInfo = m_iqManager.AddHandler( &CJabberProto::IqResultProxyDiscovery, JABBER_IQ_TYPE_GET, proxyJid, 0, -1, jbt );
nIqId = pInfo->GetIqId();
XmlNodeIq iq( pInfo );
iq << XQUERY( _T(JABBER_FEAT_BYTESTREAMS));
m_ThreadInfo->send( iq );
WaitForSingleObject( jbt->hProxyEvent, INFINITE );
m_iqManager.ExpireIq ( nIqId );
CloseHandle( jbt->hProxyEvent );
jbt->hProxyEvent = NULL;
mir_free( proxyJid );
if ( jbt->state == JBT_ERROR && !bDirect ) {
Log( "Bytestream proxy failure" );
MsgPopup( pInfo->GetHContact(), TranslateT("Bytestream Proxy not available"), pInfo->GetReceiver());
jbt->ft->state = FT_DENIED;
(this->*jbt->pfnFinal)( FALSE, jbt->ft );
jbt->ft = NULL;
delete jbt;
return;
}
} }
pInfo = m_iqManager.AddHandler( &CJabberProto::ByteInitiateResult, JABBER_IQ_TYPE_SET, jbt->dstJID, 0, -1, jbt );
nIqId = pInfo->GetIqId();
{
XmlNodeIq iq( pInfo );
HXML query = iq << XQUERY( _T(JABBER_FEAT_BYTESTREAMS)) << XATTR( _T("sid"), jbt->sid );
if ( bDirect ) {
localAddr = NULL;
if ( m_options.BsDirectManual == TRUE ) {
if ( !DBGetContactSettingString( NULL, m_szModuleName, "BsDirectAddr", &dbv )) {
localAddr = NEWSTR_ALLOCA( dbv.pszVal );
JFreeVariant( &dbv );
} }
NETLIBBIND nlb = {0};
nlb.cbSize = sizeof( NETLIBBIND );
nlb.pfnNewConnectionV2 = JabberByteSendConnection;
nlb.pExtra = this;
nlb.wPort = 0; // Use user-specified incoming port ranges, if available
jbt->hConn = ( HANDLE ) JCallService( MS_NETLIB_BINDPORT, ( WPARAM ) m_hNetlibUser, ( LPARAM )&nlb );
if ( jbt->hConn == NULL ) {
Log( "Cannot allocate port for bytestream_send thread, thread ended." );
delete jbt;
return;
}
if ( localAddr == NULL ) {
in.S_un.S_addr = htonl(nlb.dwExternalIP);
localAddr = NEWSTR_ALLOCA( inet_ntoa( in ));
}
in.S_un.S_addr = htonl(nlb.dwInternalIP);
localAddrInternal = NEWSTR_ALLOCA( inet_ntoa( in ));
mir_sntprintf( szPort, SIZEOF( szPort ), _T("%d"), nlb.wPort );
JABBER_LIST_ITEM *item = ListAdd( LIST_BYTE, szPort );
item->jbt = jbt;
hEvent = CreateEvent( NULL, FALSE, FALSE, NULL );
jbt->hEvent = hEvent;
jbt->hSendEvent = CreateEvent( NULL, FALSE, FALSE, NULL );
query << XCHILD( _T("streamhost")) << XATTR( _T("jid"), m_ThreadInfo->fullJID ) << XATTR( _T("host"), _A2T(localAddr)) << XATTRI( _T("port"), nlb.wPort );
if ( strcmp( localAddr, localAddrInternal ))
query << XCHILD( _T("streamhost")) << XATTR( _T("jid"), m_ThreadInfo->fullJID ) << XATTR( _T("host"), _A2T(localAddrInternal)) << XATTRI( _T("port"), nlb.wPort );
}
if ( jbt->bProxyDiscovered )
query << XCHILD( _T("streamhost")) << XATTR( _T("jid"), jbt->szProxyJid ) << XATTR( _T("host"), jbt->szProxyHost ) << XATTR( _T("port"), jbt->szProxyPort );
jbt->hProxyEvent = CreateEvent( NULL, FALSE, FALSE, NULL );
jbt->szStreamhostUsed = NULL;
m_ThreadInfo->send( iq );
}
WaitForSingleObject( jbt->hProxyEvent, INFINITE );
m_iqManager.ExpireIq( nIqId );
CloseHandle( jbt->hProxyEvent );
jbt->hProxyEvent = NULL;
if ( !jbt->szStreamhostUsed ) {
if ( bDirect ) {
SetEvent( jbt->hSendEvent );
CloseHandle( jbt->hSendEvent );
CloseHandle( hEvent );
jbt->hEvent = NULL;
if ( jbt->hConn != NULL )
Netlib_CloseHandle( jbt->hConn );
jbt->hConn = NULL;
ListRemove( LIST_BYTE, szPort );
}
(this->*jbt->pfnFinal)(( jbt->state==JBT_DONE )?TRUE:FALSE, jbt->ft );
jbt->ft = NULL;
// stupid fix: wait for listening thread exit
Sleep( 100 );
delete jbt;
return;
}
if ( jbt->bProxyDiscovered && !_tcscmp( jbt->szProxyJid, jbt->szStreamhostUsed )) {
// jabber proxy used
if ( bDirect ) {
SetEvent( jbt->hSendEvent );
CloseHandle( jbt->hSendEvent );
CloseHandle( hEvent );
jbt->hEvent = NULL;
if ( jbt->hConn != NULL )
Netlib_CloseHandle( jbt->hConn );
jbt->hConn = NULL;
ListRemove( LIST_BYTE, szPort );
}
ByteSendViaProxy( jbt );
}
else {
SetEvent( jbt->hSendEvent );
WaitForSingleObject( hEvent, INFINITE );
CloseHandle( hEvent );
CloseHandle( jbt->hSendEvent );
jbt->hEvent = NULL;
(this->*jbt->pfnFinal)(( jbt->state == JBT_DONE ) ? TRUE : FALSE, jbt->ft );
jbt->ft = NULL;
if ( jbt->hConn != NULL )
Netlib_CloseHandle( jbt->hConn );
jbt->hConn = NULL;
ListRemove( LIST_BYTE, szPort );
}
// stupid fix: wait for listening connection thread exit
Sleep( 100 );
delete jbt;
Log( "Thread ended: type=bytestream_send" );
}
void __cdecl CJabberProto::FileServerThread( filetransfer* ft )
{
Log( "Thread started: type=file_send" );
ThreadData info( this, JABBER_SESSION_NORMAL );
ft->type = FT_OOB;
NETLIBBIND nlb = {0};
nlb.cbSize = sizeof( NETLIBBIND );
nlb.pfnNewConnectionV2 = JabberFileServerConnection;
nlb.pExtra = this;
nlb.wPort = 0; // Use user-specified incoming port ranges, if available
info.s = ( HANDLE ) JCallService( MS_NETLIB_BINDPORT, ( WPARAM ) m_hNetlibUser, ( LPARAM )&nlb );
if ( info.s == NULL ) {
Log( "Cannot allocate port to bind for file server thread, thread ended." );
JSendBroadcast( ft->std.hContact, ACKTYPE_FILE, ACKRESULT_FAILED, ft, 0 );
delete ft;
return;
}
ft->s = info.s;
Log( "ft->s = %d", info.s );
HANDLE hEvent = CreateEvent( NULL, FALSE, FALSE, NULL );
ft->hFileEvent = hEvent;
TCHAR szPort[20];
mir_sntprintf( szPort, SIZEOF( szPort ), _T("%d"), nlb.wPort );
JABBER_LIST_ITEM *item = ListAdd( LIST_FILE, szPort );
item->ft = ft;
TCHAR* ptszResource = ListGetBestClientResourceNamePtr( ft->jid );
if ( ptszResource != NULL ) {
ft->state = FT_CONNECTING;
for ( int i=0; i < ft->std.totalFiles && ft->state != FT_ERROR && ft->state != FT_DENIED; i++ ) {
ft->std.currentFileNumber = i;
ft->state = FT_CONNECTING;
if ( ft->httpPath ) mir_free( ft->httpPath );
ft->httpPath = NULL;
TCHAR* p;
if (( p = _tcschr( ft->std.ptszFiles[i], '\\' )) != NULL )
p++;
else
p = ft->std.ptszFiles[i];
in_addr in;
in.S_un.S_addr = m_dwJabberLocalIP;
TCHAR* pFileName = JabberHttpUrlEncode( p );
if ( pFileName != NULL ) {
int id = SerialNext();
if ( ft->iqId ) mir_free( ft->iqId );
ft->iqId = ( TCHAR* )mir_alloc( sizeof(TCHAR)*( strlen( JABBER_IQID )+20 ));
wsprintf( ft->iqId, _T(JABBER_IQID)_T("%d"), id );
char *myAddr;
DBVARIANT dbv;
if (m_options.BsDirect && m_options.BsDirectManual) {
if ( !DBGetContactSettingString( NULL, m_szModuleName, "BsDirectAddr", &dbv )) {
myAddr = NEWSTR_ALLOCA( dbv.pszVal );
JFreeVariant( &dbv );
}
else myAddr = inet_ntoa( in );
}
else myAddr = inet_ntoa( in );
char szAddr[ 256 ];
mir_snprintf( szAddr, sizeof(szAddr), "http://%s:%d/%s", myAddr, nlb.wPort, pFileName );
int len = lstrlen(ptszResource) + lstrlen(ft->jid) + 2;
TCHAR* fulljid = ( TCHAR* )alloca( sizeof( TCHAR )*len );
wsprintf( fulljid, _T("%s/%s"), ft->jid, ptszResource );
XmlNodeIq iq( _T("set"), id, fulljid );
HXML query = iq << XQUERY( _T(JABBER_FEAT_OOB));
query << XCHILD( _T("url"), _A2T(szAddr));
query << XCHILD( _T("desc"), ft->szDescription);
m_ThreadInfo->send( iq );
Log( "Waiting for the file to be sent..." );
WaitForSingleObject( hEvent, INFINITE );
mir_free( pFileName );
}
Log( "File sent, advancing to the next file..." );
JSendBroadcast( ft->std.hContact, ACKTYPE_FILE, ACKRESULT_NEXTFILE, ft, 0 );
}
CloseHandle( hEvent );
ft->hFileEvent = NULL;
Log( "Finish all files" );
}
ft->s = NULL;
Log( "ft->s is NULL" );
ListRemove( LIST_FILE, szPort );
switch ( ft->state ) {
case FT_DONE:
Log( "Finish successfully" );
JSendBroadcast( ft->std.hContact, ACKTYPE_FILE, ACKRESULT_SUCCESS, ft, 0 );
break;
case FT_DENIED:
JSendBroadcast( ft->std.hContact, ACKTYPE_FILE, ACKRESULT_DENIED, ft, 0 );
break;
default: // FT_ERROR:
Log( "Finish with errors" );
JSendBroadcast( ft->std.hContact, ACKTYPE_FILE, ACKRESULT_FAILED, ft, 0 );
break;
}
Log( "Thread ended: type=file_send" );
delete ft;
}