webcit/vcard_edit.c

   1 /*
   2  * vcard_edit.c
   3  *
   4  * Handles editing of vCard objects.
   5  *
   6  * $Id$
   7  */
   8
   9 #include <ctype.h>
  10 #include <stdlib.h>
  11 #include <unistd.h>
  12 #include <stdio.h>
  13 #include <fcntl.h>
  14 #include <signal.h>
  15 #include <sys/types.h>
  16 #include <sys/wait.h>
  17 #include <sys/socket.h>
  18 #include <sys/time.h>
  19 #include <limits.h>
  20 #include <netinet/in.h>
  21 #include <netdb.h>
  22 #include <string.h>
  23 #include <pwd.h>
  24 #include <errno.h>
  25 #include <stdarg.h>
  26 #include <pthread.h>
  27 #include <signal.h>
  28 #include "webcit.h"
  29 #include "vcard.h"
  30
  31
  32
  33 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
  34         char buf[SIZ];
  35         char *serialized_vcard = NULL;
  36         size_t total_len = 0;
  37         struct vCard *v;
  38         int i;
  39         char *key, *value;
  40         char whatuser[SIZ];
  41
  42         char lastname[SIZ];
  43         char firstname[SIZ];
  44         char middlename[SIZ];
  45         char prefix[SIZ];
  46         char suffix[SIZ];
  47         char pobox[SIZ];
  48         char extadr[SIZ];
  49         char street[SIZ];
  50         char city[SIZ];
  51         char state[SIZ];
  52         char zipcode[SIZ];
  53         char country[SIZ];
  54         char hometel[SIZ];
  55         char worktel[SIZ];
  56         char inetemail[SIZ];
  57         char extrafields[SIZ];
  58
  59         lastname[0] = 0;
  60         firstname[0] = 0;
  61         middlename[0] = 0;
  62         prefix[0] = 0;
  63         suffix[0] = 0;
  64         pobox[0] = 0;
  65         extadr[0] = 0;
  66         street[0] = 0;
  67         city[0] = 0;
  68         state[0] = 0;
  69         zipcode[0] = 0;
  70         country[0] = 0;
  71         hometel[0] = 0;
  72         worktel[0] = 0;
  73         inetemail[0] = 0;
  74         extrafields[0] = 0;
  75
  76         output_headers(3);
  77
  78         strcpy(whatuser, "");
  79         sprintf(buf, "MSG0 %ld|1", msgnum);
  80         serv_puts(buf);
  81         serv_gets(buf);
  82         if (buf[0] != '1') {
  83                 wDumpContent(1);
  84                 return;
  85         }
  86         while (serv_gets(buf), strcmp(buf, "000")) {
  87                 if (!strncasecmp(buf, "from=", 5)) {
  88                         strcpy(whatuser, &buf[5]);
  89                 }
  90                 else if (!strncasecmp(buf, "node=", 5)) {
  91                         strcat(whatuser, " @ ");
  92                         strcat(whatuser, &buf[5]);
  93                 }
  94         }
  95
  96         sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
  97         serv_puts(buf);
  98         serv_gets(buf);
  99         if (buf[0] != '2') {
 100                 wDumpContent(1);
 101                 return;
 102         }
 103
 104         total_len = atoi(&buf[4]);
 105         serialized_vcard = malloc(total_len + 1);
 106
 107         read_server_binary(serialized_vcard, total_len);
 108
 109         serv_puts("CLOS");
 110         serv_gets(buf);
 111         serialized_vcard[total_len + 1] = 0;
 112
 113         v = vcard_load(serialized_vcard);
 114         free(serialized_vcard);
 115
 116         /* Populate the variables for our form */
 117         i = 0;
 118         while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
 119                 value = vcard_get_prop(v, "", 0, i++, 0);
 120
 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, ';');
 127                 }
 128
 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, ';');
 137                 }
 138
 139                 else if (!strcasecmp(key, "tel;home")) {
 140                         extract_token(hometel, value, 0, ';');
 141                 }
 142
 143                 else if (!strcasecmp(key, "tel;work")) {
 144                         extract_token(worktel, value, 0, ';');
 145                 }
 146
 147                 else if (!strcasecmp(key, "email;internet")) {
 148                         if (inetemail[0] != 0) {
 149                                 strcat(inetemail, "\n");
 150                         }
 151                         strcat(inetemail, value);
 152                 }
 153
 154                 else {
 155                         strcat(extrafields, key);
 156                         strcat(extrafields, ":");
 157                         strcat(extrafields, value);
 158                         strcat(extrafields, "\n");
 159                 }
 160
 161         }
 162
 163         vcard_free(v);
 164
 165         /* Display the form */
 166         wprintf("<FORM METHOD=\"POST\" ACTION=\"/submit_vcard\">\n");
 167         wprintf("<H2><IMG ALIGN=CENTER SRC=\"/static/vcard.gif\">"
 168                 "Contact information for ");
 169         escputs(whatuser);
 170         wprintf("</H2>\n");
 171
 172         wprintf("<TABLE border=0><TR>"
 173                 "<TD>Prefix</TD>"
 174                 "<TD>First</TD>"
 175                 "<TD>Middle</TD>"
 176                 "<TD>Last</TD>"
 177                 "<TD>Suffix</TD></TR>\n");
 178         wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
 179                 "VALUE=\"%s\" MAXLENGTH=\"5\"></TD>",
 180                 prefix);
 181         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
 182                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 183                 firstname);
 184         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
 185                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 186                 middlename);
 187         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
 188                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 189                 lastname);
 190         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
 191                 "VALUE=\"%s\" MAXLENGTH=\"10\"></TD></TR></TABLE>\n",
 192                 suffix);
 193
 194         wprintf("<TABLE border=0><TR><TD>PO box (optional):</TD>"
 195                 "<TD><INPUT TYPE=\"text\" NAME=\"pobox\" "
 196                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
 197                 pobox);
 198         wprintf("<TR><TD>Address line 1:</TD>"
 199                 "<TD><INPUT TYPE=\"text\" NAME=\"extadr\" "
 200                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
 201                 extadr);
 202         wprintf("<TR><TD>Address line 2:</TD>"
 203                 "<TD><INPUT TYPE=\"text\" NAME=\"street\" "
 204                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
 205                 street);
 206         wprintf("<TR><TD>City:</TD>"
 207                 "<TD><INPUT TYPE=\"text\" NAME=\"city\" "
 208                 "VALUE=\"%s\" MAXLENGTH=\"29\">\n",
 209                 city);
 210         wprintf(" State: "
 211                 "<INPUT TYPE=\"text\" NAME=\"state\" "
 212                 "VALUE=\"%s\" MAXLENGTH=\"2\">\n",
 213                 state);
 214         wprintf(" ZIP code: "
 215                 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
 216                 "VALUE=\"%s\" MAXLENGTH=\"10\"></TD></TR>\n",
 217                 zipcode);
 218         wprintf("<TR><TD>Country:</TD>"
 219                 "<TD><INPUT TYPE=\"text\" NAME=\"country\" "
 220                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
 221                 country);
 222
 223         wprintf("<TABLE BORDER=0><TR><TD>Home telephone:</TD>"
 224                 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
 225                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR>\n",
 226                 hometel);
 227         wprintf("<TR><TD>Work telephone:</TD>"
 228                 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
 229                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
 230                 worktel);
 231
 232         wprintf("<TABLE border=0><TR><TD>Internet e-mail addresses:<BR>"
 233                 "<FONT size=-2>For addresses in the Citadel directory, "
 234                 "the topmost address will be used in outgoing mail."
 235                 "</FONT></TD><TD>"
 236                 "<TEXTAREA NAME=\"inetemail\" ROWS=5 COLS=40 WIDTH=40>");
 237         escputs(inetemail);
 238         wprintf("</TEXTAREA></TD></TR></TABLE><BR>\n");
 239
 240         wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
 241         escputs(extrafields);
 242         wprintf("\">\n");
 243
 244         wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
 245         urlescputs(return_to);
 246         wprintf("\">\n");
 247
 248         wprintf("<CENTER>\n");
 249                 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
 250                 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
 251                 wprintf("</CENTER></FORM>\n");
 252
 253
 254         wDumpContent(1);
 255 }
 256
 257
 258
 259 void edit_vcard(void) {
 260         long msgnum;
 261         char *partnum;
 262
 263         msgnum = atol(bstr("msgnum"));
 264         partnum = bstr("partnum");
 265         do_edit_vcard(msgnum, partnum, "");
 266 }
 267
 268
 269
 270
 271 void submit_vcard(void) {
 272         char buf[SIZ];
 273         int i;
 274
 275         if (strcmp(bstr("sc"), "OK")) {
 276                 readloop("readnew");
 277                 return;
 278         }
 279
 280         sprintf(buf, "ENT0 1|||4||");
 281         serv_puts(buf);
 282         serv_gets(buf);
 283         if (buf[0] != '4') {
 284                 edit_vcard();
 285                 return;
 286         }
 287
 288         serv_puts("Content-type: text/x-vcard");
 289         serv_puts("");
 290         serv_puts("begin:vcard");
 291         serv_printf("n:%s;%s;%s;%s;%s",
 292                 bstr("lastname"),
 293                 bstr("firstname"),
 294                 bstr("middlename"),
 295                 bstr("prefix"),
 296                 bstr("suffix") );
 297         serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
 298                 bstr("pobox"),
 299                 bstr("extadr"),
 300                 bstr("street"),
 301                 bstr("city"),
 302                 bstr("state"),
 303                 bstr("zipcode"),
 304                 bstr("country") );
 305         serv_printf("tel;home:%s", bstr("hometel") );
 306         serv_printf("tel;work:%s", bstr("worktel") );
 307
 308         for (i=0; i<num_tokens(bstr("inetemail"), '\n'); ++i) {
 309                 extract_token(buf, bstr("inetemail"), i, '\n');
 310                 if (strlen(buf) > 0) {
 311                         serv_printf("email;internet:%s", buf);
 312                 }
 313         }
 314
 315         serv_printf("%s", bstr("extrafields") );
 316         serv_puts("end:vcard");
 317         serv_puts("000");
 318
 319         if (!strcmp(bstr("return_to"), "/select_user_to_edit")) {
 320                 select_user_to_edit(NULL, NULL);
 321         }
 322         else {
 323                 readloop("readnew");
 324         }
 325 }