char *TlenAdvSearchCreateQuery(HWND hwndDlg, int iqId)
{
char *str;
int strSize;
if (hwndDlg == NULL) return NULL;
str = NULL;
FetchField(hwndDlg, IDC_FIRSTNAME, "first", &str, &strSize);
FetchField(hwndDlg, IDC_LASTNAME, "last", &str, &strSize);
FetchField(hwndDlg, IDC_NICK, "nick", &str, &strSize);
FetchField(hwndDlg, IDC_EMAIL, "email", &str, &strSize);
FetchCombo(hwndDlg, IDC_GENDER, "s", &str, &strSize);
FetchField(hwndDlg, IDC_AGEFROM, "d", &str, &strSize);
FetchField(hwndDlg, IDC_AGETO, "u", &str, &strSize);
FetchField(hwndDlg, IDC_CITY, "c", &str, &strSize);
FetchCombo(hwndDlg, IDC_OCCUPATION, "j", &str, &strSize);
FetchField(hwndDlg, IDC_SCHOOL, "e", &str, &strSize);
FetchCombo(hwndDlg, IDC_STATUS, "m", &str, &strSize);
FetchCombo(hwndDlg, IDC_LOOKFOR, "r", &str, &strSize);
FetchCombo(hwndDlg, IDC_PLAN, "p", &str, &strSize);
return str;
}
static INT_PTR CALLBACK TlenUserInfoDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
TLENUSERINFODLGDATA *data = (TLENUSERINFODLGDATA *) GetWindowLongPtr(hwndDlg, GWLP_USERDATA);
switch (msg) {
case WM_INITDIALOG:
data = (TLENUSERINFODLGDATA*)mir_alloc(sizeof(TLENUSERINFODLGDATA));
data->hContact = (MCONTACT) lParam;
SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR)data);
// lParam is hContact
TranslateDialogDefault(hwndDlg);
InitComboBox(GetDlgItem(hwndDlg, IDC_GENDER), tlenFieldGender);
InitComboBox(GetDlgItem(hwndDlg, IDC_OCCUPATION), tlenFieldOccupation);
InitComboBox(GetDlgItem(hwndDlg, IDC_LOOKFOR), tlenFieldLookfor);
return TRUE;
case WM_TLEN_REFRESH:
{
DBVARIANT dbv;
char *jid;
int i;
TLEN_LIST_ITEM *item;
SetDlgItemText(hwndDlg, IDC_INFO_JID, _T(""));
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, _T(""));
SetFocus(GetDlgItem(hwndDlg, IDC_STATIC));
if (!db_get_ts(data->hContact, data->proto->m_szModuleName, "FirstName", &dbv)) {
SetDlgItemText(hwndDlg, IDC_FIRSTNAME, dbv.ptszVal);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_FIRSTNAME, _T(""));
if (!db_get_ts(data->hContact, data->proto->m_szModuleName, "LastName", &dbv)) {
SetDlgItemText(hwndDlg, IDC_LASTNAME, dbv.ptszVal);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_LASTNAME, _T(""));
if (!db_get_ts(data->hContact, data->proto->m_szModuleName, "Nick", &dbv)) {
SetDlgItemText(hwndDlg, IDC_NICKNAME, dbv.ptszVal);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_NICKNAME, _T(""));
if (!db_get_ts(data->hContact, data->proto->m_szModuleName, "e-mail", &dbv)) {
SetDlgItemText(hwndDlg, IDC_EMAIL, dbv.ptszVal);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_EMAIL, _T(""));
if (!db_get(data->hContact, data->proto->m_szModuleName, "Age", &dbv)) {
SetDlgItemInt(hwndDlg, IDC_AGE, dbv.wVal, FALSE);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_AGE, _T(""));
if (!db_get_ts(data->hContact, data->proto->m_szModuleName, "City", &dbv)) {
SetDlgItemText(hwndDlg, IDC_CITY, dbv.ptszVal);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_CITY, _T(""));
if (!db_get_ts(data->hContact, data->proto->m_szModuleName, "School", &dbv)) {
SetDlgItemText(hwndDlg, IDC_SCHOOL, dbv.ptszVal);
db_free(&dbv);
} else SetDlgItemText(hwndDlg, IDC_SCHOOL, _T(""));
switch (db_get_b(data->hContact, data->proto->m_szModuleName, "Gender", '?')) {
case 'M':
SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_SETCURSEL, 1, 0);
SetDlgItemText(hwndDlg, IDC_GENDER_TEXT, TranslateTS(tlenFieldGender[0].name));
break;
case 'F':
SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_SETCURSEL, 2, 0);
SetDlgItemText(hwndDlg, IDC_GENDER_TEXT, TranslateTS(tlenFieldGender[1].name));
break;
default:
SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_SETCURSEL, 0, 0);
SetDlgItemText(hwndDlg, IDC_GENDER_TEXT, _T(""));
break;
}
i = db_get_w(data->hContact, data->proto->m_szModuleName, "Occupation", 0);
if (i>0 && i<13) {
SetDlgItemText(hwndDlg, IDC_OCCUPATION_TEXT, TranslateTS(tlenFieldOccupation[i-1].name));
SendDlgItemMessage(hwndDlg, IDC_OCCUPATION, CB_SETCURSEL, i, 0);
} else {
SetDlgItemText(hwndDlg, IDC_OCCUPATION_TEXT, _T(""));
SendDlgItemMessage(hwndDlg, IDC_OCCUPATION, CB_SETCURSEL, 0, 0);
}
i = db_get_w(data->hContact, data->proto->m_szModuleName, "LookingFor", 0);
if (i>0 && i<6) {
SetDlgItemText(hwndDlg, IDC_LOOKFOR_TEXT, TranslateTS(tlenFieldLookfor[i-1].name));
SendDlgItemMessage(hwndDlg, IDC_LOOKFOR, CB_SETCURSEL, i, 0);
} else {
SetDlgItemText(hwndDlg, IDC_LOOKFOR_TEXT, _T(""));
SendDlgItemMessage(hwndDlg, IDC_LOOKFOR, CB_SETCURSEL, 0, 0);
}
i = db_get_w(data->hContact, data->proto->m_szModuleName, "VoiceChat", 0);
CheckDlgButton(hwndDlg, IDC_VOICECONVERSATIONS, i ? BST_CHECKED : BST_UNCHECKED);
i = db_get_w(data->hContact, data->proto->m_szModuleName, "PublicStatus", 0);
CheckDlgButton(hwndDlg, IDC_PUBLICSTATUS, i ? BST_CHECKED : BST_UNCHECKED);
if (!db_get(data->hContact, data->proto->m_szModuleName, "jid", &dbv)) {
jid = TlenTextDecode(dbv.pszVal);
SetDlgItemTextA(hwndDlg, IDC_INFO_JID, jid);
mir_free(jid);
jid = dbv.pszVal;
if (data->proto->isOnline) {
if ((item=TlenListGetItemPtr(data->proto, LIST_ROSTER, jid)) != NULL) {
switch (item->subscription) {
case SUB_BOTH:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, TranslateT("both"));
break;
case SUB_TO:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, TranslateT("to"));
break;
case SUB_FROM:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, TranslateT("from"));
break;
default:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, TranslateT("none"));
break;
}
SetDlgItemTextA(hwndDlg, IDC_SOFTWARE, item->software);
SetDlgItemTextA(hwndDlg, IDC_VERSION, item->version);
SetDlgItemTextA(hwndDlg, IDC_SYSTEM, item->system);
} else {
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, TranslateT("not on roster"));
}
}
db_free(&dbv);
}
}
break;
case WM_NOTIFY:
switch (((LPNMHDR)lParam)->idFrom) {
case 0:
switch (((LPNMHDR)lParam)->code) {
case PSN_INFOCHANGED:
{
MCONTACT hContact = (MCONTACT) ((LPPSHNOTIFY) lParam)->lParam;
SendMessage(hwndDlg, WM_TLEN_REFRESH, 0, (LPARAM) hContact);
}
break;
case PSN_PARAMCHANGED:
{
data->proto = ( TlenProtocol* )(( LPPSHNOTIFY )lParam )->lParam;
SendMessage(hwndDlg, WM_TLEN_REFRESH, 0, 0);
}
}
break;
}
break;
case WM_COMMAND:
if (LOWORD(wParam) == IDC_SAVE && HIWORD(wParam) == BN_CLICKED) {
char *str = NULL;
int strSize;
TlenStringAppend(&str, &strSize, "<iq type='set' id='" TLEN_IQID "%d' to='tuba'><query xmlns='jabber:iq:register'>", TlenSerialNext(data->proto));
FetchField(hwndDlg, IDC_FIRSTNAME, "first", &str, &strSize);
FetchField(hwndDlg, IDC_LASTNAME, "last", &str, &strSize);
FetchField(hwndDlg, IDC_NICKNAME, "nick", &str, &strSize);
FetchField(hwndDlg, IDC_EMAIL, "email", &str, &strSize);
FetchCombo(hwndDlg, IDC_GENDER, "s", &str, &strSize);
FetchField(hwndDlg, IDC_AGE, "b", &str, &strSize);
FetchField(hwndDlg, IDC_CITY, "c", &str, &strSize);
FetchCombo(hwndDlg, IDC_OCCUPATION, "j", &str, &strSize);
FetchField(hwndDlg, IDC_SCHOOL, "e", &str, &strSize);
FetchCombo(hwndDlg, IDC_LOOKFOR, "r", &str, &strSize);
TlenStringAppend(&str, &strSize, "<g>%d</g>", IsDlgButtonChecked(hwndDlg, IDC_VOICECONVERSATIONS) ? 1 : 0);
TlenStringAppend(&str, &strSize, "<v>%d</v>", IsDlgButtonChecked(hwndDlg, IDC_PUBLICSTATUS) ? 1 : 0);
TlenStringAppend(&str, &strSize, "</query></iq>");
TlenSend(data->proto, "%s", str);
mir_free(str);
data->proto->GetInfo(NULL, 0);
}
break;
case WM_DESTROY:
mir_free(data);
break;
}
return FALSE;
}
static BOOL CALLBACK TlenUserInfoDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
switch (msg) {
case WM_INITDIALOG:
// lParam is hContact
TranslateDialogDefault(hwndDlg);
SetWindowLong(hwndDlg, GWL_USERDATA, (LONG)(HANDLE) lParam);
InitComboBox(GetDlgItem(hwndDlg, IDC_GENDER), tlenFieldGender);
InitComboBox(GetDlgItem(hwndDlg, IDC_OCCUPATION), tlenFieldOccupation);
InitComboBox(GetDlgItem(hwndDlg, IDC_LOOKFOR), tlenFieldLookfor);
SendMessage(hwndDlg, WM_JABBER_REFRESH, 0, 0);
return TRUE;
case WM_JABBER_REFRESH:
{
DBVARIANT dbv;
HANDLE hContact;
char *jid;
int i;
JABBER_LIST_ITEM *item;
JabberLog("refresh");
SetDlgItemText(hwndDlg, IDC_INFO_JID, "");
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, "");
SetFocus(GetDlgItem(hwndDlg, IDC_STATIC));
hContact = (HANDLE) GetWindowLong(hwndDlg, GWL_USERDATA);
if (!DBGetContactSetting(hContact, jabberProtoName, "FirstName", &dbv)) {
SetDlgItemText(hwndDlg, IDC_FIRSTNAME, dbv.pszVal);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_FIRSTNAME, "");
if (!DBGetContactSetting(hContact, jabberProtoName, "LastName", &dbv)) {
SetDlgItemText(hwndDlg, IDC_LASTNAME, dbv.pszVal);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_LASTNAME, "");
if (!DBGetContactSetting(hContact, jabberProtoName, "Nick", &dbv)) {
SetDlgItemText(hwndDlg, IDC_NICKNAME, dbv.pszVal);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_NICKNAME, "");
if (!DBGetContactSetting(hContact, jabberProtoName, "e-mail", &dbv)) {
SetDlgItemText(hwndDlg, IDC_EMAIL, dbv.pszVal);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_EMAIL, "");
if (!DBGetContactSetting(hContact, jabberProtoName, "Age", &dbv)) {
SetDlgItemInt(hwndDlg, IDC_AGE, dbv.wVal, FALSE);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_AGE, "");
if (!DBGetContactSetting(hContact, jabberProtoName, "City", &dbv)) {
SetDlgItemText(hwndDlg, IDC_CITY, dbv.pszVal);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_CITY, "");
if (!DBGetContactSetting(hContact, jabberProtoName, "School", &dbv)) {
SetDlgItemText(hwndDlg, IDC_SCHOOL, dbv.pszVal);
DBFreeVariant(&dbv);
} else SetDlgItemText(hwndDlg, IDC_SCHOOL, "");
switch (DBGetContactSettingByte(hContact, jabberProtoName, "Gender", '?')) {
case 'M':
SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_SETCURSEL, 1, 0);
SetDlgItemText(hwndDlg, IDC_GENDER_TEXT, Translate(tlenFieldGender[0].name));
break;
case 'F':
SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_SETCURSEL, 2, 0);
SetDlgItemText(hwndDlg, IDC_GENDER_TEXT, Translate(tlenFieldGender[1].name));
break;
default:
SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_SETCURSEL, 0, 0);
SetDlgItemText(hwndDlg, IDC_GENDER_TEXT, "");
break;
}
i = DBGetContactSettingWord(hContact, jabberProtoName, "Occupation", 0);
if (i>0 && i<13) {
SetDlgItemText(hwndDlg, IDC_OCCUPATION_TEXT, Translate(tlenFieldOccupation[i-1].name));
SendDlgItemMessage(hwndDlg, IDC_OCCUPATION, CB_SETCURSEL, i, 0);
} else {
SetDlgItemText(hwndDlg, IDC_OCCUPATION_TEXT, "");
SendDlgItemMessage(hwndDlg, IDC_OCCUPATION, CB_SETCURSEL, 0, 0);
}
i = DBGetContactSettingWord(hContact, jabberProtoName, "LookingFor", 0);
if (i>0 && i<6) {
SetDlgItemText(hwndDlg, IDC_LOOKFOR_TEXT, Translate(tlenFieldLookfor[i-1].name));
SendDlgItemMessage(hwndDlg, IDC_LOOKFOR, CB_SETCURSEL, i, 0);
} else {
SetDlgItemText(hwndDlg, IDC_LOOKFOR_TEXT, "");
SendDlgItemMessage(hwndDlg, IDC_LOOKFOR, CB_SETCURSEL, 0, 0);
}
i = DBGetContactSettingWord(hContact, jabberProtoName, "VoiceChat", 0);
CheckDlgButton(hwndDlg, IDC_VOICECONVERSATIONS, i);
i = DBGetContactSettingWord(hContact, jabberProtoName, "PublicStatus", 0);
CheckDlgButton(hwndDlg, IDC_PUBLICSTATUS, i);
if (!DBGetContactSetting(hContact, jabberProtoName, "jid", &dbv)) {
jid = JabberTextDecode(dbv.pszVal);
SetDlgItemText(hwndDlg, IDC_INFO_JID, jid);
free(jid);
jid = dbv.pszVal;
if (jabberOnline) {
if ((item=JabberListGetItemPtr(LIST_ROSTER, jid)) != NULL) {
switch (item->subscription) {
case SUB_BOTH:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, Translate("both"));
break;
case SUB_TO:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, Translate("to"));
break;
case SUB_FROM:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, Translate("from"));
break;
default:
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, Translate("none"));
break;
}
SetDlgItemTextA(hwndDlg, IDC_SOFTWARE, item->software);
SetDlgItemTextA(hwndDlg, IDC_VERSION, item->version);
SetDlgItemTextA(hwndDlg, IDC_SYSTEM, item->system);
} else {
SetDlgItemText(hwndDlg, IDC_SUBSCRIPTION, Translate("not on roster"));
}
}
DBFreeVariant(&dbv);
}
}
break;
case WM_NOTIFY:
switch (((LPNMHDR)lParam)->idFrom) {
case 0:
switch (((LPNMHDR)lParam)->code) {
case PSN_INFOCHANGED:
{
HANDLE hContact = (HANDLE) ((LPPSHNOTIFY) lParam)->lParam;
SendMessage(hwndDlg, WM_JABBER_REFRESH, 0, (LPARAM) hContact);
}
break;
}
break;
}
break;
case WM_COMMAND:
if (LOWORD(wParam)==IDC_SAVE && HIWORD(wParam)==BN_CLICKED) {
char *str = NULL;
int strSize;
CCSDATA ccs = {0};
JabberStringAppend(&str, &strSize, "<iq type='set' id='"JABBER_IQID"%d' to='tuba'><query xmlns='jabber:iq:register'>", JabberSerialNext());
FetchField(hwndDlg, IDC_FIRSTNAME, "first", &str, &strSize);
FetchField(hwndDlg, IDC_LASTNAME, "last", &str, &strSize);
FetchField(hwndDlg, IDC_NICKNAME, "nick", &str, &strSize);
FetchField(hwndDlg, IDC_EMAIL, "email", &str, &strSize);
FetchCombo(hwndDlg, IDC_GENDER, "s", &str, &strSize);
FetchField(hwndDlg, IDC_AGE, "b", &str, &strSize);
FetchField(hwndDlg, IDC_CITY, "c", &str, &strSize);
FetchCombo(hwndDlg, IDC_OCCUPATION, "j", &str, &strSize);
FetchField(hwndDlg, IDC_SCHOOL, "e", &str, &strSize);
FetchCombo(hwndDlg, IDC_LOOKFOR, "r", &str, &strSize);
JabberStringAppend(&str, &strSize, "<g>%d</g>", IsDlgButtonChecked(hwndDlg, IDC_VOICECONVERSATIONS) ? 1 : 0);
JabberStringAppend(&str, &strSize, "<v>%d</v>", IsDlgButtonChecked(hwndDlg, IDC_PUBLICSTATUS) ? 1 : 0);
JabberStringAppend(&str, &strSize, "</query></iq>");
JabberLog(str);
JabberSend(jabberThreadInfo->s, "%s", str);
free(str);
JabberGetInfo(0, (LPARAM) &ccs);
}
break;
}
return FALSE;
}
