webcit/vcard_edit.c

   1 /*
   2  * $Id$
   3  *
   4  * Handles on-screen editing of vCard objects.
   5  *
   6  */
   7
   8 #include "webcit.h"
   9 #include "vcard.h"
  10
  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.
  14  */
  15 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
  16         char buf[SIZ];
  17         char *serialized_vcard = NULL;
  18         size_t total_len = 0;
  19         struct vCard *v;
  20         int i;
  21         char *key, *value;
  22         char whatuser[256];
  23
  24         char lastname[256];
  25         char firstname[256];
  26         char middlename[256];
  27         char prefix[256];
  28         char suffix[256];
  29         char pobox[256];
  30         char extadr[256];
  31         char street[256];
  32         char city[256];
  33         char state[256];
  34         char zipcode[256];
  35         char country[256];
  36         char hometel[256];
  37         char worktel[256];
  38         char primary_inetemail[256];
  39         char other_inetemail[SIZ];
  40         char extrafields[SIZ];
  41         char displayname[256];
  42         char title[256];
  43         char org[256];
  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, "fn")) {
 119                                 safestrncpy(displayname, value, sizeof displayname);
 120                         }
 121
 122                         else if (!strcasecmp(key, "title")) {
 123                                 safestrncpy(title, value, sizeof title);
 124                         }
 125
 126                         else if (!strcasecmp(key, "org")) {
 127                                 safestrncpy(org, value, sizeof org);
 128                         }
 129
 130                         else if (!strcasecmp(key, "adr")) {
 131                                 extract_token(pobox, value, 0, ';', sizeof pobox);
 132                                 extract_token(extadr, value, 1, ';', sizeof extadr);
 133                                 extract_token(street, value, 2, ';', sizeof street);
 134                                 extract_token(city, value, 3, ';', sizeof city);
 135                                 extract_token(state, value, 4, ';', sizeof state);
 136                                 extract_token(zipcode, value, 5, ';', sizeof zipcode);
 137                                 extract_token(country, value, 6, ';', sizeof country);
 138                         }
 139
 140                         else if (!strcasecmp(key, "tel;home")) {
 141                                 extract_token(hometel, value, 0, ';', sizeof hometel);
 142                         }
 143
 144                         else if (!strcasecmp(key, "tel;work")) {
 145                                 extract_token(worktel, value, 0, ';', sizeof worktel);
 146                         }
 147
 148                         else if (!strcasecmp(key, "email;internet")) {
 149                                 if (primary_inetemail[0] == 0) {
 150                                         safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
 151                                 }
 152                                 else {
 153                                         if (other_inetemail[0] != 0) {
 154                                                 strcat(other_inetemail, "\n");
 155                                         }
 156                                         strcat(other_inetemail, value);
 157                                 }
 158                         }
 159
 160                         else {
 161                                 strcat(extrafields, key);
 162                                 strcat(extrafields, ":");
 163                                 strcat(extrafields, value);
 164                                 strcat(extrafields, "\n");
 165                         }
 166
 167                 }
 168
 169                 vcard_free(v);
 170         }
 171
 172         /* Display the form */
 173         output_headers(1, 1, 2, 0, 0, 0);
 174         wprintf("<div id=\"banner\">\n"
 175                 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
 176                 "<SPAN CLASS=\"titlebar\">"
 177                 "<img src=\"static/savecontact_48x.gif\">");
 178         wprintf(_("Edit contact information"));
 179         wprintf("</SPAN>"
 180                 "</TD></TR></TABLE>\n"
 181                 "</div>\n<div id=\"content\">\n"
 182         );
 183
 184         wprintf("<FORM METHOD=\"POST\" action=\"submit_vcard\">\n");
 185         wprintf("<div id=\"fix_scrollbar_bug\">"
 186                 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
 187
 188         wprintf("<TABLE border=0><TR>"
 189                 "<TD>%s</TD>"
 190                 "<TD>%s</TD>"
 191                 "<TD>%s</TD>"
 192                 "<TD>%s</TD>"
 193                 "<TD>%s</TD></TR>\n",
 194                 _("Prefix"), _("First"), _("Middle"), _("Last"), _("Suffix")
 195         );
 196         wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
 197                 "VALUE=\"%s\" MAXLENGTH=\"5\" SIZE=\"5\"></TD>",
 198                 prefix);
 199         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
 200                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 201                 firstname);
 202         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
 203                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 204                 middlename);
 205         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
 206                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 207                 lastname);
 208         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
 209                 "VALUE=\"%s\" MAXLENGTH=\"10\" SIZE=\"10\"></TD></TR></TABLE>\n",
 210                 suffix);
 211
 212         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 213         wprintf("<tr><td>");
 214
 215         wprintf(_("Display name:"));
 216         wprintf("<br>"
 217                 "<INPUT TYPE=\"text\" NAME=\"displayname\" "
 218                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 219                 displayname
 220         );
 221
 222         wprintf(_("Title:"));
 223         wprintf("<br>"
 224                 "<INPUT TYPE=\"text\" NAME=\"title\" "
 225                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 226                 title
 227         );
 228
 229         wprintf(_("Organization:"));
 230         wprintf("<br>"
 231                 "<INPUT TYPE=\"text\" NAME=\"org\" "
 232                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 233                 org
 234         );
 235
 236         wprintf("</td><td>");
 237
 238         wprintf("<table border=0>");
 239         wprintf("<tr><td>");
 240         wprintf(_("PO box:"));
 241         wprintf("</td><td>"
 242                 "<INPUT TYPE=\"text\" NAME=\"pobox\" "
 243                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 244                 pobox);
 245         wprintf("<tr><td>");
 246         wprintf(_("Address:"));
 247         wprintf("</td><td>"
 248                 "<INPUT TYPE=\"text\" NAME=\"extadr\" "
 249                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 250                 extadr);
 251         wprintf("<tr><td> </td><td>"
 252                 "<INPUT TYPE=\"text\" NAME=\"street\" "
 253                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 254                 street);
 255         wprintf("<tr><td>");
 256         wprintf(_("City:"));
 257         wprintf("</td><td>"
 258                 "<INPUT TYPE=\"text\" NAME=\"city\" "
 259                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 260                 city);
 261         wprintf("<tr><td>");
 262         wprintf(_("State:"));
 263         wprintf("</td><td>"
 264                 "<INPUT TYPE=\"text\" NAME=\"state\" "
 265                 "VALUE=\"%s\" MAXLENGTH=\"2\"></td></tr>\n",
 266                 state);
 267         wprintf("<tr><td>");
 268         wprintf(_("ZIP code:"));
 269         wprintf("</td><td>"
 270                 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
 271                 "VALUE=\"%s\" MAXLENGTH=\"10\"></td></tr>\n",
 272                 zipcode);
 273         wprintf("<tr><td>");
 274         wprintf(_("Country:"));
 275         wprintf("</td><td>"
 276                 "<INPUT TYPE=\"text\" NAME=\"country\" "
 277                 "VALUE=\"%s\" MAXLENGTH=\"29\" WIDTH=\"5\"></td></tr>\n",
 278                 country);
 279         wprintf("</table>\n");
 280
 281         wprintf("</table>\n");
 282
 283         wprintf("<TABLE BORDER=0><TR><TD>");
 284         wprintf(_("Home telephone:"));
 285         wprintf("</TD>"
 286                 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
 287                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>\n",
 288                 hometel);
 289         wprintf("<TD>");
 290         wprintf(_("Work telephone:"));
 291         wprintf("</TD>"
 292                 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
 293                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
 294                 worktel);
 295
 296         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 297         wprintf("<tr><td>");
 298
 299         wprintf("<TABLE border=0><TR>"
 300                 "<TD VALIGN=TOP>");
 301         wprintf(_("Primary Internet e-mail address"));
 302         wprintf("<br />"
 303                 "<INPUT TYPE=\"text\" NAME=\"primary_inetemail\" "
 304                 "SIZE=40 MAXLENGTH=40 VALUE=\"");
 305         escputs(primary_inetemail);
 306         wprintf("\"><br />"
 307                 "</TD><TD VALIGN=TOP>");
 308         wprintf(_("Internet e-mail aliases"));
 309         wprintf("<br />"
 310                 "<TEXTAREA NAME=\"other_inetemail\" ROWS=5 COLS=40 WIDTH=40>");
 311         escputs(other_inetemail);
 312         wprintf("</TEXTAREA></TD></TR></TABLE>\n");
 313
 314         wprintf("</td></tr></table>\n");
 315
 316         wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
 317         escputs(extrafields);
 318         wprintf("\">\n");
 319
 320         wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
 321         urlescputs(return_to);
 322         wprintf("\">\n");
 323
 324         wprintf("<CENTER>\n"
 325                 "<INPUT TYPE=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">"
 326                 "&nbsp;"
 327                 "<INPUT TYPE=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">"
 328                 "</CENTER></FORM>\n",
 329                 _("Save changes"),
 330                 _("Cancel")
 331         );
 332
 333         wprintf("</td></tr></table></div>\n");
 334         wDumpContent(1);
 335 }
 336
 337
 338
 339 void edit_vcard(void) {
 340         long msgnum;
 341         char *partnum;
 342
 343         msgnum = atol(bstr("msgnum"));
 344         partnum = bstr("partnum");
 345         do_edit_vcard(msgnum, partnum, "");
 346 }
 347
 348
 349
 350
 351 void submit_vcard(void) {
 352         char buf[SIZ];
 353         int i;
 354
 355         if (strlen(bstr("ok_button")) == 0) {
 356                 readloop("readnew");
 357                 return;
 358         }
 359
 360         sprintf(buf, "ENT0 1|||4||");
 361         serv_puts(buf);
 362         serv_getln(buf, sizeof buf);
 363         if (buf[0] != '4') {
 364                 edit_vcard();
 365                 return;
 366         }
 367
 368         serv_puts("Content-type: text/x-vcard");
 369         serv_puts("");
 370         serv_puts("begin:vcard");
 371         serv_printf("n:%s;%s;%s;%s;%s",
 372                 bstr("lastname"),
 373                 bstr("firstname"),
 374                 bstr("middlename"),
 375                 bstr("prefix"),
 376                 bstr("suffix") );
 377         serv_printf("title:%s", bstr("title") );
 378         serv_printf("fn:%s", bstr("displayname") );
 379         serv_printf("org:%s", bstr("org") );
 380         serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
 381                 bstr("pobox"),
 382                 bstr("extadr"),
 383                 bstr("street"),
 384                 bstr("city"),
 385                 bstr("state"),
 386                 bstr("zipcode"),
 387                 bstr("country") );
 388         serv_printf("tel;home:%s", bstr("hometel") );
 389         serv_printf("tel;work:%s", bstr("worktel") );
 390
 391         serv_printf("email;internet:%s\n", bstr("primary_inetemail"));
 392         for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
 393                 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
 394                 if (strlen(buf) > 0) {
 395                         serv_printf("email;internet:%s", buf);
 396                 }
 397         }
 398
 399         serv_printf("%s", bstr("extrafields") );
 400         serv_puts("end:vcard");
 401         serv_puts("000");
 402
 403         if (!strcmp(bstr("return_to"), "/select_user_to_edit")) {
 404                 select_user_to_edit(NULL, NULL);
 405         }
 406         else if (!strcmp(bstr("return_to"), "/do_welcome")) {
 407                 do_welcome();
 408         }
 409         else {
 410                 readloop("readnew");
 411         }
 412 }