X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=webcit%2Fvcard_edit.c;h=067362a5f6559d428544981cf8c0f4521d9752b1;hb=f638dfd082af857e57f1d3d3fc1b923151fe0c33;hp=38b799316afb66916abe3d56cad3a11b82f14cfb;hpb=3841dfefb6b086720b6d5d9af39aaf8b19730e6d;p=citadel.git

diff --git a/webcit/vcard_edit.c b/webcit/vcard_edit.c
index 38b799316..067362a5f 100644
--- a/webcit/vcard_edit.c
+++ b/webcit/vcard_edit.c
@@ -14,45 +14,342 @@
 #include "webserver.h"
 #include "calendar.h"
 
+CtxType CTX_VCARD = CTX_NONE;
+CtxType CTX_VCARD_TYPE = CTX_NONE;
+long VCEnumCounter = 0;
+
+typedef enum _VCStrEnum {
+	FlatString,
+	StringCluster,
+	PhoneNumber,
+	EmailAddr,
+	Address,
+	Street,
+	Number,
+	AliasFor,
+	Base64BinaryAttachment,
+	TerminateList
+}VCStrEnum;
+typedef struct vcField vcField;
+struct vcField {
+	ConstStr STR;
+	VCStrEnum Type;
+	vcField *Sub;
+	long cval;
+	ConstStr Name;
+};
+
+vcField VCStr_Ns [] = {
+	{{HKEY("last")},   FlatString,    NULL, 0, {HKEY("Last Name")}},
+	{{HKEY("first")},  FlatString,    NULL, 0, {HKEY("First Name")}},
+	{{HKEY("middle")}, FlatString,    NULL, 0, {HKEY("Middle Name")}},
+	{{HKEY("prefix")}, FlatString,    NULL, 0, {HKEY("Prefix")}},
+	{{HKEY("suffix")}, FlatString,    NULL, 0, {HKEY("Suffix")}},
+	{{HKEY("")},       TerminateList, NULL, 0, {HKEY("")}}
+};
+
+vcField VCStr_Addrs [] = {
+	{{HKEY("POBox")},    Address,    NULL, 0, {HKEY("PO box")}},
+	{{HKEY("address")},  Address,    NULL, 0, {HKEY("Address")}},
+	{{HKEY("address2")}, Address,    NULL, 0, {HKEY("")}},
+	{{HKEY("city")},     Address,    NULL, 0, {HKEY("City")}},
+	{{HKEY("state")},    Address,    NULL, 0, {HKEY("State")}},
+	{{HKEY("zip")},      Address,    NULL, 0, {HKEY("ZIP code")}},
+	{{HKEY("country")},  Address,    NULL, 0, {HKEY("Country")}},
+	{{HKEY("")},         TerminateList, NULL, 0, {HKEY("")}}
+};
 
+vcField VCStrE [] = {
+	{{HKEY("version")},         Number,                 NULL,        0, {HKEY("")}},
+	{{HKEY("rev")},             Number,                 NULL,        0, {HKEY("")}},
+	{{HKEY("label")},           FlatString,             NULL,        0, {HKEY("")}},
+	{{HKEY("uid")},             FlatString,             NULL,        0, {HKEY("")}},
+	{{HKEY("n")},               StringCluster,          VCStr_Ns,    0, {HKEY("")}}, /* N is name, but only if there's no FN already there */
+	{{HKEY("fn")},              FlatString,             NULL,        0, {HKEY("")}}, /* FN (full name) is a true 'display name' field */
+	{{HKEY("title")},           FlatString,             NULL,        0, {HKEY("Title:")}},
+	{{HKEY("org")},             FlatString,             NULL,        0, {HKEY("Organization:")}},/* organization */
+	{{HKEY("email")},           EmailAddr,              NULL,        0, {HKEY("E-mail:")}},
+	{{HKEY("tel")},             PhoneNumber,            NULL,        0, {HKEY("Telephone:")}},
+	{{HKEY("adr")},             StringCluster,          VCStr_Addrs, 0, {HKEY("Address:")}},
+	{{HKEY("photo")},           Base64BinaryAttachment, NULL,        0, {HKEY("Photo:")}},
+	{{HKEY("tel;home")},        PhoneNumber,            NULL,        0, {HKEY(" (home)")}},
+	{{HKEY("tel;work")},        PhoneNumber,            NULL,        0, {HKEY(" (work)")}},
+	{{HKEY("tel;fax")},         PhoneNumber,            NULL,        0, {HKEY(" (fax)")}},
+	{{HKEY("tel;cell")},        PhoneNumber,            NULL,        0, {HKEY(" (cell)")}},
+	{{HKEY("email;internet")},  EmailAddr,              NULL,        0, {HKEY("E-mail:")}},
+	{{HKEY("")},                TerminateList,          NULL,        0, {HKEY("")}}
+};
 
 ConstStr VCStr [] = {
+	{HKEY("")},
 	{HKEY("n")}, /* N is name, but only if there's no FN already there */
 	{HKEY("fn")}, /* FN (full name) is a true 'display name' field */
 	{HKEY("title")},   /* title */
 	{HKEY("org")},    /* organization */
 	{HKEY("email")},
 	{HKEY("tel")},
-	{HKEY("tel_tel")},
-	{HKEY("tel_work")},
-	{HKEY("tel_home")},
-	{HKEY("tel_cell")},
+	{HKEY("work")},
+	{HKEY("home")},
+	{HKEY("cell")},
 	{HKEY("adr")},
 	{HKEY("photo")},
 	{HKEY("version")},
 	{HKEY("rev")},
-	{HKEY("label")}
+	{HKEY("label")},
+	{HKEY("uid")}
 };
 
-typedef enum _eVC{
-	VC_n,
-	VC_fn,
-	VC_title,
-	VC_org,
-	VC_email,
-	VC_tel,
-	VC_tel_tel,
-	VC_tel_work,
-	VC_tel_home,
-	VC_tel_cell,
-	VC_adr,
-	VC_photo,
-	VC_version,
-	VC_rev,
-	VC_label
-} eVC;
-
-HashList *VCToEnum = NULL;
+
+HashList *DefineToToken = NULL;
+HashList *VCTokenToDefine = NULL;
+HashList *vcNames = NULL; /* todo: fill with the name strings */
+
+
+void RegisterVCardToken(vcField* vf, StrBuf *name, int inTokenCount)
+{
+	RegisterTokenParamDefine(SKEY(name), vf->cval);
+	Put(DefineToToken, LKEY(vf->cval), vf, reference_free_handler);
+	Put(vcNames, LKEY(vf->cval), NewStrBufPlain(CKEY(vf->Name)), HFreeStrBuf);
+
+	syslog(LOG_DEBUG, "Token: %s -> %ld, %d", 
+	       ChrPtr(name),
+	       vf->cval, 
+	       inTokenCount);
+
+}
+
+void autoRegisterTokens(long *enumCounter, vcField* vf, StrBuf *BaseStr, int layer)
+{
+	int i = 0;
+	StrBuf *subStr = NewStrBuf();
+	while (vf[i].STR.len > 0) {
+		FlushStrBuf(subStr);
+		vf[i].cval = (*enumCounter) ++;
+		StrBufAppendBuf(subStr, BaseStr, 0);
+		if (StrLength(subStr) > 0) {
+			StrBufAppendBufPlain(subStr, HKEY("."), 0);
+		}
+		StrBufAppendBufPlain(subStr, CKEY(vf[i].STR), 0);
+		if (layer == 0) {
+			Put(VCTokenToDefine, CKEY(vf[i].STR), &vf[i], reference_free_handler);
+		}
+		switch (vf[i].Type) {
+		case FlatString:
+			break;
+		case StringCluster:
+		{
+			autoRegisterTokens(enumCounter, vf[i].Sub, subStr, 1);
+			i++;
+			continue;
+		}
+		break;
+		case PhoneNumber:
+			break;
+		case EmailAddr:
+			break;
+		case Street:
+			break;
+		case Number:
+			break;
+		case AliasFor:
+			break;
+		case Base64BinaryAttachment:
+			break;
+		case TerminateList:
+			break;
+		case Address:
+			break;
+		}
+		RegisterVCardToken(&vf[i], subStr, i);
+		i++;
+	}
+	FreeStrBuf(&subStr);
+}
+
+int preeval_vcard_item(WCTemplateToken *Token)
+{
+	WCTemplputParams TPP;
+	WCTemplputParams *TP;
+	int searchFieldNo;
+	StrBuf *Target = NULL;
+
+	memset(&TPP, 0, sizeof(WCTemplputParams));
+	TP = &TPP;
+	TP->Tokens = Token;
+	searchFieldNo = GetTemplateTokenNumber(Target, TP, 0, 0);
+	if (searchFieldNo >= VCEnumCounter) {
+		LogTemplateError(NULL, "VCardItem", ERR_PARM1, TP,
+				 "Invalid define");
+		return 0;
+	}
+	return 1;
+}
+
+void tmpl_vcard_item(StrBuf *Target, WCTemplputParams *TP)
+{
+	void *vItem;
+	long searchFieldNo = GetTemplateTokenNumber(Target, TP, 0, 0);
+	HashList *vc = (HashList*) CTX(CTX_VCARD);
+	if (GetHash(vc, LKEY(searchFieldNo), &vItem) && (vItem != NULL)) {
+		StrBufAppendTemplate(Target, TP, (StrBuf*) vItem, 1);
+	}
+}
+
+void tmpl_vcard_context_item(StrBuf *Target, WCTemplputParams *TP)
+{
+	void *vItem;
+	vcField *t = (vcField*) CTX(CTX_VCARD_TYPE);
+	HashList *vc = (HashList*) CTX(CTX_VCARD);
+
+	if (t == NULL) {
+		LogTemplateError(NULL, "VCard item", ERR_NAME, TP,
+				 "Missing context");
+		return;
+	}
+
+	if (GetHash(vc, LKEY(t->cval), &vItem) && (vItem != NULL)) {
+		StrBufAppendTemplate(Target, TP, (StrBuf*) vItem, 0);
+	}
+	else {
+		LogTemplateError(NULL, "VCard item", ERR_NAME, TP,
+				 "Doesn't have that key - did you miss to filter in advance?");
+	}
+}
+int preeval_vcard_name_str(WCTemplateToken *Token)
+{
+	WCTemplputParams TPP;
+	WCTemplputParams *TP;
+	int searchFieldNo;
+	StrBuf *Target = NULL;
+
+	memset(&TPP, 0, sizeof(WCTemplputParams));
+	TP = &TPP;
+	TP->Tokens = Token;
+	searchFieldNo = GetTemplateTokenNumber(Target, TP, 0, 0);
+	if (searchFieldNo >= VCEnumCounter) {
+		LogTemplateError(NULL, "VCardName", ERR_PARM1, TP,
+				 "Invalid define");
+		return 0;
+	}
+	return 1;
+}
+
+void tmpl_vcard_name_str(StrBuf *Target, WCTemplputParams *TP)
+{
+	void *vItem;
+	long searchFieldNo = GetTemplateTokenNumber(Target, TP, 0, 0);
+	/* todo: get descriptive string for this vcard type */
+	if (GetHash(vcNames, LKEY(searchFieldNo), &vItem) && (vItem != NULL)) {
+		StrBufAppendTemplate(Target, TP, (StrBuf*) vItem, 1);
+	}
+	else {
+		LogTemplateError(NULL, "VCard item type", ERR_NAME, TP,
+				 "No i18n string for this.");
+		return;
+	}
+}
+
+void tmpl_vcard_context_name_str(StrBuf *Target, WCTemplputParams *TP)
+{
+	void *vItem;
+	vcField *t = (vcField*) CTX(CTX_VCARD_TYPE);
+
+	if (t == NULL) {
+		LogTemplateError(NULL, "VCard item type", ERR_NAME, TP,
+				 "Missing context");
+		return;
+	}
+	
+	if (GetHash(vcNames, LKEY(t->cval), &vItem) && (vItem != NULL)) {
+		StrBufAppendTemplate(Target, TP, (StrBuf*) vItem, 1);
+	}
+	else {
+		LogTemplateError(NULL, "VCard item type", ERR_NAME, TP,
+				 "No i18n string for this.");
+		return;
+	}
+}
+
+int filter_VC_ByType(const char* key, long len, void *Context, StrBuf *Target, WCTemplputParams *TP)
+{
+	long searchType;
+	long type = 0;
+	void *v;
+	int rc = 0;
+	vcField *vf = (vcField*) Context;
+
+	memcpy(&type, key, sizeof(long));
+	searchType = GetTemplateTokenNumber(Target, TP, IT_ADDT_PARAM(0), 0);
+	
+	if (vf->Type == searchType) {
+		HashList *vc = (HashList*) CTX(CTX_VCARD);
+		if (GetHash(vc, LKEY(vf->cval), &v) && v != NULL)
+			return 1;
+	}
+	return rc;
+}
+
+
+
+
+HashList *getContextVcard(StrBuf *Target, WCTemplputParams *TP)
+{
+	vcField *vf = (vcField*) CTX(CTX_VCARD_TYPE);
+	HashList *vc = (HashList*) CTX(CTX_VCARD);
+
+	if ((vf == NULL) || (vc == NULL)) {
+		LogTemplateError(NULL, "VCard item type", ERR_NAME, TP,
+				 "Need VCard and Vcard type in context");
+		
+		return NULL;
+	}
+	return vc;
+}
+
+int filter_VC_ByContextType(const char* key, long len, void *Context, StrBuf *Target, WCTemplputParams *TP)
+{
+	long searchType;
+	vcField *vf = (vcField*) CTX(CTX_VCARD_TYPE);
+
+	memcpy(&searchType, key, sizeof(long));
+	
+	if (vf->cval == searchType) {
+		return 1;
+	}
+	else {
+		return 0;
+	}
+}
+
+
+int conditional_VC_Havetype(StrBuf *Target, WCTemplputParams *TP)
+{
+	HashList *vc = (HashList*) CTX(CTX_VCARD);
+	long HaveFieldType = GetTemplateTokenNumber(Target, TP, 2, 0);
+	int rc = 0;	
+	void *vVCitem;
+	const char *Key;
+	long len;
+	HashPos *it = GetNewHashPos(vc, 0);
+	while (GetNextHashPos(vc, it, &len, &Key, &vVCitem) && 
+	       (vVCitem != NULL)) 
+	{
+		void *vvcField;
+		long type = 0;
+		memcpy(&type, Key, sizeof(long));
+		if (GetHash(DefineToToken, LKEY(type), &vvcField) &&
+		    (vvcField != NULL))
+		{
+			vcField *t = (vcField*) vvcField;
+			if (t && t->Type == HaveFieldType) {
+				rc = 1;
+				break;
+			}
+		}
+	}
+	DeleteHashPos(&it);
+	return rc;
+}
 
 /*
  * Record compare function for sorting address book indices
@@ -137,7 +434,8 @@ wc_mime_attachment *load_vcard(message_summary *Msg)
 	if (VCMime == NULL)
 		return NULL;
 
-	MimeLoadData(VCMime);
+	if (VCMime->Data == NULL)
+		MimeLoadData(VCMime);
 	return VCMime;
 }
 
@@ -275,263 +573,20 @@ void fetchname_parsed_vcard(struct vCard *v, char **storename) {
 
 
 
-/*
- * html print a vcard
- * display_vcard() calls this after parsing the textual vCard into
- * our 'struct vCard' data object.
- *
- * Set 'full' to nonzero to display the full card, otherwise it will only
- * show a summary line.
- *
- * This code is a bit ugly, so perhaps an explanation is due: we do this
- * in two passes through the vCard fields.  On the first pass, we process
- * fields we understand, and then render them in a pretty fashion at the
- * end.  Then we make a second pass, outputting all the fields we don't
- * understand in a simple two-column name/value format.
- * v		the vCard to display
- * full		display all items of the vcard?
- * msgnum	Citadel message pointer
- */
-void display_parsed_vcard(StrBuf *Target, struct vCard *v, int full, wc_mime_attachment *Mime)
-{
-	int i, j;
-	char buf[SIZ];
-	char *name;
-	int is_qp = 0;
-	int is_b64 = 0;
-	char *thisname, *thisvalue;
-	char firsttoken[SIZ];
-	int pass;
-
-	char fullname[SIZ];
-	char title[SIZ];
-	char org[SIZ];
-	char phone[SIZ];
-	char mailto[SIZ];
-
-	strcpy(fullname, "");
-	strcpy(phone, "");
-	strcpy(mailto, "");
-	strcpy(title, "");
-	strcpy(org, "");
-
-	if (!full) {
-		StrBufAppendPrintf(Target, "<td>");
-		name = vcard_get_prop(v, "fn", 1, 0, 0);
-		if (name != NULL) {
-			StrEscAppend(Target, NULL, name, 0, 0);
-		}
-		else if (name = vcard_get_prop(v, "n", 1, 0, 0), name != NULL) {
-			strcpy(fullname, name);
-			vcard_n_prettyize(fullname);
-			StrEscAppend(Target, NULL, fullname, 0, 0);
-		}
-		else {
-			StrBufAppendPrintf(Target, "&nbsp;");
-		}
-		StrBufAppendPrintf(Target, "</td>");
-		return;
-	}
-
-	StrBufAppendPrintf(Target, "<div align=\"center\">"
-		"<table bgcolor=\"#aaaaaa\" width=\"50%%\">");
-	for (pass=1; pass<=2; ++pass) {
-
-		if (v->numprops) for (i=0; i<(v->numprops); ++i) {
-			int len;
-			thisname = strdup(v->prop[i].name);
-			extract_token(firsttoken, thisname, 0, ';', sizeof firsttoken);
-	
-			for (j=0; j<num_tokens(thisname, ';'); ++j) {
-				extract_token(buf, thisname, j, ';', sizeof buf);
-				if (!strcasecmp(buf, "encoding=quoted-printable")) {
-					is_qp = 1;
-					remove_token(thisname, j, ';');
-				}
-				if (!strcasecmp(buf, "encoding=base64")) {
-					is_b64 = 1;
-					remove_token(thisname, j, ';');
-				}
-			}
-			
-			len = strlen(v->prop[i].value);
-			/* if we have some untagged QP, detect it here. */
-			if (!is_qp && (strstr(v->prop[i].value, "=?")!=NULL))
-				utf8ify_rfc822_string(&v->prop[i].value);
-
-			if (is_qp) {
-				// %ff can become 6 bytes in utf8 
-				thisvalue = malloc(len * 2 + 3); 
-				j = CtdlDecodeQuotedPrintable(
-					thisvalue, v->prop[i].value,
-					len);
-				thisvalue[j] = 0;
-			}
-			else if (is_b64) {
-				// ff will become one byte..
-				thisvalue = malloc(len + 50);
-				CtdlDecodeBase64(
-					thisvalue, v->prop[i].value,
-					strlen(v->prop[i].value) );
-			}
-			else {
-				thisvalue = strdup(v->prop[i].value);
-			}
-	
-			/* Various fields we may encounter ***/
-	
-			/* N is name, but only if there's no FN already there */
-			if (!strcasecmp(firsttoken, "n")) {
-				if (IsEmptyStr(fullname)) {
-					strcpy(fullname, thisvalue);
-					vcard_n_prettyize(fullname);
-				}
-			}
-	
-			/* FN (full name) is a true 'display name' field */
-			else if (!strcasecmp(firsttoken, "fn")) {
-				strcpy(fullname, thisvalue);
-			}
-
-			/* title */
-			else if (!strcasecmp(firsttoken, "title")) {
-				strcpy(title, thisvalue);
-			}
-	
-			/* organization */
-			else if (!strcasecmp(firsttoken, "org")) {
-				strcpy(org, thisvalue);
-			}
-	
-			else if (!strcasecmp(firsttoken, "email")) {
-				size_t len;
-				if (!IsEmptyStr(mailto)) strcat(mailto, "<br>");
-				strcat(mailto,
-					"<a href=\"display_enter"
-					"?force_room=_MAIL_?recp=");
-
-				len = strlen(mailto);
-				urlesc(&mailto[len], SIZ - len, "\"");
-				len = strlen(mailto);
-				urlesc(&mailto[len], SIZ - len,  fullname);
-				len = strlen(mailto);
-				urlesc(&mailto[len], SIZ - len, "\" <");
-				len = strlen(mailto);
-				urlesc(&mailto[len], SIZ - len, thisvalue);
-				len = strlen(mailto);
-				urlesc(&mailto[len], SIZ - len, ">");
-
-				strcat(mailto, "\">");
-				len = strlen(mailto);
-				stresc(mailto+len, SIZ - len, thisvalue, 1, 1);
-				strcat(mailto, "</A>");
-			}
-			else if (!strcasecmp(firsttoken, "tel")) {
-				if (!IsEmptyStr(phone)) strcat(phone, "<br>");
-				strcat(phone, thisvalue);
-				for (j=0; j<num_tokens(thisname, ';'); ++j) {
-					extract_token(buf, thisname, j, ';', sizeof buf);
-					if (!strcasecmp(buf, "tel"))
-						strcat(phone, "");
-					else if (!strcasecmp(buf, "work"))
-						strcat(phone, _(" (work)"));
-					else if (!strcasecmp(buf, "home"))
-						strcat(phone, _(" (home)"));
-					else if (!strcasecmp(buf, "cell"))
-						strcat(phone, _(" (cell)"));
-					else {
-						strcat(phone, " (");
-						strcat(phone, buf);
-						strcat(phone, ")");
-					}
-				}
-			}
-			else if (!strcasecmp(firsttoken, "adr")) {
-				if (pass == 2) {
-					StrBufAppendPrintf(Target, "<tr><td>");
-					StrBufAppendPrintf(Target, _("Address:"));
-					StrBufAppendPrintf(Target, "</td><td>");
-					for (j=0; j<num_tokens(thisvalue, ';'); ++j) {
-						extract_token(buf, thisvalue, j, ';', sizeof buf);
-						if (!IsEmptyStr(buf)) {
-							StrEscAppend(Target, NULL, buf, 0, 0);
-							if (j<3) StrBufAppendPrintf(Target, "<br>");
-							else StrBufAppendPrintf(Target, " ");
-						}
-					}
-					StrBufAppendPrintf(Target, "</td></tr>\n");
-				}
-			}
-			/* else if (!strcasecmp(firsttoken, "photo") && full && pass == 2) { 
-				// Only output on second pass
-				StrBufAppendPrintf(Target, "<tr><td>");
-				StrBufAppendPrintf(Target, _("Photo:"));
-				StrBufAppendPrintf(Target, "</td><td>");
-				StrBufAppendPrintf(Target, "<img src=\"/vcardphoto/%ld/\" alt=\"Contact photo\"/>",msgnum);
-				StrBufAppendPrintf(Target, "</td></tr>\n");
-			} */
-			else if (!strcasecmp(firsttoken, "version")) {
-				/* ignore */
-			}
-			else if (!strcasecmp(firsttoken, "rev")) {
-				/* ignore */
-			}
-			else if (!strcasecmp(firsttoken, "label")) {
-				/* ignore */
-			}
-			else {
-
-				/*** Don't show extra fields.  They're ugly.
-				if (pass == 2) {
-					StrBufAppendPrintf(Target, "<TR><TD>");
-					StrEscAppend(Target, NULL, thisname, 0, 0);
-					StrBufAppendPrintf(Target, "</TD><TD>");
-					StrEscAppend(Target, NULL, thisvalue, 0, 0);
-					StrBufAppendPrintf(Target, "</TD></TR>\n");
-				}
-				***/
-			}
-	
-			free(thisname);
-			free(thisvalue);
-		}
-	
-		if (pass == 1) {
-			StrBufAppendPrintf(Target, "<tr bgcolor=\"#aaaaaa\">"
-      "<td colspan=2 bgcolor=\"#ffffff\">"
-      "<img align=\"center\" src=\"static/webcit_icons/essen/32x32/contact.png\">"
-      "<font size=\"+1\"><b>");
-			StrEscAppend(Target, NULL, fullname, 0, 0);
-			StrBufAppendPrintf(Target, "</b></font>");
-			if (!IsEmptyStr(title)) {
-				StrBufAppendPrintf(Target, "<div align=\"right>\"");
-				StrEscAppend(Target, NULL, title, 0, 0);
-				StrBufAppendPrintf(Target, "</div>");
-			}
-			if (!IsEmptyStr(org)) {
-				StrBufAppendPrintf(Target, "<div align=\"right\">");
-				StrEscAppend(Target, NULL, org, 0, 0);
-				StrBufAppendPrintf(Target, "</div>");
-			}
-			StrBufAppendPrintf(Target, "</td></tr>\n");
-		
-			if (!IsEmptyStr(phone)) {
-				StrBufAppendPrintf(Target, "<tr><td>");
-				StrBufAppendPrintf(Target, _("Telephone:"));
-				StrBufAppendPrintf(Target, "</td><td>%s</td></tr>\n", phone);
-			}
-			if (!IsEmptyStr(mailto)) {
-				StrBufAppendPrintf(Target, "<tr><td>");
-				StrBufAppendPrintf(Target, _("E-mail:"));
-				StrBufAppendPrintf(Target, "</td><td>%s</td></tr>\n", mailto);
-			}
-		}
 
+void PutVcardItem(HashList *thisVC, vcField *thisField, StrBuf *ThisFieldStr, int is_qp, StrBuf *Swap)
+{
+	/* if we have some untagged QP, detect it here. */
+	if (is_qp || (strstr(ChrPtr(ThisFieldStr), "=?")!=NULL)){
+		StrBuf *b;
+		StrBuf_RFC822_to_Utf8(Swap, ThisFieldStr, NULL, NULL); /* default charset, current charset */
+		b = ThisFieldStr;
+		ThisFieldStr = Swap; 
+		Swap = b;
+		FlushStrBuf(Swap);
 	}
-
-	StrBufAppendPrintf(Target, "</table></div>\n");
+	Put(thisVC, LKEY(thisField->cval), ThisFieldStr, HFreeStrBuf);
 }
-
 /*
  * html print a vcard
  * display_vcard() calls this after parsing the textual vCard into
@@ -553,36 +608,104 @@ void parse_vcard(StrBuf *Target, struct vCard *v, HashList *VC, int full, wc_mim
 {
 	StrBuf *Val = NULL;
 	StrBuf *Swap = NULL;
-	int i, j;
-	char buf[SIZ];
+	int i, j, k;
+	char buf[20]; //SIZ];
 	int is_qp = 0;
 	int is_b64 = 0;
+	int ntokens, len;
 	StrBuf *thisname = NULL;
-	char firsttoken[SIZ];
-	void *V;
+	char firsttoken[20]; ///SIZ];
+	//void *V;
+	StrBuf *thisVCToken;
+	void *vField = NULL;
 
 	Swap = NewStrBuf ();
 	thisname = NewStrBuf();
+	thisVCToken = NewStrBufPlain(NULL, 63);
 	for (i=0; i<(v->numprops); ++i) {
+		FlushStrBuf(thisVCToken);
 		is_qp = 0;
 		is_b64 = 0;
+		syslog(LOG_DEBUG, "i: %d oneprop: %s - value: %s", i, v->prop[i].name, v->prop[i].value);
 		StrBufPlain(thisname, v->prop[i].name, -1);
 		StrBufLowerCase(thisname);
 		
 		/*len = */extract_token(firsttoken, ChrPtr(thisname), 0, ';', sizeof firsttoken);
-		
-		for (j=0; j<num_tokens(ChrPtr(thisname), ';'); ++j) {
-			extract_token(buf, ChrPtr(thisname), j, ';', sizeof buf);
+		ntokens = num_tokens(ChrPtr(thisname), ';');
+		for (j=0, k=0; j < ntokens && k < 10; ++j) {
+			///int evc[10];
+			
+			len = extract_token(buf, ChrPtr(thisname), j, ';', sizeof buf);
 			if (!strcasecmp(buf, "encoding=quoted-printable")) {
 				is_qp = 1;
 /*				remove_token(thisname, j, ';');*/
 			}
-			if (!strcasecmp(buf, "encoding=base64")) {
+			else if (!strcasecmp(buf, "encoding=base64")) {
 				is_b64 = 1;
 /*				remove_token(thisname, j, ';');*/
 			}
+			else{
+				if (StrLength(thisVCToken) > 0) {
+					StrBufAppendBufPlain(thisVCToken, HKEY(";"), 0);
+				}
+				StrBufAppendBufPlain(thisVCToken, buf, len, 0);
+				/*
+				if (GetHash(VCToEnum, buf, len, &V))
+				{
+					evc[k] = (int) V;
+
+					Put(VC, IKEY(evc), Val, HFreeStrBuf);
+
+					syslog(LOG_DEBUG, "[%ul] -> k: %d %s - %s", evc, k, buf, VCStr[evc[k]].Key);
+					k++;
+				}
+*/
+
+			}
+		}
+
+		vField = NULL;	
+		if ((StrLength(thisVCToken) > 0) &&
+		    GetHash(VCTokenToDefine, SKEY(thisVCToken), &vField) && 
+		    (vField != NULL)) {
+			vcField *thisField = (vcField *)vField;
+			StrBuf *ThisFieldStr = NULL;
+			syslog(LOG_DEBUG, "got this token: %s, found: %s", ChrPtr(thisVCToken), thisField->STR.Key);
+			switch (thisField->Type) {
+			case StringCluster: {
+				int j = 0;
+				const char *Pos = NULL;
+				StrBuf *thisArray = NewStrBufPlain(v->prop[i].value, -1);
+				StrBuf *Buf = NewStrBufPlain(NULL, StrLength(thisArray));
+				while (thisField->Sub[j].STR.len > 0) {
+					StrBufExtract_NextToken(Buf, thisArray, &Pos, ';');
+					ThisFieldStr = NewStrBufDup(Buf);
+					
+					PutVcardItem(VC, &thisField->Sub[j], ThisFieldStr, is_qp, Swap);
+					j++;
+				}
+				FreeStrBuf(&thisArray);
+				FreeStrBuf(&Buf);
+			}
+				break;
+			case Address:
+			case FlatString:
+			case PhoneNumber:
+			case EmailAddr:
+			case Street:
+			case Number:
+			case AliasFor:
+				/* copy over the payload into a StrBuf */
+				ThisFieldStr = NewStrBufPlain(v->prop[i].value, -1);
+				PutVcardItem(VC, thisField, ThisFieldStr, is_qp, Swap);
+
+				break;
+			case Base64BinaryAttachment:
+			case TerminateList:
+				break;
+			}
+
 		}
-		
 		/* copy over the payload into a StrBuf */
 		Val = NewStrBufPlain(v->prop[i].value, -1);
 			
@@ -599,19 +722,21 @@ void parse_vcard(StrBuf *Target, struct vCard *v, HashList *VC, int full, wc_mim
 			StrBufDecodeBase64(Val);
 
 		}
-		syslog(1, "%s [%s][%s]",
+#if 0
+		syslog(LOG_DEBUG, "-> firsttoken: %s thisname: %s Value: [%s][%s]",
 			firsttoken,
+		       ChrPtr(thisname),
 			ChrPtr(Val),
 			v->prop[i].value);
 		if (GetHash(VCToEnum, firsttoken, strlen(firsttoken), &V))
 		{
 			eVC evc = (eVC) V;
 			Put(VC, IKEY(evc), Val, HFreeStrBuf);
-			syslog(1, "[%ul]\n", evc);
+			syslog(LOG_DEBUG, "[%ul]\n", evc);
 			Val = NULL;
 		}
 		else
-			syslog(1, "[]\n");
+			syslog(LOG_DEBUG, "[]\n");
 /*
 TODO: check for layer II
 		else 
@@ -641,18 +766,20 @@ TODO: check for layer II
 
 		}
 */
-	
+#endif	
 		FreeStrBuf(&Val);
-		free(thisname);
-		thisname = NULL;
+		////free(thisname);
+		/// thisname = NULL;
 	}
-
+	FreeStrBuf(&thisname);
+	FreeStrBuf(&Swap);
+	FreeStrBuf(&thisVCToken);
 }
 
 void tmplput_VCARD_ITEM(StrBuf *Target, WCTemplputParams *TP)
 {
 	HashList *VC = CTX(CTX_VCARD);
-	eVC evc;
+	int evc;
 	void *vStr;
 
 	evc = GetTemplateTokenNumber(Target, TP, 0, -1);
@@ -668,21 +795,24 @@ void tmplput_VCARD_ITEM(StrBuf *Target, WCTemplputParams *TP)
 	
 }
 
-void new_vcard (StrBuf *Target, struct vCard *v, int full, wc_mime_attachment *Mime)
+void display_one_vcard (StrBuf *Target, struct vCard *v, int full, wc_mime_attachment *Mime)
 {
-	HashList *VC;
-	WCTemplputParams SubTP;
+	HashList *VC;	WCTemplputParams SubTP;
 
         memset(&SubTP, 0, sizeof(WCTemplputParams));    
 
 
-	VC = NewHash(0, Flathash);
+	VC = NewHash(0, lFlathash);
 	parse_vcard(Target, v, VC, full, Mime);
 
-	SubTP.Filter.ContextType = CTX_VCARD;
-	SubTP.Context = VC;
+	{
+		WCTemplputParams *TP = NULL;
+		WCTemplputParams SubTP;
+		StackContext(TP, &SubTP, VC, CTX_VCARD, 0, NULL);
 
-	DoTemplate(HKEY("test_vcard"), Target, &SubTP);
+		DoTemplate(HKEY("vcard_msg_display"), Target, &SubTP);
+		UnStackContext(&SubTP);
+	}
 	DeleteHash(&VC);
 }
 
@@ -736,11 +866,7 @@ void display_vcard(StrBuf *Target,
 		 ((!isalpha(alpha)) && (!isalpha(this_alpha)))
 		) 
 	{
-#ifdef XXX_XXX
-		new_vcard (Target, v, full, Mime);
-#else
-		display_parsed_vcard(Target, v, full, Mime);
-#endif		
+		display_one_vcard (Target, v, full, Mime);
 	}
 
 	vcard_free(v);
@@ -870,6 +996,7 @@ void do_edit_vcard(long msgnum, char *partnum,
 		   wc_mime_attachment *VCAtt,
 		   const char *return_to, 
 		   const char *force_room) {
+	wcsession *WCC = WC;
 	message_summary *Msg = NULL;
 	wc_mime_attachment *VCMime = NULL;
 	struct vCard *v;
@@ -1050,6 +1177,12 @@ void do_edit_vcard(long msgnum, char *partnum,
 		escputs(force_room);
 		wc_printf("\">\n");
 	}
+	else
+	{
+		wc_printf("<input type=\"hidden\" name=\"go\" value=\"");
+		StrEscAppend(WCC->WBuf, WCC->CurRoom.name, NULL, 0, 0);
+		wc_printf("\">\n");
+	}
 
 	wc_printf("<table class=\"vcard_edit_background\"><tr><td>\n");
 
@@ -1489,7 +1622,7 @@ void
 ServerStartModule_VCARD
 (void)
 {
-	VCToEnum = NewHash(0, NULL);
+	///VCToEnum = NewHash(0, NULL);
 
 }
 
@@ -1497,13 +1630,18 @@ void
 ServerShutdownModule_VCARD
 (void)
 {
-	DeleteHash(&VCToEnum);
+	DeleteHash(&DefineToToken);
+	DeleteHash(&vcNames);
+	DeleteHash(&VCTokenToDefine);
+	/// DeleteHash(&VCToEnum);
 }
 
 void 
 InitModule_VCARD
 (void)
 {
+	RegisterCTX(CTX_VCARD);
+	RegisterCTX(CTX_VCARD_TYPE);
 	RegisterReadLoopHandlerset(
 		VIEW_ADDRESSBOOK,
 		vcard_GetParamsGetServerCall,
@@ -1516,24 +1654,23 @@ InitModule_VCARD
 	WebcitAddUrlHandler(HKEY("edit_vcard"), "", 0, edit_vcard, 0);
 	WebcitAddUrlHandler(HKEY("submit_vcard"), "", 0, submit_vcard, 0);
 	WebcitAddUrlHandler(HKEY("vcardphoto"), "", 0, display_vcard_photo_img, NEED_URL);
-
+/*
 	Put(VCToEnum, HKEY("n"), (void*)VC_n, reference_free_handler);
 	Put(VCToEnum, HKEY("fn"), (void*)VC_fn, reference_free_handler);
 	Put(VCToEnum, HKEY("title"), (void*)VC_title, reference_free_handler);
 	Put(VCToEnum, HKEY("org"), (void*)VC_org, reference_free_handler);
 	Put(VCToEnum, HKEY("email"), (void*)VC_email, reference_free_handler);
 	Put(VCToEnum, HKEY("tel"), (void*)VC_tel, reference_free_handler);
-	Put(VCToEnum, HKEY("tel_tel"), (void*)VC_tel_tel, reference_free_handler);
-	Put(VCToEnum, HKEY("tel_work"), (void*)VC_tel_work, reference_free_handler);
-	Put(VCToEnum, HKEY("tel_home"), (void*)VC_tel_home, reference_free_handler);
-	Put(VCToEnum, HKEY("tel_cell"), (void*)VC_tel_cell, reference_free_handler);
+	Put(VCToEnum, HKEY("work"), (void*)VC_work, reference_free_handler);
+	Put(VCToEnum, HKEY("home"), (void*)VC_home, reference_free_handler);
+	Put(VCToEnum, HKEY("cell"), (void*)VC_cell, reference_free_handler);
 	Put(VCToEnum, HKEY("adr"), (void*)VC_adr, reference_free_handler);
 	Put(VCToEnum, HKEY("photo"), (void*)VC_photo, reference_free_handler);
 	Put(VCToEnum, HKEY("version"), (void*)VC_version, reference_free_handler);
 	Put(VCToEnum, HKEY("rev"), (void*)VC_rev, reference_free_handler);
 	Put(VCToEnum, HKEY("label"), (void*)VC_label, reference_free_handler);
-
-
+*/
+/*
 	RegisterNamespace("VC", 1, 2, tmplput_VCARD_ITEM, NULL, CTX_VCARD);
 
 	REGISTERTokenParamDefine(VC_n);
@@ -1542,15 +1679,42 @@ InitModule_VCARD
 	REGISTERTokenParamDefine(VC_org);
 	REGISTERTokenParamDefine(VC_email);
 	REGISTERTokenParamDefine(VC_tel);
-	REGISTERTokenParamDefine(VC_tel_tel);
-	REGISTERTokenParamDefine(VC_tel_work);
-	REGISTERTokenParamDefine(VC_tel_home);
-	REGISTERTokenParamDefine(VC_tel_cell);
+	REGISTERTokenParamDefine(VC_work);
+	REGISTERTokenParamDefine(VC_home);
+	REGISTERTokenParamDefine(VC_cell);
 	REGISTERTokenParamDefine(VC_adr);
 	REGISTERTokenParamDefine(VC_photo);
 	REGISTERTokenParamDefine(VC_version);
 	REGISTERTokenParamDefine(VC_rev);
 	REGISTERTokenParamDefine(VC_label);
+*/
 
+	{
+		StrBuf *Prefix  = NewStrBufPlain(HKEY("VC:"));
+		DefineToToken   = NewHash(1, lFlathash);
+		vcNames         = NewHash(1, lFlathash);
+		VCTokenToDefine = NewHash(1, NULL);
+		autoRegisterTokens(&VCEnumCounter, VCStrE, Prefix, 0);
+		FreeStrBuf(&Prefix);
+	}
+	RegisterCTX(CTX_VCARD);
+	RegisterNamespace("VC:ITEM", 2, 2, tmpl_vcard_item, preeval_vcard_item, CTX_VCARD);
+	RegisterNamespace("VC:CTXITEM", 1, 1, tmpl_vcard_context_item, NULL, CTX_VCARD_TYPE);
+	RegisterNamespace("VC:NAME", 1, 1, tmpl_vcard_name_str, preeval_vcard_name_str, CTX_VCARD);
+	RegisterNamespace("VC:CTXNAME", 1, 1, tmpl_vcard_context_name_str, NULL, CTX_VCARD_TYPE);
+	REGISTERTokenParamDefine(FlatString);
+	REGISTERTokenParamDefine(StringCluster);
+	REGISTERTokenParamDefine(PhoneNumber);
+	REGISTERTokenParamDefine(EmailAddr);
+	REGISTERTokenParamDefine(Street);
+	REGISTERTokenParamDefine(Number);
+	REGISTERTokenParamDefine(AliasFor);
+	REGISTERTokenParamDefine(Base64BinaryAttachment);
+	REGISTERTokenParamDefine(TerminateList);
+	REGISTERTokenParamDefine(Address);
+
+	RegisterConditional("VC:HAVE:TYPE",      1, conditional_VC_Havetype, CTX_VCARD);
+	RegisterFilteredIterator("VC:TYPE", 1, DefineToToken, NULL, NULL, NULL, filter_VC_ByType, CTX_VCARD_TYPE, CTX_VCARD, IT_NOFLAG);
+	RegisterFilteredIterator("VC:TYPE:ITEMS", 0, NULL, getContextVcard, NULL, NULL, filter_VC_ByContextType, CTX_STRBUF, CTX_VCARD_TYPE, IT_NOFLAG);
 }