void CIcqProto::handleXtrazData(DWORD dwUin, DWORD dwMID, DWORD dwMID2, WORD wCookie, char* szMsg, int nMsgLen, BOOL bThruDC)
{
MCONTACT hContact;
char* szPluginID;
hContact = HContactFromUIN(dwUin, NULL);
if (hContact) // user sent us xtraz, he supports it
SetContactCapabilities(hContact, CAPF_XTRAZ);
szPluginID = getXmlPidItem(szMsg, nMsgLen);
if (!strcmpnull(szPluginID, "viewCard")) { // it is a greeting card
char *szWork, *szEnd, *szUrl, *szNum;
szWork = strstrnull(szMsg, "<InD>");
szEnd = strstrnull(szMsg, "</InD>");
if (szWork && szEnd) {
int nDataLen = szEnd - szWork;
szUrl = (char*)_alloca(nDataLen);
memcpy(szUrl, szWork + 5, nDataLen);
szUrl[nDataLen - 5] = '\0';
if (!_strnicmp(szUrl, "view_", 5)) {
szNum = szUrl + 5;
szWork = strstrnull(szUrl, ".html");
if (szWork) {
strcpy(szWork, ".php");
strcat(szWork, szWork + 5);
}
while (szWork = strstrnull(szUrl, "&")) // unescape & code
strcpy(szWork + 1, szWork + 5);
szWork = (char*)SAFE_MALLOC(nDataLen + MAX_PATH);
ICQTranslateUtfStatic(LPGEN("Greeting card:"), szWork, MAX_PATH);
strcat(szWork, "\r\nhttp://www.icq.com/friendship/pages/view_page_");
strcat(szWork, szNum);
// Create message to notify user
PROTORECVEVENT pre = { 0 };
pre.timestamp = time(NULL);
pre.szMessage = szWork;
pre.flags = PREF_UTF;
int bAdded;
ProtoChainRecvMsg(HContactFromUIN(dwUin, &bAdded), &pre);
SAFE_FREE(&szWork);
}
else NetLog_Uni(bThruDC, "Error: Non-standard greeting card message");
}
else NetLog_Uni(bThruDC, "Error: Malformed greeting card message");
}
else NetLog_Uni(bThruDC, "Error: Unknown plugin \"%s\" in Xtraz message", szPluginID);
SAFE_FREE(&szPluginID);
}
static char* getXmlPidItem(const char* szData, int nLen)
{
const char *szPid, *szEnd;
szPid = strstrnull(szData, "<PID>");
szEnd = strstrnull(szData, "</PID>");
if (szPid && szEnd) {
szPid += 5;
return DemangleXml(szPid, szEnd - szPid);
}
return NULL;
}
static char* AimApplyEncoding(char* pszStr, const char* pszEncoding)
{ // decode encoding to ANSI only
if (pszStr && pszEncoding)
{
const char *szEnc = strstrnull(pszEncoding, "charset=");
if (szEnc)
{ // decode custom encoding to Utf-8
char *szStr = ApplyEncoding(pszStr, szEnc + 9);
// decode utf-8 to ansi
char *szRes = NULL;
SAFE_FREE((void**)&pszStr);
utf8_decode(szStr, &szRes);
SAFE_FREE((void**)&szStr);
return szRes;
}
}
return pszStr;
}
void CIcqProto::handleXtrazNotify(DWORD dwUin, DWORD dwMID, DWORD dwMID2, WORD wCookie, char* szMsg, int nMsgLen, BOOL bThruDC)
{
char *szNotify = strstrnull(szMsg, "<NOTIFY>");
char *szQuery = strstrnull(szMsg, "<QUERY>");
MCONTACT hContact = HContactFromUIN(dwUin, NULL);
if (hContact) // user sent us xtraz, he supports it
SetContactCapabilities(hContact, CAPF_XTRAZ);
if (szNotify && szQuery) { // valid request
char *szWork, *szEnd;
int nNotifyLen, nQueryLen;
szNotify += 8;
szQuery += 7;
szEnd = strstrnull(szMsg, "</NOTIFY>");
if (!szEnd) szEnd = szMsg + nMsgLen;
nNotifyLen = (szEnd - szNotify);
szEnd = strstrnull(szMsg, "</QUERY>");
if (!szEnd) szEnd = szNotify;
szNotify = DemangleXml(szNotify, nNotifyLen);
nQueryLen = (szEnd - szQuery);
szQuery = DemangleXml(szQuery, nQueryLen);
szWork = strstrnull(szQuery, "<PluginID>");
szEnd = strstrnull(szQuery, "</PluginID>");
#ifdef _DEBUG
debugLogA("Query: %s", szQuery);
debugLogA("Notify: %s", szNotify);
#endif
if (szWork && szEnd) { // this is our plugin
szWork += 10;
*szEnd = '\0';
if (!stricmpnull(szWork, "srvMng") && strstrnull(szNotify, "AwayStat")) {
char *szSender = strstrnull(szNotify, "<senderId>");
char *szEndSend = strstrnull(szNotify, "</senderId>");
if (szSender && szEndSend) {
szSender += 10;
*szEndSend = '\0';
if ((DWORD)atoi(szSender) == dwUin) {
BYTE dwXId = m_bXStatusEnabled ? getContactXStatus(NULL) : 0;
if (dwXId && validateStatusMessageRequest(hContact, MTYPE_SCRIPT_NOTIFY)) { // apply privacy rules
NotifyEventHooks(m_modeMsgsEvent, (WPARAM)MTYPE_SCRIPT_NOTIFY, (LPARAM)dwUin);
char *tmp = getSettingStringUtf(NULL, DBSETTING_XSTATUS_NAME, "");
char *szXName = MangleXml(tmp, strlennull(tmp));
SAFE_FREE(&tmp);
tmp = getSettingStringUtf(NULL, DBSETTING_XSTATUS_MSG, "");
char *szXMsg = MangleXml(tmp, strlennull(tmp));
SAFE_FREE(&tmp);
int nResponseLen = 212 + strlennull(szXName) + strlennull(szXMsg) + UINMAXLEN + 2;
char *szResponse = (char*)_alloca(nResponseLen + 1);
// send response
mir_snprintf(szResponse, nResponseLen,
"<ret event=\"OnRemoteNotification\">"
"<srv><id>cAwaySrv</id>"
"<val srv_id=\"cAwaySrv\"><Root>"
"<CASXtraSetAwayMessage></CASXtraSetAwayMessage>"
"<uin>%d</uin>"
"<index>%d</index>"
"<title>%s</title>"
"<desc>%s</desc></Root></val></srv></ret>",
m_dwLocalUIN, dwXId, szXName, szXMsg);
SAFE_FREE(&szXName);
SAFE_FREE(&szXMsg);
struct rates_xstatus_response : public rates_queue_item {
protected:
virtual rates_queue_item* copyItem(rates_queue_item *aDest = NULL)
{
rates_xstatus_response *pDest = (rates_xstatus_response*)aDest;
if (!pDest)
pDest = new rates_xstatus_response(ppro, wGroup);
pDest->bThruDC = bThruDC;
pDest->dwMsgID1 = dwMsgID1;
pDest->dwMsgID2 = dwMsgID2;
pDest->wCookie = wCookie;
pDest->szResponse = null_strdup(szResponse);
return rates_queue_item::copyItem(pDest);
};
public:
rates_xstatus_response(CIcqProto *ppro, WORD wGroup) : rates_queue_item(ppro, wGroup), szResponse(NULL) {};
virtual ~rates_xstatus_response() { if (bCreated) SAFE_FREE(&szResponse); };
virtual void execute()
{
ppro->SendXtrazNotifyResponse(dwUin, dwMsgID1, dwMsgID2, wCookie, szResponse, strlennull(szResponse), bThruDC);
};
BOOL bThruDC;
DWORD dwMsgID1;
DWORD dwMsgID2;
WORD wCookie;
char *szResponse;
};
m_ratesMutex->Enter();
WORD wGroup = m_rates->getGroupFromSNAC(ICQ_MSG_FAMILY, ICQ_MSG_RESPONSE);
m_ratesMutex->Leave();
rates_xstatus_response rr(this, wGroup);
rr.hContact = hContact;
rr.dwUin = dwUin;
rr.bThruDC = bThruDC;
rr.dwMsgID1 = dwMID;
rr.dwMsgID2 = dwMID2;
rr.wCookie = wCookie;
rr.szResponse = szResponse;
handleRateItem(&rr, RQT_RESPONSE, 0, !bThruDC);
}
else if (dwXId)
debugLogA("Privacy: Ignoring XStatus request");
else
debugLogA("Error: We are not in XStatus, skipping");
}
else
debugLogA("Error: Invalid sender information");
}
else
debugLogA("Error: Missing sender information");
}
else
debugLogA("Error: Unknown plugin \"%s\" in Xtraz message", szWork);
}
else
debugLogA("Error: Missing PluginID in Xtraz message");
SAFE_FREE(&szNotify);
SAFE_FREE(&szQuery);
}
else
debugLogA("Error: Invalid Xtraz Notify message");
}
void CIcqProto::handleXtrazNotifyResponse(DWORD dwUin, MCONTACT hContact, WORD wCookie, char* szMsg, int nMsgLen)
{
char *szMem, *szRes, *szEnd;
int nResLen;
#ifdef _DEBUG
debugLogA("Received Xtraz Notify Response");
#endif
szRes = strstrnull(szMsg, "<RES>");
szEnd = strstrnull(szMsg, "</RES>");
if (szRes && szEnd) { // valid response
char *szNode, *szWork;
szRes += 5;
nResLen = szEnd - szRes;
szMem = szRes = DemangleXml(szRes, nResLen);
#ifdef _DEBUG
debugLogA("Response: %s", szRes);
#endif
ProtoBroadcastAck(hContact, ICQACKTYPE_XTRAZNOTIFY_RESPONSE, ACKRESULT_SUCCESS, (HANDLE)wCookie, (LPARAM)szRes);
NextVal:
szNode = strstrnull(szRes, "<val srv_id=");
if (szNode) szEnd = strstrnull(szNode, ">"); else szEnd = NULL;
if (szNode && szEnd) {
*(szEnd - 1) = '\0';
szNode += 13; //one more than the length of the string to skip ' or " too
szWork = szEnd + 1;
if (!stricmpnull(szNode, "cAwaySrv")) {
int bChanged = FALSE;
*szEnd = ' ';
szNode = strstrnull(szWork, "<index>");
szEnd = strstrnull(szWork, "</index>");
if (szNode && szEnd) {
szNode += 7;
*szEnd = '\0';
if (atoi(szNode) != getContactXStatus(hContact)) { // this is strange - but go on
debugLogA("Warning: XStatusIds do not match!");
}
*szEnd = ' ';
}
szNode = strstrnull(szWork, "<title>");
szEnd = strstrnull(szWork, "</title>");
if (szNode && szEnd) { // we got XStatus title, save it
char *szXName, *szOldXName;
szNode += 7;
*szEnd = '\0';
szXName = DemangleXml(szNode, strlennull(szNode));
// check if the name changed
szOldXName = getSettingStringUtf(hContact, DBSETTING_XSTATUS_NAME, NULL);
if (strcmpnull(szOldXName, szXName))
bChanged = TRUE;
SAFE_FREE(&szOldXName);
db_set_utf(hContact, m_szModuleName, DBSETTING_XSTATUS_NAME, szXName);
SAFE_FREE(&szXName);
*szEnd = ' ';
}
szNode = strstrnull(szWork, "<desc>");
szEnd = strstrnull(szWork, "</desc>");
if (szNode && szEnd) { // we got XStatus mode msg, save it
char *szXMsg, *szOldXMsg;
szNode += 6;
*szEnd = '\0';
szXMsg = DemangleXml(szNode, strlennull(szNode));
// check if the decription changed
szOldXMsg = getSettingStringUtf(hContact, DBSETTING_XSTATUS_NAME, NULL);
if (strcmpnull(szOldXMsg, szXMsg))
bChanged = TRUE;
SAFE_FREE(&szOldXMsg);
db_set_utf(hContact, m_szModuleName, DBSETTING_XSTATUS_MSG, szXMsg);
SAFE_FREE(&szXMsg);
}
ProtoBroadcastAck(hContact, ICQACKTYPE_XSTATUS_RESPONSE, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0);
}
else {
char *szSrvEnd = strstrnull(szEnd, "</srv>");
if (szSrvEnd && strstrnull(szSrvEnd, "<val srv_id=")) { // check all values !
szRes = szSrvEnd + 6; // after first value
goto NextVal;
}
// no next val, we were unable to handle packet, write error
debugLogA("Error: Unknown serverId \"%s\" in Xtraz response", szNode);
}
}
else
debugLogA("Error: Missing serverId in Xtraz response");
SAFE_FREE(&szMem);
}
else
debugLogA("Error: Invalid Xtraz Notify response");
}