5 * \defgroup vCardEdit Handles on-screen editing of vCard objects.
6 * \ingroup WebcitDisplayItems
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;
71 safestrncpy(whatuser, "", sizeof whatuser);
74 sprintf(buf, "MSG0 %ld|1", msgnum);
76 serv_getln(buf, sizeof buf);
78 convenience_page("770000", _("Error"), &buf[4]);
81 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
82 if (!strncasecmp(buf, "from=", 5)) {
83 safestrncpy(whatuser, &buf[5], sizeof whatuser);
85 else if (!strncasecmp(buf, "node=", 5)) {
86 strcat(whatuser, " @ ");
87 strcat(whatuser, &buf[5]);
91 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
93 serv_getln(buf, sizeof buf);
95 convenience_page("770000", "Error", &buf[4]);
99 total_len = atoi(&buf[4]);
100 serialized_vcard = malloc(total_len + 2);
102 read_server_binary(serialized_vcard, total_len);
105 serv_getln(buf, sizeof buf);
106 serialized_vcard[total_len] = 0;
108 v = vcard_load(serialized_vcard);
109 free(serialized_vcard);
111 /* Populate the variables for our form */
113 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
114 value = vcard_get_prop(v, "", 0, i++, 0);
116 if (!strcasecmp(key, "n")) {
117 extract_token(lastname, value, 0, ';', sizeof lastname);
118 extract_token(firstname, value, 1, ';', sizeof firstname);
119 extract_token(middlename, value, 2, ';', sizeof middlename);
120 extract_token(prefix, value, 3, ';', sizeof prefix);
121 extract_token(suffix, value, 4, ';', sizeof suffix);
124 else if (!strcasecmp(key, "fn")) {
125 safestrncpy(fullname, value, sizeof fullname);
128 else if (!strcasecmp(key, "title")) {
129 safestrncpy(title, value, sizeof title);
132 else if (!strcasecmp(key, "org")) {
133 safestrncpy(org, value, sizeof org);
136 else if (!strcasecmp(key, "adr")) {
137 extract_token(pobox, value, 0, ';', sizeof pobox);
138 extract_token(extadr, value, 1, ';', sizeof extadr);
139 extract_token(street, value, 2, ';', sizeof street);
140 extract_token(city, value, 3, ';', sizeof city);
141 extract_token(state, value, 4, ';', sizeof state);
142 extract_token(zipcode, value, 5, ';', sizeof zipcode);
143 extract_token(country, value, 6, ';', sizeof country);
146 else if (!strcasecmp(key, "tel;home")) {
147 extract_token(hometel, value, 0, ';', sizeof hometel);
150 else if (!strcasecmp(key, "tel;work")) {
151 extract_token(worktel, value, 0, ';', sizeof worktel);
154 else if (!strcasecmp(key, "email;internet")) {
155 if (primary_inetemail[0] == 0) {
156 safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
159 if (other_inetemail[0] != 0) {
160 strcat(other_inetemail, "\n");
162 strcat(other_inetemail, value);
167 strcat(extrafields, key);
168 strcat(extrafields, ":");
169 strcat(extrafields, value);
170 strcat(extrafields, "\n");
178 /** Display the form */
179 output_headers(1, 1, 2, 0, 0, 0);
180 wprintf("<div id=\"banner\">\n"
181 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
182 "<SPAN CLASS=\"titlebar\">"
183 "<img src=\"static/savecontact_48x.gif\">");
184 wprintf(_("Edit contact information"));
186 "</TD></TR></TABLE>\n"
187 "</div>\n<div id=\"content\">\n"
190 wprintf("<FORM METHOD=\"POST\" action=\"submit_vcard\">\n");
191 wprintf("<div class=\"fix_scrollbar_bug\">"
192 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
194 wprintf("<TABLE border=0><TR>"
199 "<TD>%s</TD></TR>\n",
200 _("Prefix"), _("First"), _("Middle"), _("Last"), _("Suffix")
202 wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
203 "VALUE=\"%s\" MAXLENGTH=\"5\" SIZE=\"5\"></TD>",
205 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
206 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
208 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
209 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
211 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
212 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
214 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
215 "VALUE=\"%s\" MAXLENGTH=\"10\" SIZE=\"10\"></TD></TR></TABLE>\n",
218 wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
221 wprintf(_("Display name:"));
223 "<INPUT TYPE=\"text\" NAME=\"fullname\" "
224 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
228 wprintf(_("Title:"));
230 "<INPUT TYPE=\"text\" NAME=\"title\" "
231 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
235 wprintf(_("Organization:"));
237 "<INPUT TYPE=\"text\" NAME=\"org\" "
238 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
242 wprintf("</td><td>");
244 wprintf("<table border=0>");
246 wprintf(_("PO box:"));
248 "<INPUT TYPE=\"text\" NAME=\"pobox\" "
249 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
252 wprintf(_("Address:"));
254 "<INPUT TYPE=\"text\" NAME=\"extadr\" "
255 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
257 wprintf("<tr><td> </td><td>"
258 "<INPUT TYPE=\"text\" NAME=\"street\" "
259 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
264 "<INPUT TYPE=\"text\" NAME=\"city\" "
265 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
268 wprintf(_("State:"));
270 "<INPUT TYPE=\"text\" NAME=\"state\" "
271 "VALUE=\"%s\" MAXLENGTH=\"2\"></td></tr>\n",
274 wprintf(_("ZIP code:"));
276 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
277 "VALUE=\"%s\" MAXLENGTH=\"10\"></td></tr>\n",
280 wprintf(_("Country:"));
282 "<INPUT TYPE=\"text\" NAME=\"country\" "
283 "VALUE=\"%s\" MAXLENGTH=\"29\" WIDTH=\"5\"></td></tr>\n",
285 wprintf("</table>\n");
287 wprintf("</table>\n");
289 wprintf("<TABLE BORDER=0><TR><TD>");
290 wprintf(_("Home telephone:"));
292 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
293 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>\n",
296 wprintf(_("Work telephone:"));
298 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
299 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
302 wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
305 wprintf("<TABLE border=0><TR>"
307 wprintf(_("Primary Internet e-mail address"));
309 "<INPUT TYPE=\"text\" NAME=\"primary_inetemail\" "
310 "SIZE=40 MAXLENGTH=40 VALUE=\"");
311 escputs(primary_inetemail);
313 "</TD><TD VALIGN=TOP>");
314 wprintf(_("Internet e-mail aliases"));
316 "<TEXTAREA NAME=\"other_inetemail\" ROWS=5 COLS=40 WIDTH=40>");
317 escputs(other_inetemail);
318 wprintf("</TEXTAREA></TD></TR></TABLE>\n");
320 wprintf("</td></tr></table>\n");
322 wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
323 escputs(extrafields);
326 wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
327 urlescputs(return_to);
331 "<INPUT TYPE=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">"
333 "<INPUT TYPE=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">"
334 "</CENTER></FORM>\n",
339 wprintf("</td></tr></table></div>\n");
345 * \brief commit the edits to the citadel server
347 void edit_vcard(void) {
351 msgnum = atol(bstr("msgnum"));
352 partnum = bstr("partnum");
353 do_edit_vcard(msgnum, partnum, "");
359 * \brief parse edited vcard from the browser
361 void submit_vcard(void) {
365 if (strlen(bstr("ok_button")) == 0) {
370 sprintf(buf, "ENT0 1|||4||");
372 serv_getln(buf, sizeof buf);
378 serv_puts("Content-type: text/x-vcard");
380 serv_puts("begin:vcard");
381 serv_printf("n:%s;%s;%s;%s;%s",
387 serv_printf("title:%s", bstr("title") );
388 serv_printf("fn:%s", bstr("fullname") );
389 serv_printf("org:%s", bstr("org") );
390 serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
398 serv_printf("tel;home:%s", bstr("hometel") );
399 serv_printf("tel;work:%s", bstr("worktel") );
401 serv_printf("email;internet:%s\n", bstr("primary_inetemail"));
402 for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
403 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
404 if (strlen(buf) > 0) {
405 serv_printf("email;internet:%s", buf);
409 serv_printf("%s", bstr("extrafields") );
410 serv_puts("end:vcard");
413 if (!strcmp(bstr("return_to"), "select_user_to_edit")) {
414 select_user_to_edit(NULL, NULL);
416 else if (!strcmp(bstr("return_to"), "do_welcome")) {