4 * Handles editing of vCard objects.
15 #include <sys/types.h>
17 #include <sys/socket.h>
20 #include <netinet/in.h>
33 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
35 char *serialized_vcard = NULL;
57 char extrafields[SIZ];
79 sprintf(buf, "MSG0 %ld|1", msgnum);
86 while (serv_gets(buf), strcmp(buf, "000")) {
87 if (!strncasecmp(buf, "from=", 5)) {
88 strcpy(whatuser, &buf[5]);
90 else if (!strncasecmp(buf, "node=", 5)) {
91 strcat(whatuser, " @ ");
92 strcat(whatuser, &buf[5]);
96 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
104 total_len = atoi(&buf[4]);
105 serialized_vcard = malloc(total_len + 1);
107 read_server_binary(serialized_vcard, total_len);
111 serialized_vcard[total_len + 1] = 0;
113 v = vcard_load(serialized_vcard);
114 free(serialized_vcard);
116 /* Populate the variables for our form */
118 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
119 value = vcard_get_prop(v, "", 0, i++, 0);
121 if (!strcasecmp(key, "n")) {
122 extract_token(lastname, value, 0, ';');
123 extract_token(firstname, value, 1, ';');
124 extract_token(middlename, value, 2, ';');
125 extract_token(prefix, value, 3, ';');
126 extract_token(suffix, value, 4, ';');
129 else if (!strcasecmp(key, "adr")) {
130 extract_token(pobox, value, 0, ';');
131 extract_token(extadr, value, 1, ';');
132 extract_token(street, value, 2, ';');
133 extract_token(city, value, 3, ';');
134 extract_token(state, value, 4, ';');
135 extract_token(zipcode, value, 5, ';');
136 extract_token(country, value, 6, ';');
139 else if (!strcasecmp(key, "tel;home")) {
140 extract_token(hometel, value, 0, ';');
143 else if (!strcasecmp(key, "tel;work")) {
144 extract_token(worktel, value, 0, ';');
147 else if (!strcasecmp(key, "email;internet")) {
148 if (inetemail[0] != 0) {
149 strcat(inetemail, "\n");
151 strcat(inetemail, value);
155 strcat(extrafields, key);
156 strcat(extrafields, ":");
157 strcat(extrafields, value);
158 strcat(extrafields, "\n");
165 /* Display the form */
166 do_template("beginbox_nt");
167 wprintf("<FORM METHOD=\"POST\" ACTION=\"/submit_vcard\">\n");
168 wprintf("<H2><IMG ALIGN=CENTER SRC=\"/static/vcard.gif\">"
169 "Contact information for ");
173 wprintf("<TABLE border=0><TR>"
178 "<TD>Suffix</TD></TR>\n");
179 wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
180 "VALUE=\"%s\" MAXLENGTH=\"5\"></TD>",
182 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
183 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
185 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
186 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
188 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
189 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
191 wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
192 "VALUE=\"%s\" MAXLENGTH=\"10\"></TD></TR></TABLE>\n",
195 wprintf("<TABLE border=0><TR><TD>PO box (optional):</TD>"
196 "<TD><INPUT TYPE=\"text\" NAME=\"pobox\" "
197 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
199 wprintf("<TR><TD>Address line 1:</TD>"
200 "<TD><INPUT TYPE=\"text\" NAME=\"extadr\" "
201 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
203 wprintf("<TR><TD>Address line 2:</TD>"
204 "<TD><INPUT TYPE=\"text\" NAME=\"street\" "
205 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
207 wprintf("<TR><TD>City:</TD>"
208 "<TD><INPUT TYPE=\"text\" NAME=\"city\" "
209 "VALUE=\"%s\" MAXLENGTH=\"29\">\n",
212 "<INPUT TYPE=\"text\" NAME=\"state\" "
213 "VALUE=\"%s\" MAXLENGTH=\"2\">\n",
215 wprintf(" ZIP code: "
216 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
217 "VALUE=\"%s\" MAXLENGTH=\"10\"></TD></TR>\n",
219 wprintf("<TR><TD>Country:</TD>"
220 "<TD><INPUT TYPE=\"text\" NAME=\"country\" "
221 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
224 wprintf("<TABLE BORDER=0><TR><TD>Home telephone:</TD>"
225 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
226 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
228 wprintf("<TR><TD>Work telephone:</TD>"
229 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
230 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
233 wprintf("<TABLE border=0><TR><TD>Internet e-mail addresses:<BR>"
234 "<FONT size=-2>For addresses in the Citadel directory, "
235 "the topmost address will be used in outgoing mail."
237 "<TEXTAREA NAME=\"inetemail\" ROWS=5 COLS=40 WIDTH=40>");
239 wprintf("</TEXTAREA></TD></TR></TABLE><BR>\n");
241 wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
242 escputs(extrafields);
245 wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
246 urlescputs(return_to);
250 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">"
252 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">"
256 do_template("endbox");
262 void edit_vcard(void) {
266 msgnum = atol(bstr("msgnum"));
267 partnum = bstr("partnum");
268 do_edit_vcard(msgnum, partnum, "");
274 void submit_vcard(void) {
278 if (strcmp(bstr("sc"), "OK")) {
283 sprintf(buf, "ENT0 1|||4||");
291 serv_puts("Content-type: text/x-vcard");
293 serv_puts("begin:vcard");
294 serv_printf("n:%s;%s;%s;%s;%s",
300 serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
308 serv_printf("tel;home:%s", bstr("hometel") );
309 serv_printf("tel;work:%s", bstr("worktel") );
311 for (i=0; i<num_tokens(bstr("inetemail"), '\n'); ++i) {
312 extract_token(buf, bstr("inetemail"), i, '\n');
313 if (strlen(buf) > 0) {
314 serv_printf("email;internet:%s", buf);
318 serv_printf("%s", bstr("extrafields") );
319 serv_puts("end:vcard");
322 if (!strcmp(bstr("return_to"), "/select_user_to_edit")) {
323 select_user_to_edit(NULL, NULL);
325 else if (!strcmp(bstr("return_to"), "/do_welcome")) {