5 * \defgroup vCardEdit Handles on-screen editing of vCard objects.
13 * \brief Edit the vCard component of a MIME message.
14 * Supply the message number
15 * and MIME part number to fetch. Or, specify -1 for the message number
16 * to start with a blank card.
17 * \param msgnum number of the item on the citadel server
18 * \param partnum what???
19 * \param return_to where to go back in the browser after edit ????
21 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
23 char *serialized_vcard = NULL;
44 char primary_inetemail[256];
45 char other_inetemail[SIZ];
46 char extrafields[SIZ];
65 primary_inetemail[0] = 0;
66 other_inetemail[0] = 0;
72 safestrncpy(whatuser, "", sizeof whatuser);
75 sprintf(buf, "MSG0 %ld|1", msgnum);
77 serv_getln(buf, sizeof buf);
79 convenience_page("770000", _("Error"), &buf[4]);
82 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
83 if (!strncasecmp(buf, "from=", 5)) {
84 safestrncpy(whatuser, &buf[5], sizeof whatuser);
86 else if (!strncasecmp(buf, "node=", 5)) {
87 strcat(whatuser, " @ ");
88 strcat(whatuser, &buf[5]);
92 sprintf(buf, "DLAT %ld|%s", msgnum, partnum);
94 serv_getln(buf, sizeof buf);
96 convenience_page("770000", "Error", &buf[4]);
100 total_len = atoi(&buf[4]);
101 serialized_vcard = malloc(total_len + 2);
103 serv_read(serialized_vcard, total_len);
104 serialized_vcard[total_len] = 0;
106 v = vcard_load(serialized_vcard);
107 free(serialized_vcard);
109 /* Populate the variables for our form */
111 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
112 value = vcard_get_prop(v, "", 0, i++, 0);
114 if (!strcasecmp(key, "n")) {
115 extract_token(lastname, value, 0, ';', sizeof lastname);
116 extract_token(firstname, value, 1, ';', sizeof firstname);
117 extract_token(middlename, value, 2, ';', sizeof middlename);
118 extract_token(prefix, value, 3, ';', sizeof prefix);
119 extract_token(suffix, value, 4, ';', sizeof suffix);
122 else if (!strcasecmp(key, "fn")) {
123 safestrncpy(fullname, value, sizeof fullname);
126 else if (!strcasecmp(key, "title")) {
127 safestrncpy(title, value, sizeof title);
130 else if (!strcasecmp(key, "org")) {
131 safestrncpy(org, value, sizeof org);
134 else if (!strcasecmp(key, "adr")) {
135 extract_token(pobox, value, 0, ';', sizeof pobox);
136 extract_token(extadr, value, 1, ';', sizeof extadr);
137 extract_token(street, value, 2, ';', sizeof street);
138 extract_token(city, value, 3, ';', sizeof city);
139 extract_token(state, value, 4, ';', sizeof state);
140 extract_token(zipcode, value, 5, ';', sizeof zipcode);
141 extract_token(country, value, 6, ';', sizeof country);
144 else if (!strcasecmp(key, "tel;home")) {
145 extract_token(hometel, value, 0, ';', sizeof hometel);
148 else if (!strcasecmp(key, "tel;work")) {
149 extract_token(worktel, value, 0, ';', sizeof worktel);
152 else if (!strcasecmp(key, "email;internet")) {
153 if (primary_inetemail[0] == 0) {
154 safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
157 if (other_inetemail[0] != 0) {
158 strcat(other_inetemail, "\n");
160 strcat(other_inetemail, value);
165 strcat(extrafields, key);
166 strcat(extrafields, ":");
167 strcat(extrafields, value);
168 strcat(extrafields, "\n");
176 /** Display the form */
177 output_headers(1, 1, 2, 0, 0, 0);
178 wprintf("<div id=\"banner\">\n"
179 "<table class=\"vcard_edit_banner\"><tr><td>"
180 "<span class=\"titlebar\">"
181 "<img src=\"static/savecontact_48x.gif\">");
182 wprintf(_("Edit contact information"));
184 "</td></tr></table>\n"
185 "</div>\n<div id=\"content\">\n"
188 wprintf("<form method=\"POST\" action=\"submit_vcard\">\n");
189 wprintf("<div class=\"fix_scrollbar_bug\">"
190 "<table class=\"vcard_edit_background\"><tr><td>\n");
192 wprintf("<table border=0><tr>"
197 "<td>%s</td></tr>\n",
198 _("Prefix"), _("First"), _("Middle"), _("Last"), _("Suffix")
200 wprintf("<tr><td><input type=\"text\" name=\"prefix\" "
201 "value=\"%s\" maxlength=\"5\" size=\"5\"></td>",
203 wprintf("<td><input type=\"text\" name=\"firstname\" "
204 "value=\"%s\" maxlength=\"29\"></td>",
206 wprintf("<td><input type=\"text\" name=\"middlename\" "
207 "value=\"%s\" maxlength=\"29\"></td>",
209 wprintf("<td><input type=\"text\" name=\"lastname\" "
210 "value=\"%s\" maxlength=\"29\"></td>",
212 wprintf("<td><input type=\"text\" name=\"suffix\" "
213 "value=\"%s\" maxlength=\"10\" size=\"10\"></td></tr></table>\n",
216 wprintf("<table class=\"vcard_edit_background_alt\">");
219 wprintf(_("Display name:"));
221 "<input type=\"text\" name=\"fullname\" "
222 "value=\"%s\" maxlength=\"40\"><br><br>\n",
226 wprintf(_("Title:"));
228 "<input type=\"text\" name=\"title\" "
229 "value=\"%s\" maxlength=\"40\"><br><br>\n",
233 wprintf(_("Organization:"));
235 "<input type=\"text\" name=\"org\" "
236 "value=\"%s\" maxlength=\"40\"><br><br>\n",
240 wprintf("</td><td>");
242 wprintf("<table border=0>");
244 wprintf(_("PO box:"));
246 "<input type=\"text\" name=\"pobox\" "
247 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
250 wprintf(_("Address:"));
252 "<input type=\"text\" name=\"extadr\" "
253 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
255 wprintf("<tr><td> </td><td>"
256 "<input type=\"text\" name=\"street\" "
257 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
262 "<input type=\"text\" name=\"city\" "
263 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
266 wprintf(_("State:"));
268 "<input type=\"text\" name=\"state\" "
269 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
272 wprintf(_("ZIP code:"));
274 "<input type=\"text\" name=\"zipcode\" "
275 "value=\"%s\" maxlength=\"10\"></td></tr>\n",
278 wprintf(_("Country:"));
280 "<input type=\"text\" name=\"country\" "
281 "value=\"%s\" maxlength=\"29\" width=\"5\"></td></tr>\n",
283 wprintf("</table>\n");
285 wprintf("</table>\n");
287 wprintf("<table border=0><tr><td>");
288 wprintf(_("Home telephone:"));
290 "<td><input type=\"text\" name=\"hometel\" "
291 "value=\"%s\" maxlength=\"29\"></td>\n",
294 wprintf(_("Work telephone:"));
296 "<td><input type=\"text\" name=\"worktel\" "
297 "value=\"%s\" maxlength=\"29\"></td></tr></table>\n",
300 wprintf("<table class=\"vcard_edit_background_alt\">");
303 wprintf("<table border=0><TR>"
305 wprintf(_("Primary Internet e-mail address"));
307 "<input type=\"text\" name=\"primary_inetemail\" "
308 "size=40 maxlength=60 value=\"");
309 escputs(primary_inetemail);
311 "</td><td valign=top>");
312 wprintf(_("Internet e-mail aliases"));
314 "<textarea name=\"other_inetemail\" rows=5 cols=40 width=40>");
315 escputs(other_inetemail);
316 wprintf("</textarea></td></tr></table>\n");
318 wprintf("</td></tr></table>\n");
320 wprintf("<input type=\"hidden\" name=\"extrafields\" value=\"");
321 escputs(extrafields);
324 wprintf("<input type=\"hidden\" name=\"return_to\" value=\"");
325 urlescputs(return_to);
329 "<input type=\"submit\" name=\"ok_button\" value=\"%s\">"
331 "<input type=\"submit\" name=\"cancel_button\" value=\"%s\">"
332 "</center></form>\n",
337 wprintf("</td></tr></table></div>\n");
343 * \brief commit the edits to the citadel server
345 void edit_vcard(void) {
349 msgnum = atol(bstr("msgnum"));
350 partnum = bstr("partnum");
351 do_edit_vcard(msgnum, partnum, "");
357 * \brief parse edited vcard from the browser
359 void submit_vcard(void) {
361 char *serialized_vcard;
365 if (strlen(bstr("ok_button")) == 0) {
370 sprintf(buf, "ENT0 1|||4||");
372 serv_getln(buf, sizeof buf);
378 /** Make a vCard structure out of the data supplied in the form */
380 snprintf(buf, sizeof buf, "begin:vcard\r\n%s\r\nend:vcard\r\n",
383 v = vcard_load(buf); /** Start with the extra fields */
385 safestrncpy(WC->ImportantMessage,
386 _("An error has occurred."),
387 sizeof WC->ImportantMessage
393 snprintf(buf, sizeof buf, "%s;%s;%s;%s;%s",
399 vcard_add_prop(v, "n", buf);
401 vcard_add_prop(v, "title", bstr("title"));
402 vcard_add_prop(v, "fn", bstr("fullname"));
403 vcard_add_prop(v, "org", bstr("org"));
405 snprintf(buf, sizeof buf, "%s;%s;%s;%s;%s;%s;%s",
413 vcard_add_prop(v, "adr", buf);
415 vcard_add_prop(v, "tel;home", bstr("hometel"));
416 vcard_add_prop(v, "tel;work", bstr("worktel"));
417 vcard_add_prop(v, "email;internet", bstr("primary_inetemail"));
419 for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
420 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
421 if (strlen(buf) > 0) {
422 vcard_add_prop(v, "email;internet", buf);
426 serialized_vcard = vcard_serialize(v);
428 if (serialized_vcard == NULL) {
429 safestrncpy(WC->ImportantMessage,
430 _("An error has occurred."),
431 sizeof WC->ImportantMessage
437 serv_puts("Content-type: text/x-vcard; charset=UTF-8");
439 serv_printf("%s\r\n", serialized_vcard);
441 free(serialized_vcard);
443 if (!strcmp(bstr("return_to"), "select_user_to_edit")) {
444 select_user_to_edit(NULL, NULL);
446 else if (!strcmp(bstr("return_to"), "do_welcome")) {