4 * Handles editing of vCard objects.
14 #include <sys/types.h>
16 #include <sys/socket.h>
19 #include <netinet/in.h>
31 /* Edit the vCard component of a MIME message. Supply the message number
32 * and MIME part number to fetch. Or, specify -1 for the message number
33 * to start with a blank card.
35 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
37 char *serialized_vcard = NULL;
58 char primary_inetemail[SIZ];
59 char other_inetemail[SIZ];
60 char extrafields[SIZ];
78 primary_inetemail[0] = 0;
79 other_inetemail[0] = 0;
87 sprintf(buf, "MSG0 %ld|1", msgnum);
91 convenience_page("770000", "Error", &buf[4]);
94 while (serv_gets(buf), strcmp(buf, "000")) {
95 if (!strncasecmp(buf, "from=", 5)) {
96 strcpy(whatuser, &buf[5]);
98 else if (!strncasecmp(buf, "node=", 5)) {
99 strcat(whatuser, " @ ");
100 strcat(whatuser, &buf[5]);
104 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
108 convenience_page("770000", "Error", &buf[4]);
112 total_len = atoi(&buf[4]);
113 serialized_vcard = malloc(total_len + 2);
115 read_server_binary(serialized_vcard, total_len);
119 serialized_vcard[total_len] = 0;
121 v = vcard_load(serialized_vcard);
122 free(serialized_vcard);
124 /* Populate the variables for our form */
126 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
127 value = vcard_get_prop(v, "", 0, i++, 0);
129 if (!strcasecmp(key, "n")) {
130 extract_token(lastname, value, 0, ';', sizeof lastname);
131 extract_token(firstname, value, 1, ';', sizeof firstname);
132 extract_token(middlename, value, 2, ';', sizeof middlename);
133 extract_token(prefix, value, 3, ';', sizeof prefix);
134 extract_token(suffix, value, 4, ';', sizeof suffix);
137 else if (!strcasecmp(key, "title")) {
138 strcpy(title, value);
141 else if (!strcasecmp(key, "org")) {
145 else if (!strcasecmp(key, "adr")) {
146 extract_token(pobox, value, 0, ';', sizeof pobox);
147 extract_token(extadr, value, 1, ';', sizeof extadr);
148 extract_token(street, value, 2, ';', sizeof street);
149 extract_token(city, value, 3, ';', sizeof city);
150 extract_token(state, value, 4, ';', sizeof state);
151 extract_token(zipcode, value, 5, ';', sizeof zipcode);
152 extract_token(country, value, 6, ';', sizeof country);
155 else if (!strcasecmp(key, "tel;home")) {
156 extract_token(hometel, value, 0, ';', sizeof hometel);
159 else if (!strcasecmp(key, "tel;work")) {
160 extract_token(worktel, value, 0, ';', sizeof worktel);
163 else if (!strcasecmp(key, "email;internet")) {
164 if (primary_inetemail[0] == 0) {
165 strcpy(primary_inetemail, value);
168 if (other_inetemail[0] != 0) {
169 strcat(other_inetemail, "\n");
171 strcat(other_inetemail, value);
176 strcat(extrafields, key);
177 strcat(extrafields, ":");
178 strcat(extrafields, value);
179 strcat(extrafields, "\n");
187 /* Display the form */
188 output_headers(1, 1, 2, 0, 0, 0, 0);
189 wprintf("<div id=\"banner\">\n"
190 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
191 "<SPAN CLASS=\"titlebar\">"
192 "<img src=\"/static/vcard.gif\">"
193 "Edit contact information"
195 "</TD></TR></TABLE>\n"
196 "</div>\n<div id=\"content\">\n"
199 wprintf("<FORM METHOD=\"POST\" ACTION=\"/submit_vcard\">\n");
200 wprintf("<div id=\"fix_scrollbar_bug\">"
201 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
203 wprintf("<TABLE border=0><TR>"
208 "<TD>Suffix</TD></TR>\n");
209 wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
210 "VALUE=\"%s\" MAXLENGTH=\"5\" SIZE=\"5\"></TD>",
212 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
213 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
215 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
216 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
218 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
219 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
221 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
222 "VALUE=\"%s\" MAXLENGTH=\"10\" SIZE=\"10\"></TD></TR></TABLE>\n",
225 wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
229 "<INPUT TYPE=\"text\" NAME=\"title\" "
230 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
234 wprintf("Organization:<br>"
235 "<INPUT TYPE=\"text\" NAME=\"org\" "
236 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
240 wprintf("</td><td>");
242 wprintf("<table border=0>");
243 wprintf("<tr><td>PO box:</td><td>"
244 "<INPUT TYPE=\"text\" NAME=\"pobox\" "
245 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
247 wprintf("<tr><td>Address:</td><td>"
248 "<INPUT TYPE=\"text\" NAME=\"extadr\" "
249 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
251 wprintf("<tr><td> </td><td>"
252 "<INPUT TYPE=\"text\" NAME=\"street\" "
253 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
255 wprintf("<tr><td>City:</td><td>"
256 "<INPUT TYPE=\"text\" NAME=\"city\" "
257 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
259 wprintf("<tr><td>State:</td><td>"
260 "<INPUT TYPE=\"text\" NAME=\"state\" "
261 "VALUE=\"%s\" MAXLENGTH=\"2\"></td></tr>\n",
263 wprintf("<tr><td>ZIP code:</td><td>"
264 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
265 "VALUE=\"%s\" MAXLENGTH=\"10\"></td></tr>\n",
267 wprintf("<tr><td>Country:</td><td>"
268 "<INPUT TYPE=\"text\" NAME=\"country\" "
269 "VALUE=\"%s\" MAXLENGTH=\"29\" WIDTH=\"5\"></td></tr>\n",
271 wprintf("</table>\n");
273 wprintf("</table>\n");
275 wprintf("<TABLE BORDER=0><TR><TD>Home telephone:</TD>"
276 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
277 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>\n",
279 wprintf("<TD>Work telephone:</TD>"
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>"
288 "<TD VALIGN=TOP>Primary Internet e-mail address<br />"
289 "<INPUT TYPE=\"text\" NAME=\"primary_inetemail\" "
290 "SIZE=40 MAXLENGTH=40 VALUE=\"");
291 escputs(primary_inetemail);
293 "</TD><TD VALIGN=TOP>"
294 "Internet e-mail aliases<br />"
295 "<TEXTAREA NAME=\"other_inetemail\" ROWS=5 COLS=40 WIDTH=40>");
296 escputs(other_inetemail);
297 wprintf("</TEXTAREA></TD></TR></TABLE>\n");
299 wprintf("</td></tr></table>\n");
301 wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
302 escputs(extrafields);
305 wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
306 urlescputs(return_to);
310 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">"
312 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">"
316 wprintf("</td></tr></table></div>\n");
322 void edit_vcard(void) {
326 msgnum = atol(bstr("msgnum"));
327 partnum = bstr("partnum");
328 do_edit_vcard(msgnum, partnum, "");
334 void submit_vcard(void) {
338 if (strcmp(bstr("sc"), "OK")) {
343 sprintf(buf, "ENT0 1|||4||");
351 serv_puts("Content-type: text/x-vcard");
353 serv_puts("begin:vcard");
354 serv_printf("n:%s;%s;%s;%s;%s",
360 serv_printf("title:%s", bstr("title") );
361 serv_printf("org:%s", bstr("org") );
362 serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
370 serv_printf("tel;home:%s", bstr("hometel") );
371 serv_printf("tel;work:%s", bstr("worktel") );
373 serv_printf("email;internet:%s\n", bstr("primary_inetemail"));
374 for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
375 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
376 if (strlen(buf) > 0) {
377 serv_printf("email;internet:%s", buf);
381 serv_printf("%s", bstr("extrafields") );
382 serv_puts("end:vcard");
385 if (!strcmp(bstr("return_to"), "/select_user_to_edit")) {
386 select_user_to_edit(NULL, NULL);
388 else if (!strcmp(bstr("return_to"), "/do_welcome")) {