webcit/vcard_edit.c

   1 /*
   2  * $Id$
   3  *
   4  * Handles editing of vCard objects.
   5  *
   6  */
   7
   8 #include "webcit.h"
   9 #include "vcard.h"
  10
  11
  12 /* Edit the vCard component of a MIME message.  Supply the message number
  13  * and MIME part number to fetch.  Or, specify -1 for the message number
  14  * to start with a blank card.
  15  */
  16 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
  17         char buf[SIZ];
  18         char *serialized_vcard = NULL;
  19         size_t total_len = 0;
  20         struct vCard *v;
  21         int i;
  22         char *key, *value;
  23         char whatuser[SIZ];
  24
  25         char lastname[SIZ];
  26         char firstname[SIZ];
  27         char middlename[SIZ];
  28         char prefix[SIZ];
  29         char suffix[SIZ];
  30         char pobox[SIZ];
  31         char extadr[SIZ];
  32         char street[SIZ];
  33         char city[SIZ];
  34         char state[SIZ];
  35         char zipcode[SIZ];
  36         char country[SIZ];
  37         char hometel[SIZ];
  38         char worktel[SIZ];
  39         char primary_inetemail[SIZ];
  40         char other_inetemail[SIZ];
  41         char extrafields[SIZ];
  42         char title[SIZ];
  43         char org[SIZ];
  44
  45         lastname[0] = 0;
  46         firstname[0] = 0;
  47         middlename[0] = 0;
  48         prefix[0] = 0;
  49         suffix[0] = 0;
  50         pobox[0] = 0;
  51         extadr[0] = 0;
  52         street[0] = 0;
  53         city[0] = 0;
  54         state[0] = 0;
  55         zipcode[0] = 0;
  56         country[0] = 0;
  57         hometel[0] = 0;
  58         worktel[0] = 0;
  59         primary_inetemail[0] = 0;
  60         other_inetemail[0] = 0;
  61         title[0] = 0;
  62         org[0] = 0;
  63         extrafields[0] = 0;
  64
  65         safestrncpy(whatuser, "", sizeof whatuser);
  66
  67         if (msgnum >= 0) {
  68                 sprintf(buf, "MSG0 %ld|1", msgnum);
  69                 serv_puts(buf);
  70                 serv_getln(buf, sizeof buf);
  71                 if (buf[0] != '1') {
  72                         convenience_page("770000", "Error", &buf[4]);
  73                         return;
  74                 }
  75                 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
  76                         if (!strncasecmp(buf, "from=", 5)) {
  77                                 safestrncpy(whatuser, &buf[5], sizeof whatuser);
  78                         }
  79                         else if (!strncasecmp(buf, "node=", 5)) {
  80                                 strcat(whatuser, " @ ");
  81                                 strcat(whatuser, &buf[5]);
  82                         }
  83                 }
  84
  85                 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
  86                 serv_puts(buf);
  87                 serv_getln(buf, sizeof buf);
  88                 if (buf[0] != '2') {
  89                         convenience_page("770000", "Error", &buf[4]);
  90                         return;
  91                 }
  92
  93                 total_len = atoi(&buf[4]);
  94                 serialized_vcard = malloc(total_len + 2);
  95
  96                 read_server_binary(serialized_vcard, total_len);
  97
  98                 serv_puts("CLOS");
  99                 serv_getln(buf, sizeof buf);
 100                 serialized_vcard[total_len] = 0;
 101
 102                 v = vcard_load(serialized_vcard);
 103                 free(serialized_vcard);
 104
 105                 /* Populate the variables for our form */
 106                 i = 0;
 107                 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
 108                         value = vcard_get_prop(v, "", 0, i++, 0);
 109
 110                         if (!strcasecmp(key, "n")) {
 111                                 extract_token(lastname, value, 0, ';', sizeof lastname);
 112                                 extract_token(firstname, value, 1, ';', sizeof firstname);
 113                                 extract_token(middlename, value, 2, ';', sizeof middlename);
 114                                 extract_token(prefix, value, 3, ';', sizeof prefix);
 115                                 extract_token(suffix, value, 4, ';', sizeof suffix);
 116                         }
 117
 118                         else if (!strcasecmp(key, "title")) {
 119                                 safestrncpy(title, value, sizeof title);
 120                         }
 121
 122                         else if (!strcasecmp(key, "org")) {
 123                                 safestrncpy(org, value, sizeof org);
 124                         }
 125
 126                         else if (!strcasecmp(key, "adr")) {
 127                                 extract_token(pobox, value, 0, ';', sizeof pobox);
 128                                 extract_token(extadr, value, 1, ';', sizeof extadr);
 129                                 extract_token(street, value, 2, ';', sizeof street);
 130                                 extract_token(city, value, 3, ';', sizeof city);
 131                                 extract_token(state, value, 4, ';', sizeof state);
 132                                 extract_token(zipcode, value, 5, ';', sizeof zipcode);
 133                                 extract_token(country, value, 6, ';', sizeof country);
 134                         }
 135
 136                         else if (!strcasecmp(key, "tel;home")) {
 137                                 extract_token(hometel, value, 0, ';', sizeof hometel);
 138                         }
 139
 140                         else if (!strcasecmp(key, "tel;work")) {
 141                                 extract_token(worktel, value, 0, ';', sizeof worktel);
 142                         }
 143
 144                         else if (!strcasecmp(key, "email;internet")) {
 145                                 if (primary_inetemail[0] == 0) {
 146                                         safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
 147                                 }
 148                                 else {
 149                                         if (other_inetemail[0] != 0) {
 150                                                 strcat(other_inetemail, "\n");
 151                                         }
 152                                         strcat(other_inetemail, value);
 153                                 }
 154                         }
 155
 156                         else {
 157                                 strcat(extrafields, key);
 158                                 strcat(extrafields, ":");
 159                                 strcat(extrafields, value);
 160                                 strcat(extrafields, "\n");
 161                         }
 162
 163                 }
 164
 165                 vcard_free(v);
 166         }
 167
 168         /* Display the form */
 169         output_headers(1, 1, 2, 0, 0, 0, 0);
 170         wprintf("<div id=\"banner\">\n"
 171                 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
 172                 "<SPAN CLASS=\"titlebar\">"
 173                 "<img src=\"/static/savecontact_48x.gif\">"
 174                 "Edit contact information"
 175                 "</SPAN>"
 176                 "</TD></TR></TABLE>\n"
 177                 "</div>\n<div id=\"content\">\n"
 178         );
 179
 180         wprintf("<FORM METHOD=\"POST\" ACTION=\"/submit_vcard\">\n");
 181         wprintf("<div id=\"fix_scrollbar_bug\">"
 182                 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
 183
 184         wprintf("<TABLE border=0><TR>"
 185                 "<TD>Prefix</TD>"
 186                 "<TD>First</TD>"
 187                 "<TD>Middle</TD>"
 188                 "<TD>Last</TD>"
 189                 "<TD>Suffix</TD></TR>\n");
 190         wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
 191                 "VALUE=\"%s\" MAXLENGTH=\"5\" SIZE=\"5\"></TD>",
 192                 prefix);
 193         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
 194                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 195                 firstname);
 196         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
 197                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 198                 middlename);
 199         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
 200                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 201                 lastname);
 202         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
 203                 "VALUE=\"%s\" MAXLENGTH=\"10\" SIZE=\"10\"></TD></TR></TABLE>\n",
 204                 suffix);
 205
 206         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 207         wprintf("<tr><td>");
 208
 209         wprintf("Title:<br>"
 210                 "<INPUT TYPE=\"text\" NAME=\"title\" "
 211                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 212                 title
 213         );
 214
 215         wprintf("Organization:<br>"
 216                 "<INPUT TYPE=\"text\" NAME=\"org\" "
 217                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 218                 org
 219         );
 220
 221         wprintf("</td><td>");
 222
 223         wprintf("<table border=0>");
 224         wprintf("<tr><td>PO box:</td><td>"
 225                 "<INPUT TYPE=\"text\" NAME=\"pobox\" "
 226                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 227                 pobox);
 228         wprintf("<tr><td>Address:</td><td>"
 229                 "<INPUT TYPE=\"text\" NAME=\"extadr\" "
 230                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 231                 extadr);
 232         wprintf("<tr><td> </td><td>"
 233                 "<INPUT TYPE=\"text\" NAME=\"street\" "
 234                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 235                 street);
 236         wprintf("<tr><td>City:</td><td>"
 237                 "<INPUT TYPE=\"text\" NAME=\"city\" "
 238                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 239                 city);
 240         wprintf("<tr><td>State:</td><td>"
 241                 "<INPUT TYPE=\"text\" NAME=\"state\" "
 242                 "VALUE=\"%s\" MAXLENGTH=\"2\"></td></tr>\n",
 243                 state);
 244         wprintf("<tr><td>ZIP code:</td><td>"
 245                 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
 246                 "VALUE=\"%s\" MAXLENGTH=\"10\"></td></tr>\n",
 247                 zipcode);
 248         wprintf("<tr><td>Country:</td><td>"
 249                 "<INPUT TYPE=\"text\" NAME=\"country\" "
 250                 "VALUE=\"%s\" MAXLENGTH=\"29\" WIDTH=\"5\"></td></tr>\n",
 251                 country);
 252         wprintf("</table>\n");
 253
 254         wprintf("</table>\n");
 255
 256         wprintf("<TABLE BORDER=0><TR><TD>Home telephone:</TD>"
 257                 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
 258                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>\n",
 259                 hometel);
 260         wprintf("<TD>Work telephone:</TD>"
 261                 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
 262                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
 263                 worktel);
 264
 265         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 266         wprintf("<tr><td>");
 267
 268         wprintf("<TABLE border=0><TR>"
 269                 "<TD VALIGN=TOP>Primary Internet e-mail address<br />"
 270                 "<INPUT TYPE=\"text\" NAME=\"primary_inetemail\" "
 271                 "SIZE=40 MAXLENGTH=40 VALUE=\"");
 272         escputs(primary_inetemail);
 273         wprintf("\"><br />"
 274                 "</TD><TD VALIGN=TOP>"
 275                 "Internet e-mail aliases<br />"
 276                 "<TEXTAREA NAME=\"other_inetemail\" ROWS=5 COLS=40 WIDTH=40>");
 277         escputs(other_inetemail);
 278         wprintf("</TEXTAREA></TD></TR></TABLE>\n");
 279
 280         wprintf("</td></tr></table>\n");
 281
 282         wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
 283         escputs(extrafields);
 284         wprintf("\">\n");
 285
 286         wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
 287         urlescputs(return_to);
 288         wprintf("\">\n");
 289
 290         wprintf("<CENTER>\n"
 291                 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">"
 292                 "&nbsp;"
 293                 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">"
 294                 "</CENTER></FORM>\n"
 295         );
 296
 297         wprintf("</td></tr></table></div>\n");
 298         wDumpContent(1);
 299 }
 300
 301
 302
 303 void edit_vcard(void) {
 304         long msgnum;
 305         char *partnum;
 306
 307         msgnum = atol(bstr("msgnum"));
 308         partnum = bstr("partnum");
 309         do_edit_vcard(msgnum, partnum, "");
 310 }
 311
 312
 313
 314
 315 void submit_vcard(void) {
 316         char buf[SIZ];
 317         int i;
 318
 319         if (strcmp(bstr("sc"), "OK")) {
 320                 readloop("readnew");
 321                 return;
 322         }
 323
 324         sprintf(buf, "ENT0 1|||4||");
 325         serv_puts(buf);
 326         serv_getln(buf, sizeof buf);
 327         if (buf[0] != '4') {
 328                 edit_vcard();
 329                 return;
 330         }
 331
 332         serv_puts("Content-type: text/x-vcard");
 333         serv_puts("");
 334         serv_puts("begin:vcard");
 335         serv_printf("n:%s;%s;%s;%s;%s",
 336                 bstr("lastname"),
 337                 bstr("firstname"),
 338                 bstr("middlename"),
 339                 bstr("prefix"),
 340                 bstr("suffix") );
 341         serv_printf("title:%s", bstr("title") );
 342         serv_printf("org:%s", bstr("org") );
 343         serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
 344                 bstr("pobox"),
 345                 bstr("extadr"),
 346                 bstr("street"),
 347                 bstr("city"),
 348                 bstr("state"),
 349                 bstr("zipcode"),
 350                 bstr("country") );
 351         serv_printf("tel;home:%s", bstr("hometel") );
 352         serv_printf("tel;work:%s", bstr("worktel") );
 353
 354         serv_printf("email;internet:%s\n", bstr("primary_inetemail"));
 355         for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
 356                 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
 357                 if (strlen(buf) > 0) {
 358                         serv_printf("email;internet:%s", buf);
 359                 }
 360         }
 361
 362         serv_printf("%s", bstr("extrafields") );
 363         serv_puts("end:vcard");
 364         serv_puts("000");
 365
 366         if (!strcmp(bstr("return_to"), "/select_user_to_edit")) {
 367                 select_user_to_edit(NULL, NULL);
 368         }
 369         else if (!strcmp(bstr("return_to"), "/do_welcome")) {
 370                 do_welcome();
 371         }
 372         else {
 373                 readloop("readnew");
 374         }
 375 }