/*

 * config.c	Read and write the configuration file(s).

 *

 *		This file is part of the minicom communications package,

 *		Copyright 1991-1995 Miquel van Smoorenburg.

 *

 *		This program is free software; you can redistribute it and/or

 *		modify it under the terms of the GNU General Public License

 *		as published by the Free Software Foundation; either version

 *		2 of the License, or (at your option) any later version.

 *  You should have received a copy of the GNU General Public License along

 *  with this program; if not, write to the Free Software Foundation, Inc.,

 *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * // fmg 12/20/93 - Added color selection to Screen & Keyboard menu

 * // fmg 2/15/94 - Added macro filename & Macro define selection to

 *                  Screen & Keyboard menu. Added window for macro

 *                  definition.

 * // jl 04.09.97 - Added configuring the character conversion tables

 * // jl 09.09.97 - Save conversion table filename in the config file and

 *                  read the table at startup

 * // jl 22.02.98 - Setting for filename selection window

 * // acme 25.02.98 - i18n

 * // jl 05.04.98 - Handling the P_MUL option

 *    jl 06.07.98 - the P_CONVCAP option

 *    jl 10.07.98 - moved functions pfix_home and do_log to file common.c

 *    jl 29.11.98 - the P_SHOWSPD option

 *    jl 05.04.99 - logging options menu

 *    er 18-Apr-99 - the P_MULTILINE option

 *    jl 11.02.2000 - the P_STOPB option

 */

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include <limits.h>

#include "port.h"

#include "minicom.h"

#include "intl.h"

void doconv(void);   /* jl 04.09.97 */

/* Read in parameters. */

void read_parms(void)

{

  FILE *fp;

  int f;

  char buf[64];

  char *p;

  /* Read global parameters */

  if ((fp = fopen(parfile, "r"))) {

    readpars(fp, CONFIG_GLOBAL);

    fclose(fp);

  }

  /* Read personal parameters */

  if ((fp = fopen(pparfile, "r")) != NULL) {

    readpars(fp, CONFIG_PERSONAL);

    fclose(fp);

  }

  /* fmg - set colors from readin values (Jcolor Xlates name to #) */

  mfcolor = Jcolor(P_MFG); mbcolor = Jcolor(P_MBG);

  tfcolor = Jcolor(P_TFG); tbcolor = Jcolor(P_TBG);

  sfcolor = Jcolor(P_SFG); sbcolor = Jcolor(P_SBG);

  /* fmg - Read personal macros */

  if (P_MACROS[0] != 0) { /* fmg - null length? */

    if ((fp = fopen(pfix_home(P_MACROS), "r")) == NULL) {

      if (errno != ENOENT) {

        fprintf(stderr,

                _("minicom: cannot open macro file %s\n"), pfix_home(P_MACROS));

        sleep(1); /* fmg - give the "slow" ones time to read :-) */

      }

    } else {

      readmacs(fp, 0);

      fclose(fp);

    }

  } /* fmg - but it's perfectly OK if macros file name is NULL... */

  if (P_CONVF[0] != 0) { /* jl 09.09.97 */

    loadconv(P_CONVF);

  }

  /* This code is to use old configuration files. */

  for (f = PROTO_BASE; f < MAXPROTO; f++) {

    if (P_PNAME(f)[0] && P_PIORED(f) != 'Y' && P_PIORED(f) != 'N') {

      strncpy(buf, P_PNAME(f) - 2, sizeof(buf));

      buf[sizeof(buf) - 1] = '\0';

      strcpy(P_PNAME(f), buf);

      P_PIORED(f) = 'Y';

      P_PFULL(f) = 'N';

    }

  }

  if ((p = strrchr(P_LOCK, '/')) != NULL && strncmp(p, "/LCK", 4) == 0)

    *p = 0;

}

/*

 * fmg - Convert color word to number

 */

int Jcolor(char *s)

{

  char c1, c3;

  c1 = toupper(s[0]); /* fmg - it's already up but why tempt it? */

  c3 = toupper(s[2]);

  switch (c1)

  {

    case 'G': return GREEN;

    case 'Y': return YELLOW;

    case 'W': return WHITE;

    case 'R': return RED;

    case 'M': return MAGENTA;

    case 'C': return CYAN;

    case 'B': if (c3 == 'A')

                return BLACK;

              if (c3 == 'U')

                return BLUE;

              else

                break;

  }

  return -1; /* fmg - should never get here */

}

/*

 * See if we have write access to a file.

 * If it is not there, see if the directory is writable.

 */

int waccess(char *s)

{

  char *p;

  char buf[128];

  struct stat stt;

  /* We use stat instead of access(s, F_OK) because I couldn't get

   * that to work under BSD 4.3 ...

   */

  if (stat(s, &stt) == 0) {

    if (access(s, W_OK) == 0)

      return(XA_OK_EXIST);

    return -1;

  }

  strncpy(buf, s, sizeof(buf)-1);

  buf[sizeof(buf)-1] = 0;

  if ((p = strrchr(buf, '/')) == (char *)NULL)

    strcpy(buf, ".");

  else

    *p = '\0';

  if (access(buf, W_OK) == 0)

    return XA_OK_NOTEXIST;

  return -1;

}

/*

 * fmg - Read in a macro, but first check to see if it's

 * allowed to do so.

 *

 * TODO: have System macros and user macros (in theory it's already there

 * since user can specify their own macros file (unless root makes it

 * private... that's silly) ... anyways, you know what I mean...)

 */

static void mgets(WIN *w, int x, int y, char *s, int len, int maxl)

{

  struct macs *m = (struct macs *)s;

  mc_wlocate(w, x, y);

  mc_wgets(w, s, len, maxl);

  m->flags |= CHANGED;

}

/*

 * Read in a string, but first check to see if it's

 * allowed to do so.

 */

static void pgets(WIN *w, int x, int y, char *s, int len, unsigned int maxl,

                  int extend_tilde)

{

  struct pars *p = (struct pars *)s;

  char *home = NULL;

  mc_wlocate(w, x, y);

  mc_wgets(w, s, len, maxl);

  if (extend_tilde &&

      s[0] == '~' && (s[1] == '/' || s[1] == 0) &&

      (home = getenv("HOME")) && strlen(s) + strlen(home) <= maxl) {

    int i = 0;

    memmove(s + strlen(home), s + 1, strlen(s));

    memcpy(s, home, strlen(home));

    mc_wlocate(w, x, y);

    for (i = 0; i < (len >= w->xs - x ? w->xs - x - 1 : len) && *s; i++) {

      wchar_t wc;

      s += one_mbtowc(&wc, s, MB_LEN_MAX);

      mc_wputc(w, wc);

    }

    mc_wflush();

  }

  p->flags |= CHANGED;

}

/*

 * Mark a variable as changed.

 */

static void markch(char *s)

{

  struct pars *p = (struct pars *)s;

  p->flags |= CHANGED;

}

/*

 * Set a string to a given value, but only if we're allowed to.

 */

static void psets(char *s, const char *w)

{

  struct pars *p = (struct pars *)s;

  strcpy(s, w);

  p->flags |= CHANGED;

}

/*

 * Get a a character from the keyboard. Translate lower

 * to uppercase and '\r' to '\n'.

 */

static int rwxgetch(void)

{

  int c = wxgetch();

  if (islower(c))

    c = toupper(c);

  if (c == '\n' || c == '\r' || c == '\033')

    return '\n';

  return c;

}

#ifdef LOGFILE

static void dologopt(void)

{

  WIN *w;

  int c;

  char *logfnstr = _(" A - File name (empty=disable) :");

  char *logconn  = _(" B - Log connects and hangups  :");

  char *logxfer  = _(" C - Log file transfers        :");

  char *question = _("Change which setting?");

  w = mc_wopen(5, 4, 75, 8, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  mc_wtitle(w, TMID, _("Logging options"));

  mc_wprintf(w, "%s %s\n", logfnstr, P_LOGFNAME);

  mc_wprintf(w, "%s %s\n", logconn, _(P_LOGCONN));

  mc_wprintf(w, "%s %s\n", logxfer, _(P_LOGXFER));

  mc_wlocate(w, 4, 4);

  mc_wputs(w, question);

  mc_wredraw(w, 1);

  while(1) {

    mc_wlocate(w, mbslen(question) + 5, 5);

    c = rwxgetch();

    switch(c) {

      case '\n':

        mc_wclose(w, 1);

        return;

      case 'A':

        pgets(w, mbslen(logfnstr) + 1, 0,

              P_LOGFNAME, PARS_VAL_LEN, PARS_VAL_LEN, 1);

        strcpy(logfname,P_LOGFNAME);

        break;

      case 'B':

        strcpy(P_LOGCONN, yesno(P_LOGCONN[0] == 'N'));

        mc_wlocate(w, mbslen(logconn) + 1, 1);

        mc_wprintf(w, "%s  ", _(P_LOGCONN));

        markch(P_LOGCONN);

        break;

      case 'C':

        strcpy(P_LOGXFER, yesno(P_LOGXFER[0] == 'N'));

        mc_wlocate(w, mbslen(logxfer) + 1, 2);

        mc_wprintf(w, "%s  ", _(P_LOGXFER));

        markch(P_LOGXFER);

        break;

      default:

        break;

    }

  }

}

#endif

static void dopath(void)

{

  WIN *w;

  int c;

  char *download_directory = _(" A - Download directory :");

  char *upload_directory   = _(" B - Upload directory   :");

  char *script_directory   = _(" C - Script directory   :");

  char *script_program     = _(" D - Script program     :");

  char *kermit_program     = _(" E - Kermit program     :");

#ifdef LOGFILE

  char *log_settings       = _(" F - Logging options");

#endif

  char *question           = _("Change which setting?");

  w = mc_wopen(5, 5, 75, 12, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  mc_wprintf(w, "%s %.44s\n", download_directory, P_DOWNDIR);

  mc_wprintf(w, "%s %.44s\n", upload_directory, P_UPDIR);

  mc_wprintf(w, "%s %.44s\n", script_directory, P_SCRIPTDIR);

  mc_wprintf(w, "%s %.44s\n", script_program, P_SCRIPTPROG);

  mc_wprintf(w, "%s %.44s\n", kermit_program, P_KERMIT);

#ifdef LOGFILE

  mc_wprintf(w, "%s\n", log_settings);

#endif

  mc_wlocate(w, 4, 8);

  mc_wputs(w, question);

  mc_wredraw(w, 1);

  while(1) {

    mc_wlocate(w, mbslen (question) + 5, 8);

    c = rwxgetch();

    switch(c) {

      case '\n':

        mc_wclose(w, 1);

        return;

      case 'A':

        pgets(w, mbslen (download_directory) + 1, 0, P_DOWNDIR, 64, 64, 1);

        init_dir('d');

        break;

      case 'B':

        pgets(w, mbslen (upload_directory) + 1, 1, P_UPDIR, 64, 64, 1);

        init_dir('u');

        break;

      case 'C':

        pgets(w, mbslen (script_directory) + 1, 2, P_SCRIPTDIR, 64, 64, 1);

        break;

      case 'D':

        pgets(w, mbslen (script_program) + 1, 3, P_SCRIPTPROG, 64, 64, 1);

        break;

      case 'E':

        pgets(w, mbslen (kermit_program) + 1, 4, P_KERMIT, 64, 64, 1);

        break;

#ifdef LOGFILE

      case 'F':

        dologopt();

        break;

#endif

      default:

        break;

    }

  }

}

const char *yesno(int k)

{

  return(k ? N_("Yes") : N_("No "));

}

/*

 * Input the definition of an up/download protocol.

 */

static void inputproto(WIN *w, int n)

{

  int c = 0;

  mpars[PROTO_BASE + n].flags |= CHANGED;

  if (P_PNAME(n)[0] == '\0') {

    P_PNN(n) = 'Y';

    P_PUD(n) = 'U';

    P_PFULL(n) = 'N';

    P_PPROG(n)[0] = 0;

    P_PIORED(n) = 'Y';

    mc_wlocate(w, 4, n+1);

    mc_wputs(w, "       ");

  }

  mc_wlocate(w, 4, n + 1);

  mc_wgets(w, P_PNAME(n), 10, 64);

  pgets(w, 15, n+1, P_PPROG(n), 31, 64, 0);

  do {

    mc_wlocate(w, 47, n + 1);

    mc_wprintf(w, "%c", P_PNN(n));

    c = rwxgetch();

    if (c == 'Y')

      P_PNN(n) = 'Y';

    if (c == 'N')

      P_PNN(n) = 'N';

  } while (c != '\r' && c != '\n');

  do {

    mc_wlocate(w, 52, n + 1);

    mc_wprintf(w, "%c", P_PUD(n));

    c = rwxgetch();

    if (c == 'U')

      P_PUD(n) = 'U';

    if (c == 'D')

      P_PUD(n) = 'D';

  } while (c != '\r' && c != '\n');

  do {

    mc_wlocate(w, 57, n + 1);

    mc_wprintf(w, "%c", P_PFULL(n));

    c = rwxgetch();

    if (c == 'Y')

      P_PFULL(n) = 'Y';

    if (c == 'N')

      P_PFULL(n) = 'N';

  } while (c != '\r' && c != '\n');

  do {

    mc_wlocate(w, 65, n + 1);

    mc_wprintf(w, "%c", P_PIORED(n));

    c = rwxgetch();

    if (c == 'Y')

      P_PIORED(n) = 'Y';

    if (c == 'N')

      P_PIORED(n) = 'N';

  } while (c != '\r' && c != '\n');

  do {

    mc_wlocate(w, 73, n + 1);

    mc_wprintf(w, "%c", P_MUL(n));

    c = rwxgetch();

    if (c == 'Y')

      P_MUL(n) = 'Y';

    if (c == 'N')

      P_MUL(n) = 'N';

  } while (c != '\r' && c != '\n');

}

static void doproto(void)

{

  WIN *w;

  int f, c;

  char *zmodem_download        = _("M  Zmodem download string activates...");

  char *use_filename_selection = _("N  Use filename selection window......");

  char *prompt_downdir         = _("O  Prompt for download directory......");

  char *question               = _("Change which setting? (SPACE to delete)");

  w = mc_wopen(1, 3, 78, 20, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  mc_wputs(w, _("     Name             Program"));

  mc_wlocate(w, 46, 0);

  mc_wputs(w,

        /* TRANSLATORS:

	 * Name: Protocol sends filename internally

	 * U/D: Command is used for upload or download

	 * FullScr: Command runs fullscreen

	 * IO-Red: Redirect output of commands to logfile

	 * Multi: Protocol can transfer multiple files at once */

        _("Name U/D FullScr IO-Red. Multi"));

  for (f = 0; f < 12; f++) {

    mc_wlocate(w, 1, f + 1);

    if (P_PNAME(f)[0])

      mc_wprintf(w, "%c  %-10.10s %-31.31s %c    %c    %c       %c       %c",

              'A' + f,

              P_PNAME(f), P_PPROG(f),

              P_PNN(f), P_PUD(f),

              P_PFULL(f), P_PIORED(f),

              P_MUL(f));

    else

      mc_wprintf(w, "%c    -", 'A' + f);

  }

  mc_wlocate(w, 1, 13);

  mc_wprintf(w, "%s %c", zmodem_download, P_PAUTO[0]);

  mc_wlocate(w, 1, 14);

  mc_wprintf(w, "%s %s", use_filename_selection, _(P_FSELW));

  mc_wlocate(w, 1, 15);

  mc_wprintf(w, "%s %s", prompt_downdir, _(P_ASKDNDIR));

  mc_wlocate(w, 3, 17);

  mc_wputs(w, question);

  mc_wredraw(w, 1);

  do {

    mc_wlocate(w, mbslen (question) + 4, 17);

    c = rwxgetch();

    if (c >= 'A' && c <= 'L')

      inputproto(w, c - 'A');

    if (c == ' ') {

      mc_wlocate(w, 3, 17);

      mc_wputs(w, _("Delete which protocol? "));

      mc_wclreol(w);

      c = rwxgetch();

      if (c >= 'A' && c <= 'L') {

        P_PNAME(c - 'A')[0] = '\0';

        mpars[PROTO_BASE + (c - 'A')].flags |= CHANGED;

        mc_wlocate(w, 3, c - 'A' + 1);

        mc_wclreol(w);

        mc_wputs(w, "   -");

      }

      mc_wlocate(w, 3, 17);

      mc_wputs(w, question);

      c = ' ';

    }

    else if (c == 'M') {

      mc_wlocate(w, mbslen (zmodem_download) + 2, 13);

      mc_wprintf(w, " \b");

      c = rwxgetch();

      if (c >= 'A' && c <= 'L') {

        P_PAUTO[0] = c;

        markch(P_PAUTO);

        mc_wprintf(w, "%c", c);

      } else if (c == '\n' || c == ' ') {

        P_PAUTO[0] = ' ';

        markch(P_PAUTO);

      } else {

        mc_wprintf(w, "%c", P_PAUTO[0]);

      }

      c = 0;

    }

    else if (c == 'N') {

      strcpy(P_FSELW, yesno(P_FSELW[0] == 'N'));

      if (P_FSELW[0] == 'N') {

        strcpy(P_ASKDNDIR, "No ");

        mc_wlocate(w, mbslen (prompt_downdir) + 2, 15);

        mc_wprintf(w, "%s ", _(P_ASKDNDIR));

        markch(P_ASKDNDIR);

      }

      mc_wlocate(w, mbslen (use_filename_selection) + 2, 14);

      mc_wprintf(w, "%s ", _(P_FSELW));

      markch(P_FSELW);

    }

    else if (c == 'O') {

      strcpy(P_ASKDNDIR, yesno(P_ASKDNDIR[0] == 'N'));

      if (P_ASKDNDIR[0] == 'Y') {

        strcpy(P_FSELW, "Yes");

        mc_wlocate(w, mbslen (use_filename_selection) + 2, 14);

        mc_wprintf(w, "%s ", _(P_FSELW));

        markch(P_FSELW);

      }

      mc_wlocate(w, mbslen (prompt_downdir) + 2, 15);

      mc_wprintf(w, "%s ", _(P_ASKDNDIR));

      markch(P_ASKDNDIR);

    }

  } while (c != '\n');

  mc_wclose(w, 1);

}

static void doserial(void)

{

  WIN *w;

  char *serial_device         = _(" A -    Serial Device      :");

#if !HAVE_LOCKDEV

  char *lockfile_location     = _(" B - Lockfile Location     :");

#endif

  char *callin_program        = _(" C -   Callin Program      :");

  char *callout_program       = _(" D -  Callout Program      :");

  char *bps_par_bits          = _(" E -    Bps/Par/Bits       :");

  char *hardware_flow_control = _(" F - Hardware Flow Control :");

  char *software_flow_control = _(" G - Software Flow Control :");

  char *question              = _("Change which setting?");

  w = mc_wopen(5, 4, 75, 12, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  mc_wprintf(w, "%s %.41s\n", serial_device, P_PORT);

#if !HAVE_LOCKDEV

  mc_wprintf(w, "%s %.41s\n", lockfile_location, P_LOCK);

#else

  mc_wprintf(w, "\n");

#endif

  mc_wprintf(w, "%s %.41s\n", callin_program, P_CALLIN);

  mc_wprintf(w, "%s %.41s\n", callout_program, P_CALLOUT);

  mc_wprintf(w, "%s %s %s%s%s\n",

          bps_par_bits, P_BAUDRATE, P_BITS, P_PARITY, P_STOPB);

  mc_wprintf(w, "%s %s\n", hardware_flow_control, _(P_HASRTS));

  mc_wprintf(w, "%s %s\n", software_flow_control, _(P_HASXON));

  mc_wlocate(w, 4, 8);

  mc_wputs(w, question);

  mc_wredraw(w, 1);

  while(1) {

    mc_wlocate(w, mbslen (question) + 5, 8);

    switch (rwxgetch()) {

      case '\n':

        mc_wclose(w, 1);

        return;

      case 'A':

        pgets(w, mbslen (serial_device) + 1, 0, P_PORT, 64, 64, 1);

        break;

#if !HAVE_LOCKDEV

      case 'B':

        pgets(w, mbslen (lockfile_location) + 1, 1, P_LOCK, 64, 64, 1);

        break;

#endif

      case 'C':

        pgets(w, mbslen (callin_program) + 1, 2, P_CALLIN, 64, 64, 1);

        break;

      case 'D':

        pgets(w, mbslen (callout_program) + 1, 3, P_CALLOUT, 64, 64, 1);

        break;

      case 'E':

        get_bbp(P_BAUDRATE, P_BITS, P_PARITY, P_STOPB, 0);

        if (portfd >= 0)

          port_init();

        mc_wlocate(w, mbslen (bps_par_bits) + 1, 4);

        mc_wprintf(w, "%s %s%s%s  \n", P_BAUDRATE, P_BITS, P_PARITY, P_STOPB);

        show_status();

        markch(P_BAUDRATE);

        markch(P_BITS);

        markch(P_PARITY);

        markch(P_STOPB);

        break;

      case 'F':

        strcpy(P_HASRTS, yesno(P_HASRTS[0] == 'N'));

        mc_wlocate(w, mbslen (hardware_flow_control) + 1, 5);

        mc_wprintf(w, "%s ", _(P_HASRTS));

        if (portfd >= 0)

          port_init();

        markch(P_HASRTS);

        break;

      case 'G':

        strcpy(P_HASXON, yesno(P_HASXON[0] == 'N'));

        mc_wlocate(w, mbslen (software_flow_control) + 1, 6);

        mc_wprintf(w, "%s ", _(P_HASXON));

        if (portfd >= 0)

          port_init();

        markch(P_HASXON);

        break;

      default:

        break;

    }

  }

}

char * sspd(char *sptyp)

{

  if (sptyp[0] == 'd')

    return (_("DTE speed "));

  else

    return (_("line speed"));

}

static void domodem(void)

{

  WIN *w;

  char *str;

  int c, x, y, ypos, maxl, string_size;

  const char *init_string         = _(" A - Init string .........");

  const char *reset_string        = _(" B - Reset string ........");

  const char *dialing_prefix_1    = _(" C - Dialing prefix #1....");

  const char *dialing_suffix_1    = _(" D - Dialing suffix #1....");

  const char *dialing_prefix_2    = _(" E - Dialing prefix #2....");

  const char *dialing_suffix_2    = _(" F - Dialing suffix #2....");

  const char *dialing_prefix_3    = _(" G - Dialing prefix #3....");

  const char *dialing_suffix_3    = _(" H - Dialing suffix #3....");

  const char *connect_string      = _(" I - Connect string ......");

  const char *no_connect_strings  = _(" J - No connect strings ..");

  const char *hangup_string       = _(" K - Hang-up string ......");

  const char *dial_cancel_string  = _(" L - Dial cancel string ..");

  const char *dial_time           = _(" M - Dial time ...........");

  const char *delay_before_redial = _(" N - Delay before redial .");

  const char *number_of_tries     = _(" O - Number of tries .....");

  const char *dtr_drop_time       = _(" P - DTR drop time (0=no).");

  const char *auto_bps_detect     = _(" Q - Auto bps detect .....");

  const char *modem_has_dcd_line  = _(" R - Modem has DCD line ..");

  const char *shown_speed         = _(" S - Status line shows ...");

  const char *multi_node          = _(" T - Multi-line untag ....");

  const char *question            = _("Change which setting?");

  const char *defaults[] =

    {

      "~^M~AT S7=45 S0=0 L1 V1 X4 &c1 E1 Q0^M",

      "^M~ATZ^M~",

    };

  w = mc_wopen(2, 2, 77, 22, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  dirflush = 0;

  mc_wtitle(w, TMID, _("Modem and dialing parameter setup"));

  mc_wprintf(w, "\n");

  mc_wprintf(w, "%s %.48s\n", init_string, P_MINIT);

  mc_wprintf(w, "%s %.48s\n", reset_string, P_MRESET);

  mc_wprintf(w, "%s %.48s\n", dialing_prefix_1, P_MDIALPRE);

  mc_wprintf(w, "%s %.48s\n", dialing_suffix_1, P_MDIALSUF);

  mc_wprintf(w, "%s %.48s\n", dialing_prefix_2, P_MDIALPRE2);

  mc_wprintf(w, "%s %.48s\n", dialing_suffix_2, P_MDIALSUF2);

  mc_wprintf(w, "%s %.48s\n", dialing_prefix_3, P_MDIALPRE3);

  mc_wprintf(w, "%s %.48s\n", dialing_suffix_3, P_MDIALSUF3);

  mc_wprintf(w, "%s %.48s\n", connect_string, P_MCONNECT);

  mc_wprintf(w, "%s %-20.20s  %.20s\n", no_connect_strings, P_MNOCON1, P_MNOCON2);

  mc_wlocate(w, mbslen (no_connect_strings) + 1, 11);

  mc_wprintf(w, "%-20.20s  %.20s\n", P_MNOCON3, P_MNOCON4);

  mc_wprintf(w, "%s %.48s\n", hangup_string, P_MHANGUP);

  mc_wprintf(w, "%s %.48s\n", dial_cancel_string, P_MDIALCAN);

  mc_wprintf(w, "\n");

  mc_wprintf(w, "%s %.3s\n", dial_time, P_MDIALTIME);

  mc_wprintf(w, "%s %.3s\n", delay_before_redial, P_MRDELAY);

  mc_wprintf(w, "%s %.3s\n", number_of_tries, P_MRETRIES);

  mc_wprintf(w, "%s %.3s\n", dtr_drop_time, P_MDROPDTR);

  mc_wlocate(w, 34, 15);

  mc_wprintf(w, "%s %s\n", auto_bps_detect, _(P_MAUTOBAUD));

  mc_wlocate(w, 34, 16);

  mc_wprintf(w, "%s %s\n", modem_has_dcd_line, _(P_HASDCD));

  mc_wlocate(w, 34, 17);

  mc_wprintf(w, "%s %s\n", shown_speed, sspd(P_SHOWSPD));

  mc_wlocate(w, 34, 18); /* Option for multi-node untag */

  mc_wprintf(w, "%s %s\n", multi_node, _(P_MULTILINE));	/* er 18-Apr-99 */

  mc_wlocate(w, 1, 20);

  mc_wprintf(w, "%s ", question);

  x = w->curx; y = w->cury;

  mc_wprintf(w, _("    Return or Esc to exit. Edit A+B to get defaults."));

  mc_wredraw(w, 1);

  while (1) {

    mc_wlocate(w, x, y);

    mc_wflush();

    c = rwxgetch();

    ypos = 1;

    maxl = 64;

    string_size = 0;

    switch(c) {

      case 'M':

        if (string_size == 0)

          string_size = mbslen(dial_time);

      case 'N':

        if (string_size == 0)

          string_size = mbslen(delay_before_redial);

      case 'O':

        if (string_size == 0)

          string_size = mbslen(number_of_tries);

      case 'P':

        if (string_size == 0)

          string_size = mbslen(dtr_drop_time);

        ypos++;

        maxl = 4;

      case 'K':

        if (string_size == 0)

          string_size = mbslen(hangup_string);

      case 'L':

        if (string_size == 0)

          string_size = mbslen(dial_cancel_string);

        ypos -= 2;

        c += 3;

      case 'A':

        if (string_size == 0)

          string_size = mbslen(init_string);

      case 'B':

        if (string_size == 0)

          string_size = mbslen(reset_string);

      case 'C':

        if (string_size == 0)

          string_size = mbslen(dialing_prefix_1);

      case 'D':

        if (string_size == 0)

          string_size = mbslen(dialing_suffix_1);

      case 'E':

        if (string_size == 0)

          string_size = mbslen(dialing_prefix_2);

      case 'F':

        if (string_size == 0)

          string_size = mbslen(dialing_suffix_2);

      case 'G':

        if (string_size == 0)

          string_size = mbslen(dialing_prefix_3);

      case 'H':

        if (string_size == 0)

          string_size = mbslen(dialing_suffix_3);

      case 'I':

        if (string_size == 0)

          string_size = mbslen(connect_string);

	{

	  int loc = c - 'A';

	  /* Calculate adress of string to modify */

	  str = P_MINIT + loc * sizeof(struct pars);

	  /* Nowadays (2011), the modem init and reset strings are seldomly

	   * used, so we initialize those values to an empty string and

	   * offer the default value when trying to set those strings from

	   * an empty value */

	  if ((loc == 0 || loc == 1) && !*str)

	    {

	      strncpy(str, defaults[loc], PARS_VAL_LEN);

	      str[PARS_VAL_LEN - 1] = 0;

              mc_wlocate(w, string_size + 1, 1 + loc);

              mc_wprintf(w, "%.48s\n", str);

	    }

	  pgets(w, string_size + 1, ypos + loc, str, maxl, maxl, 0);

	}

        break;

      case 'J':

        string_size = mbslen (no_connect_strings);

        /* Walk through all four */

        pgets(w, string_size + 1, 10, P_MNOCON1, 20, 64, 0);

        pgets(w, string_size + 1 + 22, 10, P_MNOCON2, 20, 64, 0);

        pgets(w, string_size + 1 , 11, P_MNOCON3, 20, 64, 0);

        pgets(w, string_size + 1 + 22, 11, P_MNOCON4, 20, 64, 0);

        break;

      case 'Q':

        psets(P_MAUTOBAUD, yesno(P_MAUTOBAUD[0] == 'N'));

        mc_wlocate(w, 35 + mbslen (auto_bps_detect), 15);

        mc_wputs(w, _(P_MAUTOBAUD));

        break;

      case 'R':

        psets(P_HASDCD, yesno(P_HASDCD[0] == 'N'));

        mc_wlocate(w, 35 + mbslen (modem_has_dcd_line), 16);

        mc_wputs(w, _(P_HASDCD));

        break;

      case 'S':

        psets(P_SHOWSPD, P_SHOWSPD[0] == 'd' ? "l": "d");

        mc_wlocate(w, 35 + mbslen (shown_speed), 17);

        mc_wputs(w, sspd(P_SHOWSPD));

        show_status();

        break;

      case 'T': /* Update for multi-node */

        psets(P_MULTILINE, yesno(P_MULTILINE[0] == 'N' ));

        mc_wlocate(w, 35 + mbslen(multi_node), 18);

        mc_wputs(w, _(P_MULTILINE));

        break;

        /* er 18-Apr-99 */

      case '\n':

        dirflush = 1;

        mc_wclose(w, 1);

        return;

      default:

        break;

    }

  }

}

/*

 * Screen and keyboard menu.

 */

static void doscrkeyb(void)

{

  WIN *w, *w1;

  int c;

  int once = 0;

  int clr = 1;

  int tmp_c;    /* fmg - need it to color keep in sanity checks */

  char buf[16];

  int miny = 2, maxy = 22;

  int old_stat = P_STATLINE[0];

  FILE *fp;

  char *command_key           = _(" A - Command key is         :");

  char *backspace_key         = _(" B - Backspace key sends    :");

  char *status_line           = _(" C - Status line is         :");

  char *alarm_sound           = _(" D - Alarm sound            :");

  char *foreground_color_menu = _(" E - Foreground Color (menu):");

  char *background_color_menu = _(" F - Background Color (menu):");

  char *foreground_color_term = _(" G - Foreground Color (term):");

  char *background_color_term = _(" H - Background Color (term):");

  char *foreground_color_stat = _(" I - Foreground Color (stat):");

  char *background_color_stat = _(" J - Background Color (stat):");

  char *history_buffer_size   = _(" K - History Buffer Size    :");

  char *macros_file           = _(" L - Macros file            :");

  char *macros_enabled        = _(" N - Macros enabled         :");

  char *character_conversion  = _(" O - Character conversion   :");

  char *add_linefeed          = _(" P - Add linefeed           :");

  char *local_echo_str        = _(" Q - Local echo             :");

  char *line_wrap             = _(" R - Line Wrap              :");

  char *display_hex_str       = _(" S - Hex Display            :");

  char *add_carriagereturn    = _(" T - Add carriage return    :");

  char *question              = _("Change which setting?  (Esc to exit)");

  w = mc_wopen(15, miny, 69, maxy, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  mc_wtitle(w, TMID, _("Screen and keyboard"));

  mc_wprintf(w, "%s %s\n", command_key, P_ESCAPE);

  mc_wprintf(w, "%s %s\n", backspace_key, P_BACKSPACE);

  mc_wprintf(w, "%s %s\n", status_line, _(P_STATLINE));

  mc_wprintf(w, "%s %s\n", alarm_sound, _(P_SOUND));

  /* fmg - colors support */

  mc_wprintf(w, "%s %s\n", foreground_color_menu, _(J_col[mfcolor]));

  mc_wprintf(w, "%s %s\n", background_color_menu, _(J_col[mbcolor]));

  mc_wprintf(w, "%s %s\n", foreground_color_term, _(J_col[tfcolor]));

  mc_wprintf(w, "%s %s\n", background_color_term, _(J_col[tbcolor]));

  mc_wprintf(w, "%s %s\n", foreground_color_stat, _(J_col[sfcolor]));

  mc_wprintf(w, "%s %s\n", background_color_stat, _(J_col[sbcolor]));

  /* MARK updated 02/17/95 - Configurable history buffer size */

  mc_wprintf(w, "%s %s\n", history_buffer_size, P_HISTSIZE);

  /* fmg - macros support */

  mc_wprintf(w, "%s %s\n", macros_file, P_MACROS);

  mc_wprintf(w, _(" M - Edit Macros\n"));

  mc_wprintf(w, "%s %s\n", macros_enabled, _(P_MACENAB));

  mc_wprintf(w, "%s %s\n", character_conversion, P_CONVF);