doc.c

/*
 *  doc.c - Handles function of the main forum prompt.
 */
#include "defs.h"
#include "ext.h"

static void inituser(void);

void bbsstart(void) {
  int32_t uglastmsg; /* last msg seen in prev. rm */
  int32_t ugtemp = TWILIGHTZONE;
  short prev_rm = TWILIGHTZONE;
  char cit_cmd;

  room = &sroom;

  init_system();

  reserve_slot();
  do_login();

  colorize("\n" ANSI_BOLD""BOLD_GREEN);

  curr = LOBBY_RM_NBR;
  inituser();
  openroom();
  storeug(&uglastmsg, &ugtemp);

  /* The first thing we do is make the user read the lobby */
  cit_cmd = 'N';

  readroom(cit_cmd);

  for (;;) {
    /*
     * check if user has been kicked out of this room while they were in it,
     * or if room was deleted
     */
    if (ouruser->generation[curr] < 0 || !msg->room[curr].flags) {
      curr = LOBBY_RM_NBR;
      openroom();
      storeug(&uglastmsg, &ugtemp);
    }

    if (cit_cmd) {
      colorize("\n" BOLD_YELLOW "%s> " BOLD_GREEN, msg->room[curr].name);
    }

    checkx(0);

    if (ouruser->f_prog) {
      cit_cmd = get_single_quiet(
          "0123456789ABbCdD\005eEFfGHIJKLNOpPqQRsStTuUvVwWxX\027\030yYZ "
          "+/?#%@-\"");
    } else if (ouruser->f_aide) {
      cit_cmd = get_single_quiet(
          "0123456789ABbCdD\005eEFfGHIJKLNOpPqQRsStTuUvVwWxX\027\030yYZ "
          "/?#%@-\"");
    } else if (ouruser->usernum == msg->room[curr].roomaide &&
               !ouruser->f_twit) {
      cit_cmd = get_single_quiet(
          "0123456789ABbCdD\005eEFfGHIJKLNOpPqQRsStTuUvwWxX\027\030yYZ "
          "/?#%@-\"");
    } else {
      cit_cmd = get_single_quiet(
          "0123456789BbCedDEFfGHIJKLNOpPqQRsStTuUvwWxX\027\030yYZ /?#%@-\"");
    }

    if (cit_cmd == SP) {
      cit_cmd = 'N';
    }

    if (guest && !strchr("0123456789BbFGHIJKLNOpPRsSTUwWyY/?#-", cit_cmd)) {
      colorize(BOLD_RED "\n\nThe Guest user cannot do that.\n" BOLD_GREEN);
      continue;
    }

    if (strchr("0123456789AC\005eEHJpPQSvVx\030yYZ#-\"", cit_cmd)) {
      mybtmp->nox = 1;
    }

    switch (cit_cmd) {
      case 'A':
        my_printf("Sysop commands %s\n", msg->room[curr].name);
        aide_menu();
        break;

      case 'B':
        change_beeps();
        break;

      case 'R':
      case 'b':
        cit_cmd = 'R';
        my_printf("Read Reverse\n");
        readroom(cit_cmd);
        break;

      case 'C':
        my_printf("Change config\n");
        change_setup(NULL);
        break;
      case 'd':
        my_printf("Change doing field\n\n");
        change_doing();
        break;
      case 'D':
        show_online(4);
        break;

      case '\005':
        if (ouruser->usernum == msg->room[curr].roomaide) {
          my_printf("Enter Forum Moderator message\n\n");
          if (ouruser->f_novice) {
            my_printf(
                "Are you sure you want to enter a message as Forum Moderator? "
                "(Y/N) -> ");
            if (!yesno(-1)) {
              break;
            }
          }
          sysopflags |= SYSOP_FROM_FM;
        } else if (ouruser->f_admin) {
          my_printf(
              "Enter Sysop message\n\nNOTE: You are entering this message as "
              "Sysop!\n\n");
          sysopflags |= SYSOP_FROM_SYSOP;
        }
        /* FALL THRU */

      case 'e':
      case 'E': {
        char work[20];
        // TODO: FIX FOR BABBLE
        if (ouruser->f_newbie && (curr == MAIL_RM_NBR || curr != BABBLE_ROOM)) {
          help("newuseraccess", NO);
        } else {
          if (cit_cmd == 'E') {
            my_printf("Upload message\n\n");
          } else if (cit_cmd == 'e') {
            my_printf("Enter message\n\n");
          }
          *work = 0;
          if (entermessage(curr, work,
                           cit_cmd == 'e'      ? 0
                           : ouruser->f_novice ? 2
                                               : 1)) {
            alt = TRUE;
          }
          sysopflags &= ~(SYSOP_FROM_SYSOP | SYSOP_FROM_FM);
        }
      } break;

      case 'f':
        my_printf("Read Forward\n");
        readroom(cit_cmd);
        break;

      case 'F':
        my_printf("Fortune\n\n");
        do_fortune();
        break;

      case 'G':
        alt = TRUE;
        my_printf("Goto ");
        updatels(&prev_rm);
        /* find next room with unread msgs and open it */
        nextroom();
        openroom();
        storeug(&uglastmsg, &ugtemp);
        break;

      case 'H':
        my_printf("Help!\n");
        help("topics", YES);
        break;

      case 'q':
      case 'Q':
        get_syself_help(cit_cmd);
        break;

      case 'I':
        my_printf("Forum Info\n");
        readdesc();
        break;

      case 'J': {
        int old_rm;

        my_printf("Jump to ");
        old_rm = curr;
        if (findroom() == YES) {
          int save_rm;

          mybtmp->nox = 0;
          save_rm = curr;
          curr = old_rm;
          alt = TRUE;
          updatels(&prev_rm);
          curr = save_rm;
          openroom();
          storeug(&uglastmsg, &ugtemp);
        }
      } break;

      case 'K':
        my_printf("Known forums and zapped list\n");
        knrooms(ouruser);
        break;

      case 'L':
        dologout();
        break;

      case 'N':
        if (!alt && (ouruser->f_clear)) {
          ouruser->lastseen[curr] = room->num[MSGSPERRM - 1];
        }

        if (ouruser->lastseen[curr] < room->num[MSGSPERRM - 1]) {
          my_printf("Read New\n");
          readroom(cit_cmd);
        } else { /* No new notes so just do a Goto now */
          my_printf("Goto ");
          alt = TRUE;
          updatels(&prev_rm);
          /* find next room with unread msgs and open it */
          nextroom();
          openroom();
          storeug(&uglastmsg, &ugtemp);
        }
        break;

      case 'O':
        my_printf("Read Old messages reverse\n");
        readroom(cit_cmd);
        break;

      case 'p':
      case 'P':
        profile_user(cit_cmd == 'P');
        break;

      case 's': /* don't update lastseen, you're skipping the room */
        alt = TRUE;
        my_printf("Skip %s\n", msg->room[curr].name);
        skipping[curr >> 3] |= 1 << (curr & 7);
        /* after skipping a room, find the next unread room (not a goto) */
        nextroom();
        openroom();
        ugtemp = ouruser->lastseen[curr];
        break;

      case 'S': {
        int old_rm;

        my_printf("Skip %s to ", msg->room[curr].name);
        old_rm = curr;
        if (findroom() == YES) {
          mybtmp->nox = 0;
          alt = TRUE;
          skipping[old_rm >> 3] |= 1 << (old_rm & 7);
          openroom();
          ugtemp = ouruser->lastseen[curr];
        }
      } break;
      case 't':
        printdate("Time\n\n%s");
        break;

      case 'u':
        my_printf("Ungoto\n");
        alt = TRUE;
        ungoto(prev_rm, &uglastmsg, &ugtemp);
        break;

      case 'U':
        my_printf("Update Facebook Status, coming soon...\n");
        break;

      case 'v':
        express(-1);
        break;

      case 'V':
        my_printf("Validate new users\n");
        validate_users(1);
        break;

      case '\027':
        if (client)
          clientwho();
        else
          cit_cmd = 0;
        break;

      case 'W':
        if (ouruser->f_shortwho)
          show_online(0);
        else
          show_online(3);
        break;

      case 'w':
        if (ouruser->f_shortwho)
          show_online(3);
        else
          show_online(0);
        break;

      case 'x':
        express(10);
        break;

      case 'X':
        change_express(1);
        break;

      case CTRL_X:
        old_express();
        break;

      case 'y':
      case 'Y':
        if (!wanttoyell(cit_cmd)) break;
        (void)entermessage(-1, "",
                           cit_cmd == 'y'      ? 0
                           : ouruser->f_novice ? 2
                                               : 1);
        break;

      case 'Z':
        my_printf("Zap forum\n");
        if (forgetroom()) {
          alt = TRUE;
          nextroom();
          openroom();
          ugtemp = ouruser->lastseen[curr];
        }
        break;

      case '0':
      case '1':
      case '2':
      case '3':
      case '4':
      case '5':
      case '6':
      case '7':
      case '8':
      case '9':
        express(cit_cmd - '0');
        break;

      case '?':
      case '/':
        if (guest) {
          help("guestforumlevel", NO);
        } else {
          help("doccmd", NO);
        }
        break;

      case '#':
        readroom(cit_cmd);
        break;

      case '%':
        if (ouruser->f_elf && !ouruser->f_restricted && !ouruser->f_twit) {
          if (mybtmp->xstat && !mybtmp->elf) {
            my_printf(
                "\n\nYou can't enable yourself as a guide while your X's are "
                "disabled.\n");
          } else if ((mybtmp->elf = !mybtmp->elf)) {
            my_printf(
                "\n\nYou are now marked as being available to help others.\n");
          } else {
            my_printf(
                "\n\nYou are no longer marked as being available to help "
                "others.\n");
          }
        } else {
          cit_cmd = 0;
        }
        break;

      case '-':
        readroom(cit_cmd);
        break;

      case '@':
        my_printf("Aidelist\n");
        more(AIDELIST, 0);
        break;

        //      case '*':
        //	my_printf("Aidelist\n");
        //	more(NEWAIDELIST, 0);
        //        break;

      case '"': {
        char work[20];

        my_printf("Quote X messages to Sysop\n");
        *work = 0;
        (void)entermessage(-1, work, -1);
      } break;

      default:
        break;
    } /* switch */
  }
}

/*
 * New messages are those with universal message numbers greater than the value
 * in ouruser->lastseen[MAIL_RM_NBR].
 */
int checkmail(struct user *tmpuser, int quiet) {
  int16_t i;
  int8_t count = 0;

  /* See if user is such a doofus we've kicked them out of Mail> */
  if (tmpuser->generation[MAIL_RM_NBR] == RODSERLING) {
    return (NO);
  }

  for (i = MAILMSGS - 1;
       i >= 0 && tmpuser->lastseen[MAIL_RM_NBR] < tmpuser->mr[i].num; i--)
    if (tmpuser->mr[i].pos > 0) {
      if (count++ < 0) {
        count++;
      }
    } else if (!count) {
      count--;
    }

  if (!quiet) {
    if (count == 1) {
      my_printf("*** You have a new private message in Mail>\n");
    } else if (count > 1) {
      my_printf("*** You have %d new private messages in Mail>\n", count);
    }
  }

  return (count > 0 ? count : 0);
}

void help(const char *topic, int morehelp) {
  char help_str[30];
  int f;
  uint8_t toast;

  {
    char *hfile = my_sprintf(NULL, "%s%s", HELPDIR, topic);
    more(hfile, 1);
    free(hfile);
    hfile = NULL;
  }
  if (!morehelp) {
    return;
  }

  for (;;) {
    colorize(BOLD_YELLOW "\nEnter help topic -> " BOLD_GREEN);
    get_string("", 29, help_str, -1);
    if (!*help_str) {
      return;
    }
    /* We don't want these people walking the tree */
    if (strchr(help_str, '.') || strchr(help_str, '/')) {
      continue;
    }

    for (toast = 0; help_str[toast] != '\0' && toast < 30; toast++) {
      help_str[toast] = tolower(help_str[toast]);
    }
    //    *help_str = tolower(*help_str);
    char *hfile = my_sprintf(NULL, "%s%s%s", HELPDIR, "topics.", help_str);

    //    colorize("\n"BOLD_WHITE"Debug: %s\n"BOLD_GREEN, hfile);

    if ((f = open(hfile, O_RDONLY)) < 0) {
      colorize(BOLD_RED "\nTopic not found." BOLD_GREEN);
    } else {
      close(f);
      more(hfile, 1);
    }
    free(hfile);
  }
}

/*
 * Flag rooms a user no longer belongs to so generation numbers are kept
 * consistent.  Also resets any pointers that might have gotten out of range.
 */
static void inituser(void) {
  uint8_t i;

  for (i = 0; i < MAXROOMS; ++i) {
    if (ouruser->generation[i] != msg->room[i].gen &&
        ouruser->generation[i] != RODSERLING) {
      ouruser->generation[i] = TWILIGHTZONE;
    }

    if (ouruser->forget[i] != msg->room[i].gen &&
        ouruser->forget[i] != NEWUSERFORGET) {
      ouruser->forget[i] = TWILIGHTZONE;
    }

    if (i != MAIL_RM_NBR) {
      if (ouruser->lastseen[i] > msg->room[i].highest) {
        ouruser->lastseen[i] = msg->room[i].highest;
      }
    } else if (ouruser->lastseen[MAIL_RM_NBR] > ouruser->mr[MAILMSGS - 1].num) {
      ouruser->lastseen[MAIL_RM_NBR] = ouruser->mr[MAILMSGS - 1].num;
    }
  }
}

bool wanttoyell(char cmd) {
  my_printf("%s", cmd == 'y' ? "Yell to Sysop\n" : "Upload Yell to Sysop\n");
  help("yell.list", NO);
  my_printf("Enter your choice -> ");
  switch (get_single_quiet("1234YN \n")) {
    case '1':
      help("yell.voice.1", NO);
      break;
    case '2':
      help("yell.voice.2", NO);
      break;
    case '3':
      help("yell.voice.3", NO);
      break;
    case '4':
      help("yell.voice.4", NO);
      break;
    case 'Y':
      my_putchar('\n');
      return TRUE;
    default:
      my_putchar('\n');
      break;
  }
  return FALSE;
}

void dologout(void) {
  my_printf("Logout\n\nReally log out? (Y/N) -> ");
  flush_input(0);
 
  if (yesno(-1)) {
    my_printf("\n");
    do_fortune();
    my_printf("\nThanks for dropping by.\n");
    my_exit(1);
  }
}