webcit/roomops.c

   1 /* $Id$ */
   2
   3
   4 #include <ctype.h>
   5 #include <stdlib.h>
   6 #include <unistd.h>
   7 #include <stdio.h>
   8 #include <fcntl.h>
   9 #include <signal.h>
  10 #include <sys/types.h>
  11 #include <sys/wait.h>
  12 #include <sys/socket.h>
  13 #include <sys/time.h>
  14 #include <limits.h>
  15 #include <netinet/in.h>
  16 #include <netdb.h>
  17 #include <string.h>
  18 #include <pwd.h>
  19 #include <errno.h>
  20 #include <stdarg.h>
  21 #include <pthread.h>
  22 #include <signal.h>
  23 #include "webcit.h"
  24
  25 struct folder {
  26         int floor;
  27         char room[SIZ];
  28         char name[SIZ];
  29         int hasnewmsgs;
  30         int is_mailbox;
  31         int selectable;
  32 };
  33
  34 char *viewdefs[] = {
  35         "Messages",
  36         "Summary",
  37         "Address Book",
  38         "Calendar",
  39         "Tasks"
  40 };
  41
  42 char floorlist[128][SIZ];
  43
  44 /*
  45  * load the list of floors
  46  */
  47 void load_floorlist(void)
  48 {
  49         int a;
  50         char buf[SIZ];
  51
  52         for (a = 0; a < 128; ++a)
  53                 floorlist[a][0] = 0;
  54
  55         serv_puts("LFLR");
  56         serv_gets(buf);
  57         if (buf[0] != '1') {
  58                 strcpy(floorlist[0], "Main Floor");
  59                 return;
  60         }
  61         while (serv_gets(buf), strcmp(buf, "000")) {
  62                 extract(floorlist[extract_int(buf, 0)], buf, 1);
  63         }
  64 }
  65
  66
  67 /*
  68  * remove a room from the march list
  69  */
  70 void remove_march(char *aaa)
  71 {
  72         struct march *mptr, *mptr2;
  73
  74         if (WC->march == NULL)
  75                 return;
  76
  77         if (!strcasecmp(WC->march->march_name, aaa)) {
  78                 mptr = WC->march->next;
  79                 free(WC->march);
  80                 WC->march = mptr;
  81                 return;
  82         }
  83         mptr2 = WC->march;
  84         for (mptr = WC->march; mptr != NULL; mptr = mptr->next) {
  85                 if (!strcasecmp(mptr->march_name, aaa)) {
  86                         mptr2->next = mptr->next;
  87                         free(mptr);
  88                         mptr = mptr2;
  89                 } else {
  90                         mptr2 = mptr;
  91                 }
  92         }
  93 }
  94
  95
  96
  97
  98
  99 void room_tree_list(struct roomlisting *rp)
 100 {
 101         char rmname[64];
 102         int f;
 103
 104         if (rp == NULL) {
 105                 return;
 106         }
 107
 108         room_tree_list(rp->lnext);
 109
 110         strcpy(rmname, rp->rlname);
 111         f = rp->rlflags;
 112
 113         wprintf("<A HREF=\"/dotgoto&room=");
 114         urlescputs(rmname);
 115         wprintf("\"");
 116         wprintf(">");
 117         escputs1(rmname, 1, 1);
 118         if ((f & QR_DIRECTORY) && (f & QR_NETWORK))
 119                 wprintf("}");
 120         else if (f & QR_DIRECTORY)
 121                 wprintf("]");
 122         else if (f & QR_NETWORK)
 123                 wprintf(")");
 124         else
 125                 wprintf("&gt;");
 126         wprintf("</A><TT> </TT>\n");
 127
 128         room_tree_list(rp->rnext);
 129         free(rp);
 130 }
 131
 132
 133 /*
 134  * Room ordering stuff (compare first by floor, then by order)
 135  */
 136 int rordercmp(struct roomlisting *r1, struct roomlisting *r2)
 137 {
 138         if ((r1 == NULL) && (r2 == NULL))
 139                 return (0);
 140         if (r1 == NULL)
 141                 return (-1);
 142         if (r2 == NULL)
 143                 return (1);
 144         if (r1->rlfloor < r2->rlfloor)
 145                 return (-1);
 146         if (r1->rlfloor > r2->rlfloor)
 147                 return (1);
 148         if (r1->rlorder < r2->rlorder)
 149                 return (-1);
 150         if (r1->rlorder > r2->rlorder)
 151                 return (1);
 152         return (0);
 153 }
 154
 155
 156 /*
 157  * Common code for all room listings
 158  */
 159 void listrms(char *variety)
 160 {
 161         char buf[SIZ];
 162         int num_rooms = 0;
 163
 164         struct roomlisting *rl = NULL;
 165         struct roomlisting *rp;
 166         struct roomlisting *rs;
 167
 168
 169         /* Ask the server for a room list */
 170         serv_puts(variety);
 171         serv_gets(buf);
 172         if (buf[0] != '1') {
 173                 wprintf("&nbsp;");
 174                 return;
 175         }
 176         while (serv_gets(buf), strcmp(buf, "000")) {
 177                 ++num_rooms;
 178                 rp = malloc(sizeof(struct roomlisting));
 179                 extract(rp->rlname, buf, 0);
 180                 rp->rlflags = extract_int(buf, 1);
 181                 rp->rlfloor = extract_int(buf, 2);
 182                 rp->rlorder = extract_int(buf, 3);
 183                 rp->lnext = NULL;
 184                 rp->rnext = NULL;
 185
 186                 rs = rl;
 187                 if (rl == NULL) {
 188                         rl = rp;
 189                 } else
 190                         while (rp != NULL) {
 191                                 if (rordercmp(rp, rs) < 0) {
 192                                         if (rs->lnext == NULL) {
 193                                                 rs->lnext = rp;
 194                                                 rp = NULL;
 195                                         } else {
 196                                                 rs = rs->lnext;
 197                                         }
 198                                 } else {
 199                                         if (rs->rnext == NULL) {
 200                                                 rs->rnext = rp;
 201                                                 rp = NULL;
 202                                         } else {
 203                                                 rs = rs->rnext;
 204                                         }
 205                                 }
 206                         }
 207         }
 208
 209         room_tree_list(rl);
 210
 211         /* If no rooms were listed, print an nbsp to make the cell
 212          * borders show up anyway.
 213          */
 214         if (num_rooms == 0) wprintf("&nbsp;");
 215 }
 216
 217
 218 /*
 219  * list all forgotten rooms
 220  */
 221 void zapped_list(void)
 222 {
 223         output_headers(3);
 224
 225         svprintf("BOXTITLE", WCS_STRING, "Zapped (forgotten) rooms");
 226         do_template("beginbox");
 227
 228         listrms("LZRM -1");
 229
 230         wprintf("<BR><BR>\n");
 231         wprintf("Click on any room to un-zap it and goto that room.\n");
 232         do_template("endbox");
 233         wDumpContent(1);
 234 }
 235
 236
 237 /*
 238  * read this room's info file (set v to 1 for verbose mode)
 239  */
 240 void readinfo(void)
 241 {
 242         char buf[SIZ];
 243
 244         serv_puts("RINF");
 245         serv_gets(buf);
 246         if (buf[0] == '1') {
 247                 fmout(NULL, "CENTER");
 248         }
 249 }
 250
 251
 252
 253
 254 /* Display room graphic.  The server doesn't actually
 255  * need the room name, but we supply it in order to
 256  * keep the browser from using a cached graphic from
 257  * another room.
 258  */
 259 void embed_room_graphic(void) {
 260         char buf[SIZ];
 261
 262         serv_puts("OIMG _roompic_");
 263         serv_gets(buf);
 264         if (buf[0] == '2') {
 265                 wprintf("<TD BGCOLOR=\"#444455\">");
 266                 wprintf("<IMG HEIGHT=64 SRC=\"/image&name=_roompic_&room=");
 267                 urlescputs(WC->wc_roomname);
 268                 wprintf("\"></TD>");
 269                 serv_puts("CLOS");
 270                 serv_gets(buf);
 271         }
 272
 273 }
 274
 275
 276 /* Let the user know if new mail has arrived
 277  */
 278 void embed_newmail_button(void) {
 279         if ( (WC->new_mail > WC->remember_new_mail) && (WC->new_mail>0) ) {
 280                 wprintf(
 281                         "<A HREF=\"/dotgoto?room=_MAIL_\">"
 282                         "<IMG SRC=\"/static/mail.gif\" border=0 "
 283                         "ALT=\"You have new mail\">"
 284                         "<BR><SPAN CLASS=\"youhavemail\">"
 285                         "%d new mail</SPAN></A>", WC->new_mail);
 286                 WC->remember_new_mail = WC->new_mail;
 287         }
 288 }
 289
 290
 291
 292 /*
 293  * Display the current view and offer an option to change it
 294  */
 295 void embed_view_o_matic(void) {
 296         int i;
 297
 298         wprintf("<FORM NAME=\"viewomatic\">\n"
 299                 "<SELECT NAME=\"newview\" SIZE=\"1\" "
 300                 "OnChange=\"location.href=viewomatic.newview.options"
 301                 "[selectedIndex].value\">\n");
 302
 303         for (i=0; i<(sizeof viewdefs / sizeof (char *)); ++i) {
 304                 /*
 305                  * Only offer the views that make sense, given the default
 306                  * view for the room.  For example, don't offer a Calendar
 307                  * view in a non-Calendar room.
 308                  */
 309                 if (
 310                         (i == WC->wc_view)
 311                    ||   (i == WC->wc_default_view)
 312                    ||   ( (i == 0) && (WC->wc_default_view == 1) )
 313                    ||   ( (i == 1) && (WC->wc_default_view == 0) )
 314                 ) {
 315
 316                         wprintf("<OPTION %s VALUE=\"/changeview?view=%d\">",
 317                                 ((i == WC->wc_view) ? "SELECTED" : ""),
 318                                 i );
 319                         escputs(viewdefs[i]);
 320                         wprintf("</OPTION>\n");
 321                 }
 322         }
 323         wprintf("</SELECT></FORM>\n");
 324 }
 325
 326
 327
 328 void embed_room_banner(char *got) {
 329         char fakegot[SIZ];
 330
 331         /* We need to have the information returned by a GOTO server command.
 332          * If it isn't supplied, we fake it by issuing our own GOTO.
 333          */
 334         if (got == NULL) {
 335                 serv_printf("GOTO %s", WC->wc_roomname);
 336                 serv_gets(fakegot);
 337                 got = fakegot;
 338         }
 339
 340         /* If the user happens to select the "make this my start page" link,
 341          * we want it to remember the URL as a "/dotskip" one instead of
 342          * a "skip" or "gotonext" or something like that.
 343          */
 344         snprintf(WC->this_page, sizeof(WC->this_page), "/dotskip&room=%s",
 345                 WC->wc_roomname);
 346
 347         /* Check for new mail. */
 348         WC->new_mail = extract_int(&got[4], 9);
 349         WC->wc_view = extract_int(&got[4], 11);
 350
 351         svprintf("ROOMNAME", WCS_STRING, "%s", WC->wc_roomname);
 352         svprintf("NEWMSGS", WCS_STRING, "%d", extract_int(&got[4], 1));
 353         svprintf("TOTALMSGS", WCS_STRING, "%d", extract_int(&got[4], 2));
 354         svcallback("ROOMPIC", embed_room_graphic);
 355         svcallback("ROOMINFO", readinfo);
 356         svcallback("YOUHAVEMAIL", embed_newmail_button);
 357         svcallback("VIEWOMATIC", embed_view_o_matic);
 358         svcallback("START", offer_start_page);
 359
 360         do_template("roombanner");
 361         clear_local_substs();
 362 }
 363
 364
 365
 366
 367
 368 /*
 369  * generic routine to take the session to a new room
 370  *
 371  * display_name values:  0 = goto only
 372  *                       1 = goto and display
 373  *                       2 = display only
 374  */
 375 void gotoroom(char *gname, int display_name)
 376 {
 377         char buf[SIZ];
 378         static long ls = (-1L);
 379
 380
 381         if (display_name) {
 382                 output_headers(0);
 383                 wprintf("Pragma: no-cache\n");
 384                 wprintf("Cache-Control: no-store\n");
 385
 386                 wprintf("<HTML><HEAD>\n"
 387                         "<META HTTP-EQUIV=\"refresh\" CONTENT=\"500363689;\">\n"
 388                         "<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n"
 389                         "<META HTTP-EQUIV=\"expired\" CONTENT=\"28-May-1971 18:10:00 GMT\">\n"
 390                         "<meta name=\"MSSmartTagsPreventParsing\" content=\"TRUE\">\n"
 391                         "</HEAD>\n");
 392                 do_template("background");
 393         }
 394         if (display_name != 2) {
 395                 /* store ungoto information */
 396                 strcpy(WC->ugname, WC->wc_roomname);
 397                 WC->uglsn = ls;
 398         }
 399         /* move to the new room */
 400         serv_printf("GOTO %s", gname);
 401         serv_gets(buf);
 402         if (buf[0] != '2') {
 403                 serv_puts("GOTO _BASEROOM_");
 404                 serv_gets(buf);
 405         }
 406         if (buf[0] != '2') {
 407                 if (display_name) {
 408                         wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 409                         wDumpContent(1);
 410                 }
 411                 return;
 412         }
 413         extract(WC->wc_roomname, &buf[4], 0);
 414         WC->room_flags = extract_int(&buf[4], 4);
 415         /* highest_msg_read = extract_int(&buf[4],6);
 416            maxmsgnum = extract_int(&buf[4],5);
 417            is_mail = (char) extract_int(&buf[4],7); */
 418         ls = extract_long(&buf[4], 6);
 419
 420         if (WC->is_aide)
 421                 WC->is_room_aide = WC->is_aide;
 422         else
 423                 WC->is_room_aide = (char) extract_int(&buf[4], 8);
 424
 425         remove_march(WC->wc_roomname);
 426         if (!strcasecmp(gname, "_BASEROOM_"))
 427                 remove_march(gname);
 428
 429         /* Display the room banner */
 430         if (display_name) {
 431                 embed_room_banner(buf);
 432                 wDumpContent(1);
 433         }
 434         strcpy(WC->wc_roomname, WC->wc_roomname);
 435         WC->wc_view = extract_int(&buf[4], 11);
 436         WC->wc_default_view = extract_int(&buf[4], 12);
 437 }
 438
 439
 440 /*
 441  * Locate the room on the march list which we most want to go to.  Each room
 442  * is measured given a "weight" of preference based on various factors.
 443  */
 444 char *pop_march(int desired_floor)
 445 {
 446         static char TheRoom[128];
 447         int TheFloor = 0;
 448         int TheOrder = 32767;
 449         int TheWeight = 0;
 450         int weight;
 451         struct march *mptr = NULL;
 452
 453         strcpy(TheRoom, "_BASEROOM_");
 454         if (WC->march == NULL)
 455                 return (TheRoom);
 456
 457         for (mptr = WC->march; mptr != NULL; mptr = mptr->next) {
 458                 weight = 0;
 459                 if ((strcasecmp(mptr->march_name, "_BASEROOM_")))
 460                         weight = weight + 10000;
 461                 if (mptr->march_floor == desired_floor)
 462                         weight = weight + 5000;
 463
 464                 weight = weight + ((128 - (mptr->march_floor)) * 128);
 465                 weight = weight + (128 - (mptr->march_order));
 466
 467                 if (weight > TheWeight) {
 468                         TheWeight = weight;
 469                         strcpy(TheRoom, mptr->march_name);
 470                         TheFloor = mptr->march_floor;
 471                         TheOrder = mptr->march_order;
 472                 }
 473         }
 474         return (TheRoom);
 475 }
 476
 477
 478
 479 /* Goto next room having unread messages.
 480  * We want to skip over rooms that the user has already been to, and take the
 481  * user back to the lobby when done.  The room we end up in is placed in
 482  * newroom - which is set to 0 (the lobby) initially.
 483  * We start the search in the current room rather than the beginning to prevent
 484  * two or more concurrent users from dragging each other back to the same room.
 485  */
 486 void gotonext(void)
 487 {
 488         char buf[SIZ];
 489         struct march *mptr, *mptr2;
 490         char next_room[128];
 491
 492         /* First check to see if the march-mode list is already allocated.
 493          * If it is, pop the first room off the list and go there.
 494          */
 495
 496         if (WC->march == NULL) {
 497                 serv_puts("LKRN");
 498                 serv_gets(buf);
 499                 if (buf[0] == '1')
 500                         while (serv_gets(buf), strcmp(buf, "000")) {
 501                                 mptr = (struct march *) malloc(sizeof(struct march));
 502                                 mptr->next = NULL;
 503                                 extract(mptr->march_name, buf, 0);
 504                                 mptr->march_floor = extract_int(buf, 2);
 505                                 mptr->march_order = extract_int(buf, 3);
 506                                 if (WC->march == NULL) {
 507                                         WC->march = mptr;
 508                                 } else {
 509                                         mptr2 = WC->march;
 510                                         while (mptr2->next != NULL)
 511                                                 mptr2 = mptr2->next;
 512                                         mptr2->next = mptr;
 513                                 }
 514                         }
 515 /* add _BASEROOM_ to the end of the march list, so the user will end up
 516  * in the system base room (usually the Lobby>) at the end of the loop
 517  */
 518                 mptr = (struct march *) malloc(sizeof(struct march));
 519                 mptr->next = NULL;
 520                 strcpy(mptr->march_name, "_BASEROOM_");
 521                 if (WC->march == NULL) {
 522                         WC->march = mptr;
 523                 } else {
 524                         mptr2 = WC->march;
 525                         while (mptr2->next != NULL)
 526                                 mptr2 = mptr2->next;
 527                         mptr2->next = mptr;
 528                 }
 529 /*
 530  * ...and remove the room we're currently in, so a <G>oto doesn't make us
 531  * walk around in circles
 532  */
 533                 remove_march(WC->wc_roomname);
 534         }
 535         if (WC->march != NULL) {
 536                 strcpy(next_room, pop_march(-1));
 537         } else {
 538                 strcpy(next_room, "_BASEROOM_");
 539         }
 540
 541
 542         smart_goto(next_room);
 543 }
 544
 545
 546 void smart_goto(char *next_room) {
 547         gotoroom(next_room, 0);
 548         readloop("readnew");
 549 }
 550
 551
 552
 553 /*
 554  * mark all messages in current room as having been read
 555  */
 556 void slrp_highest(void)
 557 {
 558         char buf[SIZ];
 559
 560         /* set pointer */
 561         serv_puts("SLRP HIGHEST");
 562         serv_gets(buf);
 563         if (buf[0] != '2') {
 564                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 565                 return;
 566         }
 567 }
 568
 569
 570 /*
 571  * un-goto the previous room
 572  */
 573 void ungoto(void)
 574 {
 575         char buf[SIZ];
 576
 577         if (!strcmp(WC->ugname, "")) {
 578                 smart_goto(WC->wc_roomname);
 579                 return;
 580         }
 581         serv_printf("GOTO %s", WC->ugname);
 582         serv_gets(buf);
 583         if (buf[0] != '2') {
 584                 smart_goto(WC->wc_roomname);
 585                 return;
 586         }
 587         if (WC->uglsn >= 0L) {
 588                 serv_printf("SLRP %ld", WC->uglsn);
 589                 serv_gets(buf);
 590         }
 591         strcpy(buf, WC->ugname);
 592         strcpy(WC->ugname, "");
 593         smart_goto(buf);
 594 }
 595
 596
 597
 598
 599
 600 /*
 601  * Set/clear/read the "self-service list subscribe" flag for a room
 602  *
 603  * Set 'newval' to 0 to clear, 1 to set, any other value to leave unchanged.
 604  * Always returns the new value.
 605  */
 606
 607 int self_service(int newval) {
 608         int current_value = 0;
 609         char buf[SIZ];
 610
 611         char name[SIZ];
 612         char password[SIZ];
 613         char dirname[SIZ];
 614         int flags, floor, order, view, flags2;
 615
 616         serv_puts("GETR");
 617         serv_gets(buf);
 618         if (buf[0] != '2') return(0);
 619
 620         extract(name, &buf[4], 0);
 621         extract(password, &buf[4], 1);
 622         extract(dirname, &buf[4], 2);
 623         flags = extract_int(&buf[4], 3);
 624         floor = extract_int(&buf[4], 4);
 625         order = extract_int(&buf[4], 5);
 626         view = extract_int(&buf[4], 6);
 627         flags2 = extract_int(&buf[4], 7);
 628
 629         if (flags2 & QR2_SELFLIST) {
 630                 current_value = 1;
 631         }
 632         else {
 633                 current_value = 0;
 634         }
 635
 636         if (newval == 1) {
 637                 flags2 = flags2 | QR2_SELFLIST;
 638         }
 639         else if (newval == 0) {
 640                 flags2 = flags2 & ~QR2_SELFLIST;
 641         }
 642         else {
 643                 return(current_value);
 644         }
 645
 646         if (newval != current_value) {
 647                 serv_printf("SETR %s|%s|%s|%d|0|%d|%d|%d|%d",
 648                         name, password, dirname, flags,
 649                         floor, order, view, flags2);
 650                 serv_gets(buf);
 651         }
 652
 653         return(newval);
 654
 655 }
 656
 657
 658
 659
 660
 661
 662 /*
 663  * display the form for editing a room
 664  */
 665 void display_editroom(void)
 666 {
 667         char buf[SIZ];
 668         char cmd[SIZ];
 669         char node[SIZ];
 670         char recp[SIZ];
 671         char er_name[20];
 672         char er_password[10];
 673         char er_dirname[15];
 674         char er_roomaide[26];
 675         unsigned er_flags;
 676         int er_floor;
 677         int i, j;
 678         char *tab;
 679         char *shared_with;
 680         char *not_shared_with;
 681
 682         tab = bstr("tab");
 683         if (strlen(tab) == 0) tab = "admin";
 684
 685         serv_puts("GETR");
 686         serv_gets(buf);
 687
 688         if (buf[0] != '2') {
 689                 strcpy(WC->ImportantMessage, &buf[4]);
 690                 display_main_menu();
 691                 return;
 692         }
 693         extract(er_name, &buf[4], 0);
 694         extract(er_password, &buf[4], 1);
 695         extract(er_dirname, &buf[4], 2);
 696         er_flags = extract_int(&buf[4], 3);
 697         er_floor = extract_int(&buf[4], 4);
 698
 699         output_headers(1);
 700
 701         /* print the tabbed dialog */
 702         wprintf("<TABLE border=0 cellspacing=0 cellpadding=0 width=100%%>"
 703                 "<TR ALIGN=CENTER>"
 704                 "<TD>&nbsp;</TD>\n");
 705
 706         if (!strcmp(tab, "admin")) {
 707                 wprintf("<TD BGCOLOR=\"#FFFFFF\"><SPAN CLASS=\"tablabel\">");
 708         }
 709         else {
 710                 wprintf("<TD BGCOLOR=\"#AAAAAA\"><A HREF=\"/display_editroom&tab=admin\">");
 711         }
 712         wprintf("Room administration");
 713         if (!strcmp(tab, "admin")) {
 714                 wprintf("</SPAN></TD>\n");
 715         }
 716         else {
 717                 wprintf("</A></TD>\n");
 718         }
 719
 720         wprintf("<TD>&nbsp;</TD>\n");
 721
 722         if (!strcmp(tab, "config")) {
 723                 wprintf("<TD BGCOLOR=\"#FFFFFF\"><SPAN CLASS=\"tablabel\">");
 724         }
 725         else {
 726                 wprintf("<TD BGCOLOR=\"#AAAAAA\"><A HREF=\"/display_editroom&tab=config\">");
 727         }
 728         wprintf("Room configuration");
 729         if (!strcmp(tab, "config")) {
 730                 wprintf("</SPAN></TD>\n");
 731         }
 732         else {
 733                 wprintf("</A></TD>\n");
 734         }
 735
 736         wprintf("<TD>&nbsp;</TD>\n");
 737
 738         if (!strcmp(tab, "sharing")) {
 739                 wprintf("<TD BGCOLOR=\"#FFFFFF\"><SPAN CLASS=\"tablabel\">");
 740         }
 741         else {
 742                 wprintf("<TD BGCOLOR=\"#AAAAAA\"><A HREF=\"/display_editroom&tab=sharing\">");
 743         }
 744         wprintf("Sharing");
 745         if (!strcmp(tab, "sharing")) {
 746                 wprintf("</SPAN></TD>\n");
 747         }
 748         else {
 749                 wprintf("</A></TD>\n");
 750         }
 751
 752         wprintf("<TD>&nbsp;</TD>\n");
 753
 754         if (!strcmp(tab, "listserv")) {
 755                 wprintf("<TD BGCOLOR=\"#FFFFFF\"><SPAN CLASS=\"tablabel\">");
 756         }
 757         else {
 758                 wprintf("<TD BGCOLOR=\"#AAAAAA\"><A HREF=\"/display_editroom&tab=listserv\">");
 759         }
 760         wprintf("Mailing list service");
 761         if (!strcmp(tab, "listserv")) {
 762                 wprintf("</SPAN></TD>\n");
 763         }
 764         else {
 765                 wprintf("</A></TD>\n");
 766         }
 767
 768         wprintf("</TR></TABLE>\n");
 769         /* end tabbed dialog */
 770
 771         /* begin content of whatever tab is open now */
 772         wprintf("<TABLE border=0 width=100%% bgcolor=\"#FFFFFF\">\n"
 773                 "<TR><TD>\n");
 774
 775         if (!strcmp(tab, "admin")) {
 776                 wprintf("<UL>"
 777                         "<LI><A HREF=\"/confirm_delete_room\">\n"
 778                         "Delete this room</A>\n"
 779                         "<LI><A HREF=\"/display_editroompic\">\n"
 780                         "Set or change the graphic for this room's banner</A>\n"
 781                         "<LI><A HREF=\"/display_editinfo\">\n"
 782                         "Edit this room's Info file</A>\n"
 783                         "</UL>");
 784         }
 785
 786         if (!strcmp(tab, "config")) {
 787                 wprintf("<FORM METHOD=\"POST\" ACTION=\"/editroom\">\n");
 788
 789                 wprintf("<UL><LI>Name of room: ");
 790                 wprintf("<INPUT TYPE=\"text\" NAME=\"er_name\" VALUE=\"%s\" MAXLENGTH=\"19\">\n", er_name);
 791
 792                 wprintf("<LI>Resides on floor: ");
 793                 load_floorlist();
 794                 wprintf("<SELECT NAME=\"er_floor\" SIZE=\"1\">\n");
 795                 for (i = 0; i < 128; ++i)
 796                         if (strlen(floorlist[i]) > 0) {
 797                                 wprintf("<OPTION ");
 798                                 if (i == er_floor)
 799                                         wprintf("SELECTED ");
 800                                 wprintf("VALUE=\"%d\">", i);
 801                                 escputs(floorlist[i]);
 802                                 wprintf("</OPTION>\n");
 803                         }
 804                 wprintf("</SELECT>\n");
 805
 806                 wprintf("<LI>Type of room:<UL>\n");
 807
 808                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"public\" ");
 809                 if ((er_flags & QR_PRIVATE) == 0)
 810                 wprintf("CHECKED ");
 811                 wprintf("> Public room\n");
 812
 813                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"guessname\" ");
 814                 if ((er_flags & QR_PRIVATE) &&
 815                     (er_flags & QR_GUESSNAME))
 816                         wprintf("CHECKED ");
 817                 wprintf("> Private - guess name\n");
 818
 819                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"passworded\" ");
 820                 if ((er_flags & QR_PRIVATE) &&
 821                     (er_flags & QR_PASSWORDED))
 822                         wprintf("CHECKED ");
 823                 wprintf("> Private - require password:\n");
 824                 wprintf("<INPUT TYPE=\"text\" NAME=\"er_password\" VALUE=\"%s\" MAXLENGTH=\"9\">\n", er_password);
 825
 826                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"invonly\" ");
 827                 if ((er_flags & QR_PRIVATE)
 828                     && ((er_flags & QR_GUESSNAME) == 0)
 829                     && ((er_flags & QR_PASSWORDED) == 0))
 830                         wprintf("CHECKED ");
 831                 wprintf("> Private - invitation only\n");
 832
 833                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"bump\" VALUE=\"yes\" ");
 834                 wprintf("> If private, cause current users to forget room\n");
 835
 836                 wprintf("</UL>\n");
 837
 838                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"prefonly\" VALUE=\"yes\" ");
 839                 if (er_flags & QR_PREFONLY)
 840                         wprintf("CHECKED ");
 841                 wprintf("> Preferred users only\n");
 842
 843                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"readonly\" VALUE=\"yes\" ");
 844                 if (er_flags & QR_READONLY)
 845                         wprintf("CHECKED ");
 846                 wprintf("> Read-only room\n");
 847
 848         /* directory stuff */
 849                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"directory\" VALUE=\"yes\" ");
 850                 if (er_flags & QR_DIRECTORY)
 851                         wprintf("CHECKED ");
 852                 wprintf("> File directory room\n");
 853
 854                 wprintf("<UL><LI>Directory name: ");
 855                 wprintf("<INPUT TYPE=\"text\" NAME=\"er_dirname\" VALUE=\"%s\" MAXLENGTH=\"14\">\n", er_dirname);
 856
 857                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"ulallowed\" VALUE=\"yes\" ");
 858                 if (er_flags & QR_UPLOAD)
 859                         wprintf("CHECKED ");
 860                 wprintf("> Uploading allowed\n");
 861
 862                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"dlallowed\" VALUE=\"yes\" ");
 863                 if (er_flags & QR_DOWNLOAD)
 864                         wprintf("CHECKED ");
 865                 wprintf("> Downloading allowed\n");
 866
 867                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"visdir\" VALUE=\"yes\" ");
 868                 if (er_flags & QR_VISDIR)
 869                         wprintf("CHECKED ");
 870                 wprintf("> Visible directory</UL>\n");
 871
 872         /* end of directory stuff */
 873
 874                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"network\" VALUE=\"yes\" ");
 875                 if (er_flags & QR_NETWORK)
 876                         wprintf("CHECKED ");
 877                 wprintf("> Network shared room\n");
 878
 879                 wprintf("<LI><INPUT TYPE=\"checkbox\" NAME=\"permanent\" VALUE=\"yes\" ");
 880                 if (er_flags & QR_PERMANENT)
 881                         wprintf("CHECKED ");
 882                 wprintf("> Permanent (does not auto-purge)\n");
 883
 884         /* start of anon options */
 885
 886                 wprintf("<LI>Anonymous messages<UL>\n");
 887
 888                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"anon\" VALUE=\"no\" ");
 889                 if (((er_flags & QR_ANONONLY) == 0)
 890                     && ((er_flags & QR_ANONOPT) == 0))
 891                         wprintf("CHECKED ");
 892                 wprintf("> No anonymous messages\n");
 893
 894                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"anon\" VALUE=\"anononly\" ");
 895                 if (er_flags & QR_ANONONLY)
 896                         wprintf("CHECKED ");
 897                 wprintf("> All messages are anonymous\n");
 898
 899                 wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"anon\" VALUE=\"anon2\" ");
 900                 if (er_flags & QR_ANONOPT)
 901                         wprintf("CHECKED ");
 902                 wprintf("> Prompt user when entering messages</UL>\n");
 903
 904         /* end of anon options */
 905
 906                 wprintf("<LI>Room aide: \n");
 907                 serv_puts("GETA");
 908                 serv_gets(buf);
 909                 if (buf[0] != '2') {
 910                         wprintf("<EM>%s</EM>\n", &buf[4]);
 911                 } else {
 912                         extract(er_roomaide, &buf[4], 0);
 913                         wprintf("<INPUT TYPE=\"text\" NAME=\"er_roomaide\" VALUE=\"%s\" MAXLENGTH=\"25\">\n", er_roomaide);
 914                 }
 915
 916                 wprintf("</UL><CENTER>\n");
 917                 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
 918                 wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
 919                 wprintf("</CENTER>\n");
 920         }
 921
 922
 923         /* Sharing the room with other Citadel nodes... */
 924         if (!strcmp(tab, "sharing")) {
 925
 926                 shared_with = strdup("");
 927                 not_shared_with = strdup("");
 928
 929                 /* Learn the current configuration */
 930                 serv_puts("CONF getsys|application/x-citadel-ignet-config");
 931                 serv_gets(buf);
 932                 if (buf[0]=='1') while (serv_gets(buf), strcmp(buf, "000")) {
 933                         extract(node, buf, 0);
 934                         not_shared_with = realloc(not_shared_with,
 935                                         strlen(not_shared_with) + 32);
 936                         strcat(not_shared_with, node);
 937                         strcat(not_shared_with, "|");
 938                 }
 939
 940                 serv_puts("GNET");
 941                 serv_gets(buf);
 942                 if (buf[0]=='1') while (serv_gets(buf), strcmp(buf, "000")) {
 943                         extract(cmd, buf, 0);
 944                         extract(node, buf, 1);
 945                         if (!strcasecmp(cmd, "ignet_push_share")) {
 946                                 shared_with = realloc(shared_with,
 947                                                 strlen(shared_with) + 32);
 948                                 strcat(shared_with, node);
 949                                 strcat(shared_with, "|");
 950                         }
 951                 }
 952
 953                 for (i=0; i<num_tokens(shared_with, '|'); ++i) {
 954                         extract(node, shared_with, i);
 955                         for (j=0; j<num_tokens(not_shared_with, '|'); ++j) {
 956                                 extract(cmd, not_shared_with, j);
 957                                 if (!strcasecmp(node, cmd)) {
 958                                         remove_token(not_shared_with, j, '|');
 959                                 }
 960                         }
 961                 }
 962
 963                 /* Display the stuff */
 964                 wprintf("<CENTER><BR>"
 965                         "<TABLE border=1 cellpadding=5><TR>"
 966                         "<TD><B><I>Shared with</I></B></TD>"
 967                         "<TD><B><I>Not shared with</I></B></TD></TR>\n"
 968                         "<TR><TD>\n");
 969
 970                 for (i=0; i<num_tokens(shared_with, '|'); ++i) {
 971                         extract(node, shared_with, i);
 972                         if (strlen(node) > 0) {
 973                                 wprintf("%s ", node);
 974                                 wprintf("<A HREF=\"/netedit&cmd=remove&line="
 975                                         "ignet_push_share|");
 976                                 urlescputs(node);
 977                                 wprintf("&tab=sharing\">(unshare)</A><BR>");
 978                         }
 979                 }
 980
 981                 wprintf("</TD><TD>\n");
 982
 983                 for (i=0; i<num_tokens(not_shared_with, '|'); ++i) {
 984                         extract(node, not_shared_with, i);
 985                         if (strlen(node) > 0) {
 986                                 wprintf("%s ", node);
 987                                 wprintf("<A HREF=\"/netedit&cmd=add&line="
 988                                         "ignet_push_share|");
 989                                 urlescputs(node);
 990                                 wprintf("&tab=sharing\">(share)</A><BR>");
 991                         }
 992                 }
 993
 994                 wprintf("</TD></TR>"
 995                         "</TABLE><BR>\n"
 996                         "<I><B>Reminder:</B> When sharing a room, "
 997                         "it must be shared from both ends.  Adding a node to "
 998                         "the 'shared' list sends messages out, but in order to"
 999                         " receive messages, the other nodes must be configured"
1000                         " to send messages out to your system as well.</I><BR>"
1001                         "</CENTER>\n");
1002
1003         }
1004
1005         /* Mailing list management */
1006         if (!strcmp(tab, "listserv")) {
1007
1008                 wprintf("<BR><center>"
1009                         "<TABLE BORDER=0 WIDTH=100%% CELLPADDING=5>"
1010                         "<TR><TD VALIGN=TOP>");
1011
1012                 wprintf("<i>The contents of this room are being "
1013                         "mailed <b>as individual messages</b> "
1014                         "to the following list recipients:"
1015                         "</i><br><br>\n");
1016
1017                 serv_puts("GNET");
1018                 serv_gets(buf);
1019                 if (buf[0]=='1') while (serv_gets(buf), strcmp(buf, "000")) {
1020                         extract(cmd, buf, 0);
1021                         if (!strcasecmp(cmd, "listrecp")) {
1022                                 extract(recp, buf, 1);
1023
1024                                 escputs(recp);
1025                                 wprintf(" <A HREF=\"/netedit&cmd=remove&line="
1026                                         "listrecp|");
1027                                 urlescputs(recp);
1028                                 wprintf("&tab=listserv\">(remove)</A><BR>");
1029
1030                         }
1031                 }
1032                 wprintf("<BR><FORM METHOD=\"POST\" ACTION=\"/netedit\">\n"
1033                         "<INPUT TYPE=\"hidden\" NAME=\"tab\" VALUE=\"listserv\">\n"
1034                         "<INPUT TYPE=\"hidden\" NAME=\"prefix\" VALUE=\"listrecp|\">\n");
1035                 wprintf("<INPUT TYPE=\"text\" NAME=\"line\">\n");
1036                 wprintf("<INPUT TYPE=\"submit\" NAME=\"cmd\" VALUE=\"Add\">");
1037                 wprintf("</FORM>\n");
1038
1039                 wprintf("</TD><TD VALIGN=TOP>\n");
1040
1041                 wprintf("<i>The contents of this room are being "
1042                         "mailed <b>in digest form</b> "
1043                         "to the following list recipients:"
1044                         "</i><br><br>\n");
1045
1046                 serv_puts("GNET");
1047                 serv_gets(buf);
1048                 if (buf[0]=='1') while (serv_gets(buf), strcmp(buf, "000")) {
1049                         extract(cmd, buf, 0);
1050                         if (!strcasecmp(cmd, "digestrecp")) {
1051                                 extract(recp, buf, 1);
1052
1053                                 escputs(recp);
1054                                 wprintf(" <A HREF=\"/netedit&cmd=remove&line="
1055                                         "digestrecp|");
1056                                 urlescputs(recp);
1057                                 wprintf("&tab=listserv\">(remove)</A><BR>");
1058
1059                         }
1060                 }
1061                 wprintf("<BR><FORM METHOD=\"POST\" ACTION=\"/netedit\">\n"
1062                         "<INPUT TYPE=\"hidden\" NAME=\"tab\" VALUE=\"listserv\">\n"
1063                         "<INPUT TYPE=\"hidden\" NAME=\"prefix\" VALUE=\"digestrecp|\">\n");
1064                 wprintf("<INPUT TYPE=\"text\" NAME=\"line\">\n");
1065                 wprintf("<INPUT TYPE=\"submit\" NAME=\"cmd\" VALUE=\"Add\">");
1066                 wprintf("</FORM>\n");
1067
1068                 wprintf("</TD></TR></TABLE><HR>\n");
1069
1070                 if (self_service(999) == 1) {
1071                         wprintf("This room is configured to allow "
1072                                 "self-service subscribe/unsubscribe requests."
1073                                 " <A HREF=\"/toggle_self_service?newval=0&"
1074                                 "tab=listserv\">"
1075                                 "Click to disable.</A><BR>\n"
1076                                 "The URL for subscribe/unsubscribe is: "
1077                                 "<TT>http://%s/listsub</TT><BR>\n",
1078                                 WC->http_host
1079                         );
1080                 }
1081                 else {
1082                         wprintf("This room is <i>not</i> configured to allow "
1083                                 "self-service subscribe/unsubscribe requests."
1084                                 " <A HREF=\"/toggle_self_service?newval=1&"
1085                                 "tab=listserv\">"
1086                                 "Click to enable.</A><BR>\n"
1087                         );
1088                 }
1089
1090
1091                 wprintf("</CENTER>\n");
1092         }
1093
1094         /* end content of whatever tab is open now */
1095         wprintf("</TD></TR></TABLE>\n");
1096
1097         wDumpContent(1);
1098 }
1099
1100
1101 /*
1102  * Toggle self-service list subscription
1103  */
1104 void toggle_self_service(void) {
1105         int newval = 0;
1106
1107         newval = atoi(bstr("newval"));
1108         self_service(newval);
1109         display_editroom();
1110 }
1111
1112
1113
1114 /*
1115  * save new parameters for a room
1116  */
1117 void editroom(void)
1118 {
1119         char buf[SIZ];
1120         char er_name[20];
1121         char er_password[10];
1122         char er_dirname[15];
1123         char er_roomaide[26];
1124         int er_floor;
1125         unsigned er_flags;
1126         int bump;
1127
1128
1129         if (strcmp(bstr("sc"), "OK")) {
1130                 strcpy(WC->ImportantMessage,
1131                         "Cancelled.  Changes were not saved.");
1132                 display_main_menu();
1133                 return;
1134         }
1135         serv_puts("GETR");
1136         serv_gets(buf);
1137
1138         if (buf[0] != '2') {
1139                 strcpy(WC->ImportantMessage, &buf[4]);
1140                 display_main_menu();
1141                 return;
1142         }
1143         extract(er_name, &buf[4], 0);
1144         extract(er_password, &buf[4], 1);
1145         extract(er_dirname, &buf[4], 2);
1146         er_flags = extract_int(&buf[4], 3);
1147
1148         strcpy(er_roomaide, bstr("er_roomaide"));
1149         if (strlen(er_roomaide) == 0) {
1150                 serv_puts("GETA");
1151                 serv_gets(buf);
1152                 if (buf[0] != '2') {
1153                         strcpy(er_roomaide, "");
1154                 } else {
1155                         extract(er_roomaide, &buf[4], 0);
1156                 }
1157         }
1158         strcpy(buf, bstr("er_name"));
1159         buf[20] = 0;
1160         if (strlen(buf) > 0)
1161                 strcpy(er_name, buf);
1162
1163         strcpy(buf, bstr("er_password"));
1164         buf[10] = 0;
1165         if (strlen(buf) > 0)
1166                 strcpy(er_password, buf);
1167
1168         strcpy(buf, bstr("er_dirname"));
1169         buf[15] = 0;
1170         if (strlen(buf) > 0)
1171                 strcpy(er_dirname, buf);
1172
1173         strcpy(buf, bstr("type"));
1174         er_flags &= !(QR_PRIVATE | QR_PASSWORDED | QR_GUESSNAME);
1175
1176         if (!strcmp(buf, "invonly")) {
1177                 er_flags |= (QR_PRIVATE);
1178         }
1179         if (!strcmp(buf, "guessname")) {
1180                 er_flags |= (QR_PRIVATE | QR_GUESSNAME);
1181         }
1182         if (!strcmp(buf, "passworded")) {
1183                 er_flags |= (QR_PRIVATE | QR_PASSWORDED);
1184         }
1185         if (!strcmp(bstr("prefonly"), "yes")) {
1186                 er_flags |= QR_PREFONLY;
1187         } else {
1188                 er_flags &= ~QR_PREFONLY;
1189         }
1190
1191         if (!strcmp(bstr("readonly"), "yes")) {
1192                 er_flags |= QR_READONLY;
1193         } else {
1194                 er_flags &= ~QR_READONLY;
1195         }
1196
1197         if (!strcmp(bstr("permanent"), "yes")) {
1198                 er_flags |= QR_PERMANENT;
1199         } else {
1200                 er_flags &= ~QR_PERMANENT;
1201         }
1202
1203         if (!strcmp(bstr("network"), "yes")) {
1204                 er_flags |= QR_NETWORK;
1205         } else {
1206                 er_flags &= ~QR_NETWORK;
1207         }
1208
1209         if (!strcmp(bstr("directory"), "yes")) {
1210                 er_flags |= QR_DIRECTORY;
1211         } else {
1212                 er_flags &= ~QR_DIRECTORY;
1213         }
1214
1215         if (!strcmp(bstr("ulallowed"), "yes")) {
1216                 er_flags |= QR_UPLOAD;
1217         } else {
1218                 er_flags &= ~QR_UPLOAD;
1219         }
1220
1221         if (!strcmp(bstr("dlallowed"), "yes")) {
1222                 er_flags |= QR_DOWNLOAD;
1223         } else {
1224                 er_flags &= ~QR_DOWNLOAD;
1225         }
1226
1227         if (!strcmp(bstr("visdir"), "yes")) {
1228                 er_flags |= QR_VISDIR;
1229         } else {
1230                 er_flags &= ~QR_VISDIR;
1231         }
1232
1233         strcpy(buf, bstr("anon"));
1234
1235         er_flags &= ~(QR_ANONONLY | QR_ANONOPT);
1236         if (!strcmp(buf, "anononly"))
1237                 er_flags |= QR_ANONONLY;
1238         if (!strcmp(buf, "anon2"))
1239                 er_flags |= QR_ANONOPT;
1240
1241         bump = 0;
1242         if (!strcmp(bstr("bump"), "yes"))
1243                 bump = 1;
1244
1245         er_floor = atoi(bstr("er_floor"));
1246
1247         sprintf(buf, "SETR %s|%s|%s|%u|%d|%d",
1248              er_name, er_password, er_dirname, er_flags, bump, er_floor);
1249         serv_puts(buf);
1250         serv_gets(buf);
1251         if (buf[0] != '2') {
1252                 strcpy(WC->ImportantMessage, &buf[4]);
1253                 display_main_menu();
1254                 return;
1255         }
1256         gotoroom(er_name, 0);
1257
1258         if (strlen(er_roomaide) > 0) {
1259                 sprintf(buf, "SETA %s", er_roomaide);
1260                 serv_puts(buf);
1261                 serv_gets(buf);
1262                 if (buf[0] != '2') {
1263                         strcpy(WC->ImportantMessage, &buf[4]);
1264                         display_main_menu();
1265                         return;
1266                 }
1267         }
1268         smart_goto(er_name);
1269 }
1270
1271 /*
1272  * Invite, Kick, and show Who Knows a room
1273  */
1274 void display_whok(void)
1275 {
1276         char buf[SIZ], room[SIZ], username[SIZ];
1277
1278         serv_puts("GETR");
1279         serv_gets(buf);
1280
1281         if (buf[0] != '2') {
1282                 strcpy(WC->ImportantMessage, &buf[4]);
1283                 display_main_menu();
1284                 return;
1285         }
1286         extract(room, &buf[4], 0);
1287
1288         strcpy(username, bstr("username"));
1289
1290         if(!strcmp(bstr("sc"), "Kick")) {
1291                 sprintf(buf, "KICK %s", username);
1292                 serv_puts(buf);
1293                 serv_gets(buf);
1294
1295                 if (buf[0] != '2') {
1296                         strcpy(WC->ImportantMessage, &buf[4]);
1297                 } else {
1298                         sprintf(WC->ImportantMessage,
1299                                 "<B><I>User %s kicked out of room %s.</I></B>\n",
1300                                 username, room);
1301                 }
1302         } else if(!strcmp(bstr("sc"), "Invite")) {
1303                 sprintf(buf, "INVT %s", username);
1304                 serv_puts(buf);
1305                 serv_gets(buf);
1306
1307                 if (buf[0] != '2') {
1308                         strcpy(WC->ImportantMessage, &buf[4]);
1309                 } else {
1310                         sprintf(WC->ImportantMessage,
1311                                 "<B><I>User %s invited to room %s.</I></B>\n",
1312                                 username, room);
1313                 }
1314         }
1315
1316         output_headers(1);
1317         stresc(buf, WC->wc_roomname, 1, 1);
1318         svprintf("BOXTITLE", WCS_STRING, "Access control list for %s", buf);
1319         do_template("beginbox");
1320
1321         wprintf("<TABLE border=0 CELLSPACING=10><TR VALIGN=TOP>"
1322                 "<TD>The users listed below have access to this room.  "
1323                 "To remove a user from the access list, select the user "
1324                 "name from the list and click 'Kick'.<BR><BR>");
1325
1326         wprintf("<CENTER><FORM METHOD=\"POST\" ACTION=\"/display_whok\">\n");
1327         wprintf("<SELECT NAME=\"username\" SIZE=10>\n");
1328         serv_puts("WHOK");
1329         serv_gets(buf);
1330         if (buf[0] == '1') {
1331                 while (serv_gets(buf), strcmp(buf, "000")) {
1332                         extract(username, buf, 0);
1333                         wprintf("<OPTION>");
1334                         escputs(username);
1335                         wprintf("\n");
1336                 }
1337         }
1338         wprintf("</SELECT><BR>\n");
1339
1340         wprintf("<input type=submit name=sc value=\"Kick\">");
1341         wprintf("</FORM></CENTER>\n");
1342
1343         wprintf("</TD><TD>"
1344                 "To grant another user access to this room, enter the "
1345                 "user name in the box below and click 'Invite'.<BR><BR>");
1346
1347         wprintf("<CENTER><FORM METHOD=\"POST\" ACTION=\"/display_whok\">\n");
1348         wprintf("Invite: ");
1349         wprintf("<input type=text name=username><BR>\n"
1350                 "<input type=hidden name=sc value=\"Invite\">"
1351                 "<input type=submit value=\"Invite\">"
1352                 "</FORM></CENTER>\n");
1353
1354         wprintf("</TD></TR></TABLE>\n");
1355         do_template("endbox");
1356         wDumpContent(1);
1357 }
1358
1359
1360
1361 /*
1362  * display the form for entering a new room
1363  */
1364 void display_entroom(void)
1365 {
1366         int i;
1367         char buf[SIZ];
1368
1369         serv_puts("CRE8 0");
1370         serv_gets(buf);
1371
1372         if (buf[0] != '2') {
1373                 strcpy(WC->ImportantMessage, &buf[4]);
1374                 display_main_menu();
1375                 return;
1376         }
1377         output_headers(3);
1378         svprintf("BOXTITLE", WCS_STRING, "Create a new room");
1379         do_template("beginbox");
1380
1381         wprintf("<FORM METHOD=\"POST\" ACTION=\"/entroom\">\n");
1382
1383         wprintf("<UL><LI>Name of room: ");
1384         wprintf("<INPUT TYPE=\"text\" NAME=\"er_name\" MAXLENGTH=\"127\">\n");
1385
1386         wprintf("<LI>Resides on floor: ");
1387         load_floorlist();
1388         wprintf("<SELECT NAME=\"er_floor\" SIZE=\"1\">\n");
1389         for (i = 0; i < 128; ++i)
1390                 if (strlen(floorlist[i]) > 0) {
1391                         wprintf("<OPTION ");
1392                         wprintf("VALUE=\"%d\">", i);
1393                         escputs(floorlist[i]);
1394                         wprintf("</OPTION>\n");
1395                 }
1396         wprintf("</SELECT>\n");
1397
1398         wprintf("<LI>Type of room:<UL>\n");
1399
1400         wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"public\" ");
1401         wprintf("CHECKED > Public room\n");
1402
1403         wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"guessname\" ");
1404         wprintf("> Private - guess name\n");
1405
1406         wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"passworded\" ");
1407         wprintf("> Private - require password:\n");
1408         wprintf("<INPUT TYPE=\"text\" NAME=\"er_password\" MAXLENGTH=\"9\">\n");
1409
1410         wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"invonly\" ");
1411         wprintf("> Private - invitation only\n");
1412
1413         wprintf("<LI><INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"personal\" ");
1414         wprintf("> Personal (mailbox for you only)\n");
1415         wprintf("</UL>\n");
1416
1417         wprintf("<LI>Default view for room: "); /* FOO */
1418         wprintf("<SELECT NAME=\"er_view\" SIZE=\"1\">\n");
1419         for (i=0; i<(sizeof viewdefs / sizeof (char *)); ++i) {
1420                 wprintf("<OPTION %s VALUE=\"%d\">",
1421                         ((i == 0) ? "SELECTED" : ""), i );
1422                 escputs(viewdefs[i]);
1423                 wprintf("</OPTION>\n");
1424         }
1425         wprintf("</SELECT>\n");
1426
1427         wprintf("<CENTER>\n");
1428         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
1429         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
1430         wprintf("</CENTER>\n");
1431         wprintf("</FORM>\n<HR>");
1432         serv_printf("MESG roomaccess");
1433         serv_gets(buf);
1434         if (buf[0] == '1') {
1435                 fmout(NULL, "CENTER");
1436         }
1437         do_template("endbox");
1438         wDumpContent(1);
1439 }
1440
1441
1442
1443
1444 /*
1445  * support function for entroom() -- sets the default view
1446  */
1447 void er_set_default_view(int newview) {
1448
1449         char buf[SIZ];
1450
1451         char rm_name[SIZ];
1452         char rm_pass[SIZ];
1453         char rm_dir[SIZ];
1454         int rm_bits1;
1455         int rm_floor;
1456         int rm_listorder;
1457         int rm_bits2;
1458
1459         serv_puts("GETR");
1460         serv_gets(buf);
1461         if (buf[0] != '2') return;
1462
1463         extract(rm_name, &buf[4], 0);
1464         extract(rm_pass, &buf[4], 1);
1465         extract(rm_dir, &buf[4], 2);
1466         rm_bits1 = extract_int(&buf[4], 3);
1467         rm_floor = extract_int(&buf[4], 4);
1468         rm_listorder = extract_int(&buf[4], 5);
1469         rm_bits2 = extract_int(&buf[4], 7);
1470
1471         serv_printf("SETR %s|%s|%s|%d|0|%d|%d|%d|%d",
1472                 rm_name, rm_pass, rm_dir, rm_bits1, rm_floor,
1473                 rm_listorder, newview, rm_bits2
1474         );
1475         serv_gets(buf);
1476 }
1477
1478
1479
1480 /*
1481  * enter a new room
1482  */
1483 void entroom(void)
1484 {
1485         char buf[SIZ];
1486         char er_name[SIZ];
1487         char er_type[SIZ];
1488         char er_password[SIZ];
1489         int er_floor;
1490         int er_num_type;
1491
1492         if (strcmp(bstr("sc"), "OK")) {
1493                 strcpy(WC->ImportantMessage,
1494                         "Cancelled.  No new room was created.");
1495                 display_main_menu();
1496                 return;
1497         }
1498         strcpy(er_name, bstr("er_name"));
1499         strcpy(er_type, bstr("type"));
1500         strcpy(er_password, bstr("er_password"));
1501         er_floor = atoi(bstr("er_floor"));
1502
1503         er_num_type = 0;
1504         if (!strcmp(er_type, "guessname"))
1505                 er_num_type = 1;
1506         if (!strcmp(er_type, "passworded"))
1507                 er_num_type = 2;
1508         if (!strcmp(er_type, "invonly"))
1509                 er_num_type = 3;
1510         if (!strcmp(er_type, "personal"))
1511                 er_num_type = 4;
1512
1513         sprintf(buf, "CRE8 1|%s|%d|%s|%d",
1514                 er_name, er_num_type, er_password, er_floor);
1515         serv_puts(buf);
1516         serv_gets(buf);
1517         if (buf[0] != '2') {
1518                 strcpy(WC->ImportantMessage, &buf[4]);
1519                 display_main_menu();
1520                 return;
1521         }
1522         gotoroom(er_name, 0);
1523         er_set_default_view(atoi(bstr("er_view")));     /* Set default view */
1524         do_change_view(atoi(bstr("er_view")));          /* Now go there */
1525 }
1526
1527
1528 /*
1529  * display the screen to enter a private room
1530  */
1531 void display_private(char *rname, int req_pass)
1532 {
1533
1534         output_headers(3);
1535
1536         svprintf("BOXTITLE", WCS_STRING, "Go to a hidden room");
1537         do_template("beginbox");
1538
1539         wprintf("<CENTER>\n");
1540         wprintf("<BR>If you know the name of a hidden (guess-name) or\n");
1541         wprintf("passworded room, you can enter that room by typing\n");
1542         wprintf("its name below.  Once you gain access to a private\n");
1543         wprintf("room, it will appear in your regular room listings\n");
1544         wprintf("so you don't have to keep returning here.\n");
1545         wprintf("<BR><BR>");
1546
1547         wprintf("<FORM METHOD=\"GET\" ACTION=\"/goto_private\">\n");
1548
1549         wprintf("<table border=\"0\" cellspacing=\"5\" "
1550                 "cellpadding=\"5\" BGCOLOR=\"#EEEEEE\">\n"
1551                 "<TR><TD>"
1552                 "Enter room name:</TD><TD>"
1553                 "<INPUT TYPE=\"text\" NAME=\"gr_name\" "
1554                 "VALUE=\"%s\" MAXLENGTH=\"19\">\n", rname);
1555
1556         if (req_pass) {
1557                 wprintf("</TD></TR><TR><TD>");
1558                 wprintf("Enter room password:</TD><TD>");
1559                 wprintf("<INPUT TYPE=\"password\" NAME=\"gr_pass\" MAXLENGTH=\"9\">\n");
1560         }
1561         wprintf("</TD></TR></TABLE><BR>\n");
1562
1563         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">"
1564                 "&nbsp;"
1565                 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
1566         wprintf("</FORM>\n");
1567         do_template("endbox");
1568         wDumpContent(1);
1569 }
1570
1571 /*
1572  * goto a private room
1573  */
1574 void goto_private(void)
1575 {
1576         char hold_rm[SIZ];
1577         char buf[SIZ];
1578
1579         if (strcasecmp(bstr("sc"), "OK")) {
1580                 display_main_menu();
1581                 return;
1582         }
1583         strcpy(hold_rm, WC->wc_roomname);
1584         strcpy(buf, "GOTO ");
1585         strcat(buf, bstr("gr_name"));
1586         strcat(buf, "|");
1587         strcat(buf, bstr("gr_pass"));
1588         serv_puts(buf);
1589         serv_gets(buf);
1590
1591         if (buf[0] == '2') {
1592                 smart_goto(bstr("gr_name"));
1593                 return;
1594         }
1595         if (!strncmp(buf, "540", 3)) {
1596                 display_private(bstr("gr_name"), 1);
1597                 return;
1598         }
1599         output_headers(1);
1600         wprintf("%s\n", &buf[4]);
1601         wDumpContent(1);
1602         return;
1603 }
1604
1605
1606 /*
1607  * display the screen to zap a room
1608  */
1609 void display_zap(void)
1610 {
1611         output_headers(1);
1612
1613         wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#770000\"><TR><TD>");
1614         wprintf("<SPAN CLASS=\"titlebar\">Zap (forget) the current room</SPAN>\n");
1615         wprintf("</TD></TR></TABLE>\n");
1616
1617         wprintf("If you select this option, <em>%s</em> will ", WC->wc_roomname);
1618         wprintf("disappear from your room list.  Is this what you wish ");
1619         wprintf("to do?<BR>\n");
1620
1621         wprintf("<FORM METHOD=\"GET\" ACTION=\"/zap\">\n");
1622         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
1623         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
1624         wprintf("</FORM>\n");
1625         wDumpContent(1);
1626 }
1627
1628
1629 /*
1630  * zap a room
1631  */
1632 void zap(void)
1633 {
1634         char buf[SIZ];
1635         char final_destination[SIZ];
1636
1637         /* If the forget-room routine fails for any reason, we fall back
1638          * to the current room; otherwise, we go to the Lobby
1639          */
1640         strcpy(final_destination, WC->wc_roomname);
1641
1642         if (!strcasecmp(bstr("sc"), "OK")) {
1643                 serv_printf("GOTO %s", WC->wc_roomname);
1644                 serv_gets(buf);
1645                 if (buf[0] != '2') {
1646                         /* ExpressMessageCat(&buf[4]); */
1647                 } else {
1648                         serv_puts("FORG");
1649                         serv_gets(buf);
1650                         if (buf[0] != '2') {
1651                                 /* ExpressMessageCat(&buf[4]); */
1652                         } else {
1653                                 strcpy(final_destination, "_BASEROOM_");
1654                         }
1655                 }
1656         }
1657         smart_goto(final_destination);
1658 }
1659
1660
1661
1662
1663 /*
1664  * Confirm deletion of the current room
1665  */
1666 void confirm_delete_room(void)
1667 {
1668         char buf[SIZ];
1669
1670         serv_puts("KILL 0");
1671         serv_gets(buf);
1672         if (buf[0] != '2') {
1673                 strcpy(WC->ImportantMessage, &buf[4]);
1674                 display_main_menu();
1675                 return;
1676         }
1677         output_headers(1);
1678         wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#770000\"><TR><TD>");
1679         wprintf("<SPAN CLASS=\"titlebar\">Confirm deletion of room</SPAN>\n");
1680         wprintf("</TD></TR></TABLE>\n");
1681
1682         wprintf("<CENTER>");
1683         wprintf("<FORM METHOD=\"GET\" ACTION=\"/delete_room\">\n");
1684
1685         wprintf("Are you sure you want to delete <FONT SIZE=+1>");
1686         escputs(WC->wc_roomname);
1687         wprintf("</FONT>?<BR>\n");
1688
1689         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Delete\">");
1690         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
1691
1692         wprintf("</FORM></CENTER>\n");
1693         wDumpContent(1);
1694 }
1695
1696
1697 /*
1698  * Delete the current room
1699  */
1700 void delete_room(void)
1701 {
1702         char buf[SIZ];
1703         char sc[SIZ];
1704
1705         strcpy(sc, bstr("sc"));
1706
1707         if (strcasecmp(sc, "Delete")) {
1708                 strcpy(WC->ImportantMessage,
1709                         "Cancelled.  This room was not deleted.");
1710                 display_main_menu();
1711                 return;
1712         }
1713         serv_puts("KILL 1");
1714         serv_gets(buf);
1715         if (buf[0] != '2') {
1716                 strcpy(WC->ImportantMessage, &buf[4]);
1717                 display_main_menu();
1718                 return;
1719         } else {
1720                 smart_goto("_BASEROOM_");
1721         }
1722 }
1723
1724
1725
1726 /*
1727  * Perform changes to a room's network configuration
1728  */
1729 void netedit(void) {
1730         FILE *fp;
1731         char buf[SIZ];
1732         char line[SIZ];
1733
1734         if (strlen(bstr("line"))==0) {
1735                 display_editroom();
1736                 return;
1737         }
1738
1739         strcpy(line, bstr("prefix"));
1740         strcat(line, bstr("line"));
1741         strcat(line, bstr("suffix"));
1742
1743         fp = tmpfile();
1744         if (fp == NULL) {
1745                 display_editroom();
1746                 return;
1747         }
1748
1749         serv_puts("GNET");
1750         serv_gets(buf);
1751         if (buf[0] != '1') {
1752                 fclose(fp);
1753                 display_editroom();
1754                 return;
1755         }
1756
1757         /* This loop works for add *or* remove.  Spiffy, eh? */
1758         while (serv_gets(buf), strcmp(buf, "000")) {
1759                 if (strcasecmp(buf, line)) {
1760                         fprintf(fp, "%s\n", buf);
1761                 }
1762         }
1763
1764         rewind(fp);
1765         serv_puts("SNET");
1766         serv_gets(buf);
1767         if (buf[0] != '4') {
1768                 fclose(fp);
1769                 display_editroom();
1770                 return;
1771         }
1772
1773         while (fgets(buf, sizeof buf, fp) != NULL) {
1774                 buf[strlen(buf)-1] = 0;
1775                 serv_puts(buf);
1776         }
1777
1778         if (!strcasecmp(bstr("cmd"), "add")) {
1779                 serv_puts(line);
1780         }
1781
1782         serv_puts("000");
1783         fclose(fp);
1784         display_editroom();
1785 }
1786
1787
1788
1789 /*
1790  * Convert a room name to a folder-ish-looking name.
1791  */
1792 void room_to_folder(char *folder, char *room, int floor, int is_mailbox)
1793 {
1794         int i;
1795
1796         /*
1797          * For mailboxes, just do it straight...
1798          */
1799         if (is_mailbox) {
1800                 sprintf(folder, "My folders|%s", room);
1801         }
1802
1803         /*
1804          * Otherwise, prefix the floor name as a "public folders" moniker
1805          */
1806         else {
1807                 sprintf(folder, "%s|%s", floorlist[floor], room);
1808         }
1809
1810         /*
1811          * Replace "\" characters with "|" for pseudo-folder-delimiting
1812          */
1813         for (i=0; i<strlen(folder); ++i) {
1814                 if (folder[i] == '\\') folder[i] = '|';
1815         }
1816 }
1817
1818
1819
1820
1821 /*
1822  * Back end for change_view()
1823  */
1824 void do_change_view(int newview) {
1825         char buf[SIZ];
1826
1827         serv_printf("VIEW %d", newview);
1828         serv_gets(buf);
1829         smart_goto(WC->wc_roomname);
1830 }
1831
1832
1833
1834 /*
1835  * Change the view for this room
1836  */
1837 void change_view(void) {
1838         int view;
1839
1840         view = atol(bstr("view"));
1841         do_change_view(view);
1842 }
1843
1844
1845 /*
1846  * One big expanded tree list view --- like a folder list
1847  */
1848 void do_folder_view(struct folder *fold, int max_folders, int num_floors) {
1849         char buf[SIZ];
1850         int levels, oldlevels;
1851         int i, t;
1852
1853         do_template("beginbox_nt");
1854         levels = 0;
1855         oldlevels = 0;
1856         for (i=0; i<max_folders; ++i) {
1857
1858                 levels = num_tokens(fold[i].name, '|');
1859                 oldlevels = levels;
1860
1861                 for (t=0; t<levels; ++t) wprintf("&nbsp;&nbsp;&nbsp;");
1862                 if (fold[i].selectable) {
1863                         wprintf("<A HREF=\"/dotgoto?room=");
1864                         urlescputs(fold[i].room);
1865                         wprintf("\">");
1866                 }
1867                 else {
1868                         wprintf("<i>");
1869                 }
1870                 if (levels == 1) {
1871                         wprintf("<SPAN CLASS=\"roomlist_floor\">");
1872                 }
1873                 else if (fold[i].hasnewmsgs) {
1874                         wprintf("<SPAN CLASS=\"roomlist_new\">");
1875                 }
1876                 else {
1877                         wprintf("<SPAN CLASS=\"roomlist_old\">");
1878                 }
1879                 extract(buf, fold[i].name, levels-1);
1880                 escputs(buf);
1881                 wprintf("</SPAN>");
1882                 if (fold[i].selectable) {
1883                         wprintf("</A>");
1884                 }
1885                 else {
1886                         wprintf("</i>");
1887                 }
1888                 if (!strcasecmp(fold[i].name, "My Folders|Mail")) {
1889                         wprintf(" (INBOX)");
1890                 }
1891                 wprintf("<BR>\n");
1892         }
1893         do_template("endbox");
1894 }
1895
1896 /*
1897  * Boxes and rooms and lists ... oh my!
1898  */
1899 void do_rooms_view(struct folder *fold, int max_folders, int num_floors) {
1900         char buf[SIZ];
1901         char boxtitle[SIZ];
1902         int levels, oldlevels;
1903         int i, t;
1904         int num_boxes = 0;
1905         static int columns = 3;
1906         int boxes_per_column = 0;
1907         int current_column = 0;
1908         int nf;
1909
1910         nf = num_floors;
1911         while (nf % columns != 0) ++nf;
1912         boxes_per_column = (nf / columns);
1913         if (boxes_per_column < 1) boxes_per_column = 1;
1914
1915         /* Outer table (for columnization) */
1916         wprintf("<TABLE BORDER=0 WIDTH=100%% CELLPADDING=5>"
1917                 "<TR><TD VALIGN=TOP>");
1918
1919         levels = 0;
1920         oldlevels = 0;
1921         for (i=0; i<max_folders; ++i) {
1922
1923                 levels = num_tokens(fold[i].name, '|');
1924
1925                 if ((levels == 1) && (oldlevels == 2)) {
1926
1927                         /* End inner box */
1928                         do_template("endbox");
1929
1930                         ++num_boxes;
1931                         if ((num_boxes % boxes_per_column) == 0) {
1932                                 ++current_column;
1933                                 if (current_column < columns) {
1934                                         wprintf("</TD><TD VALIGN=TOP>\n");
1935                                 }
1936                         }
1937                 }
1938
1939                 if (levels == 1) {
1940
1941                         /* Begin inner box */
1942                         extract(buf, fold[i].name, levels-1);
1943                         stresc(boxtitle, buf, 1, 0);
1944                         svprintf("BOXTITLE", WCS_STRING, boxtitle);
1945                         do_template("beginbox");
1946
1947                 }
1948
1949                 oldlevels = levels;
1950
1951                 if (levels > 1) {
1952                         wprintf("&nbsp;");
1953                         if (levels>2) for (t=0; t<(levels-2); ++t) wprintf("&nbsp;&nbsp;&nbsp;");
1954                         if (fold[i].selectable) {
1955                                 wprintf("<A HREF=\"/dotgoto?room=");
1956                                 urlescputs(fold[i].room);
1957                                 wprintf("\">");
1958                         }
1959                         else {
1960                                 wprintf("<i>");
1961                         }
1962                         if (fold[i].hasnewmsgs) {
1963                                 wprintf("<SPAN CLASS=\"roomlist_new\">");
1964                         }
1965                         else {
1966                                 wprintf("<SPAN CLASS=\"roomlist_old\">");
1967                         }
1968                         extract(buf, fold[i].name, levels-1);
1969                         escputs(buf);
1970                         wprintf("</SPAN>");
1971                         if (fold[i].selectable) {
1972                                 wprintf("</A>");
1973                         }
1974                         else {
1975                                 wprintf("</i>");
1976                         }
1977                         if (!strcasecmp(fold[i].name, "My Folders|Mail")) {
1978                                 wprintf(" (INBOX)");
1979                         }
1980                         wprintf("<BR>\n");
1981                 }
1982         }
1983         /* End the final inner box */
1984         do_template("endbox");
1985
1986         wprintf("</TD></TR></TABLE>\n");
1987 }
1988
1989
1990 /*
1991  * Show the room list.  (only should get called by
1992  * knrooms() because that's where output_headers() is called from)
1993  */
1994
1995 void list_all_rooms_by_floor(char *viewpref) {
1996         char buf[SIZ];
1997         int swap = 0;
1998         struct folder *fold = NULL;
1999         struct folder ftmp;
2000         int max_folders = 0;
2001         int alloc_folders = 0;
2002         int i, j;
2003         int ra_flags = 0;
2004         int flags = 0;
2005         int num_floors = 1;     /* add an extra one for private folders */
2006
2007         /* Start with the mailboxes */
2008         max_folders = 1;
2009         alloc_folders = 1;
2010         fold = malloc(sizeof(struct folder));
2011         memset(fold, 0, sizeof(struct folder));
2012         strcpy(fold[0].name, "My folders");
2013         fold[0].is_mailbox = 1;
2014
2015         /* Then add floors */
2016         serv_puts("LFLR");
2017         serv_gets(buf);
2018         if (buf[0]=='1') while(serv_gets(buf), strcmp(buf, "000")) {
2019                 if (max_folders >= alloc_folders) {
2020                         alloc_folders = max_folders + 100;
2021                         fold = realloc(fold,
2022                                 alloc_folders * sizeof(struct folder));
2023                 }
2024                 memset(&fold[max_folders], 0, sizeof(struct folder));
2025                 extract(fold[max_folders].name, buf, 1);
2026                 ++max_folders;
2027                 ++num_floors;
2028         }
2029
2030         /* Now add rooms */
2031         serv_puts("LKRA");
2032         serv_gets(buf);
2033         if (buf[0]=='1') while(serv_gets(buf), strcmp(buf, "000")) {
2034                 if (max_folders >= alloc_folders) {
2035                         alloc_folders = max_folders + 100;
2036                         fold = realloc(fold,
2037                                 alloc_folders * sizeof(struct folder));
2038                 }
2039                 memset(&fold[max_folders], 0, sizeof(struct folder));
2040                 extract(fold[max_folders].room, buf, 0);
2041                 ra_flags = extract_int(buf, 5);
2042                 flags = extract_int(buf, 1);
2043                 fold[max_folders].floor = extract_int(buf, 2);
2044                 fold[max_folders].hasnewmsgs =
2045                         ((ra_flags & UA_HASNEWMSGS) ? 1 : 0 );
2046                 if (flags & QR_MAILBOX) {
2047                         fold[max_folders].is_mailbox = 1;
2048                 }
2049                 room_to_folder(fold[max_folders].name,
2050                                 fold[max_folders].room,
2051                                 fold[max_folders].floor,
2052                                 fold[max_folders].is_mailbox);
2053                 fold[max_folders].selectable = 1;
2054                 ++max_folders;
2055         }
2056
2057         /* Bubble-sort the folder list */
2058         for (i=0; i<max_folders; ++i) {
2059                 for (j=0; j<(max_folders-1)-i; ++j) {
2060                         if (fold[j].is_mailbox == fold[j+1].is_mailbox) {
2061                                 swap = strcasecmp(fold[j].name, fold[j+1].name);
2062                         }
2063                         else {
2064                                 if ( (fold[j+1].is_mailbox)
2065                                    && (!fold[j].is_mailbox)) {
2066                                         swap = 1;
2067                                 }
2068                                 else {
2069                                         swap = 0;
2070                                 }
2071                         }
2072                         if (swap > 0) {
2073                                 memcpy(&ftmp, &fold[j], sizeof(struct folder));
2074                                 memcpy(&fold[j], &fold[j+1],
2075                                                         sizeof(struct folder));
2076                                 memcpy(&fold[j+1], &ftmp,
2077                                                         sizeof(struct folder));
2078                         }
2079                 }
2080         }
2081
2082         if (!strcasecmp(viewpref, "folders")) {
2083                 do_folder_view(fold, max_folders, num_floors);
2084         }
2085         else {
2086                 do_rooms_view(fold, max_folders, num_floors);
2087         }
2088
2089         free(fold);
2090         wDumpContent(1);
2091 }
2092
2093
2094 /* Do either a known rooms list or a folders list, depending on the
2095  * user's preference
2096  */
2097 void knrooms() {
2098         char listviewpref[SIZ];
2099
2100         output_headers(3);
2101         load_floorlist();
2102
2103         /* Determine whether the user is trying to change views */
2104         if (bstr("view") != NULL) {
2105                 if (strlen(bstr("view")) > 0) {
2106                         set_preference("roomlistview", bstr("view"));
2107                 }
2108         }
2109
2110         get_preference("roomlistview", listviewpref);
2111
2112         if ( (strcasecmp(listviewpref, "folders"))
2113            && (strcasecmp(listviewpref, "table")) ) {
2114                 strcpy(listviewpref, "rooms");
2115         }
2116
2117         /* title bar */
2118         wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
2119                 "<SPAN CLASS=\"titlebar\">"
2120         );
2121         if (!strcasecmp(listviewpref, "rooms")) {
2122                 wprintf("Room list");
2123         }
2124         if (!strcasecmp(listviewpref, "folders")) {
2125                 wprintf("Folder list");
2126         }
2127         if (!strcasecmp(listviewpref, "table")) {
2128                 wprintf("Room list");
2129         }
2130         wprintf("</SPAN></TD>\n");
2131
2132
2133         /* offer the ability to switch views */
2134         wprintf("<TD ALIGN=RIGHT><FORM NAME=\"roomlistomatic\">\n"
2135                 "<SELECT NAME=\"newview\" SIZE=\"1\" "
2136                 "OnChange=\"location.href=roomlistomatic.newview.options"
2137                 "[selectedIndex].value\">\n");
2138
2139         wprintf("<OPTION %s VALUE=\"/knrooms&view=rooms\">"
2140                 "View as room list"
2141                 "</OPTION>\n",
2142                 ( !strcasecmp(listviewpref, "rooms") ? "SELECTED" : "" )
2143         );
2144
2145         wprintf("<OPTION %s VALUE=\"/knrooms&view=folders\">"
2146                 "View as folder list"
2147                 "</OPTION>\n",
2148                 ( !strcasecmp(listviewpref, "folders") ? "SELECTED" : "" )
2149         );
2150
2151         wprintf("</SELECT><BR>");
2152         offer_start_page();
2153         wprintf("</FORM></TD></TR></TABLE>\n");
2154
2155         /* Display the room list in the user's preferred format */
2156         list_all_rooms_by_floor(listviewpref);
2157 }