void XPath::ProcessPath(LookupInfo &info, bool bCreate)
{
if (!info.nodeName) return;
TCHAR *nodeName = (TCHAR *)_malloca(sizeof(TCHAR) * (info.nodeName.length+1));
lstrcpyn(nodeName, info.nodeName.p, info.nodeName.length+1);
if (info.attrName && info.attrValue)
{
TCHAR *attrName = (TCHAR *)_malloca(sizeof(TCHAR) * (info.attrName.length+1));
lstrcpyn(attrName, info.attrName.p, info.attrName.length+1);
TCHAR *attrValue = (TCHAR *)_malloca(sizeof(TCHAR) * (info.attrValue.length+1));
lstrcpyn(attrValue, info.attrValue.p, info.attrValue.length+1);
HXML hXml = xmlGetChildByTag(m_hXml, nodeName, attrName, attrValue);
m_hXml = (hXml || !bCreate) ? hXml : (m_hXml << XCHILD(nodeName) << XATTR(attrName, attrValue));
} else
if (info.nodeIndex)
{
int idx = _ttoi(info.nodeIndex.p);
m_hXml = lstrcmp(nodeName, _T("*")) ? xmlGetNthChild(m_hXml, nodeName, idx) : xmlGetChild(m_hXml, idx-1);
// no support for such creation mode
} else
{
HXML hXml = xmlGetChild(m_hXml, nodeName);
m_hXml = (hXml || !bCreate) ? hXml : (m_hXml << XCHILD(nodeName));
}
info.Reset();
}
void CJabberProto::IqResultProxyDiscovery( HXML iqNode, CJabberIqInfo* pInfo )
{
JABBER_BYTE_TRANSFER *jbt = ( JABBER_BYTE_TRANSFER * )pInfo->GetUserData();
if ( pInfo->GetIqType() == JABBER_IQ_TYPE_RESULT ) {
HXML queryNode = xmlGetChild( iqNode , "query" );
if ( queryNode ) {
const TCHAR *queryXmlns = xmlGetAttrValue( queryNode, _T( "xmlns" ));
if (queryXmlns && !_tcscmp( queryXmlns, _T(JABBER_FEAT_BYTESTREAMS))) {
HXML streamHostNode = xmlGetChild( queryNode , "streamhost" );
if ( streamHostNode ) {
const TCHAR *streamJid = xmlGetAttrValue( streamHostNode, _T( "jid" ));
const TCHAR *streamHost = xmlGetAttrValue( streamHostNode, _T( "host" ));
const TCHAR *streamPort = xmlGetAttrValue( streamHostNode, _T( "port" ));
if ( streamJid && streamHost && streamPort ) {
jbt->szProxyHost = mir_tstrdup( streamHost );
jbt->szProxyJid = mir_tstrdup( streamJid );
jbt->szProxyPort = mir_tstrdup( streamPort );
jbt->bProxyDiscovered = TRUE;
} } } } }
else if ( pInfo->GetIqType() == JABBER_IQ_TYPE_ERROR )
jbt->state = JBT_ERROR;
if ( jbt->hProxyEvent )
SetEvent( jbt->hProxyEvent );
}
void CJabberProto::OnIqResultGetCollection(HXML iqNode, CJabberIqInfo*)
{
if ( mir_tstrcmp( xmlGetAttrValue(iqNode, _T("type")), _T("result")))
return;
HXML chatNode = xmlGetChild(iqNode, "chat");
if (!chatNode || mir_tstrcmp( xmlGetAttrValue(chatNode, _T("xmlns")), JABBER_FEAT_ARCHIVE))
return;
const TCHAR* start = xmlGetAttrValue(chatNode, _T("start"));
const TCHAR* with = xmlGetAttrValue(chatNode, _T("with"));
if (!start || !with)
return;
MCONTACT hContact = HContactFromJID(with);
time_t tmStart = str2time(start);
if (hContact == 0 || tmStart == 0)
return;
_tzset();
for (int nodeIdx = 0; ; nodeIdx++) {
HXML itemNode = xmlGetChild(chatNode, nodeIdx);
if (!itemNode)
break;
int from;
const TCHAR *itemName = xmlGetName(itemNode);
if (!mir_tstrcmp(itemName, _T("to")))
from = DBEF_SENT;
else if (!mir_tstrcmp(itemName, _T("from")))
from = 0;
else
continue;
HXML body = xmlGetChild(itemNode, "body");
if (!body)
continue;
const TCHAR *tszBody = xmlGetText(body);
const TCHAR *tszSecs = xmlGetAttrValue(itemNode, _T("secs"));
if (!tszBody || !tszSecs)
continue;
ptrA szEventText( mir_utf8encodeT(tszBody));
DBEVENTINFO dbei = { sizeof(DBEVENTINFO) };
dbei.eventType = EVENTTYPE_MESSAGE;
dbei.szModule = m_szModuleName;
dbei.cbBlob = (DWORD)strlen(szEventText);
dbei.flags = DBEF_READ + DBEF_UTF + from;
dbei.pBlob = (PBYTE)(char*)szEventText;
dbei.timestamp = tmStart + _ttol(tszSecs) - timezone;
if (!IsDuplicateEvent(hContact, dbei))
db_event_add(hContact, &dbei);
}
}
void OnSubmit(CCtrlButton*)
{
HXML queryNode, xNode;
const TCHAR *from;
if (m_agentRegIqNode == NULL) return;
if ((from = xmlGetAttrValue(m_agentRegIqNode, _T("from"))) == NULL) return;
if ((queryNode = xmlGetChild(m_agentRegIqNode , "query")) == NULL) return;
HWND hFrame = GetDlgItem(m_hwnd, IDC_FRAME);
TCHAR *str2 = (TCHAR*)alloca(sizeof(TCHAR) * 128);
int id = 0;
XmlNodeIq iq( m_proto->AddIQ(&CJabberProto::OnIqResultSetRegister, JABBER_IQ_TYPE_SET, from));
HXML query = iq << XQUERY(JABBER_FEAT_REGISTER);
if ((xNode = xmlGetChild(queryNode , "x")) != NULL) {
// use new jabber:x:data form
HXML n = JabberFormGetData(hFrame, xNode);
xmlAddChild(query, n);
xi.destroyNode(n);
}
else {
// use old registration information form
for (int i=0; ; i++) {
HXML n = xmlGetChild(queryNode ,i);
if (!n)
break;
if (xmlGetName(n)) {
if (!lstrcmp(xmlGetName(n), _T("key"))) {
// field that must be passed along with the registration
if (xmlGetText(n))
xmlAddChild(query, xmlGetName(n), xmlGetText(n));
else
xmlAddChild(query, xmlGetName(n));
}
else if (!lstrcmp(xmlGetName(n), _T("registered")) || !lstrcmp(xmlGetName(n), _T("instructions"))) {
// do nothing, we will skip these
}
else {
GetDlgItemText(hFrame, id, str2, 128);
xmlAddChild(query, xmlGetName(n), str2);
id++;
} } } }
m_proto->m_ThreadInfo->send(iq);
CAgentRegProgressDlg(m_proto, m_hwnd).DoModal();
Close();
}
BOOL CJabberProto::OnIqHttpAuth(HXML node, CJabberIqInfo *pInfo)
{
if (!m_options.AcceptHttpAuth)
return TRUE;
if (!node || !pInfo->GetChildNode() || !pInfo->GetFrom() || !pInfo->GetIdStr())
return TRUE;
HXML pConfirm = xmlGetChild(node , "confirm");
if (!pConfirm)
return TRUE;
const TCHAR *szId = xmlGetAttrValue(pConfirm, _T("id"));
const TCHAR *szMethod = xmlGetAttrValue(pConfirm, _T("method"));
const TCHAR *szUrl = xmlGetAttrValue(pConfirm, _T("url"));
if (!szId || !szMethod || !szUrl)
return TRUE;
CJabberHttpAuthParams *pParams = (CJabberHttpAuthParams*)mir_calloc(sizeof(CJabberHttpAuthParams));
if (pParams) {
pParams->m_nType = CJabberHttpAuthParams::IQ;
pParams->m_szFrom = mir_tstrdup(pInfo->GetFrom());
pParams->m_szId = mir_tstrdup(szId);
pParams->m_szMethod = mir_tstrdup(szMethod);
pParams->m_szUrl = mir_tstrdup(szUrl);
AddClistHttpAuthEvent(pParams);
}
return TRUE;
}
BOOL CJabberProto::OnMessageError(HXML node, ThreadData*, CJabberMessageInfo* pInfo)
{
// we check if is message delivery failure
int id = JabberGetPacketID(node);
JABBER_LIST_ITEM *item = ListGetItemPtr(LIST_ROSTER, pInfo->GetFrom());
if (item == NULL)
item = ListGetItemPtr(LIST_CHATROOM, pInfo->GetFrom());
if (item != NULL) { // yes, it is
TCHAR *szErrText = JabberErrorMsg(pInfo->GetChildNode());
if (id != -1) {
char *errText = mir_t2a(szErrText);
ProtoBroadcastAck(pInfo->GetHContact(), ACKTYPE_MESSAGE, ACKRESULT_FAILED, (HANDLE)id, (LPARAM)errText);
mir_free(errText);
}
else {
TCHAR buf[512];
HXML bodyNode = xmlGetChild(node, "body");
if (bodyNode)
mir_sntprintf(buf, SIZEOF(buf), _T("%s:\n%s\n%s"), pInfo->GetFrom(), xmlGetText(bodyNode), szErrText);
else
mir_sntprintf(buf, SIZEOF(buf), _T("%s:\n%s"), pInfo->GetFrom(), szErrText);
MsgPopup(NULL, buf, TranslateT("Jabber Error"));
}
mir_free(szErrText);
}
return TRUE;
}
BOOL CJabberIqManager::HandleIqPermanent(HXML pNode)
{
mir_cslock lck(m_cs);
CJabberIqPermanentInfo *pInfo = m_pPermanentHandlers;
while (pInfo) {
// have to get all data here, in the loop, because there's always possibility that previous handler modified it
const TCHAR *szType = xmlGetAttrValue(pNode, _T("type"));
if (!szType)
return FALSE;
CJabberIqInfo iqInfo;
iqInfo.m_nIqType = JABBER_IQ_TYPE_FAIL;
if (!_tcsicmp(szType, _T("get")))
iqInfo.m_nIqType = JABBER_IQ_TYPE_GET;
else if (!_tcsicmp(szType, _T("set")))
iqInfo.m_nIqType = JABBER_IQ_TYPE_SET;
else
return FALSE;
if (pInfo->m_nIqTypes & iqInfo.m_nIqType) {
HXML pFirstChild = xmlGetChild(pNode , 0);
if (!pFirstChild || !xmlGetName(pFirstChild))
return FALSE;
const TCHAR *szTagName = xmlGetName(pFirstChild);
const TCHAR *szXmlns = xmlGetAttrValue(pFirstChild, _T("xmlns"));
if ((!pInfo->m_szXmlns || (szXmlns && !_tcscmp(pInfo->m_szXmlns, szXmlns))) &&
(!pInfo->m_szTag || !_tcscmp(pInfo->m_szTag, szTagName)))
{
// node suits handler criteria, call the handler
iqInfo.m_pChildNode = pFirstChild;
iqInfo.m_szChildTagName = (TCHAR*)szTagName;
iqInfo.m_szChildTagXmlns = (TCHAR*)szXmlns;
iqInfo.m_szId = (TCHAR*)xmlGetAttrValue(pNode, _T("id"));
iqInfo.m_pUserData = pInfo->m_pUserData;
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_TO)
iqInfo.m_szTo = (TCHAR*)xmlGetAttrValue(pNode, _T("to"));
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_FROM)
iqInfo.m_szFrom = (TCHAR*)xmlGetAttrValue(pNode, _T("from"));
if ((pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_HCONTACT) && (iqInfo.m_szFrom))
iqInfo.m_hContact = ppro->HContactFromJID(iqInfo.m_szFrom, 3);
ppro->debugLogA("Handling iq id %S, type %S, from %S", iqInfo.m_szId, szType, iqInfo.m_szFrom);
if ((ppro->*(pInfo->m_pHandler))(pNode, &iqInfo))
return TRUE;
}
}
pInfo = pInfo->m_pNext;
}
return FALSE;
}
void CJabberProto::ByteInitiateResult( HXML iqNode, CJabberIqInfo* pInfo )
{
JABBER_BYTE_TRANSFER *jbt = ( JABBER_BYTE_TRANSFER * )pInfo->GetUserData();
if ( pInfo->GetIqType() == JABBER_IQ_TYPE_RESULT ) {
HXML queryNode = xmlGetChild( iqNode , "query" );
if ( queryNode ) {
const TCHAR* queryXmlns = xmlGetAttrValue( queryNode, _T("xmlns"));
if ( queryXmlns && !_tcscmp( queryXmlns, _T( JABBER_FEAT_BYTESTREAMS ))) {
HXML streamHostNode = xmlGetChild( queryNode , "streamhost-used" );
if ( streamHostNode ) {
const TCHAR* streamJid = xmlGetAttrValue( streamHostNode, _T("jid"));
if ( streamJid )
jbt->szStreamhostUsed = mir_tstrdup( streamJid );
} } } }
if ( jbt->hProxyEvent )
SetEvent( jbt->hProxyEvent );
}
void CJabberProto::OnIqResultGetMuc( HXML iqNode )
{
HXML queryNode, xNode;
const TCHAR *type, *from, *str;
// RECVED: room config form
// ACTION: show the form
Log( "<iq/> iqIdGetMuc" );
if (( type = xmlGetAttrValue( iqNode, _T("type"))) == NULL ) return;
if (( from = xmlGetAttrValue( iqNode, _T("from"))) == NULL ) return;
if ( !_tcscmp( type, _T("result"))) {
if (( queryNode = xmlGetChild( iqNode , "query" )) != NULL ) {
str = xmlGetAttrValue( queryNode, _T("xmlns"));
if ( !lstrcmp( str, _T("http://jabber.org/protocol/muc#owner" ))) {
if (( xNode = xmlGetChild( queryNode , "x" )) != NULL ) {
str = xmlGetAttrValue( xNode, _T("xmlns"));
if ( !lstrcmp( str, _T(JABBER_FEAT_DATA_FORMS)))
//LaunchForm(xNode);
FormCreateDialog( xNode, _T("Jabber Conference Room Configuration"), &CJabberProto::SetMucConfig, mir_tstrdup( from ));
} } } } }
BOOL CJabberIqManager::HandleIq(int nIqId, HXML pNode )
{
if (nIqId == -1 || pNode == NULL)
return FALSE;
const TCHAR *szType = xmlGetAttrValue( pNode, _T("type"));
if ( !szType )
return FALSE;
int nIqType = JABBER_IQ_TYPE_FAIL;
if (!_tcsicmp(szType, _T("result")))
nIqType = JABBER_IQ_TYPE_RESULT;
else if (!_tcsicmp(szType, _T("error")))
nIqType = JABBER_IQ_TYPE_ERROR;
else
return FALSE;
Lock();
CJabberIqInfo* pInfo = DetachInfo(nIqId);
Unlock();
if (pInfo)
{
pInfo->m_nIqType = nIqType;
if (nIqType == JABBER_IQ_TYPE_RESULT) {
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_CHILD_TAG_NODE)
pInfo->m_pChildNode = xmlGetChild( pNode , 0 );
if (pInfo->m_pChildNode && (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_CHILD_TAG_NAME))
pInfo->m_szChildTagName = ( TCHAR* )xmlGetName( pInfo->m_pChildNode );
if (pInfo->m_pChildNode && (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_CHILD_TAG_XMLNS))
pInfo->m_szChildTagXmlns = ( TCHAR* )xmlGetAttrValue( pNode, _T("xmlns"));
}
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_TO)
pInfo->m_szTo = ( TCHAR* )xmlGetAttrValue( pNode, _T("to"));
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_FROM)
pInfo->m_szFrom = ( TCHAR* )xmlGetAttrValue( pNode, _T("from"));
if (pInfo->m_szFrom && (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_HCONTACT))
pInfo->m_hContact = ppro->HContactFromJID( pInfo->m_szFrom, 3 );
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_ID_STR)
pInfo->m_szId = ( TCHAR* )xmlGetAttrValue( pNode, _T("id"));
(ppro->*(pInfo->m_pHandler))(pNode, pInfo);
delete pInfo;
return TRUE;
}
return FALSE;
}
static void CALLBACK JabberMucJidListCreateDialogApcProc( void* param )
{
HXML iqNode, queryNode;
const TCHAR* from;
HWND *pHwndJidList;
JABBER_MUC_JIDLIST_INFO *jidListInfo = (JABBER_MUC_JIDLIST_INFO *)param;
if ( jidListInfo == NULL ) return;
if (( iqNode = jidListInfo->iqNode ) == NULL ) return;
if (( from = xmlGetAttrValue( iqNode, _T("from"))) == NULL ) return;
if (( queryNode = xmlGetChild( iqNode , "query" )) == NULL ) return;
CJabberProto* ppro = jidListInfo->ppro;
switch ( jidListInfo->type ) {
case MUC_VOICELIST:
pHwndJidList = &ppro->m_hwndMucVoiceList;
break;
case MUC_MEMBERLIST:
pHwndJidList = &ppro->m_hwndMucMemberList;
break;
case MUC_MODERATORLIST:
pHwndJidList = &ppro->m_hwndMucModeratorList;
break;
case MUC_BANLIST:
pHwndJidList = &ppro->m_hwndMucBanList;
break;
case MUC_ADMINLIST:
pHwndJidList = &ppro->m_hwndMucAdminList;
break;
case MUC_OWNERLIST:
pHwndJidList = &ppro->m_hwndMucOwnerList;
break;
default:
mir_free( jidListInfo );
return;
}
if ( *pHwndJidList!=NULL && IsWindow( *pHwndJidList )) {
SetForegroundWindow( *pHwndJidList );
SendMessage( *pHwndJidList, WM_JABBER_REFRESH, 0, ( LPARAM )jidListInfo );
}
else *pHwndJidList = CreateDialogParam( hInst, MAKEINTRESOURCE( IDD_JIDLIST ), GetForegroundWindow(), JabberMucJidListDlgProc, ( LPARAM )jidListInfo );
}
void CJabberProto::OnIqResultGetCollectionList(HXML iqNode, CJabberIqInfo*)
{
const TCHAR *to = xmlGetAttrValue(iqNode, _T("to"));
if (to == NULL || mir_tstrcmp( xmlGetAttrValue(iqNode, _T("type")), _T("result")))
return;
HXML list = xmlGetChild(iqNode, "list");
if (!list || mir_tstrcmp( xmlGetAttrValue(list, _T("xmlns")), JABBER_FEAT_ARCHIVE))
return;
MCONTACT hContact = NULL;
time_t tmLast = 0;
for (int nodeIdx = 1; ; nodeIdx++) {
HXML itemNode = xmlGetNthChild(list, _T("chat"), nodeIdx);
if (!itemNode)
break;
const TCHAR* start = xmlGetAttrValue(itemNode, _T("start"));
const TCHAR* with = xmlGetAttrValue(itemNode, _T("with"));
if (!start || !with)
continue;
if (hContact == NULL) {
if ((hContact = HContactFromJID(with)) == NULL)
continue;
tmLast = getDword(hContact, "LastCollection", 0);
}
m_ThreadInfo->send(
XmlNodeIq( AddIQ(&CJabberProto::OnIqResultGetCollection, JABBER_IQ_TYPE_GET))
<< XCHILDNS( _T("retrieve"), JABBER_FEAT_ARCHIVE) << XATTR(_T("with"), with) << XATTR(_T("start"), start));
time_t tmThis = str2time(start);
if ( tmThis > tmLast) {
tmLast = tmThis;
setDword(hContact, "LastCollection", tmLast+1);
}
}
}
HXML __fastcall XmlGetNthChild(HXML hXml, LPCTSTR tag, int nth)
{
int i, num;
if (!hXml || tag == NULL || mir_tstrlen(tag) <= 0 || nth < 1)
return NULL;
num = 1;
for (i=0; ; i++) {
HXML n = xmlGetChild(hXml, i);
if (!n)
break;
if (!mir_tstrcmp(tag, XmlGetName(n))) {
if (num == nth)
return n;
num++;
} }
return NULL;
}
void CJabberProto::OnIqResultDiscovery(HXML iqNode, CJabberIqInfo *pInfo)
{
if (!iqNode || !pInfo)
return;
HWND hwndList = (HWND)pInfo->GetUserData();
SendMessage(hwndList, CB_SHOWDROPDOWN, FALSE, 0);
SendMessage(hwndList, CB_RESETCONTENT, 0, 0);
if ( pInfo->GetIqType() == JABBER_IQ_TYPE_RESULT )
{
HXML query = xmlGetChild( iqNode , "query" );
if ( !query )
{
sttRoomListAppend(hwndList, RoomInfo::ROOM_FAIL,
TranslateT("Jabber Error"),
TranslateT("Failed to retrieve room list from server."),
_T(""));
} else
{
bool found = false;
HXML item;
for ( int i = 1; item = xmlGetNthChild( query, _T("item"), i ); i++ )
{
const TCHAR *jid = xmlGetAttrValue( item, _T("jid"));
TCHAR *name = NEWTSTR_ALLOCA(jid);
if (name)
{
if (TCHAR *p = _tcschr(name, _T('@')))
*p = 0;
} else
{
name = _T("");
}
sttRoomListAppend(hwndList,
ListGetItemPtr(LIST_BOOKMARK, jid) ? RoomInfo::ROOM_BOOKMARK : RoomInfo::ROOM_DEFAULT,
xmlGetAttrValue( item, _T("name")),
jid, name);
found = true;
}
if (!found)
{
sttRoomListAppend(hwndList, RoomInfo::ROOM_FAIL,
TranslateT("Jabber Error"),
TranslateT("No rooms available on server."),
_T(""));
}
}
} else
if ( pInfo->GetIqType() == JABBER_IQ_TYPE_ERROR )
{
HXML errorNode = xmlGetChild( iqNode , "error" );
TCHAR* str = JabberErrorMsg( errorNode );
sttRoomListAppend(hwndList, RoomInfo::ROOM_FAIL,
TranslateT("Jabber Error"),
str,
_T(""));
mir_free( str );
} else
{
sttRoomListAppend(hwndList, RoomInfo::ROOM_FAIL,
TranslateT("Jabber Error"),
TranslateT("Room list request timed out."),
_T(""));
}
SendMessage(hwndList, CB_SHOWDROPDOWN, TRUE, 0);
}
HXML __fastcall XmlGetChild(HXML hXml, int n)
{
return xmlGetChild(hXml, n);
}
void CJabberProto::OnIqResultAdvancedSearch( HXML iqNode )
{
const TCHAR* type;
int id;
U_TCHAR_MAP mColumnsNames(10);
LIST<void> SearchResults(2);
if ((( id = JabberGetPacketID( iqNode )) == -1 ) || (( type = xmlGetAttrValue( iqNode, _T("type"))) == NULL )) {
JSendBroadcast( NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, ( HANDLE ) id, 0 );
return;
}
if ( !lstrcmp( type, _T("result"))) {
HXML queryNode = xmlGetNthChild( iqNode, _T("query"), 1 );
HXML xNode = xmlGetChildByTag( queryNode, "x", "xmlns", _T(JABBER_FEAT_DATA_FORMS));
if (xNode) {
//1. Form search results info
HXML reportNode = xmlGetNthChild( xNode, _T("reported"), 1 );
if (reportNode) {
int i = 1;
while ( HXML fieldNode = xmlGetNthChild( reportNode, _T("field"), i++ )) {
TCHAR* var = ( TCHAR* )xmlGetAttrValue( fieldNode, _T( "var" ));
if ( var ) {
TCHAR* Label = ( TCHAR* )xmlGetAttrValue( fieldNode, _T( "label" ));
mColumnsNames.insert(var, (Label!=NULL) ? Label : var);
} } }
int i=1;
HXML itemNode;
while ( itemNode = xmlGetNthChild( xNode, _T("item"), i++ )) {
U_TCHAR_MAP *pUserColumn = new U_TCHAR_MAP(10);
int j = 1;
while ( HXML fieldNode = xmlGetNthChild( itemNode, _T("field"), j++ )) {
if ( TCHAR* var = (TCHAR*)xmlGetAttrValue( fieldNode, _T("var"))) {
if ( TCHAR* Text = (TCHAR*)xmlGetText( xmlGetChild( fieldNode, _T("value")))) {
if ( !mColumnsNames[var] )
mColumnsNames.insert(var,var);
pUserColumn->insert(var,Text);
} } }
SearchResults.insert((void*)pUserColumn);
}
}
else {
//2. Field list search results info
int i=1;
while ( HXML itemNode = xmlGetNthChild( queryNode, _T("item"), i++ )) {
U_TCHAR_MAP *pUserColumn=new U_TCHAR_MAP(10);
TCHAR* jid = (TCHAR*)xmlGetAttrValue( itemNode, _T("jid"));
TCHAR* keyReturned;
mColumnsNames.insertCopyKey( _T("jid"),_T("jid"),&keyReturned, CopyKey, DestroyKey );
mColumnsNames.insert( _T("jid"), keyReturned );
pUserColumn->insertCopyKey( _T("jid"), jid, NULL, CopyKey, DestroyKey );
for ( int j=0; ; j++ ) {
HXML child = xmlGetChild( itemNode, j );
if ( !child )
break;
const TCHAR* szColumnName = xmlGetName( child );
if ( szColumnName ) {
if ( xmlGetText( child ) && xmlGetText( child )[0] != _T('\0')) {
mColumnsNames.insertCopyKey(( TCHAR* )szColumnName,_T(""),&keyReturned, CopyKey, DestroyKey);
mColumnsNames.insert(( TCHAR* )szColumnName,keyReturned);
pUserColumn->insertCopyKey(( TCHAR* )szColumnName, ( TCHAR* )xmlGetText( child ),NULL, CopyKey, DestroyKey);
} } }
SearchResults.insert((void*)pUserColumn);
} }
}
else if (!lstrcmp( type, _T("error"))) {
const TCHAR* code=NULL;
const TCHAR* description=NULL;
TCHAR buff[255];
HXML errorNode = xmlGetChild( iqNode , "error" );
if (errorNode) {
code = xmlGetAttrValue( errorNode, _T("code"));
description = xmlGetText( errorNode );
}
_sntprintf(buff,SIZEOF(buff),TranslateT("Error %s %s\r\nTry to specify more detailed"),code ? code : _T(""),description?description:_T(""));
JSendBroadcast( NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, ( HANDLE ) id, 0 );
if (searchHandleDlg )
SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,buff);
else
MessageBox(NULL, buff, TranslateT("Search error"), MB_OK|MB_ICONSTOP);
return;
}
SearchReturnResults((HANDLE)id, (void*)&SearchResults, (U_TCHAR_MAP *)&mColumnsNames);
for (int i=0; i < SearchResults.getCount(); i++ )
delete ((U_TCHAR_MAP *)SearchResults[i]);
//send success to finish searching
JSendBroadcast( NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, ( HANDLE ) id, 0 );
}
BOOL CJabberMessageManager::HandleMessagePermanent(HXML node, ThreadData *pThreadData)
{
BOOL bStopHandling = FALSE;
Lock();
CJabberMessagePermanentInfo *pInfo = m_pPermanentHandlers;
while ( pInfo && !bStopHandling ) {
// have to get all data here, in the loop, because there's always possibility that previous handler modified it
CJabberMessageInfo messageInfo;
LPCTSTR szType = xmlGetAttrValue(node, _T("type"));
if ( szType )
{
if ( !_tcsicmp( szType, _T("normal")))
messageInfo.m_nMessageType = JABBER_MESSAGE_TYPE_NORMAL;
else if ( !_tcsicmp( szType, _T("error")))
messageInfo.m_nMessageType = JABBER_MESSAGE_TYPE_ERROR;
else if ( !_tcsicmp( szType, _T("chat")))
messageInfo.m_nMessageType = JABBER_MESSAGE_TYPE_CHAT;
else if ( !_tcsicmp( szType, _T("groupchat")))
messageInfo.m_nMessageType = JABBER_MESSAGE_TYPE_GROUPCHAT;
else if ( !_tcsicmp( szType, _T("headline")))
messageInfo.m_nMessageType = JABBER_MESSAGE_TYPE_HEADLINE;
else
break; // m_nMessageType = JABBER_MESSAGE_TYPE_FAIL;
}
else {
messageInfo.m_nMessageType = JABBER_MESSAGE_TYPE_NORMAL;
}
if ( (pInfo->m_nMessageTypes & messageInfo.m_nMessageType )) {
int i;
for ( i = xmlGetChildCount( node ) - 1; i >= 0; i-- ) {
// enumerate all children and see whether this node suits handler criteria
HXML child = xmlGetChild( node, i );
LPCTSTR szTagName = xmlGetName(child);
LPCTSTR szXmlns = xmlGetAttrValue( child, _T("xmlns"));
if ( (!pInfo->m_szXmlns || ( szXmlns && !_tcscmp( pInfo->m_szXmlns, szXmlns ))) &&
( !pInfo->m_szTag || !_tcscmp( pInfo->m_szTag, szTagName ))) {
// node suits handler criteria, call the handler
messageInfo.m_hChildNode = child;
messageInfo.m_szChildTagName = szTagName;
messageInfo.m_szChildTagXmlns = szXmlns;
messageInfo.m_pUserData = pInfo->m_pUserData;
messageInfo.m_szFrom = xmlGetAttrValue( node, _T("from")); // is necessary for ppro->Log() below, that's why we must parse it even if JABBER_MESSAGE_PARSE_FROM flag is not set
if (pInfo->m_dwParamsToParse & JABBER_MESSAGE_PARSE_ID_STR)
messageInfo.m_szId = xmlGetAttrValue( node, _T("id"));
if (pInfo->m_dwParamsToParse & JABBER_IQ_PARSE_TO)
messageInfo.m_szTo = xmlGetAttrValue( node, _T("to"));
if (pInfo->m_dwParamsToParse & JABBER_MESSAGE_PARSE_HCONTACT)
messageInfo.m_hContact = ppro->HContactFromJID( messageInfo.m_szFrom, 3 );
if (messageInfo.m_szFrom)
ppro->Log( "Handling message from " TCHAR_STR_PARAM, messageInfo.m_szFrom );
if ((ppro->*(pInfo->m_pHandler))(node, pThreadData, &messageInfo)) {
bStopHandling = TRUE;
break;
}
}
}
}
pInfo = pInfo->m_pNext;
}
Unlock();
return bStopHandling;
}
void CJabberProto::OnIqResultGetSearchFields( HXML iqNode )
{
if ( !searchHandleDlg )
return;
LPCTSTR type = xmlGetAttrValue( iqNode, _T("type"));
if ( !type )
return;
if ( !lstrcmp( type, _T("result"))) {
HXML queryNode = xmlGetNthChild( iqNode, _T("query"), 1 );
HXML xNode = xmlGetChildByTag( queryNode, "x", "xmlns", _T(JABBER_FEAT_DATA_FORMS));
ShowWindow(searchHandleDlg,SW_HIDE);
if ( xNode ) {
//1. Form
PostMessage( searchHandleDlg, WM_USER+11, ( WPARAM )xi.copyNode( xNode ), ( LPARAM )0 );
HXML xcNode = xmlGetNthChild( xNode, _T("instructions"), 1 );
if ( xcNode )
SetDlgItemText( searchHandleDlg, IDC_INSTRUCTIONS, xmlGetText( xcNode ));
}
else {
int Order=0;
for ( int i = 0; ; i++ ) {
HXML chNode = xmlGetChild( queryNode, i );
if ( !chNode )
break;
if ( !_tcsicmp( xmlGetName( chNode ), _T("instructions")) && xmlGetText( chNode ))
SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,TranslateTS(xmlGetText( chNode )));
else if ( xmlGetName( chNode ) ) {
Data *MyData=(Data*)malloc(sizeof(Data));
memset(MyData,0,sizeof(Data));
MyData->Label = mir_tstrdup( xmlGetName( chNode ));
MyData->Var = mir_tstrdup( xmlGetName( chNode ));
MyData->defValue = mir_tstrdup(xmlGetText( chNode ));
MyData->Order = Order;
if (MyData->defValue) MyData->bReadOnly = TRUE;
PostMessage(searchHandleDlg,WM_USER+10,(WPARAM)FALSE,(LPARAM)MyData);
Order++;
} } }
const TCHAR* szFrom = xmlGetAttrValue( iqNode, _T("from"));
if (szFrom)
SearchAddToRecent(szFrom,searchHandleDlg);
PostMessage(searchHandleDlg,WM_USER+10,(WPARAM)0,(LPARAM)0);
ShowWindow(searchHandleDlg,SW_SHOW);
}
else if ( !lstrcmp( type, _T("error"))) {
const TCHAR* code=NULL;
const TCHAR* description=NULL;
TCHAR buff[255];
HXML errorNode = xmlGetChild( iqNode, "error");
if ( errorNode ) {
code = xmlGetAttrValue( errorNode, _T("code"));
description=xmlGetText( errorNode );
}
_sntprintf(buff,SIZEOF(buff),TranslateT("Error %s %s\r\nPlease select other server"),code ? code : _T(""),description?description:_T(""));
SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,buff);
}
else SetDlgItemText( searchHandleDlg, IDC_INSTRUCTIONS, TranslateT( "Error Unknown reply recieved\r\nPlease select other server" ));
}
BOOL CJabberProto::OnRosterPushRequest(HXML, CJabberIqInfo *pInfo)
{
HXML queryNode = pInfo->GetChildNode();
// RFC 3921 #7.2 Business Rules
if (pInfo->GetFrom()) {
TCHAR *szFrom = JabberPrepareJid(pInfo->GetFrom());
if (!szFrom)
return TRUE;
TCHAR *szTo = JabberPrepareJid(m_ThreadInfo->fullJID);
if (!szTo) {
mir_free(szFrom);
return TRUE;
}
TCHAR *pDelimiter = _tcschr(szFrom, _T('/'));
if (pDelimiter) *pDelimiter = 0;
pDelimiter = _tcschr(szTo, _T('/'));
if (pDelimiter) *pDelimiter = 0;
BOOL bRetVal = _tcscmp(szFrom, szTo) == 0;
mir_free(szFrom);
mir_free(szTo);
// invalid JID
if (!bRetVal) {
debugLogA("<iq/> attempt to hack via roster push from %S", pInfo->GetFrom());
return TRUE;
}
}
JABBER_LIST_ITEM *item;
HANDLE hContact = NULL;
const TCHAR *jid, *str, *name;
TCHAR *nick;
debugLogA("<iq/> Got roster push, query has %d children", xmlGetChildCount(queryNode));
for (int i=0; ; i++) {
HXML itemNode = xmlGetChild(queryNode ,i);
if (!itemNode)
break;
if (_tcscmp(xmlGetName(itemNode), _T("item")) != 0)
continue;
if ((jid = xmlGetAttrValue(itemNode, _T("jid"))) == NULL)
continue;
if ((str = xmlGetAttrValue(itemNode, _T("subscription"))) == NULL)
continue;
// we will not add new account when subscription=remove
if (!_tcscmp(str, _T("to")) || !_tcscmp(str, _T("both")) || !_tcscmp(str, _T("from")) || !_tcscmp(str, _T("none"))) {
if ((name = xmlGetAttrValue(itemNode, _T("name"))) != NULL)
nick = mir_tstrdup(name);
else
nick = JabberNickFromJID(jid);
if (nick != NULL) {
if ((item=ListAdd(LIST_ROSTER, jid)) != NULL) {
replaceStrT(item->nick, nick);
HXML groupNode = xmlGetChild(itemNode , "group");
replaceStrT(item->group, xmlGetText(groupNode));
if ((hContact=HContactFromJID(jid, 0)) == NULL) {
// Received roster has a new JID.
// Add the jid (with empty resource) to Miranda contact list.
hContact = DBCreateContact(jid, nick, FALSE, FALSE);
}
else setTString(hContact, "jid", jid);
if (name != NULL) {
ptrT tszNick( getTStringA(hContact, "Nick"));
if (tszNick != NULL) {
if (_tcscmp(nick, tszNick) != 0)
db_set_ts(hContact, "CList", "MyHandle", nick);
else
db_unset(hContact, "CList", "MyHandle");
}
else db_set_ts(hContact, "CList", "MyHandle", nick);
}
else db_unset(hContact, "CList", "MyHandle");
if (!m_options.IgnoreRosterGroups) {
if (item->group != NULL) {
Clist_CreateGroup(0, item->group);
db_set_ts(hContact, "CList", "Group", item->group);
}
else db_unset(hContact, "CList", "Group");
}
}
mir_free(nick);
}
}
if ((item=ListGetItemPtr(LIST_ROSTER, jid)) != NULL) {
if (!_tcscmp(str, _T("both"))) item->subscription = SUB_BOTH;
else if (!_tcscmp(str, _T("to"))) item->subscription = SUB_TO;
else if (!_tcscmp(str, _T("from"))) item->subscription = SUB_FROM;
else item->subscription = SUB_NONE;
debugLogA("Roster push for jid=%S, set subscription to %S", jid, str);
// subscription = remove is to remove from roster list
// but we will just set the contact to offline and not actually
// remove, so that history will be retained.
if (!_tcscmp(str, _T("remove"))) {
if ((hContact=HContactFromJID(jid)) != NULL) {
SetContactOfflineStatus(hContact);
ListRemove(LIST_ROSTER, jid);
}
}
else if ( isChatRoom(hContact))
db_unset(hContact, "CList", "Hidden");
else
UpdateSubscriptionInfo(hContact, item);
}
}
UI_SAFE_NOTIFY(m_pDlgServiceDiscovery, WM_JABBER_TRANSPORT_REFRESH);
RebuildInfoFrame();
return TRUE;
}
void __cdecl CJabberProto::ByteReceiveThread( JABBER_BYTE_TRANSFER *jbt )
{
HXML iqNode, queryNode = NULL, n;
const TCHAR *sid = NULL, *from = NULL, *to = NULL, *szId = NULL, *szHost, *szPort, *str;
int i;
WORD port;
HANDLE hConn;
char data[3];
char* buffer;
int datalen, bytesParsed, recvResult;
BOOL validStreamhost = FALSE;
if ( jbt == NULL ) return;
jbt->state = JBT_INIT;
if ( iqNode = jbt->iqNode ) {
from = xmlGetAttrValue( iqNode, _T("from"));
to = xmlGetAttrValue( iqNode, _T("to"));
szId = xmlGetAttrValue( iqNode, _T("id"));
queryNode = xmlGetChild( iqNode , "query" );
if ( queryNode )
sid = xmlGetAttrValue( queryNode, _T("sid"));
}
if ( szId && from && to && sid && ( n = xmlGetChild( queryNode , "streamhost" ))!=NULL ) {
jbt->iqId = mir_tstrdup( szId );
jbt->srcJID = mir_tstrdup( from );
jbt->dstJID = mir_tstrdup( to );
jbt->sid = mir_tstrdup( sid );
if (( buffer=( char* )mir_alloc( JABBER_NETWORK_BUFFER_SIZE ))) {
for ( i=1; ( n = xmlGetNthChild( queryNode, _T("streamhost"), i ))!=NULL; i++ ) {
if (( szHost = xmlGetAttrValue( n, _T("host"))) != NULL &&
( szPort = xmlGetAttrValue( n, _T("port"))) != NULL &&
( str = xmlGetAttrValue( n, _T("jid"))) != NULL ) {
port = ( WORD )_ttoi( szPort );
if ( jbt->streamhostJID ) mir_free( jbt->streamhostJID );
jbt->streamhostJID = mir_tstrdup( str );
Log( "bytestream_recv connecting to " TCHAR_STR_PARAM ":%d", szHost, port );
NETLIBOPENCONNECTION nloc = { 0 };
nloc.cbSize = sizeof( nloc );
nloc.szHost = mir_t2a(szHost);
nloc.wPort = port;
hConn = ( HANDLE ) JCallService( MS_NETLIB_OPENCONNECTION, ( WPARAM ) m_hNetlibUser, ( LPARAM )&nloc );
mir_free((void*)nloc.szHost);
if ( hConn == NULL ) {
Log( "bytestream_recv_connection connection failed ( %d ), try next streamhost", WSAGetLastError());
continue;
}
jbt->hConn = hConn;
data[0] = 5;
data[1] = 1;
data[2] = 0;
Netlib_Send( hConn, data, 3, 0 );
jbt->state = JBT_INIT;
datalen = 0;
while ( jbt->state!=JBT_DONE && jbt->state!=JBT_ERROR && jbt->state!=JBT_SOCKSERR ) {
recvResult = Netlib_Recv( hConn, buffer+datalen, JABBER_NETWORK_BUFFER_SIZE-datalen, 0 );
if ( recvResult <= 0 ) break;
datalen += recvResult;
bytesParsed = ByteReceiveParse( hConn, jbt, buffer, datalen );
if ( bytesParsed < datalen )
memmove( buffer, buffer+bytesParsed, datalen-bytesParsed );
datalen -= bytesParsed;
if ( jbt->state == JBT_RECVING ) validStreamhost = TRUE;
}
Netlib_CloseHandle( hConn );
Log( "bytestream_recv_connection closing connection" );
}
if ( jbt->state==JBT_ERROR || validStreamhost==TRUE )
break;
Log( "bytestream_recv_connection stream cannot be established, try next streamhost" );
}
mir_free( buffer );
}
}
(this->*jbt->pfnFinal)(( jbt->state==JBT_DONE )?TRUE:FALSE, jbt->ft );
jbt->ft = NULL;
if ( !validStreamhost && szId && from ) {
Log( "bytestream_recv_connection session not completed" );
m_ThreadInfo->send( XmlNodeIq( _T("error"), szId, from )
<< XCHILD( _T("error")) << XATTRI( _T("code"), 404 ) << XATTR( _T("type"), _T("cancel"))
<< XCHILDNS( _T("item-not-found"), _T("urn:ietf:params:xml:ns:xmpp-stanzas")));
}
delete jbt;
Log( "Thread ended: type=bytestream_recv" );
}
BOOL CJabberProto::OnIqRequestOOB(HXML, CJabberIqInfo *pInfo)
{
if (!pInfo->GetFrom() || !pInfo->GetHContact())
return TRUE;
HXML n = xmlGetChild(pInfo->GetChildNode(), "url");
if (!n || !xmlGetText(n))
return TRUE;
if (m_options.BsOnlyIBB) {
// reject
XmlNodeIq iq(_T("error"), pInfo);
HXML e = xmlAddChild(iq, _T("error"), _T("File transfer refused")); xmlAddAttr(e, _T("code"), 406);
m_ThreadInfo->send(iq);
return TRUE;
}
filetransfer *ft = new filetransfer(this);
ft->std.totalFiles = 1;
ft->jid = mir_tstrdup(pInfo->GetFrom());
ft->std.hContact = pInfo->GetHContact();
ft->type = FT_OOB;
ft->httpHostName = NULL;
ft->httpPort = 80;
ft->httpPath = NULL;
// Parse the URL
TCHAR *str = (TCHAR*)xmlGetText(n); // URL of the file to get
if (!_tcsnicmp(str, _T("http://"), 7)) {
TCHAR *p = str + 7, *q;
if ((q = _tcschr(p, '/')) != NULL) {
TCHAR text[1024];
if (q-p < SIZEOF(text)) {
_tcsncpy(text, p, q-p);
text[q-p] = '\0';
if ((p = _tcschr(text, ':')) != NULL) {
ft->httpPort = (WORD)_ttoi(p+1);
*p = '\0';
}
ft->httpHostName = mir_t2a(text);
}
}
}
if (pInfo->GetIdStr())
ft->iqId = pInfo->GetIqId();
if (ft->httpHostName && ft->httpPath) {
TCHAR *desc = NULL;
debugLogA("Host=%s Port=%d Path=%s", ft->httpHostName, ft->httpPort, ft->httpPath);
if ((n = xmlGetChild(pInfo->GetChildNode(), "desc")) != NULL)
desc = (TCHAR*)xmlGetText(n);
TCHAR *str2;
debugLogA("description = %s", desc);
if ((str2 = _tcsrchr(ft->httpPath, '/')) != NULL)
str2++;
else
str2 = ft->httpPath;
str2 = mir_tstrdup(str2);
JabberHttpUrlDecode(str2);
PROTORECVFILET pre;
pre.flags = PREF_TCHAR;
pre.timestamp = time(NULL);
pre.tszDescription = desc;
pre.ptszFiles = &str2;
pre.fileCount = 1;
pre.lParam = (LPARAM)ft;
ProtoChainRecvFile(ft->std.hContact, &pre);
mir_free(str2);
}
else {
// reject
XmlNodeIq iq(_T("error"), pInfo);
HXML e = xmlAddChild(iq, _T("error"), _T("File transfer refused")); xmlAddAttr(e, _T("code"), 406);
m_ThreadInfo->send(iq);
delete ft;
}
return TRUE;
}
static INT_PTR CALLBACK JabberMucJidListDlgProc( HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam )
{
JABBER_MUC_JIDLIST_INFO* dat = (JABBER_MUC_JIDLIST_INFO*)GetWindowLongPtr( hwndDlg, GWLP_USERDATA );
switch( msg ) {
case WM_INITDIALOG:
{
LVCOLUMN lvc;
RECT rc;
HWND hwndList;
TranslateDialogDefault( hwndDlg );
hwndList = GetDlgItem( hwndDlg, IDC_LIST );
ListView_SetExtendedListViewStyle(hwndList, LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
GetClientRect( hwndList, &rc );
//rc.right -= GetSystemMetrics( SM_CXVSCROLL );
lvc.mask = LVCF_WIDTH;
lvc.cx = rc.right - 20;
ListView_InsertColumn( hwndList, 0, &lvc );
lvc.cx = 20;
ListView_InsertColumn( hwndList, 1, &lvc );
SendMessage( hwndDlg, WM_JABBER_REFRESH, 0, lParam );
dat = (JABBER_MUC_JIDLIST_INFO*)lParam;
static struct
{
int idc;
char *title;
char *icon;
bool push;
} buttons[] =
{
{IDC_BTN_FILTERAPPLY, "Apply filter", "sd_filter_apply", false},
{IDC_BTN_FILTERRESET, "Reset filter", "sd_filter_reset", false},
};
for (int i = 0; i < SIZEOF(buttons); ++i)
{
SendDlgItemMessage(hwndDlg, buttons[i].idc, BM_SETIMAGE, IMAGE_ICON, (LPARAM)dat->ppro->LoadIconEx(buttons[i].icon));
SendDlgItemMessage(hwndDlg, buttons[i].idc, BUTTONSETASFLATBTN, 0, 0);
SendDlgItemMessage(hwndDlg, buttons[i].idc, BUTTONADDTOOLTIP, (WPARAM)buttons[i].title, 0);
if (buttons[i].push)
SendDlgItemMessage(hwndDlg, buttons[i].idc, BUTTONSETASPUSHBTN, 0, 0);
}
Utils_RestoreWindowPosition(hwndDlg, NULL, dat->ppro->m_szModuleName, "jidListWnd_");
}
return TRUE;
case WM_SIZE:
{
UTILRESIZEDIALOG urd = {0};
urd.cbSize = sizeof(urd);
urd.hInstance = hInst;
urd.hwndDlg = hwndDlg;
urd.lpTemplate = MAKEINTRESOURCEA(IDD_JIDLIST);
urd.pfnResizer = sttJidListResizer;
CallService(MS_UTILS_RESIZEDIALOG, 0, (LPARAM)&urd);
RECT listrc;
LVCOLUMN lvc;
HWND hwndList = GetDlgItem( hwndDlg, IDC_LIST );
GetClientRect( hwndList, &listrc );
lvc.mask = LVCF_WIDTH;
//listrc.right -= GetSystemMetrics( SM_CXVSCROLL );
lvc.cx = listrc.right - 20;
SendMessage(hwndList, LVM_SETCOLUMN, 0, (LPARAM)&lvc);
break;
}
break;
case WM_JABBER_REFRESH:
{
// lParam is ( JABBER_MUC_JIDLIST_INFO * )
HXML iqNode, queryNode;
const TCHAR* from;
TCHAR title[256];
// Clear current GWL_USERDATA, if any
if ( dat != NULL )
delete dat;
// Set new GWL_USERDATA
dat = ( JABBER_MUC_JIDLIST_INFO * ) lParam;
SetWindowLongPtr( hwndDlg, GWLP_USERDATA, ( LONG_PTR ) dat );
// Populate displayed list from iqNode
lstrcpyn( title, TranslateT( "JID List" ), SIZEOF( title ));
if (( dat=( JABBER_MUC_JIDLIST_INFO * ) lParam ) != NULL ) {
if (( iqNode = dat->iqNode ) != NULL ) {
if (( from = xmlGetAttrValue( iqNode, _T("from"))) != NULL ) {
dat->roomJid = mir_tstrdup( from );
if (( queryNode = xmlGetChild( iqNode , "query" )) != NULL ) {
TCHAR* localFrom = mir_tstrdup( from );
mir_sntprintf( title, SIZEOF( title ), TranslateT("%s, %d items (%s)"),
( dat->type == MUC_VOICELIST ) ? TranslateT( "Voice List" ) :
( dat->type == MUC_MEMBERLIST ) ? TranslateT( "Member List" ) :
( dat->type == MUC_MODERATORLIST ) ? TranslateT( "Moderator List" ) :
( dat->type == MUC_BANLIST ) ? TranslateT( "Ban List" ) :
( dat->type == MUC_ADMINLIST ) ? TranslateT( "Admin List" ) :
( dat->type == MUC_OWNERLIST ) ? TranslateT( "Owner List" ) :
TranslateT( "JID List" ), xmlGetChildCount(queryNode), localFrom );
mir_free( localFrom );
} } } }
SetWindowText( hwndDlg, title );
SetWindowLongPtr(GetDlgItem(hwndDlg, IDC_FILTER), GWLP_USERDATA, 0);
sttFillJidList(hwndDlg);
}
break;
case WM_NOTIFY:
if (( ( LPNMHDR )lParam )->idFrom == IDC_LIST ) {
switch (( ( LPNMHDR )lParam )->code ) {
case NM_CUSTOMDRAW:
{
NMLVCUSTOMDRAW *nm = ( NMLVCUSTOMDRAW * ) lParam;
switch ( nm->nmcd.dwDrawStage ) {
case CDDS_PREPAINT:
case CDDS_ITEMPREPAINT:
SetWindowLongPtr( hwndDlg, DWLP_MSGRESULT, CDRF_NOTIFYSUBITEMDRAW );
return TRUE;
case CDDS_SUBITEM|CDDS_ITEMPREPAINT:
{
RECT rc;
HICON hIcon;
ListView_GetSubItemRect( nm->nmcd.hdr.hwndFrom, nm->nmcd.dwItemSpec, nm->iSubItem, LVIR_LABEL, &rc );
if ( nm->iSubItem == 1 ) {
if( nm->nmcd.lItemlParam == ( LPARAM )( -1 ))
hIcon = ( HICON )LoadImage( hInst, MAKEINTRESOURCE( IDI_ADDCONTACT ), IMAGE_ICON, GetSystemMetrics( SM_CXSMICON ), GetSystemMetrics( SM_CYSMICON ), 0 );
else
hIcon = ( HICON )LoadImage( hInst, MAKEINTRESOURCE( IDI_DELETE ), IMAGE_ICON, GetSystemMetrics( SM_CXSMICON ), GetSystemMetrics( SM_CYSMICON ), 0 );
DrawIconEx( nm->nmcd.hdc, ( rc.left+rc.right-GetSystemMetrics( SM_CXSMICON ))/2, ( rc.top+rc.bottom-GetSystemMetrics( SM_CYSMICON ))/2,hIcon, GetSystemMetrics( SM_CXSMICON ), GetSystemMetrics( SM_CYSMICON ), 0, GetSysColorBrush(COLOR_WINDOW), DI_NORMAL );
DestroyIcon( hIcon );
SetWindowLongPtr( hwndDlg, DWLP_MSGRESULT, CDRF_SKIPDEFAULT );
return TRUE;
} } } }
break;
case NM_CLICK:
{
NMLISTVIEW *nm = ( NMLISTVIEW * ) lParam;
LVITEM lvi;
LVHITTESTINFO hti;
TCHAR text[128];
if ( nm->iSubItem < 1 )
break;
hti.pt.x = ( short ) LOWORD( GetMessagePos());
hti.pt.y = ( short ) HIWORD( GetMessagePos());
ScreenToClient( nm->hdr.hwndFrom, &hti.pt );
if ( ListView_SubItemHitTest( nm->hdr.hwndFrom, &hti ) == -1 )
break;
if ( hti.iSubItem != 1 )
break;
lvi.mask = LVIF_PARAM | LVIF_TEXT;
lvi.iItem = hti.iItem;
lvi.iSubItem = 0;
lvi.pszText = text;
lvi.cchTextMax = sizeof( text );
ListView_GetItem( nm->hdr.hwndFrom, &lvi );
if ( lvi.lParam == ( LPARAM )( -1 )) {
TCHAR szBuffer[ 1024 ];
_tcscpy( szBuffer, dat->type2str());
if ( !dat->ppro->EnterString(szBuffer, SIZEOF(szBuffer), NULL, JES_COMBO, "gcAddNick_"))
break;
// Trim leading and trailing whitespaces
TCHAR *p = szBuffer, *q;
for ( p = szBuffer; *p!='\0' && isspace( BYTE( *p )); p++);
for ( q = p; *q!='\0' && !isspace( BYTE( *q )); q++);
if (*q != '\0') *q = '\0';
if (*p == '\0')
break;
TCHAR rsn[ 1024 ];
_tcscpy( rsn, dat->type2str());
if ( dat->type == MUC_BANLIST ) {
dat->ppro->EnterString(rsn, SIZEOF(rsn), TranslateT("Reason to ban") , JES_COMBO, "gcAddReason_");
if ( szBuffer )
dat->ppro->AddMucListItem( dat, p , rsn);
else
dat->ppro->AddMucListItem( dat, p );
}
else dat->ppro->AddMucListItem( dat, p );
}
else {
//delete
TCHAR msgText[128];
mir_sntprintf( msgText, SIZEOF( msgText ), _T("%s %s?"), TranslateT( "Removing" ), text );
if ( MessageBox( hwndDlg, msgText, dat->type2str(), MB_YESNO|MB_SETFOREGROUND ) == IDYES ) {
dat->ppro->DeleteMucListItem( dat, ( TCHAR* )lvi.lParam );
mir_free(( void * )lvi.lParam );
ListView_DeleteItem( nm->hdr.hwndFrom, hti.iItem );
} } }
break;
}
break;
}
break;
case WM_COMMAND:
if ((LOWORD(wParam) == IDC_BTN_FILTERAPPLY) ||
((LOWORD(wParam) == IDOK) && (GetFocus() == GetDlgItem(hwndDlg, IDC_FILTER))))
{
SetWindowLongPtr(GetDlgItem(hwndDlg, IDC_FILTER), GWLP_USERDATA, 1);
sttFillJidList(hwndDlg);
} else
if ((LOWORD(wParam) == IDC_BTN_FILTERRESET) ||
((LOWORD(wParam) == IDCANCEL) && (GetFocus() == GetDlgItem(hwndDlg, IDC_FILTER))))
{
SetWindowLongPtr(GetDlgItem(hwndDlg, IDC_FILTER), GWLP_USERDATA, 0);
sttFillJidList(hwndDlg);
}
break;
/* case WM_SETCURSOR:
if ( LOWORD( LPARAM )!= HTCLIENT ) break;
if ( GetForegroundWindow() == GetParent( hwndDlg )) {
POINT pt;
GetCursorPos( &pt );
ScreenToClient( hwndDlg,&pt );
SetFocus( ChildWindowFromPoint( hwndDlg,pt )); //ugly hack because listviews ignore their first click
}
break;
*/ case WM_CLOSE:
{
HWND hwndList;
int count, i;
LVITEM lvi;
// Free lParam of the displayed list items
hwndList = GetDlgItem( hwndDlg, IDC_LIST );
count = ListView_GetItemCount( hwndList );
lvi.mask = LVIF_PARAM;
lvi.iSubItem = 0;
for ( i=0; i<count; i++ ) {
lvi.iItem = i;
if ( ListView_GetItem( hwndList, &lvi ) == TRUE ) {
if ( lvi.lParam!=( LPARAM )( -1 ) && lvi.lParam!=( LPARAM )( NULL )) {
mir_free(( void * ) lvi.lParam );
}
}
}
ListView_DeleteAllItems( hwndList );
CJabberProto* ppro = dat->ppro;
switch ( dat->type ) {
case MUC_VOICELIST:
ppro->m_hwndMucVoiceList = NULL;
break;
case MUC_MEMBERLIST:
ppro->m_hwndMucMemberList = NULL;
break;
case MUC_MODERATORLIST:
ppro->m_hwndMucModeratorList = NULL;
break;
case MUC_BANLIST:
ppro->m_hwndMucBanList = NULL;
break;
case MUC_ADMINLIST:
ppro->m_hwndMucAdminList = NULL;
break;
case MUC_OWNERLIST:
ppro->m_hwndMucOwnerList = NULL;
break;
}
DestroyWindow( hwndDlg );
}
break;
case WM_DESTROY:
// Clear GWL_USERDATA
if ( dat != NULL ) {
Utils_SaveWindowPosition(hwndDlg, NULL, dat->ppro->m_szModuleName, "jidListWnd_");
delete dat;
}
break;
}
return FALSE;
}
static void sttFillJidList(HWND hwndDlg)
{
JABBER_MUC_JIDLIST_INFO *jidListInfo;
HXML iqNode, queryNode;
const TCHAR* from, *jid, *reason, *nick;
LVITEM lvi;
HWND hwndList;
int count, i;
TCHAR *filter = NULL;
if (GetWindowLongPtr(GetDlgItem(hwndDlg, IDC_FILTER), GWLP_USERDATA))
{
int filterLength = GetWindowTextLength(GetDlgItem(hwndDlg, IDC_FILTER)) + 1;
filter = (TCHAR *)_alloca(filterLength * sizeof(TCHAR));
GetDlgItemText(hwndDlg, IDC_FILTER, filter, filterLength);
}
jidListInfo = ( JABBER_MUC_JIDLIST_INFO * ) GetWindowLongPtr( hwndDlg, GWLP_USERDATA );
if ( !jidListInfo )
return;
hwndList = GetDlgItem( hwndDlg, IDC_LIST );
SendMessage(hwndList, WM_SETREDRAW, FALSE, 0);
count = ListView_GetItemCount( hwndList );
lvi.mask = LVIF_PARAM;
lvi.iSubItem = 0;
for ( i=0; i<count; i++ ) {
lvi.iItem = i;
if ( ListView_GetItem( hwndList, &lvi ) == TRUE ) {
if ( lvi.lParam!=( LPARAM )( -1 ) && lvi.lParam!=( LPARAM )( NULL )) {
mir_free(( void * ) lvi.lParam );
}
}
}
ListView_DeleteAllItems( hwndList );
// Populate displayed list from iqNode
if (( iqNode = jidListInfo->iqNode ) != NULL ) {
if (( from = xmlGetAttrValue( iqNode, _T("from"))) != NULL ) {
if (( queryNode = xmlGetChild( iqNode , "query" )) != NULL ) {
lvi.mask = LVIF_TEXT | LVIF_PARAM;
lvi.iSubItem = 0;
lvi.iItem = 0;
for ( i=0; ; i++ ) {
HXML itemNode = xmlGetChild( queryNode ,i);
if ( !itemNode )
break;
if (( jid = xmlGetAttrValue( itemNode, _T("jid"))) != NULL ) {
lvi.pszText = ( TCHAR* )jid;
if ( jidListInfo->type == MUC_BANLIST ) {
if (( reason = xmlGetText(xmlGetChild( itemNode , "reason" ))) != NULL ) {
TCHAR jidreason[ JABBER_MAX_JID_LEN + 256 ];
mir_sntprintf( jidreason, SIZEOF( jidreason ), _T("%s (%s)") , jid, reason );
lvi.pszText = jidreason;
} }
if ( jidListInfo->type == MUC_VOICELIST || jidListInfo->type == MUC_MODERATORLIST ) {
if (( nick = xmlGetAttrValue( itemNode, _T("nick"))) != NULL ) {
TCHAR nickjid[ JABBER_MAX_JID_LEN + 256 ];
mir_sntprintf( nickjid, SIZEOF( nickjid ), _T("%s (%s)") , nick, jid );
lvi.pszText = nickjid;
} }
if (filter && *filter && !JabberStrIStr(lvi.pszText, filter))
continue;
lvi.lParam = ( LPARAM )mir_tstrdup( jid );
ListView_InsertItem( hwndList, &lvi );
lvi.iItem++;
} } } } }
lvi.mask = LVIF_PARAM;
lvi.lParam = ( LPARAM )( -1 );
ListView_InsertItem( hwndList, &lvi );
SendMessage(hwndList, WM_SETREDRAW, TRUE, 0);
RedrawWindow(hwndList, NULL, NULL, RDW_INVALIDATE);
}
virtual INT_PTR DlgProc(UINT msg, WPARAM wParam, LPARAM lParam)
{
switch(msg) {
case WM_CTLCOLORSTATIC:
switch(GetDlgCtrlID((HWND)lParam)) {
case IDC_WHITERECT: case IDC_INSTRUCTION: case IDC_TITLE:
return (INT_PTR)GetStockObject(WHITE_BRUSH);
default:
return NULL;
}
case WM_JABBER_REGINPUT_ACTIVATE:
if (wParam == 1) { // success
// lParam = <iq/> node from agent JID as a result of "get jabber:iq:register"
HWND hFrame = GetDlgItem(m_hwnd, IDC_FRAME);
ShowWindow(GetDlgItem(m_hwnd, IDC_FRAME_TEXT), SW_HIDE);
HXML queryNode, xNode;
if ((m_agentRegIqNode = (HXML)lParam) == NULL) return TRUE;
if ((queryNode = xmlGetChild(m_agentRegIqNode , "query")) == NULL) return TRUE;
RECT rect;
m_curPos = 0;
GetClientRect(GetDlgItem(m_hwnd, IDC_FRAME), &(m_frameRect));
GetClientRect(GetDlgItem(m_hwnd, IDC_VSCROLL), &rect);
m_frameRect.right -= (rect.right - rect.left);
GetClientRect(GetDlgItem(m_hwnd, IDC_FRAME), &rect);
m_frameHeight = rect.bottom - rect.top;
if ((xNode=xmlGetChild(queryNode , "x")) != NULL) {
// use new jabber:x:data form
if (LPCTSTR ptszInstr = xmlGetText( xmlGetChild(xNode, "instructions")))
JabberFormSetInstruction(m_hwnd, ptszInstr);
JabberFormCreateUI(hFrame, xNode, &m_formHeight /*dummy*/);
}
else {
// use old registration information form
HJFORMLAYOUT layout_info = JabberFormCreateLayout(hFrame);
for (int i=0; ; i++) {
HXML n = xmlGetChild(queryNode ,i);
if (n == NULL)
break;
if (xmlGetName(n)) {
if (!lstrcmp(xmlGetName(n), _T("instructions"))) {
JabberFormSetInstruction(m_hwnd, xmlGetText(n));
}
else if (!lstrcmp(xmlGetName(n), _T("key")) || !lstrcmp(xmlGetName(n), _T("registered"))) {
// do nothing
}
else if (!lstrcmp(xmlGetName(n), _T("password")))
JabberFormAppendControl(hFrame, layout_info, JFORM_CTYPE_TEXT_PRIVATE, xmlGetName(n), xmlGetText(n));
else // everything else is a normal text field
JabberFormAppendControl(hFrame, layout_info, JFORM_CTYPE_TEXT_SINGLE, xmlGetName(n), xmlGetText(n));
} }
JabberFormLayoutControls(hFrame, layout_info, &m_formHeight);
mir_free(layout_info);
}
if (m_formHeight > m_frameHeight) {
HWND hwndScroll;
hwndScroll = GetDlgItem(m_hwnd, IDC_VSCROLL);
EnableWindow(hwndScroll, TRUE);
SetScrollRange(hwndScroll, SB_CTL, 0, m_formHeight - m_frameHeight, FALSE);
m_curPos = 0;
}
EnableWindow(GetDlgItem(m_hwnd, IDC_SUBMIT), TRUE);
}
else if (wParam == 0) {
// lParam = error message
SetDlgItemText(m_hwnd, IDC_FRAME_TEXT, (LPCTSTR) lParam);
}
return TRUE;
case WM_VSCROLL:
int pos = m_curPos;
switch (LOWORD(wParam)) {
case SB_LINEDOWN: pos += 10; break;
case SB_LINEUP: pos -= 10; break;
case SB_PAGEDOWN: pos += (m_frameHeight - 10); break;
case SB_PAGEUP: pos -= (m_frameHeight - 10); break;
case SB_THUMBTRACK: pos = HIWORD(wParam); break;
}
if (pos > (m_formHeight - m_frameHeight))
pos = m_formHeight - m_frameHeight;
if (pos < 0)
pos = 0;
if (m_curPos != pos) {
ScrollWindow(GetDlgItem(m_hwnd, IDC_FRAME), 0, m_curPos - pos, NULL, &(m_frameRect));
SetScrollPos(GetDlgItem(m_hwnd, IDC_VSCROLL), SB_CTL, pos, TRUE);
m_curPos = pos;
} }
return CJabberDlgBase::DlgProc(msg, wParam, lParam);
}
