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;
}
INT_PTR __cdecl CVkProto::SvcSetStatusMsg(WPARAM, LPARAM)
{
debugLogA("CVkProto::SvcSetStatusMsg");
if (!IsOnline())
return 1;
MsgPopup(NULL, TranslateT("Loading status message from vk.com.\nThis may take some time."), TranslateT("Waiting..."));
Push(new AsyncHttpRequest(this, REQUEST_GET, "/method/status.get.json", true, &CVkProto::OnReceiveStatusMsg));
return 0;
}
void CVkProto::OnReceiveDeleteFriend(NETLIBHTTPREQUEST* reply, AsyncHttpRequest* pReq)
{
debugLogA("CVkProto::OnReceiveDeleteFriend %d", reply->resultCode);
CVkSendMsgParam *param = (CVkSendMsgParam*)pReq->pUserInfo;
if (reply->resultCode == 200 && param) {
JSONNode jnRoot;
const JSONNode &jnResponse = CheckJsonResponse(pReq, reply, jnRoot);
if (jnResponse) {
CMString tszNick(ptrT(db_get_tsa(param->hContact, m_szModuleName, "Nick")));
if (tszNick.IsEmpty())
tszNick = TranslateT("(Unknown contact)");
CMString msgformat, msg;
if (jnResponse["success"].as_bool()) {
if (jnResponse["friend_deleted"].as_bool())
msgformat = TranslateT("User %s was deleted from your friend list");
else if (jnResponse["out_request_deleted"].as_bool())
msgformat = TranslateT("Your request to the user %s was deleted");
else if (jnResponse["in_request_deleted"].as_bool())
msgformat = TranslateT("Friend request from the user %s declined");
else if (jnResponse["suggestion_deleted"].as_bool())
msgformat = TranslateT("Friend request suggestion for the user %s deleted");
msg.AppendFormat(msgformat, tszNick);
MsgPopup(param->hContact, msg, tszNick);
setByte(param->hContact, "Auth", 1);
}
else {
msg = TranslateT("User or request was not deleted");
MsgPopup(param->hContact, msg, tszNick);
}
}
}
if (param && (!pReq->bNeedsRestart || m_bTerminated)) {
delete param;
pReq->pUserInfo = NULL;
}
}
void CVkProto::OnReceiveAuthRequest(NETLIBHTTPREQUEST *reply, AsyncHttpRequest *pReq)
{
debugLogA("CVkProto::OnReceiveAuthRequest %d", reply->resultCode);
CVkSendMsgParam *param = (CVkSendMsgParam*)pReq->pUserInfo;
if (reply->resultCode == 200 && param) {
JSONNode jnRoot;
const JSONNode &jnResponse = CheckJsonResponse(pReq, reply, jnRoot);
if (jnResponse) {
int iRet = jnResponse.as_int();
setByte(param->hContact, "Auth", 0);
if (iRet == 2) {
CMString msg,
tszNick(ptrT(db_get_tsa(param->hContact, m_szModuleName, "Nick")));
if (tszNick.IsEmpty())
tszNick = TranslateT("(Unknown contact)");
msg.AppendFormat(TranslateT("User %s added as friend"), tszNick);
MsgPopup(param->hContact, msg, tszNick);
}
}
else {
switch (pReq->m_iErrorCode) {
case VKERR_HIMSELF_AS_FRIEND:
MsgPopup(param->hContact, TranslateT("You cannot add yourself as friend"), TranslateT("Error"), true);
break;
case VKERR_YOU_ON_BLACKLIST:
MsgPopup(param->hContact, TranslateT("Cannot add this user to friends as they have put you on their blacklist"), TranslateT("Error"), true);
break;
case VKERR_USER_ON_BLACKLIST:
MsgPopup(param->hContact, TranslateT("Cannot add this user to friends as you put him on blacklist"), TranslateT("Error"), true);
break;
}
}
}
if (param && (!pReq->bNeedsRestart || m_bTerminated)) {
delete param;
pReq->pUserInfo = NULL;
}
}
void CVkProto::AddFeedEvent(CVKNewsItem& vkNewsItem)
{
if (vkNewsItem.tszText.IsEmpty())
return;
MCONTACT hContact = FindUser(VK_FEED_USER, true);
T2Utf pszBody(vkNewsItem.tszText);
PROTORECVEVENT recv = { 0 };
recv.timestamp = vkNewsItem.tDate;
recv.szMessage = pszBody;
recv.lParam = 0;
recv.pCustomData = NULL;
recv.cbCustomDataSize = 0;
if (m_bUseNonStandardNotifications) {
recv.flags = PREF_CREATEREAD;
MsgPopup(hContact, vkNewsItem.tszPopupText, vkNewsItem.tszPopupTitle);
}
ProtoChainRecvMsg(hContact, &recv);
}
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 CVkProto::SendFileFiled(CVkFileUploadParam *fup, int ErrorCode)
{
CMString tszError;
switch (ErrorCode) {
case VKERR_OFFLINE:
tszError = TranslateT("Protocol is offline");
break;
case VKERR_FILE_NOT_EXIST:
tszError = TranslateT("File does not exist");
break;
case VKERR_FTYPE_NOT_SUPPORTED:
tszError = TranslateT("File type not supported");
break;
case VKERR_ERR_OPEN_FILE:
tszError = TranslateT("Error open file");
break;
case VKERR_ERR_READ_FILE:
tszError = TranslateT("Error read file");
break;
case VKERR_FILE_NOT_UPLOADED:
tszError = TranslateT("File upload error");
break;
case VKERR_INVALID_URL:
tszError = TranslateT("Upload server returned empty URL");
break;
case VKERR_INVALID_USER:
tszError = TranslateT("Invalid or unknown recipient user ID");
break;
case VKERR_INVALID_PARAMETERS:
tszError = TranslateT("One of the parameters specified was missing or invalid");
break;
case VKERR_COULD_NOT_SAVE_FILE:
tszError = TranslateT("Couldn't save file");
break;
case VKERR_INVALID_ALBUM_ID:
tszError = TranslateT("Invalid album id");
break;
case VKERR_INVALID_SERVER:
tszError = TranslateT("Invalid server");
break;
case VKERR_INVALID_HASH:
tszError = TranslateT("Invalid hash");
break;
case VKERR_INVALID_AUDIO:
tszError = TranslateT("Invalid audio");
break;
case VKERR_AUDIO_DEL_COPYRIGHT:
tszError = TranslateT("The audio file was removed by the copyright holder and cannot be reuploaded");
break;
case VKERR_INVALID_FILENAME:
tszError = TranslateT("Invalid filename");
break;
case VKERR_INVALID_FILESIZE:
tszError = TranslateT("Invalid filesize");
break;
default:
tszError = TranslateT("Unknown error occurred");
}
ProtoBroadcastAck(fup->hContact, ACKTYPE_FILE, ErrorCode== VKERR_AUDIO_DEL_COPYRIGHT ? ACKRESULT_DENIED : ACKRESULT_FAILED, (HANDLE)fup);
debugLog(_T("CVkProto::SendFileFiled error code = %d (%s)"), ErrorCode, tszError);
MsgPopup(NULL, tszError, TranslateT("File upload error"), true);
delete fup;
}
void CVkProto::OnReceiveHistoryMessages(NETLIBHTTPREQUEST *reply, AsyncHttpRequest *pReq)
{
debugLogA("CVkProto::OnReceiveHistoryMessages %d", reply->resultCode);
if (reply->resultCode != 200 || !pReq->pUserInfo) {
mir_cslock lck(m_csLoadHistoryTask);
if (m_iLoadHistoryTask > 0)
m_iLoadHistoryTask--;
debugLog(_T("CVkProto::OnReceiveHistoryMessages error m_iLoadHistoryTask=%d"), m_iLoadHistoryTask);
MsgPopup(NULL, TranslateT("Error loading message history from server"), TranslateT("Error"), true);
if (m_iLoadHistoryTask == 0 && m_bNotifyForEndLoadingHistoryAllContact) {
MsgPopup(NULL, TranslateT("Loading messages for all contacts is completed"), TranslateT("Loading history"));
m_bNotifyForEndLoadingHistoryAllContact = m_bNotifyForEndLoadingHistory = false;
}
return;
}
JSONNode jnRoot;
CVkSendMsgParam *param = (CVkSendMsgParam*)pReq->pUserInfo;
const JSONNode &jnResponse = CheckJsonResponse(pReq, reply, jnRoot);
if (!jnResponse) {
if (!pReq->bNeedsRestart || m_bTerminated) {
mir_cslock lck(m_csLoadHistoryTask);
if (m_iLoadHistoryTask > 0)
m_iLoadHistoryTask--;
ptrT ptszNick(db_get_tsa(param->hContact, m_szModuleName, "Nick"));
CMString str(FORMAT, _T("%s %s %s"), TranslateT("Error loading message history from server"), TranslateT("for"), ptszNick);
MsgPopup(param->hContact, str, TranslateT("Error"), true);
debugLog(_T("CVkProto::OnReceiveHistoryMessages error for %s m_iLoadHistoryTask=%d"), ptszNick, m_iLoadHistoryTask);
if (m_iLoadHistoryTask == 0 && m_bNotifyForEndLoadingHistoryAllContact) {
MsgPopup(NULL, TranslateT("Loading messages for all contacts is completed"), TranslateT("Loading history"));
m_bNotifyForEndLoadingHistoryAllContact = m_bNotifyForEndLoadingHistory = false;
}
delete param;
pReq->pUserInfo = NULL;
}
return;
}
int iTime = jnResponse["datetime"].as_int();
const JSONNode &jnMsgs = jnResponse["items"];
const JSONNode &jnFUsers = jnResponse["fwd_users"];
int iLastMsgId = getDword(param->hContact, "lastmsgid", -1);
time_t tLastReadMessageTime = 0;
int count = 0;
for (auto it = jnMsgs.rbegin(); it != jnMsgs.rend(); ++it) {
const JSONNode &jnMsg = (*it);
int mid = jnMsg["id"].as_int();
if (iLastMsgId < mid)
iLastMsgId = mid;
char szMid[40];
_itoa(mid, szMid, 10);
CMString tszBody(jnMsg["body"].as_mstring());
int datetime = jnMsg["date"].as_int();
int isOut = jnMsg["out"].as_int();
int isRead = jnMsg["read_state"].as_int();
int uid = jnMsg["user_id"].as_int();
const JSONNode &jnFwdMessages = jnMsg["fwd_messages"];
if (jnFwdMessages) {
CMString tszFwdMessages = GetFwdMessages(jnFwdMessages, jnFUsers, m_vkOptions.BBCForAttachments());
if (!tszBody.IsEmpty())
tszFwdMessages = _T("\n") + tszFwdMessages;
tszBody += tszFwdMessages;
}
const JSONNode &jnAttachments = jnMsg["attachments"];
if (jnAttachments) {
CMString tszAttachmentDescr = GetAttachmentDescr(jnAttachments, m_vkOptions.BBCForAttachments());
if (!tszBody.IsEmpty())
tszAttachmentDescr = _T("\n") + tszAttachmentDescr;
tszBody += tszAttachmentDescr;
}
T2Utf pszBody(tszBody);
MCONTACT hContact = FindUser(uid, true);
PROTORECVEVENT recv = { 0 };
if (isRead)
recv.flags |= PREF_CREATEREAD;
if (isOut)
recv.flags |= PREF_SENT;
recv.timestamp = datetime;
recv.szMessage = pszBody;
recv.lParam = isOut;
recv.pCustomData = szMid;
recv.cbCustomDataSize = (int)mir_strlen(szMid);
ProtoChainRecvMsg(hContact, &recv);
if (isRead && isOut && datetime > tLastReadMessageTime)
tLastReadMessageTime = datetime;
count++;
}
setDword(param->hContact, "lastmsgid", iLastMsgId);
if (ServiceExists(MS_MESSAGESTATE_UPDATE)) {
MessageReadData data(tLastReadMessageTime, MRD_TYPE_MESSAGETIME);
CallService(MS_MESSAGESTATE_UPDATE, param->hContact, (LPARAM)&data);
}
int once = jnResponse["once"].as_int();
int iRCount = jnResponse["rcount"].as_int();
if (count == iRCount && once == 0)
GetServerHistory(param->hContact, param->iCount + count, iRCount, iTime, param->iMsgID);
else {
mir_cslock lck(m_csLoadHistoryTask);
if (m_iLoadHistoryTask > 0)
m_iLoadHistoryTask--;
ptrT ptszNick(db_get_tsa(param->hContact, m_szModuleName, "Nick"));
CMString str(FORMAT, TranslateT("Loading messages for %s is completed"), ptszNick);
debugLog(_T("CVkProto::OnReceiveHistoryMessages for %s m_iLoadHistoryTask=%d"), ptszNick, m_iLoadHistoryTask);
if (m_bNotifyForEndLoadingHistory)
MsgPopup(param->hContact, str, TranslateT("Loading history"));
if (m_iLoadHistoryTask == 0 && m_bNotifyForEndLoadingHistoryAllContact) {
MsgPopup(NULL, TranslateT("Loading messages for all contacts is completed"), TranslateT("Loading history"));
m_bNotifyForEndLoadingHistoryAllContact = m_bNotifyForEndLoadingHistory = false;
}
}
if (!pReq->bNeedsRestart || m_bTerminated) {
delete param;
pReq->pUserInfo = NULL;
}
}
