#include <pthread.h>
#include <signal.h>
#include "webcit.h"
+#include "vcard.h"
/*
}
+
+
+/*
+ * Experimental output type of thing
+ */
+void display_vcard(char *vcard_source) {
+ int i, j;
+ struct vCard *v;
+ char buf[SIZ];
+
+ v = vcard_load(vcard_source);
+ if (v == NULL) return;
+
+ wprintf("<TABLE bgcolor=#888888>");
+ if (v->numprops) for (i=0; i<(v->numprops); ++i) {
+ if (!strcasecmp(v->prop[i].name, "n")) {
+ wprintf("<TR BGCOLOR=#AAAAAA><TD><FONT SIZE=+1><B>");
+ escputs(v->prop[i].value);
+ wprintf("</B></FONT></TD></TR>\n");
+ }
+ else if (!strcasecmp(v->prop[i].name, "email;internet")) {
+ wprintf("<TR><TD>Internet e-mail:</TD>"
+ "<TD><A HREF=\"mailto:");
+ urlescputs(v->prop[i].value);
+ wprintf("\">");
+ escputs(v->prop[i].value);
+ wprintf("</A></TD></TR>\n");
+ }
+ else if (!strcasecmp(v->prop[i].name, "adr")) {
+ wprintf("<TR><TD>Address:</TD><TD>");
+ for (j=0; j<num_tokens(v->prop[i].value, ';'); ++j) {
+ extract_token(buf, v->prop[i].value, j, ';');
+ if (strlen(buf) > 0) {
+ escputs(buf);
+ wprintf("<BR>");
+ }
+ }
+ wprintf("</TD></TR>\n");
+ }
+ else if (!strncasecmp(v->prop[i].name, "tel;", 4)) {
+ wprintf("<TR><TD>%s telephone:</TD><TD>",
+ &v->prop[i].name[4]);
+ for (j=0; j<num_tokens(v->prop[i].value, ';'); ++j) {
+ extract_token(buf, v->prop[i].value, j, ';');
+ if (strlen(buf) > 0) {
+ escputs(buf);
+ wprintf("<BR>");
+ }
+ }
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<TR><TD>");
+ escputs(v->prop[i].name);
+ wprintf("</TD><TD>");
+ escputs(v->prop[i].value);
+ wprintf("</TD></TR>\n");
+ }
+ }
+
+ wprintf("</TABLE>\n");
+
+ vcard_free(v);
+}
+
+
+
+
+
+
void read_message(long msgnum, int is_summary) {
char buf[SIZ];
char mime_partnum[SIZ];
if (strlen(vcard_partnum) > 0) {
vcard_source = load_mimepart(msgnum, vcard_partnum);
if (vcard_source != NULL) {
- wprintf("vcard object length = %d<BR>\n",
- strlen(vcard_source));
+ display_vcard(vcard_source);
free(vcard_source);
}
}
--- /dev/null
+/*
+ * $Id$
+ *
+ * vCard implementation for Citadel/UX
+ *
+ * Copyright (C) 1999 by Art Cancro
+ * This code is freely redistributable under the terms of the GNU General
+ * Public License. All other rights reserved.
+ */
+
+
+#include <stdlib.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <fcntl.h>
+#include <signal.h>
+
+#if TIME_WITH_SYS_TIME
+# include <sys/time.h>
+# include <time.h>
+#else
+# if HAVE_SYS_TIME_H
+# include <sys/time.h>
+# else
+# include <time.h>
+# endif
+#endif
+
+#include <ctype.h>
+#include <string.h>
+#include <errno.h>
+#include <limits.h>
+#include <syslog.h>
+
+#include "webcit.h"
+#include "vcard.h"
+
+/*
+ * Constructor (empty vCard)
+ */
+struct vCard *vcard_new() {
+ struct vCard *v;
+
+ v = (struct vCard *) malloc(sizeof(struct vCard));
+ if (v == NULL) return v;
+
+ v->magic = CTDL_VCARD_MAGIC;
+ v->numprops = 0;
+ v->prop = NULL;
+
+ return v;
+}
+
+
+/*
+ * Constructor (supply serialized vCard)
+ */
+struct vCard *vcard_load(char *vtext) {
+ struct vCard *v;
+ int valid = 0;
+ char *mycopy, *ptr;
+ char *namebuf, *valuebuf;
+ int i;
+ int colonpos, nlpos;
+
+ mycopy = strdup(vtext);
+ if (mycopy == NULL) return NULL;
+
+ /* First, fix this big pile o' vCard to make it more parseable.
+ * To make it easier to parse, we convert CRLF to LF, and unfold any
+ * multi-line fields into single lines.
+ */
+ for (i=0; i<strlen(mycopy); ++i) {
+ if (!strncmp(&mycopy[i], "\r\n", 2)) {
+ strcpy(&mycopy[i], &mycopy[i+1]);
+ }
+ if ( (mycopy[i]=='\n') && (isspace(mycopy[i+1])) ) {
+ strcpy(&mycopy[i], &mycopy[i+1]);
+ }
+ }
+
+ v = vcard_new();
+ if (v == NULL) return v;
+
+ ptr = mycopy;
+ while (strlen(ptr)>0) {
+ colonpos = (-1);
+ nlpos = (-1);
+ colonpos = pattern2(ptr, ":");
+ nlpos = pattern2(ptr, "\n");
+
+ if (nlpos > colonpos > 0) {
+ namebuf = malloc(colonpos + 1);
+ valuebuf = malloc(nlpos - colonpos + 1);
+ strncpy(namebuf, ptr, colonpos);
+ namebuf[colonpos] = 0;
+ strncpy(valuebuf, &ptr[colonpos+1], nlpos-colonpos-1);
+ valuebuf[nlpos-colonpos-1] = 0;
+
+ if ( (!strcasecmp(namebuf, "end"))
+ && (!strcasecmp(valuebuf, "vcard")) ) valid = 0;
+ if ( (!strcasecmp(namebuf, "begin"))
+ && (!strcasecmp(valuebuf, "vcard")) ) valid = 1;
+
+ if ( (valid) && (strcasecmp(namebuf, "begin")) ) {
+ ++v->numprops;
+ v->prop = realloc(v->prop,
+ (v->numprops * sizeof(char *) * 2) );
+ v->prop[v->numprops-1].name = namebuf;
+ v->prop[v->numprops-1].value = valuebuf;
+ }
+ else {
+ free(namebuf);
+ free(valuebuf);
+ }
+
+ }
+
+ while ( (*ptr != '\n') && (strlen(ptr)>0) ) {
+ ++ptr;
+ }
+ if (*ptr == '\n') ++ptr;
+ }
+
+ free(mycopy);
+ return v;
+}
+
+
+/*
+ * Fetch the value of a particular key
+ * If is_partial is set to 1, a partial match is ok (for example,
+ * a key of "tel;home" will satisfy a search for "tel")
+ * Set "instance" to a value higher than 0 to return subsequent instances
+ * of the same key
+ */
+char *vcard_get_prop(struct vCard *v, char *propname,
+ int is_partial, int instance) {
+ int i;
+ int found_instance = 0;
+
+ if (v->numprops) for (i=0; i<(v->numprops); ++i) {
+ if ( (!strcasecmp(v->prop[i].name, propname))
+ || ( (!strncasecmp(v->prop[i].name,
+ propname, strlen(propname)))
+ && (v->prop[i].name[strlen(propname)] == ';')
+ && (is_partial) ) ) {
+ if (instance == found_instance++) {
+ return(v->prop[i].value);
+ }
+ }
+ }
+
+ return NULL;
+}
+
+
+
+
+/*
+ * Destructor
+ */
+void vcard_free(struct vCard *v) {
+ int i;
+
+ if (v->magic != CTDL_VCARD_MAGIC) return; /* Self-check */
+
+ if (v->numprops) for (i=0; i<(v->numprops); ++i) {
+ free(v->prop[i].name);
+ free(v->prop[i].value);
+ }
+
+ if (v->prop != NULL) free(v->prop);
+
+ memset(v, 0, sizeof(struct vCard));
+ free(v);
+}
+
+
+
+
+/*
+ * Set a name/value pair in the card
+ */
+void vcard_set_prop(struct vCard *v, char *name, char *value, int append) {
+ int i;
+
+ if (v->magic != CTDL_VCARD_MAGIC) return; /* Self-check */
+
+ /* If this key is already present, replace it */
+ if (!append) if (v->numprops) for (i=0; i<(v->numprops); ++i) {
+ if (!strcasecmp(v->prop[i].name, name)) {
+ free(v->prop[i].name);
+ free(v->prop[i].value);
+ v->prop[i].name = strdup(name);
+ v->prop[i].value = strdup(value);
+ return;
+ }
+ }
+
+ /* Otherwise, append it */
+ ++v->numprops;
+ v->prop = realloc(v->prop,
+ (v->numprops * sizeof(char *) * 2) );
+ v->prop[v->numprops-1].name = strdup(name);
+ v->prop[v->numprops-1].value = strdup(value);
+}
+
+
+
+
+/*
+ * Serialize a struct vcard into a standard text/x-vcard MIME type.
+ *
+ */
+char *vcard_serialize(struct vCard *v)
+{
+ char *ser;
+ int i;
+ size_t len;
+
+ if (v->magic != CTDL_VCARD_MAGIC) return NULL; /* self check */
+
+ /* Figure out how big a buffer we need to allocate */
+ len = 64; /* for begin, end, and a little padding for safety */
+ if (v->numprops) for (i=0; i<(v->numprops); ++i) {
+ len = len +
+ strlen(v->prop[i].name) +
+ strlen(v->prop[i].value) + 4;
+ }
+
+ ser = malloc(len);
+ if (ser == NULL) return NULL;
+
+ strcpy(ser, "begin:vcard\r\n");
+ if (v->numprops) for (i=0; i<(v->numprops); ++i) {
+ strcat(ser, v->prop[i].name);
+ strcat(ser, ":");
+ strcat(ser, v->prop[i].value);
+ strcat(ser, "\r\n");
+ }
+ strcat(ser, "end:vcard\r\n");
+
+ return ser;
+}