/*

 * dial.c	Functions to dial, retry etc. Als contains the dialing

 *		directory code, _and_ the famous tu-di-di music.

 *

 *		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.

 *

 *   jl 22.06.97  Logging connects and disconnects.

 *   jl 23.06.97  Adjustable DTR droptime

 *   jl 21.09.97  Conversion table filenames in dialdir

 *   jl 05.10.97  Line speed changed to long in dial()

 *   jl 26.01.98  last login date & time added to dialing window

 *   jl 16.04.98  start searching for dialing tags from the highlighted entry

 *   jl 12.06.98  save the old dialdir if it was an old version

 *   er 18-Apr-99 When calling a multiline BBS

 *		  tagged entries with same name are untagged

 *   jl 01.09.99  Move entry up/down in directory

 *   jl 10.02.2000 Stopbits field added

 */

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include <stdint.h>

#include <limits.h>

#include <arpa/inet.h>

#include "port.h"

#include "minicom.h"

#include "intl.h"

#ifdef VC_MUSIC

#  if defined(__GLIBC__)

#    include <sys/ioctl.h>

#    include <sys/kd.h>

#    include <sys/time.h>

#  endif

#endif

enum { CURRENT_VERSION = 6 };

/* Dialing directory. */

struct v1_dialent {

  char name[32];

  char number[16];

  char script[16];

  char username[32];

  char password[32];

  char term;

  char baud[8];

  char parity[2];

  char dialtype;

  char flags; /* Localecho in v0 */

  char bits[2];

  struct dialent *next;

};

struct v3_dialent {

  char name[32];

  char number[32];

  char script[32];

  char username[32];

  char password[32];

  char term;

  char baud[8];

  char parity[2];

  char dialtype;

  char flags;

  char bits[2];

  struct dialent *next;

};

struct v4_dialent {

  char name[32];

  char number[32];

  char script[32];

  char username[32];

  char password[32];

  char term;

  char baud[8];

  char parity[2];

  char dialtype;

  char flags;

  char bits[2];

  char lastdate[9];	/* jl 22.06.97 */

  char lasttime[9];	/* jl 22.06.97 */

  int  count;		/* jl 22.06.97 */

  char convfile[16];	/* jl 21.09.97 */

  char stopb[2];	/* jl 10.02.2000 */

  struct dialent *next;

};

/* v5 is a packed version of v4 so that there's no difference between 32 and

 * 64 bit versions as well as LE and BE.

 */

struct dialent {

  char     name[32];

  char     number[32];

  char     script[32];

  char     username[32];

  char     password[32];

  char     term;

  char     baud[8];

  char     parity[2];

  char     dialtype;

  char     flags;

  char     bits[2];

  char     lastdate[9];

  char     lasttime[9];

  uint32_t count;

  char     convfile[16];

  char     stopb[2];

  struct dialent *next;

} __attribute__((packed));

/* Version info. */

#define DIALMAGIC 0x55AA

struct dver {

  short magic;

  short version;

  unsigned short size;

  short res1;

  short res2;

  short res3;

  short res4;

} __attribute__((packed));

/* Forward declaration */

static void writedialdir(void);

#define dialentno(di, no) ((struct dialent *)((char *)(di) + ((no) * sizeof(struct dialent))))  

static struct dialent *dialents;

static struct dialent *d_man;

static int nrents = 1;

static int newtype;

/* Access to ".dialdir" denied? */

static int dendd = 0;

static char *tagged;

char *dial_user;

char *dial_pass;

/* Change the baud rate.  Treat all characters in the given array as if

 * they were key presses within the comm parameters dialog (C-A P) and

 * change the line speed accordingly.  Terminate when a space or other

 * unrecognised character is found.

 */

const char* change_baud(const char *s)

{

  while (s && *s

         && update_bbp_from_char(*s, P_BAUDRATE, P_BITS, P_PARITY, P_STOPB, 0))

    ++s;

  // reinitialise the port and update the status line

  if (portfd >= 0)

    port_init();

  show_status();

  return s;

}

/*

 * Functions to talk to the modem.

 */

/*

 * Send a string to the modem.

 * If how == 0, '~'  sleeps 1 second.

 * If how == 1, "^~" sleeps 1 second.

 */

void mputs(const char *s, int how)

{

  char c;

  while (*s) {

    if (*s == '^' && (*(s + 1))) {

      s++;

      if (*s == '^')

        c = *s;

      else if (how == 1 && *s == '~') {

        sleep(1);

        s++;

        continue;

      } else

        c = (*s) & 31;

    } else if (*s == '\\' && (*(s + 1))) {

      s++;

      switch (toupper (*s)) {

        case '\\':

          c = *s;

          break;

        case 'U':

          if (dial_user && *dial_user)

            mputs (dial_user, how);

          s++;

          continue;

        case 'P':

          if (dial_pass && *dial_pass)

            mputs (dial_pass, how);

          s++;

          continue;

        case 'B': /* line speed change. */

          s = change_baud(++s);

          continue;

        case 'L': /* toggle linefeed addition */

          toggle_addlf();

          s++; /* nothing to do with the modem, move along */

          continue;

        case 'E': /* toggle local echo */

          toggle_local_echo();

          s++; /* again, move along. */

          continue;

	case 'G': /* run a script */

	  runscript(0, s + 1, "", "");

	  return;

        default:

          s++;

          continue;

      }

    } else

      c = *s;

    if (how == 0 && c == '~')

      sleep(1);

    else

      if (write(portfd, &c, 1) != 1)

        break;

    s++;

  }

}

/*

 * Initialize the modem.

 */

void modeminit(void)

{

  WIN *w;

  if (P_MINIT[0] == '\0')

    return;

  w = mc_tell(_("Initializing Modem"));

  m_dtrtoggle(portfd, 1);         /* jl 23.06.97 */

  mputs(P_MINIT, 0);

  mc_wclose(w, 1);

}

/*

 * Reset the modem.

 */

void modemreset(void)

{

  WIN *w;

  if (P_MRESET[0] == '\0')

    return;

  w = mc_tell(_("Resetting Modem"));

  mputs(P_MRESET, 0);

  sleep(1);

  mc_wclose(w, 1);

}

/*

 * Hang the line up.

 */

void hangup(void)

{

  WIN *w;

  int sec=1;

  w = mc_tell(_("Hanging up"));

  timer_update();

  if (P_LOGCONN[0] == 'Y')

    do_log(_("Hangup (%ld:%02ld:%02ld)"),

           online / 3600, (online / 60) % 60, online>0 ? online % 60 : 0);

  online = -1;

  old_online = -1;

  if (isdigit(P_MDROPDTR[0]))

    sscanf(P_MDROPDTR,"%2d",&sec);

  if (P_MDROPDTR[0] == 'Y' || (isdigit(P_MDROPDTR[0]) && sec>0)) {

    m_dtrtoggle(portfd, sec);   /* jl 23.06.97 */

  } else {

    mputs(P_MHANGUP, 0);

    sleep(1);

  }

#ifdef _DCDFLOW

  /* DCD has dropped, turn off hw flow control. */

  m_sethwf(portfd, 0);

#endif

  /* If we don't have DCD support fake DCD dropped */

  bogus_dcd = 0;

  mc_wclose(w, 1);

  show_status();

}

/*

 * This seemed to fit best in this file

 * Send a break signal.

 */

void sendbreak()

{

  WIN *w;

  w = mc_tell(_("Sending BREAK"));

  mc_wcursor(w, CNONE);

  m_break(portfd);

  mc_wclose(w, 1);

}

WIN *dialwin;

int dialtime;

#ifdef VC_MUSIC

/*

 * Play music until key is pressed.

 */

void music(void)

{

  int x, i, k;

  int consolefd = 0;

  char *disp;

  /* If we're in X, we have to explicitly use the console */

  if (strncmp(getenv("TERM"), "xterm", 5) == 0 &&

      (disp = getenv("DISPLAY")) != NULL &&

      (strcmp(disp, ":0.0") == 0 ||

       (strcmp(disp, ":0") == 0))) {

    consolefd = open("/dev/console", O_WRONLY);

    if (consolefd < 0) consolefd = 0;

  }

  /* Tell keyboard handler what we want. */

  keyboard(KSIGIO, 0);

  /* And loop forever :-) */

  for(i = 0; i < 9; i++) {

    k = 2000 - 200 * (i % 3);

    ioctl(consolefd, KIOCSOUND, k);

    /* Check keypress with timeout 160 ms */

    x = check_io(-1, 0, 160, NULL, 0, NULL);

    if (x & 2)

      break;

  }

  ioctl(consolefd, KIOCSOUND, 0);

  if (consolefd)

    close(consolefd);

  /* Wait for keypress and absorb it */

  while ((x & 2) == 0) {

    x = check_io(-1, 0, 10000, NULL, 0, NULL);

    timer_update();

  }

  keyboard(KGETKEY, 0);

}

#endif

/*

 * The dial has failed. Tell user.

 * Count down until retrytime and return.

 */

static int dialfailed(char *s, int rtime)

{

  int f, x;

  int ret = 0;

  mc_wlocate(dialwin, 1, 5);

  mc_wprintf(dialwin, _("    No connection: %s.      \n"), s);

  if (rtime < 0) {

    mc_wprintf(dialwin, _("   Press any key to continue..    "));

    if (check_io(-1, 0, 10000, NULL, 0, NULL) & 2)

      keyboard(KGETKEY, 0);

    return 0;

  }

  mc_wprintf(dialwin, _("     Retry in %2d seconds             "), rtime);

  for (f = rtime - 1; f >= 0; f--) {

    x = check_io(-1, 0, 1000, NULL, 0, NULL);

    if (x & 2) {

      /* Key pressed - absorb it. */

      x = keyboard(KGETKEY, 0);

      if (x != ' ')

        ret = -1;

      break;

    }

    mc_wlocate(dialwin, 0, 6);

    mc_wprintf(dialwin, _("     Retry in %2d seconds             "), f);

  }

#ifdef HAVE_USLEEP

  /* MARK updated 02/17/94 - Min dial delay set to 0.35 sec instead of 1 sec */

  if (f < 0) /* Allow modem time to hangup if redial time == 0 */

    usleep(350000);

#else

  if (f < 0)

    sleep(1);

#endif

  mc_wlocate(dialwin, 1, 5);

  mc_wprintf(dialwin, "                                       \n");

  mc_wprintf(dialwin, "                                             ");

  return ret;

}

/*

 * Dial a number, and display the name.

 */

long dial(struct dialent *d, struct dialent **d2)

{

  char *s = 0, *t = 0;

  int f, x = 0;

  int modidx, retries = 0;

  int maxretries = 1, rdelay = 45;

  long nb, retst = -1;

  char *reason = _("Max retries");

  time_t now, last;

  struct tm *ptime;

  char buf[128];

  char modbuf[128];

  /*  char logline[128]; */

  timer_update(); /* Statusline may still show 'Online' / jl 16.08.97 */

  /* don't do anything if already online! jl 07.07.98 */

  if (P_HASDCD[0]=='Y' && online >= 0) {

    werror(_("You are already online! Hang up first."));

    return(retst);

  }

  dialwin = mc_wopen(18, 9, 62, 16, BSINGLE, stdattr, mfcolor, mbcolor, 0, 0, 1);

  mc_wtitle(dialwin, TMID, _("Autodial"));

  mc_wcursor(dialwin, CNONE);

  mc_wputs(dialwin, "\n");

  mc_wprintf(dialwin, " %s : %s\n", _("Dialing"), d->name);

  mc_wprintf(dialwin, _("      At : %s"), d->number);

  mc_wprintf(dialwin, "\n"); /* help translators */

  if (d->lastdate[0] && d->lasttime[0])		/* jl 26.01.98 */

    mc_wprintf(dialwin, _(" Last on : %s at %s"), d->lastdate, d->lasttime);

  mc_wprintf(dialwin, "\n");

  mc_wredraw(dialwin, 1);

  /* Tell keyboard routines we need them. */

  keyboard(KSIGIO, 0);

  maxretries = atoi(P_MRETRIES);

  if (maxretries <= 0)

    maxretries = 1;

  rdelay = atoi(P_MRDELAY);

  if (rdelay < 0)

    rdelay = 0;

  /* Main retry loop of dial() */

MainLoop:

  while (++retries <= maxretries) {

    /* See if we need to try the next tagged entry. */

    if (retries > 1 && (d->flags & FL_TAG)) {

      do {

        d = d->next;

        if (d == (struct dialent *)NULL)

          d = dialents;

      } while (!(d->flags & FL_TAG));

      mc_wlocate(dialwin, 0, 1);

      mc_wprintf(dialwin, " %s : %s", _("Dialing"), d->name);

      mc_wclreol(dialwin);

      mc_wprintf(dialwin, "\n"); /* helps translators */

      mc_wprintf(dialwin, _("      At : %s"), d->number);

      mc_wclreol(dialwin);

      if (d->lastdate[0] && d->lasttime[0]) {

	mc_wprintf(dialwin, "\n"); /* don't merge with next printf, helps translators */

        mc_wprintf(dialwin, _(" Last on : %s at %s"),

                d->lastdate, d->lasttime);

        mc_wclreol(dialwin);

      }

    }

    /* Calculate dial time */

    dialtime = atoi(P_MDIALTIME);

    if (dialtime == 0)

      dialtime = 45;

    time(&now;;

    last = now;

    /* Show used time */

    mc_wlocate(dialwin, 0, 4);

    mc_wprintf(dialwin, _("    Time : %-3d"), dialtime);

    if (maxretries > 1)

      mc_wprintf(dialwin, _("     Attempt #%d"), retries);

    mc_wputs(dialwin, _("\n\n\n Escape to cancel, space to retry."));

    /* Start the dial */

    m_flush(portfd);

    switch (d->dialtype) {

      case 0:

        mputs(P_MDIALPRE, 0);

        mputs(d->number, 0);

        mputs(P_MDIALSUF, 0);

        break;

      case 1:

        mputs(P_MDIALPRE2, 0);

        mputs(d->number, 0);

        mputs(P_MDIALSUF2, 0);

        break;

      case 2:

        mputs(P_MDIALPRE3, 0);

        mputs(d->number, 0);

        mputs(P_MDIALSUF3, 0);

        break;

    }

    /* Wait 'till the modem says something */

    modbuf[0] = 0;

    modidx = 0;

    s = buf;

    buf[0] = 0;

    while (dialtime > 0) {

      if (*s == 0) {

        x = check_io(portfd_connected, 0, 1000, buf, sizeof(buf), NULL);

        s = buf;

      }

      if (x & 2) {

        f = keyboard(KGETKEY, 0);

        /* Cancel if escape was pressed. */

        if (f == K_ESC)

          mputs(P_MDIALCAN, 0);

        /* On space retry. */

        if (f == ' ') {

          mputs(P_MDIALCAN, 0);

          dialfailed(_("Cancelled"), 4);

          m_flush(portfd);

          break;

        }

        keyboard(KSTOP, 0);

        mc_wclose(dialwin, 1);

        return retst;

      }

      if (x & 1) {

        /* Data available from the modem. Put in buffer. */

        if (*s == '\r' || *s == '\n') {

          /* We look for [\r\n]STRING[\r\n] */

          modbuf[modidx] = 0;

          modidx = 0;

        } else if (modidx < 127) {

          /* Normal character. Add. */

          modbuf[modidx++] = *s;

          modbuf[modidx] = 0;

        }

        /* Skip to next received char */

        if (*s)

          s++;

        /* Only look when we got a whole line. */

        if (modidx == 0 &&

            !strncmp(modbuf, P_MCONNECT, strlen(P_MCONNECT))) {

          timer_update(); /* the login scipt may take long.. */

          retst = 0;

          /* Try to do auto-bauding */

          if (sscanf(modbuf + strlen(P_MCONNECT), "%ld", &nb) == 1)

            retst = nb;

          linespd = retst;

          /* Try to figure out if this system supports DCD */

          f = m_getdcd(portfd);

          bogus_dcd = 1;

          /* jl 22.05.97, 22.09.97, 05.04.99 */

          if (P_LOGCONN[0] == 'Y')

            do_log("%s %s, %s",modbuf, d->name, d->number);

          ptime = localtime(&now;;

          sprintf(d->lastdate,"%4.4d%2.2d%2.2d",

                  (ptime->tm_year)+1900,(ptime->tm_mon)+1,

                  ptime->tm_mday);

          sprintf(d->lasttime,"%02d:%02d",

                  ptime->tm_hour,ptime->tm_min);

          d->count++;

          if (d->convfile[0]) {

            loadconv(d->convfile);    /* jl 21.09.97 */

            strcpy(P_CONVF, d->convfile);

          }

          mc_wlocate(dialwin, 1, 7);

          if (d->script[0] == 0) {

            mc_wputs(dialwin,

                  _("Connected. Press any key to continue"));

#ifdef VC_MUSIC

            if (P_SOUND[0] == 'Y')

              music();

            else {

              x = check_io(-1, 0, 0, NULL, 0, NULL);

              if ((x & 2) == 2)

                keyboard(KGETKEY, 0);

            }

#else

            /* MARK updated 02/17/94 - If VC_MUSIC is not */

            /* defined, then at least make some beeps! */

            if (P_SOUND[0] == 'Y')

              mc_wputs(dialwin,"\007\007\007");

#endif

            x = check_io(-1, 0, 0, NULL, 0, NULL);

            if ((x & 2) == 2)

              keyboard(KGETKEY, 0);

          }

          keyboard(KSTOP, 0);

          mc_wclose(dialwin, 1);

          /* Print out the connect strings. */

          mc_wprintf(us, "\r\n%s\r\n", modbuf);

          dialwin = NULL;

          /* Un-tag this entry. */

          d->flags &= ~FL_TAG;

          /* store pointer to the entry that ANSWERED */

          if (d2 != (struct dialent**)NULL)

            *d2 = d;	/* jl 23.09.97 */

          /* Here should placed code to untag phones with similar names */

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

            struct dialent *d3 = dialents;

            while (d3 != (struct dialent*)NULL) {

              if (!strcmp(d3->name, d->name))

                d3->flags &= ~FL_TAG;

              d3 = d3->next;

            }

          }				/*  er 27-Apr-99 */

          return retst;

        }

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

          if (f == 0)

            t = P_MNOCON1;

          if (f == 1)

            t = P_MNOCON2;

          if (f == 2)

            t = P_MNOCON3;

          if (f == 3)

            t = P_MNOCON4;

          if ((*t) && (!strncmp(modbuf, t, strlen(t)))) {

            if (retries < maxretries) {

              x = dialfailed(t, rdelay);

              if (x < 0) {

                keyboard(KSTOP, 0);

                mc_wclose(dialwin, 1);

                return retst;

              }

            }

            if (maxretries == 1)

              reason = t;

            goto MainLoop;

          }

        }

      }

      /* Do timer routines here. */

      time(&now;;

      if (last != now) {

        dialtime -= (now - last);

        if (dialtime < 0)

          dialtime = 0;

        mc_wlocate(dialwin, 11, 4);

        mc_wprintf(dialwin, "%-3d  ", dialtime);

        if (dialtime <= 0) {

          mputs(P_MDIALCAN, 0);

          reason = _("Timeout");

          retst = -1;

          if (retries < maxretries) {

            x = dialfailed(reason, rdelay);

            if (x < 0) {

              keyboard(KSTOP, 0);

              mc_wclose(dialwin, 1);

              return retst;

            }

          }

        }

      }

      last = now;

    }

  } /* End of main while cq MainLoop */

  dialfailed(reason, -1);

  keyboard(KSTOP, 0);

  mc_wclose(dialwin, 1);

  return retst;

}

/*

 * Create an empty entry.

 */

static struct dialent *mkstdent(void)

{

  struct dialent *d = malloc(sizeof(struct dialent));

  if (d == NULL)

    return d;

  d->name[0] = 0;

  d->number[0] = 0;

  d->script[0] = 0;

  d->username[0] = 0;

  d->password[0] = 0;

  d->term = 1;

  d->dialtype = 0;

  d->flags = FL_DEL;

  strcpy(d->baud, "Curr");

  strcpy(d->bits, "8");

  strcpy(d->parity, "N");

  d->lastdate[0] = 0;	/* jl 22.06.97 */

  d->lasttime[0] = 0;

  d->count = 0;

  d->convfile[0] = 0;	/* jl 21.09.97 */

  strcpy(d->stopb, "1");

  d->next = NULL;

  return d;

}

static void convert_to_save_order(struct dialent *dst, const struct dialent *src)

{

  memcpy(dst, src, sizeof(*dst));

  dst->count = htonl(dst->count);

}

static void convert_to_host_order(struct dialent *dst, const struct dialent *src)

{

  memcpy(dst, src, sizeof(*dst));

  dst->count = ntohl(dst->count);

}

/* Read version 5 of the dialing directory. */

static int v5_read(FILE *fp, struct dialent *d)

{

  struct dialent dent_n;

  if (fread(&dent_n, sizeof(dent_n), 1, fp) != 1)

    return 1;

  convert_to_host_order(d, &dent_n);

  return 0;

}

static int v6_read(FILE *fp, struct dialent *d)

{

  struct dialent dent_n;

  if (fread(&dent_n, sizeof(dent_n) - sizeof(void *), 1, fp) != 1)

    return 1;

  convert_to_host_order(d, &dent_n);

  return 0;

}

/* Read version 4 of the dialing directory. */

static int v4_read(FILE *fp, struct dialent *d, struct dver *dv)

{

  struct v4_dialent v4;

  if (fread(&v4, dv->size, 1, fp) != 1)

    return 1;

  if (dv->size < sizeof(struct dialent)) {

    if (dv->size < offsetof(struct dialent, count) + sizeof(struct dialent *)) {

      d->count = 0;

      d->lasttime[0] = 0;

      d->lastdate[0] = 0;

    }

    if (dv->size < offsetof(struct dialent, stopb) + sizeof(struct dialent *))

      d->convfile[0] = 0;

    strcpy(d->stopb, "1");

  }

  return 0;

}

/* Read version 3 of the dialing directory. */

static int v3_read(FILE *fp, struct dialent *d)

{

  struct v3_dialent v3;   /* jl 22.06.97 */

  if (fread(&v3, sizeof(v3), 1, fp) != 1)

    return 1;

  memcpy(d, &v3, offsetof(struct v3_dialent, next));

  d->lastdate[0] = 0;

  d->lasttime[0] = 0;

  d->count = 0;

  d->convfile[0] = 0;

  strcpy(d->stopb, "1");

  return 0;

}

/* Read version 2 of the dialing directory. */

static int v2_read(FILE *fp, struct dialent *d)

{

  struct v3_dialent v3;   /* jl 22.06.97 */

  if (fread((char *)&v3, sizeof(v3), 1, fp) != 1)

    return 1;

  memcpy(d, &v3, offsetof(struct v3_dialent, next));

  if (d->flags & FL_ANSI)

    d->flags |= FL_WRAP;

  d->lastdate[0] = 0;

  d->lasttime[0] = 0;

  d->count = 0;

  d->convfile[0] = 0;

  strcpy(d->stopb, "1");

  return 0;

}

/* Read version 1 of the dialing directory. */

static int v1_read(FILE *fp, struct dialent *d)

{

  struct v1_dialent v1;

  if (fread((char *)&v1, sizeof(v1), (size_t)1, fp) != 1)

    return 1;

  memcpy(d->username, v1.username, sizeof(v1) - offsetof(struct v1_dialent, username));

  strncpy(d->name, v1.name, sizeof(d->name));

  d->name[sizeof(d->name) - 1] = '\0';

  strncpy(d->number, v1.number, sizeof(d->number));

  d->number[sizeof(d->number) - 1] = '\0';

  strncpy(d->script, v1.script, sizeof(d->script));

  d->script[sizeof(d->script) - 1] = '\0';

  d->lastdate[0]=0;

  d->lasttime[0]=0;

  d->count=0;

  d->convfile[0]=0;

  strcpy(d->stopb, "1");

  return 0;

}

/* Read version 0 of the dialing directory. */

static int v0_read(FILE *fp, struct dialent *d)

{

  if (v1_read(fp, d))

    return 1;

  d->dialtype = 0;

  d->flags = 0;

  return 0;

}

/*

 * Read in the dialing directory from $HOME/.dialdir

 */

int readdialdir(void)

{

  long size;

  FILE *fp;

  char dfile[256];

  char copycmd[512];

  static int didread = 0;

  int f;

  struct dialent *d = NULL, *tail = NULL;

  struct dver dial_ver;

  WIN *w;

  if (didread)

    return 0;

  didread = 1;

  nrents = 1;

  tagged = malloc(1);

  if (!tagged)

    return 0;

  tagged[0] = 0;