4 * Handles on-screen editing of vCard objects.
11 /* Edit the vCard component of a MIME message. Supply the message number
12 * and MIME part number to fetch. Or, specify -1 for the message number
13 * to start with a blank card.
15 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
17 char *serialized_vcard = NULL;
38 char primary_inetemail[SIZ];
39 char other_inetemail[SIZ];
40 char extrafields[SIZ];
58 primary_inetemail[0] = 0;
59 other_inetemail[0] = 0;
64 safestrncpy(whatuser, "", sizeof whatuser);
67 sprintf(buf, "MSG0 %ld|1", msgnum);
69 serv_getln(buf, sizeof buf);
71 convenience_page("770000", _("Error"), &buf[4]);
74 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
75 if (!strncasecmp(buf, "from=", 5)) {
76 safestrncpy(whatuser, &buf[5], sizeof whatuser);
78 else if (!strncasecmp(buf, "node=", 5)) {
79 strcat(whatuser, " @ ");
80 strcat(whatuser, &buf[5]);
84 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
86 serv_getln(buf, sizeof buf);
88 convenience_page("770000", "Error", &buf[4]);
92 total_len = atoi(&buf[4]);
93 serialized_vcard = malloc(total_len + 2);
95 read_server_binary(serialized_vcard, total_len);
98 serv_getln(buf, sizeof buf);
99 serialized_vcard[total_len] = 0;
101 v = vcard_load(serialized_vcard);
102 free(serialized_vcard);
104 /* Populate the variables for our form */
106 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
107 value = vcard_get_prop(v, "", 0, i++, 0);
109 if (!strcasecmp(key, "n")) {
110 extract_token(lastname, value, 0, ';', sizeof lastname);
111 extract_token(firstname, value, 1, ';', sizeof firstname);
112 extract_token(middlename, value, 2, ';', sizeof middlename);
113 extract_token(prefix, value, 3, ';', sizeof prefix);
114 extract_token(suffix, value, 4, ';', sizeof suffix);
117 else if (!strcasecmp(key, "title")) {
118 safestrncpy(title, value, sizeof title);
121 else if (!strcasecmp(key, "org")) {
122 safestrncpy(org, value, sizeof org);
125 else if (!strcasecmp(key, "adr")) {
126 extract_token(pobox, value, 0, ';', sizeof pobox);
127 extract_token(extadr, value, 1, ';', sizeof extadr);
128 extract_token(street, value, 2, ';', sizeof street);
129 extract_token(city, value, 3, ';', sizeof city);
130 extract_token(state, value, 4, ';', sizeof state);
131 extract_token(zipcode, value, 5, ';', sizeof zipcode);
132 extract_token(country, value, 6, ';', sizeof country);
135 else if (!strcasecmp(key, "tel;home")) {
136 extract_token(hometel, value, 0, ';', sizeof hometel);
139 else if (!strcasecmp(key, "tel;work")) {
140 extract_token(worktel, value, 0, ';', sizeof worktel);
143 else if (!strcasecmp(key, "email;internet")) {
144 if (primary_inetemail[0] == 0) {
145 safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
148 if (other_inetemail[0] != 0) {
149 strcat(other_inetemail, "\n");
151 strcat(other_inetemail, value);
156 strcat(extrafields, key);
157 strcat(extrafields, ":");
158 strcat(extrafields, value);
159 strcat(extrafields, "\n");
167 /* Display the form */
168 output_headers(1, 1, 2, 0, 0, 0);
169 wprintf("<div id=\"banner\">\n"
170 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
171 "<SPAN CLASS=\"titlebar\">"
172 "<img src=\"/static/savecontact_48x.gif\">");
173 wprintf(_("Edit contact information"));
175 "</TD></TR></TABLE>\n"
176 "</div>\n<div id=\"content\">\n"
179 wprintf("<FORM METHOD=\"POST\" ACTION=\"/submit_vcard\">\n");
180 wprintf("<div id=\"fix_scrollbar_bug\">"
181 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
183 wprintf("<TABLE border=0><TR>"
188 "<TD>%s</TD></TR>\n",
189 _("Prefix"), _("First"), _("Middle"), _("Last"), _("Suffix")
191 wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
192 "VALUE=\"%s\" MAXLENGTH=\"5\" SIZE=\"5\"></TD>",
194 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
195 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
197 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
198 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
200 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
201 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
203 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
204 "VALUE=\"%s\" MAXLENGTH=\"10\" SIZE=\"10\"></TD></TR></TABLE>\n",
207 wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
210 wprintf(_("Title:"));
212 "<INPUT TYPE=\"text\" NAME=\"title\" "
213 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
217 wprintf(_("Organization:"));
219 "<INPUT TYPE=\"text\" NAME=\"org\" "
220 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
224 wprintf("</td><td>");
226 wprintf("<table border=0>");
228 wprintf(_("PO box:"));
230 "<INPUT TYPE=\"text\" NAME=\"pobox\" "
231 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
234 wprintf(_("Address:"));
236 "<INPUT TYPE=\"text\" NAME=\"extadr\" "
237 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
239 wprintf("<tr><td> </td><td>"
240 "<INPUT TYPE=\"text\" NAME=\"street\" "
241 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
246 "<INPUT TYPE=\"text\" NAME=\"city\" "
247 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
250 wprintf(_("State:"));
252 "<INPUT TYPE=\"text\" NAME=\"state\" "
253 "VALUE=\"%s\" MAXLENGTH=\"2\"></td></tr>\n",
256 wprintf(_("ZIP code:"));
258 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
259 "VALUE=\"%s\" MAXLENGTH=\"10\"></td></tr>\n",
262 wprintf(_("Country:"));
264 "<INPUT TYPE=\"text\" NAME=\"country\" "
265 "VALUE=\"%s\" MAXLENGTH=\"29\" WIDTH=\"5\"></td></tr>\n",
267 wprintf("</table>\n");
269 wprintf("</table>\n");
271 wprintf("<TABLE BORDER=0><TR><TD>");
272 wprintf(_("Home telephone:"));
274 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
275 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>\n",
278 wprintf(_("Work telephone:"));
280 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
281 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
284 wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
287 wprintf("<TABLE border=0><TR>"
289 wprintf(_("Primary Internet e-mail address"));
291 "<INPUT TYPE=\"text\" NAME=\"primary_inetemail\" "
292 "SIZE=40 MAXLENGTH=40 VALUE=\"");
293 escputs(primary_inetemail);
295 "</TD><TD VALIGN=TOP>");
296 wprintf(_("Internet e-mail aliases"));
298 "<TEXTAREA NAME=\"other_inetemail\" ROWS=5 COLS=40 WIDTH=40>");
299 escputs(other_inetemail);
300 wprintf("</TEXTAREA></TD></TR></TABLE>\n");
302 wprintf("</td></tr></table>\n");
304 wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
305 escputs(extrafields);
308 wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
309 urlescputs(return_to);
313 "<INPUT TYPE=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">"
315 "<INPUT TYPE=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">"
316 "</CENTER></FORM>\n",
321 wprintf("</td></tr></table></div>\n");
327 void edit_vcard(void) {
331 msgnum = atol(bstr("msgnum"));
332 partnum = bstr("partnum");
333 do_edit_vcard(msgnum, partnum, "");
339 void submit_vcard(void) {
343 if (strlen(bstr("ok_button")) == 0) {
348 sprintf(buf, "ENT0 1|||4||");
350 serv_getln(buf, sizeof buf);
356 serv_puts("Content-type: text/x-vcard");
358 serv_puts("begin:vcard");
359 serv_printf("n:%s;%s;%s;%s;%s",
365 serv_printf("title:%s", bstr("title") );
366 serv_printf("org:%s", bstr("org") );
367 serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
375 serv_printf("tel;home:%s", bstr("hometel") );
376 serv_printf("tel;work:%s", bstr("worktel") );
378 serv_printf("email;internet:%s\n", bstr("primary_inetemail"));
379 for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
380 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
381 if (strlen(buf) > 0) {
382 serv_printf("email;internet:%s", buf);
386 serv_printf("%s", bstr("extrafields") );
387 serv_puts("end:vcard");
390 if (!strcmp(bstr("return_to"), "/select_user_to_edit")) {
391 select_user_to_edit(NULL, NULL);
393 else if (!strcmp(bstr("return_to"), "/do_welcome")) {