webcit/vcard_edit.c

   1 /*
   2  * $Id$
   3  */
   4 /**
   5  * \defgroup vCardEdit Handles on-screen editing of vCard objects.
   6  * \ingroup VCards
   7  */
   8 /*@{*/
   9 #include "webcit.h"
  10 #include "vcard.h"
  11
  12 /**
  13  * \brief Edit the vCard component of a MIME message.
  14  * Supply the message number
  15  * and MIME part number to fetch.  Or, specify -1 for the message number
  16  * to start with a blank card.
  17  * \param msgnum number of the item on the citadel server
  18  * \param partnum what???
  19  * \param return_to where to go back in the browser after edit ????
  20  */
  21 void do_edit_vcard(long msgnum, char *partnum, char *return_to) {
  22         char buf[SIZ];
  23         char *serialized_vcard = NULL;
  24         size_t total_len = 0;
  25         struct vCard *v;
  26         int i;
  27         char *key, *value;
  28         char whatuser[256];
  29
  30         char lastname[256];
  31         char firstname[256];
  32         char middlename[256];
  33         char prefix[256];
  34         char suffix[256];
  35         char pobox[256];
  36         char extadr[256];
  37         char street[256];
  38         char city[256];
  39         char state[256];
  40         char zipcode[256];
  41         char country[256];
  42         char hometel[256];
  43         char worktel[256];
  44         char primary_inetemail[256];
  45         char other_inetemail[SIZ];
  46         char extrafields[SIZ];
  47         char fullname[256];
  48         char title[256];
  49         char org[256];
  50
  51         lastname[0] = 0;
  52         firstname[0] = 0;
  53         middlename[0] = 0;
  54         prefix[0] = 0;
  55         suffix[0] = 0;
  56         pobox[0] = 0;
  57         extadr[0] = 0;
  58         street[0] = 0;
  59         city[0] = 0;
  60         state[0] = 0;
  61         zipcode[0] = 0;
  62         country[0] = 0;
  63         hometel[0] = 0;
  64         worktel[0] = 0;
  65         primary_inetemail[0] = 0;
  66         other_inetemail[0] = 0;
  67         title[0] = 0;
  68         org[0] = 0;
  69         extrafields[0] = 0;
  70         fullname[0] = 0;
  71
  72         safestrncpy(whatuser, "", sizeof whatuser);
  73
  74         if (msgnum >= 0) {
  75                 sprintf(buf, "MSG0 %ld|1", msgnum);
  76                 serv_puts(buf);
  77                 serv_getln(buf, sizeof buf);
  78                 if (buf[0] != '1') {
  79                         convenience_page("770000", _("Error"), &buf[4]);
  80                         return;
  81                 }
  82                 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
  83                         if (!strncasecmp(buf, "from=", 5)) {
  84                                 safestrncpy(whatuser, &buf[5], sizeof whatuser);
  85                         }
  86                         else if (!strncasecmp(buf, "node=", 5)) {
  87                                 strcat(whatuser, " @ ");
  88                                 strcat(whatuser, &buf[5]);
  89                         }
  90                 }
  91
  92                 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
  93                 serv_puts(buf);
  94                 serv_getln(buf, sizeof buf);
  95                 if (buf[0] != '2') {
  96                         convenience_page("770000", "Error", &buf[4]);
  97                         return;
  98                 }
  99
 100                 total_len = atoi(&buf[4]);
 101                 serialized_vcard = malloc(total_len + 2);
 102
 103                 read_server_binary(serialized_vcard, total_len);
 104
 105                 serv_puts("CLOS");
 106                 serv_getln(buf, sizeof buf);
 107                 serialized_vcard[total_len] = 0;
 108
 109                 v = vcard_load(serialized_vcard);
 110                 free(serialized_vcard);
 111
 112                 /* Populate the variables for our form */
 113                 i = 0;
 114                 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
 115                         value = vcard_get_prop(v, "", 0, i++, 0);
 116
 117                         if (!strcasecmp(key, "n")) {
 118                                 extract_token(lastname, value, 0, ';', sizeof lastname);
 119                                 extract_token(firstname, value, 1, ';', sizeof firstname);
 120                                 extract_token(middlename, value, 2, ';', sizeof middlename);
 121                                 extract_token(prefix, value, 3, ';', sizeof prefix);
 122                                 extract_token(suffix, value, 4, ';', sizeof suffix);
 123                         }
 124
 125                         else if (!strcasecmp(key, "fn")) {
 126                                 safestrncpy(fullname, value, sizeof fullname);
 127                         }
 128
 129                         else if (!strcasecmp(key, "title")) {
 130                                 safestrncpy(title, value, sizeof title);
 131                         }
 132
 133                         else if (!strcasecmp(key, "org")) {
 134                                 safestrncpy(org, value, sizeof org);
 135                         }
 136
 137                         else if (!strcasecmp(key, "adr")) {
 138                                 extract_token(pobox, value, 0, ';', sizeof pobox);
 139                                 extract_token(extadr, value, 1, ';', sizeof extadr);
 140                                 extract_token(street, value, 2, ';', sizeof street);
 141                                 extract_token(city, value, 3, ';', sizeof city);
 142                                 extract_token(state, value, 4, ';', sizeof state);
 143                                 extract_token(zipcode, value, 5, ';', sizeof zipcode);
 144                                 extract_token(country, value, 6, ';', sizeof country);
 145                         }
 146
 147                         else if (!strcasecmp(key, "tel;home")) {
 148                                 extract_token(hometel, value, 0, ';', sizeof hometel);
 149                         }
 150
 151                         else if (!strcasecmp(key, "tel;work")) {
 152                                 extract_token(worktel, value, 0, ';', sizeof worktel);
 153                         }
 154
 155                         else if (!strcasecmp(key, "email;internet")) {
 156                                 if (primary_inetemail[0] == 0) {
 157                                         safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
 158                                 }
 159                                 else {
 160                                         if (other_inetemail[0] != 0) {
 161                                                 strcat(other_inetemail, "\n");
 162                                         }
 163                                         strcat(other_inetemail, value);
 164                                 }
 165                         }
 166
 167                         else {
 168                                 strcat(extrafields, key);
 169                                 strcat(extrafields, ":");
 170                                 strcat(extrafields, value);
 171                                 strcat(extrafields, "\n");
 172                         }
 173
 174                 }
 175
 176                 vcard_free(v);
 177         }
 178
 179         /** Display the form */
 180         output_headers(1, 1, 2, 0, 0, 0);
 181         wprintf("<div id=\"banner\">\n"
 182                 "<table width=100%% border=0 bgcolor=\"#444455\"><tr><td>"
 183                 "<span class=\"titlebar\">"
 184                 "<img src=\"static/savecontact_48x.gif\">");
 185         wprintf(_("Edit contact information"));
 186         wprintf("</span>"
 187                 "</td></tr></table>\n"
 188                 "</div>\n<div id=\"content\">\n"
 189         );
 190
 191         wprintf("<form method=\"POST\" action=\"submit_vcard\">\n");
 192         wprintf("<div class=\"fix_scrollbar_bug\">"
 193                 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
 194
 195         wprintf("<table border=0><tr>"
 196                 "<td>%s</td>"
 197                 "<td>%s</td>"
 198                 "<td>%s</td>"
 199                 "<td>%s</td>"
 200                 "<td>%s</td></tr>\n",
 201                 _("Prefix"), _("First"), _("Middle"), _("Last"), _("Suffix")
 202         );
 203         wprintf("<tr><td><input type=\"text\" name=\"prefix\" "
 204                 "value=\"%s\" maxlength=\"5\" size=\"5\"></td>",
 205                 prefix);
 206         wprintf("<td><input type=\"text\" name=\"firstname\" "
 207                 "value=\"%s\" maxlength=\"29\"></td>",
 208                 firstname);
 209         wprintf("<td><input type=\"text\" name=\"middlename\" "
 210                 "value=\"%s\" maxlength=\"29\"></td>",
 211                 middlename);
 212         wprintf("<td><input type=\"text\" name=\"lastname\" "
 213                 "value=\"%s\" maxlength=\"29\"></td>",
 214                 lastname);
 215         wprintf("<td><input type=\"text\" name=\"suffix\" "
 216                 "value=\"%s\" maxlength=\"10\" size=\"10\"></td></tr></table>\n",
 217                 suffix);
 218
 219         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 220         wprintf("<tr><td>");
 221
 222         wprintf(_("Display name:"));
 223         wprintf("<br>"
 224                 "<input type=\"text\" name=\"fullname\" "
 225                 "value=\"%s\" maxlength=\"40\"><br><br>\n",
 226                 fullname
 227         );
 228
 229         wprintf(_("Title:"));
 230         wprintf("<br>"
 231                 "<input type=\"text\" name=\"title\" "
 232                 "value=\"%s\" maxlength=\"40\"><br><br>\n",
 233                 title
 234         );
 235
 236         wprintf(_("Organization:"));
 237         wprintf("<br>"
 238                 "<input type=\"text\" name=\"org\" "
 239                 "value=\"%s\" maxlength=\"40\"><br><br>\n",
 240                 org
 241         );
 242
 243         wprintf("</td><td>");
 244
 245         wprintf("<table border=0>");
 246         wprintf("<tr><td>");
 247         wprintf(_("PO box:"));
 248         wprintf("</td><td>"
 249                 "<input type=\"text\" name=\"pobox\" "
 250                 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
 251                 pobox);
 252         wprintf("<tr><td>");
 253         wprintf(_("Address:"));
 254         wprintf("</td><td>"
 255                 "<input type=\"text\" name=\"extadr\" "
 256                 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
 257                 extadr);
 258         wprintf("<tr><td> </td><td>"
 259                 "<input type=\"text\" name=\"street\" "
 260                 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
 261                 street);
 262         wprintf("<tr><td>");
 263         wprintf(_("City:"));
 264         wprintf("</td><td>"
 265                 "<input type=\"text\" name=\"city\" "
 266                 "value=\"%s\" maxlength=\"29\"></td></tr>\n",
 267                 city);
 268         wprintf("<tr><td>");
 269         wprintf(_("State:"));
 270         wprintf("</td><td>"
 271                 "<input type=\"text\" name=\"state\" "
 272                 "value=\"%s\" maxlength=\"2\"></td></tr>\n",
 273                 state);
 274         wprintf("<tr><td>");
 275         wprintf(_("ZIP code:"));
 276         wprintf("</td><td>"
 277                 "<input type=\"text\" name=\"zipcode\" "
 278                 "value=\"%s\" maxlength=\"10\"></td></tr>\n",
 279                 zipcode);
 280         wprintf("<tr><td>");
 281         wprintf(_("Country:"));
 282         wprintf("</td><td>"
 283                 "<input type=\"text\" name=\"country\" "
 284                 "value=\"%s\" maxlength=\"29\" width=\"5\"></td></tr>\n",
 285                 country);
 286         wprintf("</table>\n");
 287
 288         wprintf("</table>\n");
 289
 290         wprintf("<table border=0><tr><td>");
 291         wprintf(_("Home telephone:"));
 292         wprintf("</td>"
 293                 "<td><input type=\"text\" name=\"hometel\" "
 294                 "value=\"%s\" maxlength=\"29\"></td>\n",
 295                 hometel);
 296         wprintf("<td>");
 297         wprintf(_("Work telephone:"));
 298         wprintf("</td>"
 299                 "<td><input type=\"text\" name=\"worktel\" "
 300                 "value=\"%s\" maxlength=\"29\"></td></tr></table>\n",
 301                 worktel);
 302
 303         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 304         wprintf("<tr><td>");
 305
 306         wprintf("<table border=0><TR>"
 307                 "<td valign=top>");
 308         wprintf(_("Primary Internet e-mail address"));
 309         wprintf("<br />"
 310                 "<input type=\"text\" name=\"primary_inetemail\" "
 311                 "size=40 maxlength=40 value=\"");
 312         escputs(primary_inetemail);
 313         wprintf("\"><br />"
 314                 "</td><td valign=top>");
 315         wprintf(_("Internet e-mail aliases"));
 316         wprintf("<br />"
 317                 "<textarea name=\"other_inetemail\" rows=5 cols=40 width=40>");
 318         escputs(other_inetemail);
 319         wprintf("</textarea></td></tr></table>\n");
 320
 321         wprintf("</td></tr></table>\n");
 322
 323         wprintf("<input type=\"hidden\" name=\"extrafields\" value=\"");
 324         escputs(extrafields);
 325         wprintf("\">\n");
 326
 327         wprintf("<input type=\"hidden\" name=\"return_to\" value=\"");
 328         urlescputs(return_to);
 329         wprintf("\">\n");
 330
 331         wprintf("<center>\n"
 332                 "<input type=\"submit\" name=\"ok_button\" value=\"%s\">"
 333                 "&nbsp;"
 334                 "<input type=\"submit\" name=\"cancel_button\" value=\"%s\">"
 335                 "</center></form>\n",
 336                 _("Save changes"),
 337                 _("Cancel")
 338         );
 339
 340         wprintf("</td></tr></table></div>\n");
 341         wDumpContent(1);
 342 }
 343
 344
 345 /**
 346  * \brief commit the edits to the citadel server
 347  */
 348 void edit_vcard(void) {
 349         long msgnum;
 350         char *partnum;
 351
 352         msgnum = atol(bstr("msgnum"));
 353         partnum = bstr("partnum");
 354         do_edit_vcard(msgnum, partnum, "");
 355 }
 356
 357
 358
 359 /**
 360  * \brief parse edited vcard from the browser
 361  */
 362 void submit_vcard(void) {
 363         struct vCard *v;
 364         char *serialized_vcard;
 365         char buf[SIZ];
 366         int i;
 367
 368         if (strlen(bstr("ok_button")) == 0) {
 369                 readloop("readnew");
 370                 return;
 371         }
 372
 373         sprintf(buf, "ENT0 1|||4||");
 374         serv_puts(buf);
 375         serv_getln(buf, sizeof buf);
 376         if (buf[0] != '4') {
 377                 edit_vcard();
 378                 return;
 379         }
 380
 381         /** Make a vCard structure out of the data supplied in the form */
 382
 383         snprintf(buf, sizeof buf, "begin:vcard\r\n%s\r\nend:vcard\r\n",
 384                 bstr("extrafields")
 385         );
 386         v = vcard_load(buf);    /** Start with the extra fields */
 387         if (v == NULL) {
 388                 safestrncpy(WC->ImportantMessage,
 389                         _("An error has occurred."),
 390                         sizeof WC->ImportantMessage
 391                 );
 392                 edit_vcard();
 393                 return;
 394         }
 395
 396         snprintf(buf, sizeof buf, "%s;%s;%s;%s;%s",
 397                 bstr("lastname"),
 398                 bstr("firstname"),
 399                 bstr("middlename"),
 400                 bstr("prefix"),
 401                 bstr("suffix") );
 402         vcard_add_prop(v, "n", buf);
 403
 404         vcard_add_prop(v, "title", bstr("title"));
 405         vcard_add_prop(v, "fn", bstr("fullname"));
 406         vcard_add_prop(v, "org", bstr("org"));
 407
 408         snprintf(buf, sizeof buf, "%s;%s;%s;%s;%s;%s;%s",
 409                 bstr("pobox"),
 410                 bstr("extadr"),
 411                 bstr("street"),
 412                 bstr("city"),
 413                 bstr("state"),
 414                 bstr("zipcode"),
 415                 bstr("country") );
 416         vcard_add_prop(v, "adr", buf);
 417
 418         vcard_add_prop(v, "tel;home", bstr("hometel"));
 419         vcard_add_prop(v, "tel;work", bstr("worktel"));
 420         vcard_add_prop(v, "email;internet", bstr("primary_inetemail"));
 421
 422         for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
 423                 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
 424                 if (strlen(buf) > 0) {
 425                         vcard_add_prop(v, "email;internet", buf);
 426                 }
 427         }
 428
 429         serialized_vcard = vcard_serialize(v);
 430         vcard_free(v);
 431         if (serialized_vcard == NULL) {
 432                 safestrncpy(WC->ImportantMessage,
 433                         _("An error has occurred."),
 434                         sizeof WC->ImportantMessage
 435                 );
 436                 edit_vcard();
 437                 return;
 438         }
 439
 440         serv_puts("Content-type: text/x-vcard; charset=UTF-8");
 441         serv_puts("");
 442         serv_printf("%s\r\n", serialized_vcard);
 443         serv_puts("000");
 444         free(serialized_vcard);
 445
 446         if (!strcmp(bstr("return_to"), "select_user_to_edit")) {
 447                 select_user_to_edit(NULL, NULL);
 448         }
 449         else if (!strcmp(bstr("return_to"), "do_welcome")) {
 450                 do_welcome();
 451         }
 452         else {
 453                 readloop("readnew");
 454         }
 455 }
 456
 457
 458
 459 /*@}*/