webcit/vcard_edit.c

   1 /*
   2  * $Id$
   3  */
   4 /**
   5  * \defgroup vCardEdit Handles on-screen editing of vCard objects.
   6  * \ingroup WebFrontend
   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
  71         safestrncpy(whatuser, "", sizeof whatuser);
  72
  73         if (msgnum >= 0) {
  74                 sprintf(buf, "MSG0 %ld|1", msgnum);
  75                 serv_puts(buf);
  76                 serv_getln(buf, sizeof buf);
  77                 if (buf[0] != '1') {
  78                         convenience_page("770000", _("Error"), &buf[4]);
  79                         return;
  80                 }
  81                 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
  82                         if (!strncasecmp(buf, "from=", 5)) {
  83                                 safestrncpy(whatuser, &buf[5], sizeof whatuser);
  84                         }
  85                         else if (!strncasecmp(buf, "node=", 5)) {
  86                                 strcat(whatuser, " @ ");
  87                                 strcat(whatuser, &buf[5]);
  88                         }
  89                 }
  90
  91                 sprintf(buf, "OPNA %ld|%s", msgnum, partnum);
  92                 serv_puts(buf);
  93                 serv_getln(buf, sizeof buf);
  94                 if (buf[0] != '2') {
  95                         convenience_page("770000", "Error", &buf[4]);
  96                         return;
  97                 }
  98
  99                 total_len = atoi(&buf[4]);
 100                 serialized_vcard = malloc(total_len + 2);
 101
 102                 read_server_binary(serialized_vcard, total_len);
 103
 104                 serv_puts("CLOS");
 105                 serv_getln(buf, sizeof buf);
 106                 serialized_vcard[total_len] = 0;
 107
 108                 v = vcard_load(serialized_vcard);
 109                 free(serialized_vcard);
 110
 111                 /* Populate the variables for our form */
 112                 i = 0;
 113                 while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) {
 114                         value = vcard_get_prop(v, "", 0, i++, 0);
 115
 116                         if (!strcasecmp(key, "n")) {
 117                                 extract_token(lastname, value, 0, ';', sizeof lastname);
 118                                 extract_token(firstname, value, 1, ';', sizeof firstname);
 119                                 extract_token(middlename, value, 2, ';', sizeof middlename);
 120                                 extract_token(prefix, value, 3, ';', sizeof prefix);
 121                                 extract_token(suffix, value, 4, ';', sizeof suffix);
 122                         }
 123
 124                         else if (!strcasecmp(key, "fn")) {
 125                                 safestrncpy(fullname, value, sizeof fullname);
 126                         }
 127
 128                         else if (!strcasecmp(key, "title")) {
 129                                 safestrncpy(title, value, sizeof title);
 130                         }
 131
 132                         else if (!strcasecmp(key, "org")) {
 133                                 safestrncpy(org, value, sizeof org);
 134                         }
 135
 136                         else if (!strcasecmp(key, "adr")) {
 137                                 extract_token(pobox, value, 0, ';', sizeof pobox);
 138                                 extract_token(extadr, value, 1, ';', sizeof extadr);
 139                                 extract_token(street, value, 2, ';', sizeof street);
 140                                 extract_token(city, value, 3, ';', sizeof city);
 141                                 extract_token(state, value, 4, ';', sizeof state);
 142                                 extract_token(zipcode, value, 5, ';', sizeof zipcode);
 143                                 extract_token(country, value, 6, ';', sizeof country);
 144                         }
 145
 146                         else if (!strcasecmp(key, "tel;home")) {
 147                                 extract_token(hometel, value, 0, ';', sizeof hometel);
 148                         }
 149
 150                         else if (!strcasecmp(key, "tel;work")) {
 151                                 extract_token(worktel, value, 0, ';', sizeof worktel);
 152                         }
 153
 154                         else if (!strcasecmp(key, "email;internet")) {
 155                                 if (primary_inetemail[0] == 0) {
 156                                         safestrncpy(primary_inetemail, value, sizeof primary_inetemail);
 157                                 }
 158                                 else {
 159                                         if (other_inetemail[0] != 0) {
 160                                                 strcat(other_inetemail, "\n");
 161                                         }
 162                                         strcat(other_inetemail, value);
 163                                 }
 164                         }
 165
 166                         else {
 167                                 strcat(extrafields, key);
 168                                 strcat(extrafields, ":");
 169                                 strcat(extrafields, value);
 170                                 strcat(extrafields, "\n");
 171                         }
 172
 173                 }
 174
 175                 vcard_free(v);
 176         }
 177
 178         /** Display the form */
 179         output_headers(1, 1, 2, 0, 0, 0);
 180         wprintf("<div id=\"banner\">\n"
 181                 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
 182                 "<SPAN CLASS=\"titlebar\">"
 183                 "<img src=\"static/savecontact_48x.gif\">");
 184         wprintf(_("Edit contact information"));
 185         wprintf("</SPAN>"
 186                 "</TD></TR></TABLE>\n"
 187                 "</div>\n<div id=\"content\">\n"
 188         );
 189
 190         wprintf("<FORM METHOD=\"POST\" action=\"submit_vcard\">\n");
 191         wprintf("<div class=\"fix_scrollbar_bug\">"
 192                 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
 193
 194         wprintf("<TABLE border=0><TR>"
 195                 "<TD>%s</TD>"
 196                 "<TD>%s</TD>"
 197                 "<TD>%s</TD>"
 198                 "<TD>%s</TD>"
 199                 "<TD>%s</TD></TR>\n",
 200                 _("Prefix"), _("First"), _("Middle"), _("Last"), _("Suffix")
 201         );
 202         wprintf("<TR><TD><INPUT TYPE=\"text\" NAME=\"prefix\" "
 203                 "VALUE=\"%s\" MAXLENGTH=\"5\" SIZE=\"5\"></TD>",
 204                 prefix);
 205         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"firstname\" "
 206                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 207                 firstname);
 208         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"middlename\" "
 209                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 210                 middlename);
 211         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"lastname\" "
 212                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>",
 213                 lastname);
 214         wprintf("<TD><INPUT TYPE=\"text\" NAME=\"suffix\" "
 215                 "VALUE=\"%s\" MAXLENGTH=\"10\" SIZE=\"10\"></TD></TR></TABLE>\n",
 216                 suffix);
 217
 218         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 219         wprintf("<tr><td>");
 220
 221         wprintf(_("Display name:"));
 222         wprintf("<br>"
 223                 "<INPUT TYPE=\"text\" NAME=\"fullname\" "
 224                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 225                 fullname
 226         );
 227
 228         wprintf(_("Title:"));
 229         wprintf("<br>"
 230                 "<INPUT TYPE=\"text\" NAME=\"title\" "
 231                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 232                 title
 233         );
 234
 235         wprintf(_("Organization:"));
 236         wprintf("<br>"
 237                 "<INPUT TYPE=\"text\" NAME=\"org\" "
 238                 "VALUE=\"%s\" MAXLENGTH=\"40\"><br><br>\n",
 239                 org
 240         );
 241
 242         wprintf("</td><td>");
 243
 244         wprintf("<table border=0>");
 245         wprintf("<tr><td>");
 246         wprintf(_("PO box:"));
 247         wprintf("</td><td>"
 248                 "<INPUT TYPE=\"text\" NAME=\"pobox\" "
 249                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 250                 pobox);
 251         wprintf("<tr><td>");
 252         wprintf(_("Address:"));
 253         wprintf("</td><td>"
 254                 "<INPUT TYPE=\"text\" NAME=\"extadr\" "
 255                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 256                 extadr);
 257         wprintf("<tr><td> </td><td>"
 258                 "<INPUT TYPE=\"text\" NAME=\"street\" "
 259                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 260                 street);
 261         wprintf("<tr><td>");
 262         wprintf(_("City:"));
 263         wprintf("</td><td>"
 264                 "<INPUT TYPE=\"text\" NAME=\"city\" "
 265                 "VALUE=\"%s\" MAXLENGTH=\"29\"></td></tr>\n",
 266                 city);
 267         wprintf("<tr><td>");
 268         wprintf(_("State:"));
 269         wprintf("</td><td>"
 270                 "<INPUT TYPE=\"text\" NAME=\"state\" "
 271                 "VALUE=\"%s\" MAXLENGTH=\"2\"></td></tr>\n",
 272                 state);
 273         wprintf("<tr><td>");
 274         wprintf(_("ZIP code:"));
 275         wprintf("</td><td>"
 276                 "<INPUT TYPE=\"text\" NAME=\"zipcode\" "
 277                 "VALUE=\"%s\" MAXLENGTH=\"10\"></td></tr>\n",
 278                 zipcode);
 279         wprintf("<tr><td>");
 280         wprintf(_("Country:"));
 281         wprintf("</td><td>"
 282                 "<INPUT TYPE=\"text\" NAME=\"country\" "
 283                 "VALUE=\"%s\" MAXLENGTH=\"29\" WIDTH=\"5\"></td></tr>\n",
 284                 country);
 285         wprintf("</table>\n");
 286
 287         wprintf("</table>\n");
 288
 289         wprintf("<TABLE BORDER=0><TR><TD>");
 290         wprintf(_("Home telephone:"));
 291         wprintf("</TD>"
 292                 "<TD><INPUT TYPE=\"text\" NAME=\"hometel\" "
 293                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD>\n",
 294                 hometel);
 295         wprintf("<TD>");
 296         wprintf(_("Work telephone:"));
 297         wprintf("</TD>"
 298                 "<TD><INPUT TYPE=\"text\" NAME=\"worktel\" "
 299                 "VALUE=\"%s\" MAXLENGTH=\"29\"></TD></TR></TABLE>\n",
 300                 worktel);
 301
 302         wprintf("<table border=0 width=100%% bgcolor=\"#dddddd\">");
 303         wprintf("<tr><td>");
 304
 305         wprintf("<TABLE border=0><TR>"
 306                 "<TD VALIGN=TOP>");
 307         wprintf(_("Primary Internet e-mail address"));
 308         wprintf("<br />"
 309                 "<INPUT TYPE=\"text\" NAME=\"primary_inetemail\" "
 310                 "SIZE=40 MAXLENGTH=40 VALUE=\"");
 311         escputs(primary_inetemail);
 312         wprintf("\"><br />"
 313                 "</TD><TD VALIGN=TOP>");
 314         wprintf(_("Internet e-mail aliases"));
 315         wprintf("<br />"
 316                 "<TEXTAREA NAME=\"other_inetemail\" ROWS=5 COLS=40 WIDTH=40>");
 317         escputs(other_inetemail);
 318         wprintf("</TEXTAREA></TD></TR></TABLE>\n");
 319
 320         wprintf("</td></tr></table>\n");
 321
 322         wprintf("<INPUT TYPE=\"hidden\" NAME=\"extrafields\" VALUE=\"");
 323         escputs(extrafields);
 324         wprintf("\">\n");
 325
 326         wprintf("<INPUT TYPE=\"hidden\" NAME=\"return_to\" VALUE=\"");
 327         urlescputs(return_to);
 328         wprintf("\">\n");
 329
 330         wprintf("<CENTER>\n"
 331                 "<INPUT TYPE=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">"
 332                 "&nbsp;"
 333                 "<INPUT TYPE=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">"
 334                 "</CENTER></FORM>\n",
 335                 _("Save changes"),
 336                 _("Cancel")
 337         );
 338
 339         wprintf("</td></tr></table></div>\n");
 340         wDumpContent(1);
 341 }
 342
 343
 344 /**
 345  * \brief commit the edits to the citadel server
 346  */
 347 void edit_vcard(void) {
 348         long msgnum;
 349         char *partnum;
 350
 351         msgnum = atol(bstr("msgnum"));
 352         partnum = bstr("partnum");
 353         do_edit_vcard(msgnum, partnum, "");
 354 }
 355
 356
 357
 358 /**
 359  * \brief parse edited vcard from the browser
 360  */
 361 void submit_vcard(void) {
 362         char buf[SIZ];
 363         int i;
 364
 365         if (strlen(bstr("ok_button")) == 0) {
 366                 readloop("readnew");
 367                 return;
 368         }
 369
 370         sprintf(buf, "ENT0 1|||4||");
 371         serv_puts(buf);
 372         serv_getln(buf, sizeof buf);
 373         if (buf[0] != '4') {
 374                 edit_vcard();
 375                 return;
 376         }
 377
 378         serv_puts("Content-type: text/x-vcard");
 379         serv_puts("");
 380         serv_puts("begin:vcard");
 381         serv_printf("n:%s;%s;%s;%s;%s",
 382                 bstr("lastname"),
 383                 bstr("firstname"),
 384                 bstr("middlename"),
 385                 bstr("prefix"),
 386                 bstr("suffix") );
 387         serv_printf("title:%s", bstr("title") );
 388         serv_printf("fn:%s", bstr("fullname") );
 389         serv_printf("org:%s", bstr("org") );
 390         serv_printf("adr:%s;%s;%s;%s;%s;%s;%s",
 391                 bstr("pobox"),
 392                 bstr("extadr"),
 393                 bstr("street"),
 394                 bstr("city"),
 395                 bstr("state"),
 396                 bstr("zipcode"),
 397                 bstr("country") );
 398         serv_printf("tel;home:%s", bstr("hometel") );
 399         serv_printf("tel;work:%s", bstr("worktel") );
 400
 401         serv_printf("email;internet:%s\n", bstr("primary_inetemail"));
 402         for (i=0; i<num_tokens(bstr("other_inetemail"), '\n'); ++i) {
 403                 extract_token(buf, bstr("other_inetemail"), i, '\n', sizeof buf);
 404                 if (strlen(buf) > 0) {
 405                         serv_printf("email;internet:%s", buf);
 406                 }
 407         }
 408
 409         serv_printf("%s", bstr("extrafields") );
 410         serv_puts("end:vcard");
 411         serv_puts("000");
 412
 413         if (!strcmp(bstr("return_to"), "select_user_to_edit")) {
 414                 select_user_to_edit(NULL, NULL);
 415         }
 416         else if (!strcmp(bstr("return_to"), "do_welcome")) {
 417                 do_welcome();
 418         }
 419         else {
 420                 readloop("readnew");
 421         }
 422 }
 423
 424
 425
 426 /*@}*/