开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 查看源码
ckudia.c
资源名称：cku197.tar.Z　[点击查看]
上传用户：dufan58
上传日期：2007-01-05
资源大小：3407k
文件大小：217k
源码类别：

通讯/手机编程

开发平台：

Windows_Unix

ckudia.c：源码内容
  1.     &SUPRAX /* 69 Diamond Supra Express V.90 */
  2. #endif /* MINIDIAL */
  3. };
  4. /*
  5.  * Declare modem names and associated numbers for command parsing,
  6.  * and also for doing number-to-name translation.
  7.  *
  8.  * The entries must be in alphabetical order by modem name.
  9.  */
  10. struct keytab mdmtab[] = {
  11. #ifndef MINIDIAL
  12.     "3com-usr-megahertz-56k", n_USRX2,  0,
  13.     "atlas-newcom-33600ifxC", n_ATLAS,  0,
  14.     "att-1900-stu-iii", n_ATT1900,      0,
  15.     "att-1910-stu-iii", n_ATT1910,      0,
  16.     "att-7300", n_ATTUPC, 0,
  17.     "att-dataport", n_DATAPORT, 0,
  18.     "att-dtdm", n_ATTDTDM, 0,
  19.     "att-isn",          n_ATTISN,       0,
  20.     "att-keepintouch",  n_KEEPINTOUCH,  0,
  21.     "att-switched-net", n_ATTMODEM, 0,
  23.     "att7300", n_ATTUPC, CM_INV, /* old name */
  24.     "attdtdm", n_ATTDTDM, CM_INV, /* old name */
  25.     "attisn",           n_ATTISN,       CM_INV, /* old name */
  26.     "attmodem", n_ATTMODEM, CM_INV, /* old name */
  28.     "bestdata",         n_BESTDATA,     0,
  29.     "boca", n_BOCA, 0,
  30. #endif /* MINIDIAL */
  31.     "ccitt-v25bis", n_CCITT, CM_INV, /* Name changed to ITU-T */
  32. #ifndef MINIDIAL
  33.     "cardinal",         n_CARDINAL,     0,
  34. #ifdef OLDMODEMS
  35.     "cermetek", n_CERMETEK, M_OLD,
  36. #endif /* OLDMODEMS */
  37.     "compaq",           n_COMPAQ,       0,
  38. #ifdef OLDMODEMS
  39.     "concord", n_CONCORD, M_OLD,
  40. #endif /* OLDMODEMS */
  41.     "courier",          n_USR,          CM_INV,
  42.     "dataport", n_DATAPORT, CM_INV, /* == att-dataport */
  43. #ifdef OLDMODEMS
  44.     "df03-ac", n_DF03, M_OLD,
  45.     "df100-series", n_DF100, M_OLD,
  46.     "df200-series", n_DF200, M_OLD,
  47. #endif /* OLDMODEMS */
  48.     "digitel-dt22", n_DIGITEL, 0,
  49. #endif /* MINIDIAL */
  50.     "direct", 0, CM_INV, /* Synonym for NONE */
  51. #ifndef MINIDIAL
  52.     "fujitsu",          n_FUJITSU,      0,
  53.     "gateway-telepath", n_TELEPATH,     0,
  54. #ifdef OLDMODEMS
  55.     "gdc-212a/ed", n_GDC, M_OLD,
  56.     "ge",               n_GENERIC, CM_INV|CM_ABR,
  57.     "gen",              n_GENERIC, CM_INV|CM_ABR,
  58.     "gendatacomm", n_GDC, CM_INV, /* Synonym for GDC */
  59. #endif /* OLDMODEMS */
  60. #endif /* MINIDIAL */
  61.     "generic-high-speed", n_GENERIC,    0,
  62.     "h",      n_HAYES, CM_INV|CM_ABR,
  63.     "ha",      n_HAYES, CM_INV|CM_ABR,
  64.     "hay",     n_HAYES, CM_INV|CM_ABR,
  65.     "haye",      n_HAYES, CM_INV|CM_ABR,
  66.     "hayes",     n_HAYES, CM_INV|CM_ABR, /* Hayes 2400 */
  67. #ifndef MINIDIAL
  68.     "hayes-1200", n_H_1200, 0,
  69. #endif /* MINIDIAL */
  70.     "hayes-2400", n_HAYES, 0,
  71. #ifndef MINIDIAL
  72.     "hayes-high-speed", n_H_ACCURA,     0,
  73.     "hayes-accura",     n_H_ACCURA,     CM_INV,
  74.     "hayes-optima",     n_H_ACCURA,     CM_INV,
  75.     "hayes-ultra", n_H_ULTRA, CM_INV,
  76.     "hst-courier",      n_USR,          CM_INV, /* Synonym for COURIER */
  77.     "intel", n_INTEL,        0,
  78. #endif /* MINIDIAL */
  80.     "itu-t-v250",       n_ITUTV250,     CM_INV,
  81.     "itu-t-v25ter/v250",n_ITUTV250,     0,
  82.     "itu-t-v25bis", n_CCITT, 0, /* New name for CCITT */
  84. #ifndef MINIDIAL
  85.     "maxtech", n_MAXTECH,     0,
  87.     "megahertz-att-v34",    n_MHZATT,  0, /* Megahertzes */
  88.     "megahertz-xjack",      n_XJACK,   CM_INV|CM_ABR,
  89.     "megahertz-xjack-33.6", n_XJACK,   0,
  90.     "megahertz-xjack-56k",  n_USRX2,   0, /* 3COM/USR/Megahertz 33.6 PC Card */
  92.     "mi", n_MICROCOM, CM_INV|CM_ABR,
  93.     "mic", n_MICROCOM, CM_INV|CM_ABR,
  94.     "micr", n_MICROCOM, CM_INV|CM_ABR,
  95.     "micro", n_MICROCOM, CM_INV|CM_ABR,
  96.     "microc", n_MICROCOM, CM_INV|CM_ABR,
  97.     "microco", n_MICROCOM, CM_INV|CM_ABR,
  98.     "microcom", n_MICROCOM, CM_INV|CM_ABR,
  99.     "microcom-at-mode", n_UCOM_AT, 0, /* Microcom DeskPorte, etc */
  100.     "microcom-sx-mode", n_MICROCOM, 0, /* Microcom AX,QX,SX, native mode */
  101.     "microlink",        n_MICROLINK,    0,
  102.     "microlink-v250",   n_ULINKV250,    0,
  103.     "motorola-codex",   n_CODEX,        0,
  104.     "motorola-fastalk", n_MOTOROLA, 0,
  105.     "motorola-lifestyle",n_MOTOROLA, 0,
  106.     "motorola-montana", n_MONTANA, 0,
  107.     "mt5634zpx",        n_MT5634ZPX,    0,
  108.     "multitech", n_MULTI, 0,
  109.     "mwave", n_MWAVE, 0,
  110. #endif /* MINIDIAL */
  111.     "none",             0,              0,
  112. #ifndef MINIDIAL
  113. #ifndef OLDTBCODE
  114.     "old-telebit",      n_TELEBIT,      0,
  115. #endif /* OLDTBCODE */
  116. #ifdef OLDMODEMS
  117.     "penril", n_PENRIL, M_OLD,
  118. #endif /* OLDMODEMS */
  119.     "ppi",              n_PPI, 0,
  120. #ifdef OLDMODEMS
  121.     "racalvadic", n_RACAL, M_OLD,
  122. #endif /* OLDMODEMS */
  123.     "rockwell-v32", n_RWV32, 0,
  124.     "rockwell-v32bis", n_RWV32B, 0,
  125.     "rockwell-v34", n_RWV34, 0,
  126.     "rockwell-v90", n_RWV90, 0,
  127.     "rolm",             n_ROLM, CM_INV|CM_ABR,
  128.     "rolm-244pc",       n_ROLMAT,       0,
  129.     "rolm-600-series",  n_ROLMAT,       0,
  130.     "rolm-dcm", n_ROLM, 0,
  131.     "spirit-ii",        n_SPIRITII,     0,
  132.     "sportster",        n_USR,          CM_INV,
  133.     "sup",         n_SUPRA, CM_INV|CM_ABR,
  134.     "supr",         n_SUPRA, CM_INV|CM_ABR,
  135.     "supra",         n_SUPRA, CM_INV|CM_ABR,
  136.     "supra-express-v90",n_SUPRAX,       0,
  137.     "suprafaxmodem", n_SUPRA, 0,
  138.     "suprasonic", n_SUPRASON, 0,
  139. #ifdef CK_TAPI
  140.     "tapi", n_TAPI, 0,
  141. #endif /* CK_TAPI */
  142.     "te",               n_TBNEW,        CM_INV|CM_ABR,
  143.     "tel",              n_TBNEW,        CM_INV|CM_ABR,
  144.     "telebit",          n_TBNEW,        0,
  145.     "telepath",         n_TELEPATH,     CM_INV,
  146. #endif /* MINIDIAL */
  147.     "unknown", n_UNKNOWN, 0,
  148.     "user-defined",     n_UDEF, 0,
  149. #ifndef MINIDIAL
  151.     "usr",               n_USR,         CM_INV|CM_ABR,
  152.     "usr-212a",  n_HAYES, CM_INV,
  153.     "usr-courier",       n_USR,         CM_INV,
  154.     "usr-megahertz-56k", n_USRX2,       0,
  155.     "usr-sportster",     n_USR,         CM_INV,
  156.     "usr-xj1560-x2",     n_USRX2,       CM_INV,
  157.     "usrobotics",        n_USR,         0,
  159.     "v25bis", n_CCITT, CM_INV, /* Name changed to ITU-T */
  160. #ifdef OLDMODEMS
  161.     "ventel", n_VENTEL, M_OLD,
  162. #endif /* OLDMODEMS */
  163.     "zoltrix", n_ZOLTRIX, 0,
  164.     "zoom", n_ZOOM, 0,
  165.     "zyxel", n_ZYXEL, 0,
  166. #endif /* MINIDIAL */
  167.     "",                 0,              0
  168. };
  169. int nmdm = (sizeof(mdmtab) / sizeof(struct keytab)) - 1; /* Number of modems */
  171. #define CONNECTED 1 /* For completion status */
  172. #define D_FAILED  2
  173. #define D_PARTIAL 3
  175. static int tries = 0;
  176. static int mdmecho = 0; /* Assume modem does not echo */
  178. static char *p; /* For command strings & messages */
  180. #define LBUFL 200
  181. static char lbuf[LBUFL+4];
  183. #ifdef DYNAMIC
  184. #define RBUFL 256
  185. static char *rbuf = NULL;
  186. #else
  187. #define RBUFL 63
  188. static char rbuf[RBUFL+1];
  189. #endif /* DYNAMIC */
  191. #ifdef DYNAMIC
  192. #define FULLNUML 256
  193. char *fbuf = NULL; /* For full (prefixed) phone number */
  194. #else
  195. #define FULLNUML 100
  196. char fbuf[FULLNUML];
  197. #endif /* DYNAMIC */
  199. static ckjmpbuf sjbuf;
  201. #ifdef CK_ANSIC
  202. static SIGTYP (*savalrm)(int); /* For saving alarm handler */
  203. static SIGTYP (*savint)(int); /* For saving interrupt handler */
  204. #else
  205. static SIGTYP (*savalrm)(); /* For saving alarm handler */
  206. static SIGTYP (*savint)(); /* For saving interrupt handler */
  207. #endif /* CK_ANSIC */
  209. #ifdef CKLOGDIAL
  210. static VOID
  211. dologdial(s) char *s; {
  212.     char buf2[16];
  213.     char * r = NULL;
  214.     int x, m, n;
  215.     extern char cxlogbuf[], uidbuf[], myhost[];
  217.     if (!s) s = "";
  218.     if ((x = strlen(s)) > 0) { /* Replace spaces by underscores */
  219. r = (char *)malloc(x+1);
  220. if (r) {
  221.     int i;
  222.     for (i = 0; i <= x; i++) {
  223. if (s[i] != 0 && s[i] <= SP)
  224.   r[i] = '_';
  225. else
  226.   r[i] = s[i];
  227.     }
  228.     s = r;
  229. }
  230.     }
  231.     p = ckdate();
  232.     n = ckstrncpy(cxlogbuf,p,CXLOGBUFL);
  233.     m = strlen(uidbuf)+strlen(myhost)+strlen(ttname)+strlen(s)+strlen(buf2)+32;
  234.     if (n+m < CXLOGBUFL-1) {
  235. p = cxlogbuf+n;
  236. if (diallcc && diallac)
  237.   sprintf(buf2,"+%s(%s)",diallcc,diallac);
  238. else
  239.   strcpy(buf2,"Unknown");
  240. sprintf(p," %s %s T=DIAL H=%s D=%s N=%s O=%s ",
  241. uidbuf,
  242. ckgetpid(),
  243. myhost,
  244. ttname,
  245. s,
  246. buf2
  247. );
  248. debug(F110,"dologdial cxlogbuf",cxlogbuf,0);
  249.     } else
  250.       sprintf(p,"LOGDIAL BUFFER OVERFLOW");
  251.     if (r) free(r);
  252. }
  253. #endif /* CKLOGDIAL */
  255. #ifndef MINIDIAL
  257. #ifdef COMMENT
  258. static VOID
  259. xcpy(to,from,len) /* Copy the given number of bytes */
  260.     register char *to, *from;
  261.     register unsigned int len; {
  262. while (len--) *to++ = *from++;
  263. }
  264. #endif /* COMMENT */
  265. #endif /* MINIDIAL */
  267. static SIGTYP
  268. #ifdef CK_ANSIC
  269. dialtime(int foo) /* Timer interrupt handler */
  270. #else
  271. dialtime(foo) int foo; /* Timer interrupt handler */
  272. #endif /* CK_ANSIC */
  273. /* dialtime */ {
  275.     fail_code = F_TIME; /* Failure reason = timeout */
  276.     debug(F100,"dialtime caught SIGALRM","",0);
  277. #ifdef BEBOX
  278. #ifdef BE_DR_7
  279.     alarm_expired();
  280. #endif /* BE_DR_7 */
  281. #endif /* BEBOX */
  282. #ifdef OS2
  283.     signal(SIGALRM, dialtime);
  284. #endif /* OS2 */
  285. #ifdef __EMX__
  286.     signal(SIGALRM, SIG_ACK); /* Needed for OS/2 */
  287. #endif /* __EMX__ */
  289. #ifdef OSK /* OS-9 */
  290. /*
  291.   We are in an intercept routine but do not perform a F$RTE (done implicitly
  292.   by RTS), so we have to decrement the sigmask as F$RTE does.  Warning:
  293.   longjump only restores the CPU registers, NOT the FPU registers.  So, don't
  294.   use FPU at all or at least don't use common FPU (double or float) register
  295.   variables.
  296. */
  297.     sigmask(-1);
  298. #endif /* OSK */
  300. #ifdef NTSIG
  301.     if (foo == SIGALRM)
  302.       PostAlarmSigSem();
  303.     else
  304.       PostCtrlCSem();
  305. #else /* NTSIG */
  306. #ifdef NT
  307.     cklongjmp(ckjaddr(sjbuf),1);
  308. #else /* NT */
  309.     cklongjmp(sjbuf,1);
  310. #endif /* NT */
  311. #endif /* NTSIG */
  312.     /* NOTREACHED */
  313.     SIGRETURN;
  314. }
  316. static SIGTYP
  317. #ifdef CK_ANSIC
  318. dialint(int foo) /* Keyboard interrupt handler */
  319. #else
  320. dialint(foo) int foo; /* Keyboard interrupt handler */
  321. #endif /* CK_ANSIC */
  322. /* dialint */ {
  323.     fail_code = F_INT;
  324.     debug(F100,"dialint caught SIGINT","",0);
  325. #ifdef OS2
  326.     signal(SIGINT, dialint);
  327.     debug(F100,"dialint() SIGINT caught -- dialint restored","",0) ;
  328. #endif /* OS2 */
  329. #ifdef __EMX__
  330.     signal(SIGINT, SIG_ACK); /* Needed for OS/2 */
  331. #endif /* __EMX__ */
  332. #ifdef OSK /* OS-9, see comment in dialtime() */
  333.     sigmask(-1);
  334. #endif /* OSK */
  335. #ifdef NTSIG
  336.     PostCtrlCSem() ;
  337. #ifdef CK_TAPI
  338.     PostTAPIConnectSem();
  339.     PostTAPIAnswerSem();
  340. #endif /* CK_TAPI */
  341. #else /* NTSIG */
  342. #ifdef NT
  343.     cklongjmp(ckjaddr(sjbuf),1);
  344. #else /* NT */
  345.     cklongjmp(sjbuf,1);
  346. #endif /* NT */
  347. #endif /* NT */
  348.     SIGRETURN;
  349. }
  351. /*
  352.   Routine to read a character from communication device, handling TELNET
  353.   protocol negotiations in case we're connected to the modem through a
  354.   TCP/IP TELNET modem server.
  355. */
  356. static int
  357. ddinc(n) int n; {
  358. #ifdef TNCODE
  359.     int c = 0;
  360.     int done = 0;
  361.     debug(F101,"ddinc entry n","",n);
  362.     while (!done) {
  363. c = ttinc(n);
  364. debug(F000,"ddinc","",c);
  365. if (c < 0) return(c);
  366. #ifndef OS2
  367. if ((c == IAC) && network && (ttnproto == NP_TELNET)) {
  368.     switch (tn_doop((CHAR)(c & 0xff),duplex,ttinc)) {
  369.       case 2: duplex = 0; continue;
  370.       case 1: duplex = 1;
  371.       default: continue;
  372.     }
  373. } else done = 1;
  374. #else /* OS2 */
  375. done = !(c == IAC && network && ttnproto == NP_TELNET);
  376. scriptwrtbuf(c); /* TELNET negotiations handled by emulator */
  377. #endif /* OS2 */
  378.     }
  379.     return(c & 0xff);
  380. #else  /* TNCODE */
  381.     debug(F101,"ddinc entry n","",n);
  382.     return(ttinc(n));
  383. #endif /* TNCODE */
  384. }
  386. static VOID
  387. ttslow(s,millisec) char *s; int millisec; { /* Output s-l-o-w-l-y */
  388. #ifdef TCPSOCKET
  389.     extern int tn_nlm, tn_b_nlm;
  390. #endif /* TCPSOCKET */
  391.     debug(F111,"ttslow",s,millisec);
  392.     if (dialdpy && (duplex || !mdmecho)) { /* Echo the command in case modem */
  393. printf("%sn",s); /* isn't echoing commands. */
  394. #ifdef OS2
  395. {
  396.     char *s2 = s; /* Echo to emulator */
  397.     while (*s2) {
  398. scriptwrtbuf((USHORT)*s2++);
  399.     }
  400.     scriptwrtbuf((USHORT)CR);
  401.     scriptwrtbuf((USHORT)LF);
  402. }
  403. #endif /* OS2 */
  404.     }
  405.     for (; *s; s++) {
  406. ttoc(*s);
  407. #ifdef TCPSOCKET
  408. if (*s == CR && network && ttnproto == NP_TELNET) {
  409.     if (!TELOPT_ME(TELOPT_BINARY) && tn_nlm != TNL_CR)
  410.       ttoc((char)((tn_nlm == TNL_CRLF) ? LF : NUL));
  411.     else if (TELOPT_ME(TELOPT_BINARY) &&
  412.      (tn_b_nlm == TNL_CRLF || tn_b_nlm == TNL_CRNUL))
  413.       ttoc((char)((tn_b_nlm == TNL_CRLF) ? LF : NUL));
  414.         }
  415. #endif /* TCPSOCKET */
  416. if (millisec > 0)
  417.   msleep(millisec);
  418.     }
  419. }
  421. /*
  422.  * Wait for a string of characters.
  423.  *
  424.  * The characters are waited for individually, and other characters may
  425.  * be received "in between".  This merely guarantees that the characters
  426.  * ARE received, and in the order specified.
  427.  */
  428. static VOID
  429. waitfor(s) char *s; {
  430.     CHAR c, x;
  431.     while ( c = *s++ ) { /* while more characters remain... */
  432. do { /* wait for the character */
  433.     x = (CHAR) (ddinc(0) & 0177);
  434.     debug(F000,"dial waitfor got","",x);
  435.     if (dialdpy) {
  436. if (x != LF) conoc(x);
  437. if (x == CR) conoc(LF);
  438.     }
  439. } while ( x != c);
  440.     }
  441. }
  443. static int
  444. didweget(s,r) char *s, *r; { /* Looks in string s for response r */
  445.     int lr = (int)strlen(r); /*  0 means not found, 1 means found it */
  446.     int i;
  447.     debug(F110,"didweget",r,0);
  448.     debug(F110," in",s,0);
  449.     for (i = (int)strlen(s)-lr; i >= 0; i--)
  450. if ( s[i] == r[0] ) if ( !strncmp(s+i,r,lr) ) return( 1 );
  451.     return( 0 );
  452. }
  455. /* R E S E T -- Reset alarms, etc. on exit. */
  457. static VOID
  458. dreset() {
  459.     debug(F100,"dreset resetting alarm and signal handlers","",0);
  460.     alarm(0);
  461.     signal(SIGALRM,savalrm); /* restore alarm handler */
  462.     signal(SIGINT,savint); /* restore interrupt handler */
  463.     debug(F100,"dreset alarm and signal handlers reset","",0);
  464. }
  466. /*
  467.   Call this routine when the modem reports that it has connected at a certain
  468.   speed, giving that speed as the argument.  If the connection speed is not
  469.   the same as Kermit's current communication speed, AND the modem interface
  470.   speed is not locked (i.e. DIAL SPEED-MATCHING is not ON), then change the
  471.   device speed to the one given.
  472. */
  473. static VOID
  474. #ifdef CK_ANSIC
  475. spdchg(long s)
  476. #else
  477. spdchg(s) long s;
  478. #endif /* CK_ANSIC */
  479. /* spdchg */ {
  480.     int s2;
  481.     if (!mdmspd) /* If modem interface speed locked, */
  482.       return; /*  don't do this. */
  483.     if (speed != s) { /* Speeds differ? */
  484. s2 = s / 10L; /* Convert to cps expressed as int */
  485. if (ttsspd(s2) < 0) { /* Change speed. */
  486.     printf(" WARNING - speed change to %ld failed.rn",s);
  487. } else {
  488.     printf(" Speed changed to %ld.rn",s);
  489.     speed = s; /* Update global speed variable */
  490. }
  491.     }
  492. }
  494. /*
  495.   Display all characters received from modem dialer through this routine,
  496.   for consistent handling of carriage returns and linefeeds.
  497. */
  498. static VOID
  499. #ifdef CK_ANSIC
  500. dialoc(char c)
  501. #else
  502. dialoc(c) char c;
  503. #endif /* CK_ANSIC */
  504. { /* dialoc */ /* Dial Output Character */
  505.     if (dialdpy) {
  506. if (c != LF) conoc(c); /* Don't echo LF */
  507. if (c == CR) conoc(LF); /* Echo CR as CRLF */
  508.     }
  509. }
  511. char *
  512. getdm(x) int x; { /* Return dial modifier */
  513.     MDMINF * mp;
  514.     int m;
  515.     int ishayes = 0;
  516.     m = mdmtyp;
  517.     if (m < 1)
  518.       if (mdmsav > -1)
  519. m = mdmsav;
  520.     if (m < 1)
  521.       return("");
  522. #ifndef MINIDIAL
  523.     if (m == n_TAPI)
  524.       m = n_HAYES;
  525. #endif /* MINIDIAL */
  526.     mp = modemp[m];
  527.     ishayes = mp->capas & CKD_AT;
  528.     switch (x) {
  529.       case VN_DM_LP:
  530. return(ishayes ? "," : "");
  531.       case VN_DM_SP:
  532. #ifdef MINIDIAL
  533. return("");
  534. #else
  535. return(m == n_USR ? "/" : "");
  536. #endif /* MINIDIAL */
  537.       case VN_DM_PD:
  538. return(ishayes ? "P" : "");
  539.       case VN_DM_TD:
  540. return(ishayes ? "T" : "");
  541.       case VN_DM_WA:
  542. return(ishayes ? "@" : "");
  543.       case VN_DM_WD:
  544. return(ishayes ? "W" : "");
  545.       case VN_DM_RC:
  546. return(ishayes ? ";" : "");
  547.     }
  548.     return("");
  549. }
  551. static VOID
  552. getdialmth() {
  553.     if (dialmauto && diallcc) { /* If DIAL METHOD AUTO... */
  554. int i; /* and we know our area code... */
  555. for (i = 0; i < ndialtocc; i++) { /* First check Tone countries list */
  556.     if (!strcmp(dialtocc[i],diallcc)) {
  557. dialmth = XYDM_T;
  558. break;
  559.     }
  560. }
  561. for (i = 0; i < ndialpucc; i++) { /* Then Pulse countries list */
  562.     if (!strcmp(dialpucc[i],diallcc)) {
  563. dialmth = XYDM_P;
  564. break;
  565.     }
  566. }
  567.     }
  568. }
  570. VOID /* Get dialing defaults from environment */
  571. getdialenv() {
  572.     char *p = NULL;
  573.     int i, x;
  575.     makestr(&p,getenv("K_DIAL_DIRECTORY"));
  576.     if (p) {
  577. int i;
  578. xwords(p,(MAXDDIR - 2),dialdir,0);
  579. for (i = 0; i < (MAXDDIR - 1); i++) {
  580.     if (!dialdir[i+1])
  581.       break;
  582.     else
  583.       dialdir[i] = dialdir[i+1];
  584. }
  585. ndialdir = i;
  586.     }
  587.     xmakestr(&diallcc,getenv("K_COUNTRYCODE")); /* My country code */
  588.     xmakestr(&dialixp,getenv("K_LD_PREFIX"));   /* My long-distance prefix */
  589.     xmakestr(&dialldp,getenv("K_INTL_PREFIX")); /* My international prefix */
  590.     xmakestr(&dialldp,getenv("K_TF_PREFIX"));   /* Ny Toll-free prefix */
  592. #ifndef NOICP
  593.     p = getenv("K_DIAL_METHOD"); /* Local dial method */
  594.     if (p) if (*p) {
  595. extern struct keytab dial_m[];
  596. extern int ndial_m;
  597. i = lookup(dial_m,p,ndial_m,&x);
  598. if (i > -1) {
  599.     if (i == XYDM_A) {
  600. dialmauto = 1;
  601. dialmth = XYDM_D;
  602.     } else {
  603. dialmauto = 0;
  604. dialmth = i;
  605.     }
  606. }
  607.     }
  608. #endif /* NOICP */
  610.     p = NULL;
  611.     xmakestr(&p,getenv("K_TF_AREACODE")); /* Toll-free areacodes */
  612.     if (p) {
  613. int i;
  614. xwords(p,7,dialtfc,0);
  615. for (i = 0; i < 8; i++) {
  616.     if (!dialtfc[i+1])
  617.       break;
  618.     else
  619.       dialtfc[i] = dialtfc[i+1];
  620. }
  621. ntollfree = i;
  622. free(p);
  623.     }
  624.     for (i = 0; i < MAXTPCC; i++) { /* Clear Tone/Pulse country lists */
  625. dialtocc[i] = NULL;
  626. dialpucc[i] = NULL;
  627.     }
  628.     for (i = 0; i < MAXTPCC; i++) { /* Init Tone country list */
  629. if (tonecc[i])
  630.   makestr(&(dialtocc[i]),tonecc[i]);
  631. else
  632.   break;
  633.     }
  634.     ndialtocc = i;
  635.     for (i = 0; i < MAXTPCC; i++) { /* Init Pulse country list */
  636. if (pulsecc[i])
  637.   makestr(&(dialpucc[i]),pulsecc[i]);
  638. else
  639.   break;
  640.     }
  641.     ndialpucc = i;
  643.     if (diallcc) { /* Have country code */
  644. if (!strcmp(diallcc,"1")) { /* If it's 1 */
  645.     if (!dialldp) /* Set these prefixes... */
  646.       makestr(&dialldp,"1");
  647.     if (!dialtfp)
  648.       makestr(&dialtfp,"1");
  649.     if (!dialixp)
  650.       makestr(&dialixp,"011");
  651.     if (ntollfree == 0) { /* Toll-free area codes */
  652. if (dialtfc[0] = malloc(4)) {
  653.     strcpy(dialtfc[0],"800"); /* 1970-something */
  654.     ntollfree++;
  655.     if (dialtfc[1] = malloc(4)) {
  656. strcpy(dialtfc[1],"888"); /* 1996 */
  657. ntollfree++;
  658. if (dialtfc[2] = malloc(4)) {
  659.     strcpy(dialtfc[2],"877"); /* 5 April 1998 */
  660.     ntollfree++;
  661.     if (dialtfc[3] = malloc(4)) {
  662. strcpy(dialtfc[3],"866"); /* Soon */
  663. ntollfree++;
  664.     }
  665. }
  666.     }
  667. }
  668.     }
  669. } else if (!strcmp(diallcc,"358") &&
  670.    ((int) strcmp(zzndate(),"19961011") > 0)
  671.    ) { /* Finland */
  672.     if (!dialldp) /* Long-distance prefix */
  673.       makestr(&dialldp,"9");
  674.     if (!dialixp)  /* International dialing prefix */
  675.       makestr(&dialixp,"990");
  676. } else { /* Not NANP or Finland */
  677.     if (!dialldp)
  678.       makestr(&dialldp,"0");
  679.     if (!dialixp)
  680.       makestr(&dialixp,"00");
  681. }
  682.     }
  683.     xmakestr(&diallac,getenv("K_AREACODE"));
  684.     xmakestr(&dialpxo,getenv("K_PBX_OCP"));
  685.     xmakestr(&dialpxi,getenv("K_PBX_ICP"));
  686.     p = getenv("K_PBX_XCH");
  687. #ifdef COMMENT
  688.     xmakestr(&dialpxx,p);
  689. #else
  690.     if (p) if (*p) {
  691. int x;
  692. char * s = NULL;
  693. char * pp[MAXPBXEXCH+1];
  694. makestr(&s,p); /* Make a copy for poking */
  695. if (s) {
  696.     xwords(s,MAXPBXEXCH+1,pp,0); /* Note: pp[] is 1-based. */
  697.     for (i = 0; i <= MAXPBXEXCH; i++) {
  698.                 if (!pp[i+1]) break;
  699. makestr(&(dialpxx[i]),pp[i+1]);
  700. ndialpxx++;
  701.     }
  702.     makestr(&s,NULL); /* Free poked copy */
  703. }
  704.     }
  705. #endif /* COMMENT */
  706. }
  708. static int
  709. dialfail(x) int x; {
  710.     char * s;
  712.     fail_code = x;
  713.     debug(F101,"ckudial dialfail","",x);
  714.     dreset(); /* Reset alarm and signal handlers */
  716.     printf("%s Failure: ", func_code == 0 ? "DIAL" : "ANSWER");
  717.     if (dialdpy) { /* If showing progress */
  718.        debug(F100,"dial display is on","",0);
  719. p = ck_time(); /* get current time; */
  720. if (*p) printf("%s: ",p);
  721.     }
  722.     switch (fail_code) { /* Type of failure */
  723.       case F_TIME:  /* Timeout */
  724. if (dial_what == DW_INIT)
  725.   printf ("Timed out while trying to initialize modem.n");
  726. else if (dial_what == DW_DIAL)
  727.   printf ("%s interval expired.n",
  728.   func_code == 0 ? "DIAL TIMEOUT" : "ANSWER timeout");
  729. else
  730.   printf("Timeout.n");
  731. fflush(stdout);
  732. if (mp->capas & CKD_AT)
  733.   ttoc('15'); /* Send CR to interrupt dialing */
  734. /* Some Hayes modems don't fail with BUSY on busy lines */
  735. dialsta = DIA_TIMO;
  736. debug(F110,"dial","timeout",0);
  737. break;
  739.       case F_INT: /* Dialing interrupted */
  740. printf ("Interrupted.n");
  741. fflush(stdout);
  742. debug(F110,"dial","interrupted",0);
  743. if (mp->capas & CKD_AT)
  744.   ttoc('15'); /* Send CR to interrupt dialing */
  745. dialsta = DIA_INTR;
  746. break;
  748.     case F_MODEM: /* Modem detected a failure */
  749.          debug(F111,"dialfail()","lbuf",lbuf);
  750.          if (lbuf && *lbuf) {
  751.             printf(" "");
  752.             for (s = lbuf; *s; s++)
  753.                if (isprint(*s))
  754.                   putchar(*s); /* Display printable reason */
  755.             printf (""");
  756.          } else printf(func_code == 0 ?
  757.                         " Call not completed." :
  758.                         " Call did not come in."
  759.                         );
  760. printf("n");
  761. debug(F110,"dial",lbuf,0);
  762. if (dialsta < 0) dialsta = DIA_UNSP;
  763. break;
  765.       case F_MINIT: /* Failure to initialize modem */
  766. printf ("Error initializing modem.n");
  767. debug(F110,"dial","modem init",0);
  768. dialsta = DIA_NOIN;
  769. break;
  771.     default:
  772. printf("unknownn");
  773. debug(F110,"dial","unknown",0);
  774. fflush(stdout);
  775. if (mp->capas & CKD_AT)
  776.   ttoc('15'); /* Send CR to interrupt dialing */
  777. dialsta = DIA_INTR;
  778.     }
  780. #ifdef DYNAMIC
  781.     if (rbuf) free(rbuf); rbuf = NULL;
  782.     if (fbuf) free(fbuf); fbuf = NULL;
  783. #endif /* DYNAMIC */
  785.     if (dialsta < 0) dialsta = DIA_UERR; /* Set failure code */
  786.     return(0); /* Return zero (important) */
  787. }
  789. /*  C K D I A L  --  Dial up the remote system */
  791. /* Returns 1 if call completed, 0 otherwise */
  793. static int mdmwait, mdmstat = 0;
  794. #ifndef CK_TAPI
  795. static
  796. #endif /* CK_TAPI */
  797. int waitct;
  798. int mdmwaitd = 10 ; /* dialtmo / mdmwait difference */
  799. static char c;
  800. static char *telnbr;
  802. static int wr = 0; /* wr = wake rate */
  803. static char * ws; /* ws = wake string */
  804. static char * xnum = NULL;
  805. static int inited = 0;
  807. static SIGTYP
  808. #ifdef CK_ANSIC
  809. _dodial(void * threadinfo)
  810. #else /* CK_ANSIC */
  811. _dodial(threadinfo) VOID * threadinfo;
  812. #endif /* CK_ANSIC */
  813. /* _dodial */ {
  814.     char c2;
  815.     char *dcmd, *s, *flocmd = NULL;
  816.     int x = 0, n = F_TIME;
  818. #ifdef NTSIG
  819.     signal( SIGINT, dialint );
  820.     if (threadinfo) { /* Thread local storage... */
  821. TlsSetValue(TlsIndex,threadinfo);
  822.     }
  823. #endif /* NTSIG */
  825.     dcmd = dialcmd ? dialcmd : mp->dial_str;
  826.     if ((int)strlen(dcmd) + (int)strlen(telnbr) > (LBUFL - 2)) {
  827. printf("DIAL command + phone number too long!n");
  828. dreset();
  829. #ifdef DYNAMIC
  830. if (rbuf) free(rbuf); rbuf = NULL;
  831. if (fbuf) free(fbuf); fbuf = NULL;
  832. #endif /* DYNAMIC */
  833. #ifdef NTSIG
  834. ckThreadEnd(threadinfo);
  835. #endif /* NTSIG */
  836. SIGRETURN;  /* No conversation with modem to complete dialing */
  837.     }
  838.     makestr(&xnum,telnbr);
  840.     getdialmth(); /* Get dial method */
  842. #ifdef CK_ATDT
  843.     /* Combine the SET DIAL METHOD command with the DIAL command string */
  844.     if (!dialcmd && /* Using default DIAL command */
  845. (mdmcapas & CKD_AT) && /* AT command set only */
  846. ((dialmth == XYDM_T && !dialtone) || /* and using default */
  847.  (dialmth == XYDM_P && !dialpulse))) { /* modem commands... */
  848. char c;
  849. debug(F110,"dial atdt xnum 1",xnum,0);
  850. s = dcmd;
  851. debug(F110,"dial atdt s",s,0);
  852. if (*telnbr != 'T' &&
  853.     *telnbr != 'P' &&
  854.     *telnbr != 't' &&
  855.     *telnbr != 'p' &&
  856.     !ckstrcmp(s,"atd",3,0) &&
  857.     s[3] != 'T' &&
  858.     s[3] != 'P' &&
  859.     s[3] != 't' &&
  860.     s[3] != 'p') {
  861.     char xbuf[200];
  862.     c = (dialmth == XYDM_T) ? 'T' : 'P';
  863.     if (islower(s[0]))
  864.       c = tolower(c);
  865.     if ((int)strlen(telnbr) < 199) {
  866. sprintf(xbuf,"%c%s",c,telnbr);
  867. makestr(&xnum,xbuf);
  868.     }
  869. }
  870.     }
  871. #endif /* CK_ATDT */
  872.     debug(F111,"ckdial",xnum,xredial);
  874.     /* Hang up the modem (in case it wasn't "on hook") */
  875.     /* But only if SET DIAL HANGUP ON... */
  877.     if (!xredial) { /* Modem not initalized yet. */
  878. inited = 0;
  879.     }
  880.     if (!xredial || !inited) {
  881. if (dialhup() < 0) { /* Hangup first */
  882.     debug(F100,"ckdial dialhup failed","",0);
  883. #ifndef MINIDIAL
  884.     if (mdmcapas & CKD_TB) /* Telebits might need a BREAK */
  885.       ttsndb(); /*  first. */
  886. #endif /* MINIDIAL */
  887.     if (dialhng && dialsta != DIA_PART) { /* If hangup failed, */
  888. ttclos(0); /* close and reopen the device. */
  889. if (ttopen(ttname,&local,mymdmtyp,0) < 0) {
  890.     printf("Sorry, Can't hang up communication device.n");
  891.     printf("Try 'set line %s' again.n",ttname);
  892.     dialsta = DIA_HANG;
  893. #ifdef DYNAMIC
  894.     if (rbuf) free(rbuf); rbuf = NULL;
  895.     if (fbuf) free(fbuf); fbuf = NULL;
  896. #endif /* DYNAMIC */
  897.     dreset();
  898. #ifdef NTSIG
  899.     ckThreadEnd(threadinfo);
  900. #endif /* NTSIG */
  901.     SIGRETURN;
  902. }
  903.     }
  904. }
  905. inited = 0; /* We hung up so must reinit */
  906.     }
  907. #ifndef MINIDIAL
  908.     /* Don't start talking to Rolm too soon */
  909.     if (mymdmtyp == n_ROLM && dialsta != DIA_PART)
  910.       msleep(500);
  911. #endif /* MINIDIAL */
  913.     if (dialsta != DIA_PART /* Some initial setups. */
  914. #ifndef MINIDIAL
  915. && mymdmtyp != n_ATTUPC
  916. #endif /* MINIDIAL */
  917. ) {
  918. fail_code = F_MINIT; /* Default failure code */
  919. dial_what = DW_INIT; /* What I'm Doing Now   */
  920. if (dialdpy) { /* If showing progress, */
  921.     p = ck_time(); /* get timestamp.   */
  922.     if (!inited)
  923.       if (*p)
  924. printf(" Initializing: %s...n",p);
  925. }
  926.     }
  927. #ifndef MINIDIAL
  928. #ifdef ATT7300
  929.     if (mymdmtyp == n_ATTUPC) {
  930. /*
  931.   For ATT7300/Unix PC's with their special internal modem.  Whole dialing
  932.   process is handled right here, an exception to the normal structure.
  933.   Timeout and user interrupts are enabled during dialing.  attdial() is in
  934.   file ckutio.c.  - jrd
  935. */
  936.         _PROTOTYP( int attdial, (char *, long, char *) );
  937. fail_code = F_MODEM; /* Default failure code */
  938. dial_what = DW_DIAL;
  939. if (dialdpy) { /* If showing progress */
  940.     p = ck_time(); /* get current time; */
  941.     if (*p)
  942.       printf(" Dialing: %s...n",p);
  943. }
  944. alarm(waitct); /* Set alarm */
  945. if (attdial(ttname,speed,telnbr)) { /* dial internal modem */
  946.     dreset(); /* reset alarms, etc. */
  947.     printf(" Call failed.rn");
  948.     dialhup();          /* Hangup the call */
  949. #ifdef DYNAMIC
  950.     if (rbuf) free(rbuf); rbuf = NULL;
  951.     if (fbuf) free(fbuf); fbuf = NULL;
  952. #endif /* DYNAMIC */
  953.     dialsta = DIA_UERR;
  954. #ifdef NTSIG
  955.     ckThreadEnd(threadinfo);
  956. #endif /* NTSIG */
  957.     SIGRETURN; /* return failure */
  958. }
  959. dreset(); /* reset alarms, etc. */
  960. ttpkt(speed,FLO_DIAX,parity); /* cancel dialing ioctl */
  961. if (!quiet && !backgrd) {
  962.     if (dialdpy) {
  963. printf("n");
  964. printf(" Call complete.rn");
  965.     } else if (modemmsg[0])
  966. printf(" Call complete: "%s".rn",(char *)modemmsg);
  967.     else
  968.       printf(" Call complete.rn");
  969. }
  970. #ifdef CKLOGDIAL
  971. dologdial(telnbr);
  972. #endif /* CKLOGDIAL */
  974. dialsta = DIA_OK;
  975. #ifdef DYNAMIC
  976. if (rbuf) free(rbuf); rbuf = NULL;
  977. if (fbuf) free(fbuf); fbuf = NULL;
  978. #endif /* DYNAMIC */
  979. #ifdef NTSIG
  980. ckThreadEnd(threadinfo);
  981. #endif /* NTSIG */
  982. SIGRETURN; /* No conversation with modem to complete dialing */
  983.     } else
  984. #endif /* ATT7300 */
  985. #ifdef CK_TAPI
  986.       if (tttapi && !tapipass) { /* TAPI Dialing */
  987.   switch (func_code) {
  988.     case 0: /* Dial */
  989.       if (cktapidial(telnbr)) {
  990.   fail_code = 0;
  991.   if (partial) {
  992.       dialsta = DIA_PART;
  993.   } else {
  994.       dialsta = DIA_OK;
  995.       speed = ttgspd();
  996.   }
  997.       } else {
  998.   if (dialsta == DIA_PART)
  999.     cktapihangup();
  1000.   if (!fail_code)
  1001.     fail_code = F_MODEM;
  1002.   dialsta = DIA_TAPI;
  1003.       }
  1004.       break;
  1005.     case 1: { /* Answer */
  1006. long strttime = time((long *)NULL);
  1007. long diff = 0;
  1008. do {
  1009.     if (dialatmo) {
  1010. strttime += diff;
  1011. waitct   -= diff;
  1012.     }
  1013.     fail_code = 0;
  1014.     if (cktapianswer()) { /* SUCCESS */
  1015. dialsta = DIA_OK;
  1016. speed = ttgspd();
  1017. break;
  1018.     } else { /* FAILURE */
  1019. if (fail_code) {
  1020.     dialsta = DIA_TAPI;
  1021.     break;
  1022. } else {
  1023.     fail_code = F_MODEM;
  1024.     dialsta = DIA_TAPI;
  1025. }
  1026.     }
  1027.     if (dialatmo) {
  1028. diff = time((long *)NULL) - strttime;
  1029.     }
  1030. } while (dialatmo ? (diff < waitct) : 1);
  1031. break;
  1032.     }
  1033.   }
  1034. #ifdef NTSIG
  1035.   ckThreadEnd(threadinfo);
  1036. #endif /* NTSIG */
  1037.   SIGRETURN;
  1038.       } else
  1039. #endif /* CK_TAPI */
  1040. #endif /* MINIDIAL */
  1042. /* Modems with AT command set... */
  1044.       if ((mdmcapas & CKD_AT) && dialsta != DIA_PART) {
  1046.   if (dialpace > -1) /* Set intercharacter pacing */
  1047.     wr = dialpace;
  1048.   else
  1049.     wr = mp->wake_rate;
  1051.   if (dialini) /* Get wakeup/init string */
  1052.     ws = dialini;
  1053.   else
  1054.     ws = mp->wake_str;
  1055.   if (!ws) ws = "15"; /* If none, use CR */
  1057.   /* First get the modem's attention and enable result codes */
  1059.   for (tries = 0; tries < 5; tries++) { /* Send short command */
  1060.       if (tries > 0) {
  1061.   ttoc('15'); /* AT must go first for speed */
  1062.   msleep(wr); /* detection. */
  1063.       }
  1064.       ttslow("ATQ015",wr);
  1065.       mdmstat = getok(tries < 2 ? 2 : tries, 1); /* Get response */
  1066.       if (mdmstat > 0) break; /* OK - done */
  1067.       if (dialdpy && tries > 0) {
  1068.   printf("rn No response from modem, retrying%s...rn",
  1069.  (tries > 1) ? " again" : "");
  1070.   fflush(stdout);
  1071.       }
  1072.       ttflui();
  1073.       switch (tries) {
  1074. case 0: msleep(100); break;
  1075. case 1: ttsndb(); break;
  1076. default:
  1077.   if (network) {
  1078.       ttsndb();
  1079.   } else {
  1080.       if (tries == 2)
  1081. tthang();
  1082.       else
  1083. mdmhup();
  1084.       inited = 0;
  1085.   }
  1086.       }
  1087.       fflush(stdout);
  1088.   }
  1089.   debug(F101,"ckdial ATQ0 mdmstat","",mdmstat);
  1091.   if (xredial && inited) { /* Redialing... */
  1092.       ttoc('15'); /* Cancel previous */
  1093.       msleep(250); /* Wait a bit */
  1094. #ifdef COMMENT
  1095. /* This wasn't the problem... */
  1096.       ttflui(); /* Clear out stuff from modem setup */
  1097.       ttslow("ATS7=6015",wr); /* Redo carrier wait */
  1098.       getok(4,1); /* Get response */
  1099. #endif /* COMMENT */
  1100.       alarm(0); /* Just in case... */
  1101.       ttflui(); /* Clear out stuff from modem setup */
  1102.       goto REDIAL; /* Skip setup - we already did it */
  1103.   }
  1104. /*
  1105.   Do flow control next because a long init string echoing back could
  1106.   cause data overruns, causing us to miss the OK, or (worse) to get out
  1107.   of sync entirely.
  1108. */
  1109.   x = 0; /* User said SET DIAL FLOW RTS/CTS */
  1110.   if (dialfc == FLO_RTSC || /* Even if Kermit's FLOW isn't...  */
  1111.       (dialfc == FLO_AUTO && flow == FLO_RTSC)) {
  1112.       if (dialhwfc) { /* User-defined HWFC string */
  1113.   if (*dialhwfc) {
  1114.       x = 1;
  1115.       flocmd = dialhwfc;
  1116.   }
  1117.       } else if ((mdmcapas & CKD_HW) && *(mp->hwfc_str)) {
  1118.   x = 1;
  1119.   flocmd = mp->hwfc_str;
  1120.       }
  1121.   } else if (dialfc == FLO_XONX || /* User said SET DIAL FLOW SOFT */
  1122.      (dialfc == FLO_AUTO && flow == FLO_XONX)) {
  1123.       if (dialswfc) {
  1124.   if (*dialswfc) {
  1125.       x = 1;
  1126.       flocmd = dialswfc;
  1127.   }
  1128.       } else if ((mdmcapas & CKD_SW) && *(mp->swfc_str)) {
  1129.   x = 1;
  1130.   flocmd = mp->swfc_str;
  1131.       }
  1132.   } else if (dialfc == FLO_NONE) { /* User said SET DIAL FLOW NONE */
  1133.       if (dialnofc) {
  1134.   if (*dialnofc) {
  1135.       x = 1;
  1136.       flocmd = dialnofc;
  1137.   }
  1138.       } else if (mp->nofc_str && *(mp->nofc_str)) {
  1139.   x = 1;
  1140.   flocmd = mp->nofc_str;
  1141.       }
  1142.   }
  1143.   if (x) { /* Send the flow control command */
  1144.       debug(F110,"ckdial flocmd",flocmd,0);
  1145.       for (tries = 4; tries > 0; tries--) { /* Send the command */
  1146.   ttslow(flocmd,wr);
  1147.   mdmstat = getok(5,1);
  1148.   if (mdmstat > 0) break;
  1149.   if (dialdpy && tries > 1)
  1150.     printf(" No response from modem, retrying%s...n",
  1151.    (tries < 4) ? " again" : "");
  1152.       }
  1154. #ifdef CK_TTSETFLOW
  1155. #ifdef CK_RTSCTS
  1156. /*
  1157.   So far only ckutio.c has ttsetflow().
  1158.   We have just told the modem to turn on RTS/CTS flow control and the modem
  1159.   has said OK.  But we ourselves have not turned it on yet because of the
  1160.   disgusting ttpkt(...FLO_DIAL...) hack.  So now, if the computer does not
  1161.   happen to be asserting RTS, the modem will no longer send characters to it.
  1162.   So at EXACTLY THIS POINT, we must enable RTS/CTS in the device driver.
  1163. */
  1164.       if (dialfc == FLO_RTSC ||
  1165.   (dialfc == FLO_AUTO && flow == FLO_RTSC)) {
  1166.   ttsetflow(FLO_RTSC);
  1167.       }
  1168. #endif /* CK_RTSCTS */
  1169. #endif /* CK_TTSETFLOW */
  1170.   }
  1171.   ttflui(); /* Clear out stuff from modem setup */
  1172.   msleep(250);
  1174.   for (tries = 4; tries > 0; tries--) { /* Send init string */
  1175.       ttslow(ws,wr);
  1176.       mdmstat = getok(4,1); /* Get response */
  1177.       if (mdmstat > 0) break;
  1178.       if (dialdpy && tries > 1)
  1179. printf(" No response from modem, retrying%s...n",
  1180.        (tries < 4) ? " again" : "");
  1181.   }
  1182.   debug(F101,"ckdial wake_str mdmstat","",mdmstat);
  1184.   if (mdmstat < 1) { /* Initialized OK? */
  1185.       dialfail(F_MINIT); /* No, fail. */
  1186. #ifdef NTSIG
  1187.       ckThreadEnd(threadinfo);
  1188. #endif /* NTSIG */
  1189.       SIGRETURN;
  1190.   }
  1192. #ifndef MINIDIAL
  1193.     } else if (mymdmtyp == n_ATTDTDM && dialsta != DIA_PART) { /* AT&T ... */
  1194. ttsndb(); /* Send BREAK */
  1195. #endif /* MINIDIAL */
  1197.     } else if (dialsta != DIA_PART) { /* All others */
  1199. /* Place modem into command mode */
  1201. ws = dialini ? dialini : mp->wake_str;
  1202. if (ws && (int)strlen(ws) > 0) {
  1203.     debug(F111,"ckdial default, wake string", ws, wr);
  1204.     ttslow(ws, wr);
  1205. } else debug(F100,"ckdial no wake_str","",0);
  1206. if (mp->wake_prompt && (int)strlen(mp->wake_prompt) > 0) {
  1207.     debug(F110,"ckdial default, waiting for wake_prompt",
  1208.   mp->wake_prompt,0);
  1209.     alarm(10);
  1210.     waitfor(mp->wake_prompt);
  1211.     alarm(0);
  1212. } else debug(F100,"ckdial no wake_prompt","",0);
  1213.     }
  1214.     if (dialsta != DIA_PART) {
  1215. alarm(0); /* Turn off alarm */
  1216. debug(F100,"ckdial got wake prompt","",0);
  1217. msleep(500); /* Allow settling time */
  1218.     }
  1220. /* Handle error correction, data compression, and flow control... */
  1222.     if (dialsta != DIA_PART) {
  1224. /* Enable/disable error-correction */
  1226. x = 0;
  1227. if (dialec) { /* DIAL ERROR-CORRECTION is ON */
  1228.     if (dialecon) { /* SET DIAL STRING ERROR-CORRECTION */
  1229. if (*dialecon) {
  1230.     x = 1;
  1231.     ttslow(dialecon, wr);
  1232. }
  1233.     } else if ((mdmcapas & CKD_EC) && *(mp->ec_on_str)) {
  1234. x = 1;
  1235. ttslow(mp->ec_on_str, wr);
  1236.     }
  1237. #ifdef COMMENT
  1238.     else printf(
  1239.   "WARNING - I don't know how to turn on EC for this modemn"
  1240.      );
  1241. #endif /* COMMENT */
  1242. } else {
  1243.     if (dialecoff) { /* DIAL ERROR-CORRECTION OFF */
  1244. if (*dialecoff) {
  1245.     x = 1;
  1246.     ttslow(dialecoff, wr);
  1247. }
  1248.     } else if ((mdmcapas & CKD_EC) && *(mp->ec_off_str)) {
  1249. x = 1;
  1250. ttslow(mp->ec_off_str, wr);
  1251.     }
  1252. #ifdef COMMENT
  1253.     else printf(
  1254.   "WARNING - I don't know how to turn off EC for this modemn"
  1255.      );
  1256. #endif /* COMMENT */
  1257. }
  1258. debug(F101,"ckudia xx_ok","",xx_ok);
  1259. if (x && xx_ok) { /* Look for OK response */
  1260.     debug(F100,"ckudia calling xx_ok for EC","",0);
  1261.     x = (*xx_ok)(5,1);
  1262.     debug(F101,"ckudia xx_ok","",x);
  1263.     if (x < 0) {
  1264. printf("WARNING - Trouble enabling error-correction.n");
  1265. printf(
  1266. " Likely cause: Your modem is an RPI model, which does not have built-inn");
  1267. printf(" error correction and data compression.");
  1268.     }
  1269. }
  1271. /* Enable/disable data compression */
  1273. if (x > 0) x = 0;
  1274. if (dialdc) {
  1275.     if (x < 0 || !dialec) {
  1276. printf(
  1277. "WARNING - You can't have compression without error correction.n");
  1278.     } else if (dialdcon) { /* SET DIAL STRING ... */
  1279. if (*dialdcon) {
  1280.     x = 1;
  1281.     ttslow(dialdcon, wr);
  1282. }
  1283.     } else if ((mdmcapas & CKD_DC) && *(mp->dc_on_str)) {
  1284. x = 1;
  1285. ttslow(mp->dc_on_str, wr);
  1286.     }
  1287. #ifdef COMMENT
  1288.     else printf(
  1289.   "WARNING - I don't know how to turn on DC for this modemn"
  1290.   );
  1291. #endif /* COMMENT */
  1292. } else {
  1293.     if (dialdcoff) {
  1294. if (*dialdcoff) {
  1295.     x = 1;
  1296.     ttslow(dialdcoff, wr);
  1297. }
  1298.     } else if ((mdmcapas & CKD_DC) && *(mp->dc_off_str)) {
  1299. x = 1;
  1300. ttslow(mp->dc_off_str, wr);
  1301.     }
  1302. #ifdef COMMENT
  1303.     else printf(
  1304. "WARNING - I don't know how to turn off compression for this modemn"
  1305.   );
  1306. #endif /* COMMENT */
  1307. }
  1308. if (x && xx_ok) { /* Look for OK response */
  1309.     x = (*xx_ok)(5,1);
  1310.     if (x < 0) printf("WARNING - Trouble enabling compressionn");
  1311. }
  1312.     }
  1314. #ifndef NOXFER
  1315. #ifndef MINIDIAL
  1316.     if (mdmcapas & CKD_KS && dialsta != DIA_PART) { /* Kermit spoof */
  1317. int r; /* Register */
  1318. char tbcmdbuf[20]; /* Command buffer */
  1319. switch (mymdmtyp) {
  1321.   case n_MICROCOM: /* Microcoms in SX mode */
  1322.        if (dialksp)
  1323.       sprintf(tbcmdbuf,"APM1;KMC%d15",stchr);
  1324.     else
  1325.       sprintf(tbcmdbuf,"APM015");
  1326.        ttslow(tbcmdbuf, MICROCOM.wake_rate);
  1327.        alarm(3);
  1328.     waitfor(mp->wake_prompt);
  1329.     alarm(0);
  1330.     break;
  1332.   case n_TELEBIT: /* Old and new Telebits */
  1333.   case n_TBNEW:
  1334.     if (!dialksp) {
  1335. sprintf(tbcmdbuf,"ATS111=015");
  1336.     } else {
  1337. switch (parity) { /* S111 value depends on parity */
  1338.   case 'e': r = 12; break;
  1339.   case 'm': r = 13; break;
  1340.   case 'o': r = 11; break;
  1341.   case 's': r = 14; break;
  1342.   case 0:
  1343.   default:  r = 10; break;
  1344. }
  1345. sprintf(tbcmdbuf,"ATS111=%d S112=%d15",r,stchr);
  1346.     }
  1347.     ttslow(tbcmdbuf, wr);
  1349. /* Not all Telebit models have the Kermit spoof, so ignore response. */
  1351.     if (xx_ok) { /* Get modem's response */
  1352. x = (*xx_ok)(5,1);
  1353.     }
  1354. }
  1355.     }
  1356. #endif /* MINIDIAL */
  1357. #endif /* NOXFER */
  1359.     /* Speaker */
  1361.     if ((mdmcapas & CKD_AT) && (dialsta != DIA_PART) &&
  1362. !dialspon && !dialspoff &&
  1363. !dialvol1 && !dialvol2 &&!dialvol3) {
  1364. /* AT command set and commands have not been customized */
  1365. /* so combine speaker and volume commands. */
  1366. if (mdmspk)
  1367.   sprintf(lbuf,"ATM1L%d%c",mdmvol,13);
  1368. else
  1369.   sprintf(lbuf,"ATM0%c",13);
  1370. ttslow(lbuf,wr); /* Send command */
  1371. getok(5,1); /* Get but ignore response */
  1372.     } else if (dialsta != DIA_PART) { /* Customized or not AT commands */
  1373. x = 0; /* Do it the hard way */
  1374. if (mdmspk) {
  1375.     if (dialspon) {
  1376. if (*dialspon) {
  1377.     x = 1;
  1378.     ttslow(dialspon,wr);
  1379. }
  1380.     } else {
  1381. x = 1;
  1382. ttslow(mp->sp_on_str,wr);
  1383.     }
  1384. } else {
  1385.     /* s = dialspoff ? dialspoff : mp->sp_off_str; */
  1386.     if (dialspoff) {
  1387. if (*dialspoff) {
  1388.     x = 1;
  1389.     ttslow(dialspoff,wr);
  1390. }
  1391.     } else {
  1392. x = 1;
  1393. ttslow(mp->sp_off_str,wr);
  1394.     }
  1395. }
  1396. if (x) {
  1397.     if (xx_ok) /* Get response */
  1398.       x = (*xx_ok)(5,1);
  1399.     if (x && mdmspk) { /* Good response and speaker on? */
  1400. switch (mdmvol) { /* Yes, send volume command. */
  1401.   case 0:
  1402.   case 1:
  1403.     s = dialvol1 ? dialvol1 : mp->vol1_str; break;
  1404.   case 2:
  1405.     s = dialvol2 ? dialvol2 : mp->vol2_str; break;
  1406.   case 3:
  1407.     s = dialvol3 ? dialvol3 : mp->vol3_str; break;
  1408.   default:
  1409.     s = NULL;
  1410. }
  1411. if (s) if (*s) { /* Send volume command. */
  1412.     ttslow(s, wr);
  1413.     if (xx_ok) /* Get response but ignore it */
  1414.       (*xx_ok)(5,1);
  1415. }
  1416.     }
  1417. }
  1418.     }
  1420. #ifndef CK_ATDT
  1421.     /* Dialing Method */
  1423.     if (dialmth && dialsta != DIA_PART) { /* If dialing method specified... */
  1424. char *s = ""; /* Do it here... */
  1426. if (dialmth == XYDM_T && dialtone) /* Tone */
  1427.   s = dialtone;
  1428. else if (dialmth == XYDM_P && dialpulse) /* Pulse */
  1429.   s = dialpulse;
  1430. if (s) if (*s) {
  1431.     ttslow(s, wr);
  1432.     if (xx_ok) /* Get modem's response */
  1433.       (*xx_ok)(5,1); /* (but ignore it...) */
  1434. }
  1435.     }
  1436. #endif /* CK_ATDT */
  1438.     if (dialidt) { /* Ignore dialtone? */
  1439. char *s = "";
  1440. s = dialx3 ? dialx3 : mp->ignoredt;
  1441. if (s) if (*s) {
  1442.     ttslow(s, wr);
  1443.     if (xx_ok) /* Get modem's response */
  1444.       (*xx_ok)(5,1); /* (but ignore it...) */
  1445. }
  1446.     }
  1447.     {
  1448. char *s = ""; /* Last-minute init string? */
  1449. s = dialini2 ? dialini2 : mp->ini2;
  1450. if (s) if (*s) {
  1451.     ttslow(s, wr);
  1452.     if (xx_ok) /* Get modem's response */
  1453.       (*xx_ok)(5,1); /* (but ignore it...) */
  1454. }
  1455.     }
  1456.     if (func_code == 1) { /* ANSWER (not DIAL) */
  1457. char *s;
  1458. s = dialaaon ? dialaaon : mp->aa_on_str;
  1459. if (!s) s = "";
  1460. if (*s) {
  1461.     ttslow(s, (dialpace > -1) ? wr : mp->dial_rate);
  1462.     if (xx_ok) /* Get modem's response */
  1463.       (*xx_ok)(5,1); /* (but ignore it...) */
  1464. } else {
  1465.     printf(
  1466. "WARNING - I don't know how to enable autoanswer for this modem.n"
  1467.    );
  1468. } /* And skip all the phone-number & dialing stuff... */
  1469. alarm(waitct); /* This much time allowed. */
  1470. debug(F101,"ckdial ANSWER waitct","",waitct);
  1472.     } else { /* DIAL (not ANSWER) */
  1474. if (dialsta != DIA_PART) { /* Last dial was not partial */
  1476.     char *s = "";
  1477. #ifdef COMMENT
  1478.     s = dialaaoff ? dialaaoff : mp->aa_off_str;
  1479. #endif /* COMMENT */
  1480.     if (s) if (*s) {
  1481. ttslow(s, (dialpace > -1) ? wr : mp->dial_rate);
  1482. if (xx_ok) /* Get modem's response */
  1483.   (*xx_ok)(5,1); /* (but ignore it...) */
  1484.     }
  1486.     /* Put modem into dialing mode, if the modem requires it. */
  1488.     if (mp->dmode_str && *(mp->dmode_str)) {
  1489. ttslow(mp->dmode_str, (dialpace > -1) ? wr : mp->dial_rate);
  1490. savalrm = signal(SIGALRM,dialtime);
  1491. alarm(10);
  1492. /* Wait for prompt, if any expected */
  1493. if (mp->dmode_prompt && *(mp->dmode_prompt)) {
  1494.     waitfor(mp->dmode_prompt);
  1495.     msleep(300);
  1496. }
  1497. alarm(0); /* Turn off alarm on dialing prompts */
  1498. signal(SIGALRM,savalrm); /* Restore alarm */
  1499.     }
  1500. }
  1501. if (mdmcapas & CKD_AT && /* AT command set */
  1502.     dialsta != DIA_PART) {
  1503.     if (mdmwait > 255) /* If larger than maximum, */
  1504.       mdmwait = 255; /* make it maximum. */
  1505.     if (dialesc > 0 && /* Modem escape character is set */
  1506. dialmhu > 0) { /* Hangup method is modem command */
  1507. int x = dialesc;
  1508. if (dialesc < 0 || dialesc > 127)
  1509.   x = 128;
  1510. sprintf(lbuf,
  1511. "ATS2=%dS7=%d15",
  1512. dialesc ? x : mp->esc_char, mdmwait);
  1513.     } else
  1514.       sprintf(lbuf,"ATS7=%d%c",mdmwait,13);
  1515.     ttslow(lbuf,wr); /* Set it. */
  1516.     mdmstat = getok(5,1); /* Get response from modem */
  1517.     /* If it gets an error, go ahead anyway */
  1518.     debug(F101,"ckdial S7 mdmstat","",mdmstat);
  1519. }
  1520. ttflui(); /* Clear out stuff from modem setup */
  1521. inited = 1; /* Remember modem is initialized */
  1523.       REDIAL:
  1524. sprintf(lbuf, dcmd, xnum);
  1525. debug(F110,"dialing",lbuf,0);
  1526. /* Send the dialing string */
  1527. ttslow(lbuf,dialpace > -1 ? wr : mp->dial_rate);
  1529. fail_code = F_MODEM; /* New default failure code changes */
  1530. dial_what = DW_DIAL; /* and our state, too. */
  1531. if (dialdpy) { /* If showing progress */
  1532.     p = ck_time(); /* get current time; */
  1533.     if (*p) printf(" Dialing: %s...n",p);
  1534. #ifdef VMS
  1535.     printf(" n");
  1536.     fflush(stdout);
  1537. #endif /* VMS */
  1538. }
  1539. alarm(waitct); /* This much time allowed. */
  1540. debug(F101,"ckdial waitct","",waitct);
  1542. #ifndef MINIDIAL
  1543. #ifdef OLDMODEMS
  1544. switch (mymdmtyp) {
  1545.   case n_RACAL: /* Acknowledge dialing string */
  1546.     sleep(3);
  1547.     ttflui();
  1548.     ttoc('15');
  1549.     break;
  1550.   case n_VENTEL:
  1551.     waitfor("1212"); /* Ignore the first two strings */
  1552.     break;
  1553.   default:
  1554.     break;
  1555. }
  1556. #endif /* OLDMODEMS */
  1557. #endif /* MINIDIAL */
  1558.     }
  1560. /* Check for connection */
  1562.     mdmstat = 0; /* No status yet */
  1563.     strcpy(lbuf,""); /* Default reason for failure */
  1564.     debug(F101,"dial awaiting response, mymdmtyp","",mymdmtyp);
  1566. #ifndef NOSPL
  1567.     modemmsg[0] = NUL;
  1568. #endif /* NOSPL */
  1569.     while (mdmstat == 0) { /* Till we get a result or time out */
  1571. if ((mdmcapas & CKD_AT) && nonverbal) { /* AT command set */
  1572.     gethrn(); /* In digit result mode */
  1573.     if (partial && dialsta == DIA_ERR) {
  1574. /*
  1575.    If we get an error here, the phone is still
  1576.    off hook so we have to hang it up.
  1577. */
  1578. dialhup();
  1579. dialsta = DIA_ERR; /* (because dialhup() changes it) */
  1580.     }
  1581.     continue;
  1583. } else if (mymdmtyp == n_UNKNOWN) { /* Unknown modem type */
  1584.     int x, y = waitct;
  1585.     mdmstat = D_FAILED; /* Assume failure. */
  1586.     while (y-- > -1) {
  1587. x = ttchk();
  1588. if (x > 0) {
  1589.     if (x > LBUFL) x = LBUFL;
  1590.     x = ttxin(x,(CHAR *)lbuf);
  1591.     if ((x > 0) && dialdpy) conol(lbuf);
  1592. } else if (network && x < 0) { /* Connection dropped */
  1593.     inited = 0;
  1594. #ifdef NTSIG
  1595.     ckThreadEnd(threadinfo);
  1596. #endif /* NTSIG */
  1597.     dialsta = DIA_IO; /* Call it an I/O error */
  1598. #ifdef DYNAMIC
  1599.     if (rbuf) free(rbuf); rbuf = NULL;
  1600.     if (fbuf) free(fbuf); fbuf = NULL;
  1601. #endif /* DYNAMIC */
  1602.     SIGRETURN;
  1603. }
  1604. x = ttgmdm(); /* Try to read modem signals */
  1605. if (x < 0) break; /* Can't, fail. */
  1606. if (x & BM_DCD) { /* Got signals OK.  Carrier present? */
  1607.     mdmstat = CONNECTED; /* Yes, done. */
  1608.     break;
  1609. } /* No, keep waiting. */
  1610. sleep(1);
  1611.     }
  1612.     continue;
  1613. }
  1615. for (n = -1; n < LBUFL-1; ) { /* Accumulate modem response */
  1616.     int xx;
  1617.     c2 = (char) (xx = ddinc(0)); /* Read a character, blocking */
  1618.     if (xx < 1) /* Ignore NULs and errors */
  1619.       continue; /* (Timeout will handle errors) */
  1620.     else /* Real character, keep it */
  1621.       lbuf[++n] = (char) (c2 & 0177);
  1622.     dialoc(lbuf[n]); /* Maybe echo it  */
  1623.     if (mdmcapas & CKD_V25) { /* V.25bis dialing... */
  1624. /*
  1625.   This assumes that V.25bis indications are all at least 3 characters long
  1626.   and are terminated by either CRLF or LFCR.
  1627. */
  1628. if (mymdmtyp == n_CCITT) {
  1629.     if (n < 3) continue;
  1630.     if ((lbuf[n] == CR) && (lbuf[n-1] == LF)) break;
  1631.     if ((lbuf[n] == LF) && (lbuf[n-1] == CR)) break;
  1632. }
  1633. #ifndef MINIDIAL
  1634. else if (mymdmtyp == n_DIGITEL) {
  1635.     if (((lbuf[n] == CR) && (lbuf[n-1] == LF)) ||
  1636. ((lbuf[n] == LF) && (lbuf[n-1] == CR)))
  1637.       break;
  1638.     else
  1639.       continue;
  1640. }
  1641. #endif /* MINIDIAL */
  1642.     } else { /* All others, break on CR or LF */
  1643. if ( lbuf[n] == CR || lbuf[n] == LF ) break;
  1644.     }
  1645. }
  1646. lbuf[++n] = ''; /* Terminate response from modem */
  1647. debug(F111,"ckdial modem response",lbuf,n);
  1648. #ifndef NOSPL
  1649. ckstrncpy(modemmsg,lbuf,LBUFL); /* Call result message */
  1650. lbuf[79] = NUL;
  1651. {
  1652.     int x; /* Strip junk from end */
  1653.     x = (int)strlen(modemmsg) - 1;
  1654.     while (x > -1) {
  1655. if (modemmsg[x] < (char) 33)
  1656.   modemmsg[x] = NUL;
  1657. else
  1658.   break;
  1659. x--;
  1660.     }
  1661. }
  1662. #endif /* NOSPL */
  1663. if (mdmcapas & CKD_AT) { /* Hayes AT command set */
  1664.     gethrw(); /* in word result mode */
  1665.     if (partial && dialsta == DIA_ERR) {
  1666. dialhup();
  1667. dialsta = DIA_ERR; /* (because dialhup() changes it) */
  1668.     }
  1669.     continue;
  1670. } else if (mdmcapas & CKD_V25) { /* CCITT command set */
  1671.     if (didweget(lbuf,"VAL")) { /* Dial command confirmation */
  1672. #ifndef MINIDIAL
  1673. if (mymdmtyp == n_CCITT)
  1674. #endif /* MINIDIAL */
  1675.   continue; /* Go back and read more */
  1676. #ifndef MINIDIAL
  1677. /* Digitel doesn't give an explicit connect confirmation message */
  1678. else {
  1679.     int n;
  1680.     for (n = -1; n < LBUFL-1; ) {
  1681. lbuf[++n] = c2 = (char) (ddinc(0) & 0177);
  1682. dialoc(lbuf[n]);
  1683. if (((lbuf[n] == CR) && (lbuf[n-1] == LF)) ||
  1684.     ((lbuf[n] == LF) && (lbuf[n-1] == CR)))
  1685.   break;
  1686.     }
  1687.     mdmstat = CONNECTED; /* Assume we're connected */
  1688.     if (dialdpy && carrier != CAR_OFF) {
  1689. sleep(1);  /* Wait a second */
  1690. n = ttgmdm(); /* Try to read modem signals */
  1691. if ((n > -1) && ((n & BM_DCD) == 0))
  1692.   printf("WARNING - no carriern");
  1693.     }
  1694. }
  1695. #endif /* MINIDIAL */
  1697. /* Standard V.25bis stuff */
  1699.     } else if (didweget(lbuf,"CNX")) { /* Connected */
  1700. mdmstat = CONNECTED;
  1701.     } else if (didweget(lbuf, "INV")) {
  1702. mdmstat = D_FAILED; /* Command error */
  1703. dialsta = DIA_ERR;
  1704. strcpy(lbuf,"INV");
  1706.     } else if (didweget(lbuf,"CFI")) { /* Call Failure */
  1708. if (didweget(lbuf,"AB")) { /* Interpret reason code */
  1709.     strcpy(lbuf,"AB: Timed out");
  1710.     dialsta = DIA_TIMO;
  1711. } else if (didweget(lbuf,"CB")) {
  1712.     strcpy(lbuf,"CB: Local DCE Busy");
  1713.     dialsta = DIA_NRDY;
  1714. } else if (didweget(lbuf,"ET")) {
  1715.     strcpy(lbuf,"ET: Busy");
  1716.     dialsta = DIA_BUSY;
  1717. } else if (didweget(lbuf, "NS")) {
  1718.     strcpy(lbuf,"NS: Number not stored");
  1719.     dialsta = DIA_ERR;
  1720. } else if (didweget(lbuf,"NT")) {
  1721.     strcpy(lbuf,"NT: No answer");
  1722.     dialsta = DIA_NOAN;
  1723. } else if (didweget(lbuf,"RT")) {
  1724.     strcpy(lbuf,"RT: Ring tone");
  1725.     dialsta = DIA_RING;
  1726. } else if (didweget(lbuf,"PV")) {
  1727.     strcpy(lbuf,"PV: Parameter value error");
  1728.     dialsta = DIA_ERR;
  1729. } else if (didweget(lbuf,"PS")) {
  1730.     strcpy(lbuf,"PS: Parameter syntax error");
  1731.     dialsta = DIA_ERR;
  1732. } else if (didweget(lbuf,"MS")) {
  1733.     strcpy(lbuf,"MS: Message syntax error");
  1734.     dialsta = DIA_ERR;
  1735. } else if (didweget(lbuf,"CU")) {
  1736.     strcpy(lbuf,"CU: Command unknown");
  1737.     dialsta = DIA_ERR;
  1738. } else if (didweget(lbuf,"FC")) {
  1739.     strcpy(lbuf,"FC: Forbidden call");
  1740.     dialsta = DIA_NOAC;
  1741. }
  1742. mdmstat = D_FAILED;
  1743.     } else if (didweget(lbuf,"INC")) { /* Incoming Call */
  1744. strcpy(lbuf,"INC: Incoming call");
  1745. dialsta = DIA_RING;
  1746. mdmstat = D_FAILED;
  1747.     } else if (didweget(lbuf,"DLC")) { /* Delayed Call */
  1748. strcpy(lbuf,"DLC: Delayed call");
  1749. dialsta = DIA_NOAN;
  1750. mdmstat = D_FAILED;
  1751.     } else /* Response was probably an echo. */
  1752. #ifndef MINIDIAL
  1753.       if (mymdmtyp == n_CCITT)
  1754. #endif /* MINIDIAL */
  1755. continue;
  1756. #ifndef MINIDIAL
  1757.       else /* Digitel: If no error, connect. */
  1758. mdmstat = CONNECTED;
  1759. #endif /* MINIDIAL */
  1760.     break;
  1762. } else if (n) { /* Non-Hayes-compatibles... */
  1763.     switch (mymdmtyp) {
  1764. #ifndef MINIDIAL
  1765.       case n_ATTMODEM:
  1766. /* Careful - "Connected" / "Not Connected" */
  1767. if (didweget(lbuf,"Busy")) {
  1768.     mdmstat = D_FAILED;
  1769.     dialsta = DIA_BUSY;
  1770. } else if (didweget(lbuf,"Not connected") ||
  1771.    didweget(lbuf,"Not Connected")) {
  1772.     mdmstat = D_FAILED;
  1773.     dialsta = DIA_NOCA;
  1774. } else if (didweget(lbuf,"No dial tone") ||
  1775.    didweget(lbuf,"No Dial Tone")) {
  1776.     mdmstat = D_FAILED;
  1777.     dialsta = DIA_NODT;
  1778. } else if (didweget(lbuf,"No answer") ||
  1779.    didweget(lbuf,"No Answer")) {
  1780.     mdmstat = D_FAILED;
  1781.     dialsta = DIA_NOAN;
  1782. } else if (didweget(lbuf,"Answered") ||
  1783.    didweget(lbuf,"Connected")) {
  1784.     mdmstat = CONNECTED;
  1785.     dialsta = DIA_OK;
  1786. }
  1787. break;
  1789.       case n_ATTISN:
  1790. if (didweget(lbuf,"ANSWERED")) {
  1791.     mdmstat = CONNECTED;
  1792.     dialsta = DIA_OK;
  1793. } else if (didweget(lbuf,"BUSY")) {
  1794.     mdmstat = D_FAILED;
  1795.     dialsta = DIA_BUSY;
  1796. } else if (didweget(lbuf,"DISCONNECT")) {
  1797.     mdmstat = D_FAILED;
  1798.     dialsta = DIA_DISC;
  1799. } else if (didweget(lbuf,"NO ANSWER")) {
  1800.     mdmstat = D_FAILED;
  1801.     dialsta = DIA_NOAN;
  1802. } else if (didweget(lbuf,"WRONG ADDRESS")) {
  1803.     mdmstat = D_FAILED;
  1804.     dialsta = DIA_NOAC;
  1805. }
  1806. break;
  1808.       case n_ATTDTDM:
  1809. if (didweget(lbuf,"ANSWERED")) {
  1810.     mdmstat = CONNECTED;
  1811. } else if (didweget(lbuf,"BUSY")) {
  1812.     mdmstat = D_FAILED;
  1813.     dialsta = DIA_BUSY;
  1814. } else if (didweget(lbuf,"CHECK OPTIONS")) {
  1815.     mdmstat = D_FAILED;
  1816.     dialsta = DIA_ERR;
  1817. } else if (didweget(lbuf,"DISCONNECTED")) {
  1818.     mdmstat = D_FAILED;
  1819.     dialsta = DIA_DISC;
  1820. } else if (didweget(lbuf,"DENIED")) {
  1821.     mdmstat = D_FAILED;
  1822.     dialsta = DIA_NOAC;
  1823. }
  1824. #ifdef DEBUG
  1825. #ifdef ATT6300
  1826. /* Horrible hack lost in history. */
  1827. else if (deblog && didweget(lbuf,"~~"))
  1828.   mdmstat = CONNECTED;
  1829. #endif /* ATT6300 */
  1830. #endif /* DEBUG */
  1831. break;
  1833. #ifdef OLDMODEMS
  1834.       case n_CERMETEK:
  1835. if (didweget(lbuf,"16A")) {
  1836.     mdmstat = CONNECTED;
  1837.     ttslow("16U 115",200); /* Make transparent*/
  1838. }
  1839. break;
  1841.       case n_DF03:
  1842. /* Because response lacks CR or NL . . . */
  1843. c = (char) (ddinc(0) & 0177);
  1844. dialoc(c);
  1845. debug(F000,"dial df03 got","",c);
  1846. if ( c == 'A' ) mdmstat = CONNECTED;
  1847. if ( c == 'B' ) mdmstat = D_FAILED;
  1848. break;
  1850.       case n_DF100:      /* DF100 has short response codes */
  1851. if (strcmp(lbuf,"A") == 0) {
  1852.     mdmstat = CONNECTED; /* Attached */
  1853.     dialsta = DIA_OK;
  1854. } else if (strcmp(lbuf,"N") == 0) {
  1855.     mdmstat = D_FAILED;
  1856.     dialsta = DIA_NOAN; /* No answer or no dialtone */
  1857. } else if (strcmp(lbuf,"E") == 0 || /* Error */
  1858.    strcmp(lbuf,"R") == 0) { /* "Ready" (?) */
  1859.     mdmstat = D_FAILED;
  1860.     dialsta = DIA_ERR; /* Command error */
  1861. }
  1862. /* otherwise fall thru... */
  1864.       case n_DF200:
  1865. if (didweget(lbuf,"Attached")) {
  1866.     mdmstat = CONNECTED;
  1867.     dialsta = DIA_OK;
  1868.     /*
  1869.      * The DF100 will respond with "Attached" even if DTR
  1870.      * and/or carrier are not present. Another reason to
  1871.      * (also) wait for carrier?
  1872.      */
  1873. } else if (didweget(lbuf,"Busy")) {
  1874.     mdmstat = D_FAILED;
  1875.     dialsta = DIA_BUSY;
  1876. } else if (didweget(lbuf,"Disconnected")) {
  1877.     mdmstat = D_FAILED;
  1878.     dialsta = DIA_DISC;
  1879. } else if (didweget(lbuf,"Error")) {
  1880.     mdmstat = D_FAILED;
  1881.     dialsta = DIA_ERR;
  1882. } else if (didweget(lbuf,"No answer")) {
  1883.     mdmstat = D_FAILED;
  1884.     dialsta = DIA_NOAN;
  1885. } else if (didweget(lbuf,"No dial tone")) {
  1886.     mdmstat = D_FAILED;
  1887.     dialsta = DIA_NODT;
  1888. } else if (didweget(lbuf,"Speed:)")) {
  1889.     mdmstat = D_FAILED;
  1890.     dialsta = DIA_ERR;
  1891. }
  1892. /*
  1893.  * It appears that the "Speed:..." response comes after an
  1894.  * "Attached" response, so this is never seen.  HOWEVER,
  1895.  * it would be very handy to detect this and temporarily
  1896.  * reset the speed, since it's a nuisance otherwise.
  1897.  * If we wait for some more input from the modem, how do
  1898.  * we know if it's from the remote host or the modem?
  1899.  * Carrier reportedly doesn't get set until after the
  1900.  * "Speed:..." response (if any) is sent.  Another reason
  1901.  * to (also) wait for carrier.
  1902.  */
  1903. break;
  1905.       case n_GDC:
  1906. if (didweget(lbuf,"ON LINE"))
  1907.   mdmstat = CONNECTED;
  1908. else if (didweget(lbuf,"NO CONNECT"))
  1909.   mdmstat = D_FAILED;
  1910. break;
  1912.       case n_PENRIL:
  1913. if (didweget(lbuf,"OK")) {
  1914.     mdmstat = CONNECTED;
  1915. } else if (didweget(lbuf,"BUSY")) {
  1916.     mdmstat = D_FAILED;
  1917.     dialsta = DIA_BUSY;
  1918.     } else if (didweget(lbuf,"NO RING")) {
  1919. mdmstat = D_FAILED;
  1920. dialsta = DIA_NOCA;
  1921.     }
  1922. break;
  1924.       case n_RACAL:
  1925. if (didweget(lbuf,"ON LINE"))
  1926.   mdmstat = CONNECTED;
  1927. else if (didweget(lbuf,"FAILED CALL"))
  1928.   mdmstat = D_FAILED;
  1929. break;
  1930. #endif /* OLDMODEMS */
  1932.       case n_ROLM:
  1933. if (didweget(lbuf,"CALLING"))
  1934.   mdmstat = 0;
  1935. else if (didweget(lbuf,"COMPLETE"))
  1936.   mdmstat = CONNECTED;
  1937. else if (didweget(lbuf,"FAILED") ||
  1938.  didweget(lbuf,"ABANDONDED")) {
  1939.     mdmstat = D_FAILED;
  1940.     dialsta = DIA_NOCA;
  1941. } else if (didweget(lbuf,"NOT AVAILABLE") ||
  1942.    didweget(lbuf,"LACKS PERMISSION") ||
  1943.    didweget(lbuf,"NOT A DATALINE") ||
  1944.    didweget(lbuf,"INVALID DATA LINE NUMBER") ||
  1945.    didweget(lbuf,"INVALID GROUP NAME")) {
  1946.     mdmstat = D_FAILED;
  1947.     dialsta = DIA_NOAC;
  1948. } else if (didweget(lbuf,"BUSY")) {
  1949.     mdmstat = D_FAILED;
  1950.     dialsta = DIA_BUSY;
  1951. } else if (didweget(lbuf,"DOES NOT ANSWER")) {
  1952.     mdmstat = D_FAILED;
  1953.     dialsta = DIA_NOAN;
  1954. }
  1955. break;
  1957. #ifdef OLDMODEMS
  1958.       case n_VENTEL:
  1959. if (didweget(lbuf,"ONLINE!") ||
  1960.     didweget(lbuf,"Online!")) {
  1961.     mdmstat = CONNECTED;
  1962. } else if (didweget(lbuf,"BUSY") ||
  1963.    didweget(lbuf,"Busy")) {
  1964.     mdmstat = D_FAILED;
  1965.     dialsta = DIA_BUSY;
  1966. } else if (didweget(lbuf,"DEAD PHONE")) {
  1967.     mdmstat = D_FAILED;
  1968.     dialsta = DIA_DISC;
  1969. }
  1970. break;
  1972.       case n_CONCORD:
  1973. if (didweget(lbuf,"INITIATING"))
  1974.   mdmstat = CONNECTED;
  1975. else if (didweget(lbuf,"BUSY")) {
  1976.     mdmstat = D_FAILED;
  1977.     dialsta = DIA_BUSY;
  1978. } else if (didweget(lbuf,"CALL FAILED")) {
  1979.     mdmstat = D_FAILED;
  1980.     dialsta = DIA_NOCA;
  1981. }
  1982. break;
  1983. #endif /* OLDMODEMS */
  1985.       case n_MICROCOM:
  1986. /* "RINGBACK" means phone line ringing, continue */
  1987. if (didweget(lbuf,"NO CONNECT")) {
  1988.     mdmstat = D_FAILED;
  1989.     dialsta = DIA_NOCA;
  1990. } else if (didweget(lbuf,"BUSY")) {
  1991.     mdmstat = D_FAILED;
  1992.     dialsta = DIA_BUSY;
  1993. } else if (didweget(lbuf,"NO DIALTONE")) {
  1994.     mdmstat = D_FAILED;
  1995.     dialsta = DIA_NODT;
  1996. } else if (didweget(lbuf,"COMMAND ERROR")) {
  1997.     mdmstat = D_FAILED;
  1998.     dialsta = DIA_ERR;
  1999. } else if (didweget(lbuf,"IN USE")) {
  2000.     mdmstat = D_FAILED;
  2001.     dialsta = DIA_NOAC;
  2002. } else if (didweget(lbuf,"CONNECT")) {
  2003.     mdmstat = CONNECTED;
  2004.     /* trailing speed ignored */
  2005. }
  2006. break;
  2008. #endif /* MINIDIAL */
  2009.       default:
  2010. printf(
  2011.     "PROGRAM ERROR - No response handler for modem type %dn",
  2012.        mymdmtyp);
  2013. mdmstat = D_FAILED;
  2014. dialsta = DIA_ERR;
  2015.     }
  2016. }
  2017.     } /* while (mdmstat == 0) */
  2019.     debug(F101,"ckdial alarm off","",x);
  2020.     alarm(0);
  2021.     if (mdmstat == D_FAILED) { /* Failure detected by modem  */
  2022.         dialfail(F_MODEM);
  2023. #ifdef NTSIG
  2024. ckThreadEnd(threadinfo);
  2025. #endif /* NTSIG */
  2026.         SIGRETURN;
  2027.     } else if (mdmstat == D_PARTIAL ) { /* Partial dial command OK */
  2028. msleep(500);
  2029. debug(F100,"dial partial","",0);
  2030.     } else { /* Call was completed */
  2031. int x;
  2032. msleep(700); /* In case modem signals blink  */
  2033. debug(F100,"dial succeeded","",0);
  2034. if (
  2035. #ifndef MINIDIAL
  2036.     mymdmtyp != n_ROLM /* Rolm has weird modem signaling */
  2037. #else
  2038.     1
  2039. #endif /* MINIDIAL */
  2040.     ) {
  2041.     alarm(3); /* In case ttpkt() gets stuck... */
  2042.     ttpkt(speed,FLO_DIAX,parity); /* Cancel dialing state ioctl */
  2043. }
  2044. /*
  2045.   In case CD went off in the interval between call completion and return
  2046.   from ttpkt()...
  2047. */
  2048. if (carrier == CAR_AUT || carrier == CAR_ON)
  2049.   if ((x = ttgmdm()) >= 0)
  2050.     if (!(x & BM_DCD))
  2051.       printf("WARNING: Carrier seems to have dropped...n");
  2052.     }
  2053.     dreset(); /* Reset alarms and signals. */
  2054.     if (!quiet && !backgrd) {
  2055. if (dialdpy && (p = ck_time())) { /* If DIAL DISPLAY ON, */
  2056.     printf(" %sall complete: %s.n", /* include timestamp.  */
  2057.    (mdmstat == D_PARTIAL) ?
  2058.    "Partial c" :
  2059.    "C",
  2060.    p );
  2061. } else if (modemmsg[0]) {
  2062.     printf (" %sall complete: "%s".n",
  2063.     (mdmstat == D_PARTIAL) ? "Partial c" : "C",
  2064.     (char *)modemmsg
  2065.     );
  2066. } else {
  2067.     printf (" %sall complete.n",
  2068.     (mdmstat == D_PARTIAL) ?
  2069.     "Partial c" :
  2070.     "C"
  2071.     );
  2072. }
  2073.     }
  2074. #ifdef CKLOGDIAL
  2075.     dologdial(telnbr);
  2076. #endif /* CKLOGDIAL */
  2078. #ifdef DYNAMIC
  2079.     if (rbuf) free(rbuf); rbuf = NULL;
  2080.     if (fbuf) free(fbuf); fbuf = NULL;
  2081. #endif /* DYNAMIC */
  2082.     dialsta = (mdmstat == D_PARTIAL) ? DIA_PART : DIA_OK;
  2083. #ifdef NTSIG
  2084.     ckThreadEnd(threadinfo);
  2085. #endif /* NTSIG */
  2086.     SIGRETURN;
  2087. }
  2089. static SIGTYP
  2090. #ifdef CK_ANSIC
  2091. faildial(void * threadinfo)
  2092. #else /* Not CK_ANSIC */
  2093. faildial(threadinfo) VOID * threadinfo;
  2094. #endif /* CK_ANSIC */
  2095. /* faildial */ {
  2096.     debug(F100,"longjmp returns to dial routine","",0);
  2097.     dialfail(fail_code);
  2098.     SIGRETURN;
  2099. }
  2101. /*
  2102.   nbr = number to dial (string)
  2103.   x1  = Retry counter
  2104.   x2  = Number counter
  2105.   fc  = Function code:
  2106.         0 == DIAL
  2107.         1 == ANSWER
  2108.         2 == INIT/CONFIG
  2109.         3 == PARTIAL DIAL
  2110. */
  2112. int
  2113. #ifdef OLD_DIAL
  2114. ckdial(nbr) char *nbr;
  2115. #else
  2116. ckdial(nbr, x1, x2, fc, redial) char *nbr; int x1, x2, fc, redial;
  2117. #endif /* OLD_DIAL */
  2118. /* ckdial */ {
  2119. #define ERMSGL 50
  2120.     char errmsg[ERMSGL], *erp; /* For error messages */
  2121.     int n = F_TIME;
  2122.     char *s;
  2123.     long spdmax;
  2124. #ifdef OS2
  2125.     extern int term_io;
  2126.     int term_io_sav = term_io;
  2127. #endif /* OS2 */
  2129.     char *mmsg = "Sorry, DIAL memory buffer can't be allocatedn";
  2131.     partial = 0;
  2132.     if (fc == 3) { /* Partial dial requested */
  2133. partial = 1; /* Set flag */
  2134. fc = 0; /* Treat like regular dialing */
  2135.     }
  2136.     func_code = fc; /* Make global to this module */
  2137.     telnbr = nbr;
  2138.     xredial = redial;
  2139.     debug(F111,"ckdial entry partial",ckitoa(fc),partial);
  2140.     debug(F111,"ckdial entry number",nbr,redial);
  2142. #ifdef CK_TAPI_X
  2143.     if (tttapi && tapipass) {
  2144. if (modemp[n_TAPI] = cktapiGetModemInf()) {
  2145.     mymdmtyp = n_TAPI;
  2146. } else {
  2147.     mymdmtyp = mdmtyp;
  2148.     modemp[n_TAPI] = &GENERIC;
  2149. }
  2150.     } else
  2151. #endif /* CK_TAPI */
  2152.     mymdmtyp = mdmtyp;
  2153.     if (mymdmtyp < 0) { /* Whoa, network dialing... */
  2154. if (mdmsav > -1)
  2155.   mymdmtyp = mdmsav;
  2156.     }
  2157.     if (mymdmtyp < 0) {
  2158. printf("Invalid modem type %d - internal error.n",mymdmtyp);
  2159. dialsta = DIA_NOMO;
  2160. return(0);
  2161.     }
  2162.     dial_what = DW_NOTHING; /* Doing nothing at first. */
  2163.     nonverbal = 0;
  2165. /* These are ONLY for the purpose of interpreting numeric result codes. */
  2167.     is_motorola =
  2168. #ifdef MINIDIAL
  2169.       0
  2170. #else
  2171.       mymdmtyp == n_SUPRA || mymdmtyp == n_SUPRASON;
  2172. #endif /* MINIDIAL */
  2173. ;
  2175.     is_motorola =
  2176. #ifdef MINIDIAL
  2177.       0
  2178. #else
  2179.       mymdmtyp == n_MOTOROLA || mymdmtyp == n_MONTANA;
  2180. #endif /* MINIDIAL */
  2181. ;
  2183.     is_rockwell =
  2184. #ifdef MINIDIAL
  2185.       0
  2186. #else
  2187.       mymdmtyp == n_RWV32 || mymdmtyp == n_RWV32B ||
  2188. mymdmtyp == n_RWV34 || mymdmtyp == n_RWV90 ||
  2189.   mymdmtyp == n_BOCA || mymdmtyp == n_TELEPATH ||
  2190.     mymdmtyp == n_CARDINAL || mymdmtyp == n_BESTDATA
  2191. #endif /* MINIDIAL */
  2192. ;
  2194.     is_hayeshispd =
  2195. #ifdef MINIDIAL
  2196.       0
  2197. #else
  2198.       mymdmtyp == n_H_ULTRA || mymdmtyp == n_H_ACCURA || n_PPI
  2199. #endif /* MINIDIAL */
  2200. ;
  2202.     is_supra =
  2203. #ifdef MINIDIAL
  2204.       0
  2205. #else
  2206.       mymdmtyp == n_SUPRA || mymdmtyp == n_SUPRAX || n_SUPRASON
  2207. #endif /* MINIDIAL */
  2208. ;
  2210.     mp = modemp[mymdmtyp]; /* Set pointer to modem info */
  2211.     if (!mp) {
  2212. printf("Sorry, handler for this modem type not yet filled in.n");
  2213. dialsta = DIA_NOMO;
  2214. return 0;
  2215.     }
  2216.     debug(F110,"dial number",telnbr,0);
  2217. #ifdef COMMENT
  2218.     debug(F110,"dial prefix",(dialnpr ? dialnpr : ""), 0);
  2219. #endif /* COMMENT */
  2221. #ifdef DYNAMIC
  2222.     *lbuf = NUL;
  2223.     debug(F101,"DIAL lbuf malloc ok","",LBUFL+1);
  2225.     if (!rbuf) {    /* This one might already have been allocated by getok() */
  2226. if (!(rbuf = malloc(RBUFL+1))) {    /* Allocate input line buffer */
  2227.     printf("%s", mmsg);
  2228.     dialsta = DIA_IE;
  2229.     return 0;
  2230. } else
  2231.   debug(F101,"DIAL rbuf malloc ok","",RBUFL+1);
  2232.     }
  2233.     if (!(fbuf = malloc(FULLNUML+1))) {    /* Allocate input line buffer */
  2234. printf("%s", mmsg);
  2235. dialsta = DIA_IE;
  2236. if (rbuf) free(rbuf); rbuf = NULL;
  2237. return 0;
  2238.     }
  2239.     debug(F101,"DIAL fbuf malloc ok","",FULLNUML+1);
  2240. #endif /* DYNAMIC */
  2242.     /* NOTE: mdmtyp, not mymdmtyp */
  2244.     if (ttopen(ttname,&local,mdmtyp,0) < 0) { /* Open, no carrier wait */
  2245. erp = errmsg;
  2246. if ((int)strlen(ttname) < (ERMSGL - 18))
  2247.   sprintf(erp,"Sorry, can't open %s",ttname);
  2248. else
  2249.   sprintf(erp,"Sorry, can't open device");
  2250. perror(errmsg);
  2251. dialsta = DIA_OPEN;
  2252. #ifdef DYNAMIC
  2253. if (rbuf) free(rbuf); rbuf = NULL;
  2254. if (fbuf) free(fbuf); fbuf = NULL;
  2255. #endif /* DYNAMIC */
  2256. return 0;
  2257.     }
  2259. #ifdef CK_TAPI
  2260.     if (!tttapi) {
  2261. #endif /* CK_TAPI */
  2263. /* Condition console terminal and communication line */
  2265.     /* Place line into "clocal" dialing state, */
  2266.     /* important mainly for System V UNIX.     */
  2268.     if (ttpkt(speed,FLO_DIAL,parity) < 0) {
  2269. ttclos(0); /* If ttpkt fails do all this... */
  2270. if (ttopen(ttname,&local,mymdmtyp,0) < 0) {
  2271.     erp = errmsg;
  2272.     if ((int)strlen(ttname) < (ERMSGL - 18))
  2273.       sprintf(erp,"Sorry, can't reopen %s",ttname);
  2274.     else
  2275.       sprintf(erp,"Sorry, can't reopen device");
  2276.     perror(errmsg);
  2277.     dialsta = DIA_OPEN;
  2278. #ifdef DYNAMIC
  2279.     if (rbuf) free(rbuf); rbuf = NULL;
  2280.     if (fbuf) free(fbuf); fbuf = NULL;
  2281. #endif /* DYNAMIC */
  2282.     return 0;
  2283. } /* And try again. */
  2284. if ((ttpkt(speed,FLO_DIAL,parity) < 0)
  2285. #ifdef UNIX
  2286. && (strcmp(ttname,"/dev/null"))
  2287. #else
  2288. #ifdef OSK
  2289. && (strcmp(ttname,"/nil"))
  2290. #endif /* OSK */
  2291. #endif /* UNIX */
  2292. #ifdef CK_TAPI
  2293.      && !tttapi
  2294. #endif /* CK_TAPI */
  2295.     ) {
  2296.     printf("Sorry, Can't condition communication linen");
  2297.     printf("Try 'set line %s' againn",ttname);
  2298.     dialsta = DIA_OPEN;
  2299. #ifdef DYNAMIC
  2300.     if (rbuf) free(rbuf); rbuf = NULL;
  2301.     if (fbuf) free(fbuf); fbuf = NULL;
  2302. #endif /* DYNAMIC */
  2303.     return 0;
  2304. }
  2305.     }
  2306. #ifdef CK_TAPI
  2307.     }
  2308. #endif /* CK_TAPI */
  2310.     /* Modem's escape sequence... */
  2312.     if (dialesc < 0 || dialesc > 127)
  2313.       c = NUL;
  2314.     else
  2315.       c = (char) (dialesc ? dialesc : mp->esc_char);
  2316.     mdmcapas = dialcapas ? dialcapas : mp->capas;
  2318.     xx_ok = mp->ok_fn; /* Pointer to response reader */
  2320.     if (mdmcapas & CKD_AT) { /* Hayes compatible */
  2321. escbuf[0] = c;
  2322. escbuf[1] = c;
  2323. escbuf[2] = c;
  2324. escbuf[3] = NUL;
  2325. /* In case this modem type is user-defined */
  2326. if (!xx_ok) xx_ok = getok;
  2327.     } else { /* Other */
  2328. escbuf[0] = c;
  2329. escbuf[1] = NUL;
  2330. /* In case user-defined */
  2331. if (mdmcapas & CKD_V25) if (!xx_ok) xx_ok = getok;
  2332.     }
  2334.     /* Partial dialing */
  2336.     if (mdmcapas & CKD_AT
  2337. #ifndef MINIDIAL
  2338. || mymdmtyp == n_MICROCOM
  2339. #endif /* MINIDIAL */
  2340. ) {
  2341. int x;
  2342. x = (int) strlen(telnbr);
  2343. if (x > 0) {
  2344.     if (telnbr[x-1] == ';') {
  2345. partial = 1;
  2346. debug(F110,"ckdial sets partial=1:",telnbr,0);
  2347.     } else if (partial) {
  2348. sprintf(fbuf,"%s;", telnbr); /* add one */
  2349. telnbr = fbuf;
  2350.     }
  2351. }
  2352.     }
  2353.     msleep(500);
  2355.     /* Interdigit waits for tone dial */
  2357.     if (fc == 1) { /* ANSWER */
  2358. waitct = (dialatmo > -1) ? dialatmo : 0;
  2359.     } else { /* DIAL */
  2360. if (dialtmo < 1) { /* Automatic computation. */
  2361. #ifdef CK_TAPI
  2362.     if (tttapi && !tapipass) {
  2363. waitct = 1 * (int)strlen(telnbr) ; /* Worst case dial time */
  2364. waitct += 60; /* dialtone + completion wait times */
  2365. for (s = telnbr; *s; s++) { /* add in pause characters time */
  2366.     if (*s == ',') {
  2367. waitct += 2; /* unless it was changed in the modem */
  2368.     } else if (*s == 'W' ||
  2369.        *s == 'w' ||
  2370.        *s == '$' ||
  2371.        *s == '@'
  2372.        ) {
  2373. waitct += 8;
  2374.     }
  2375. }
  2376.     } else {
  2377. #endif /* CK_TAPI */
  2378. waitct = 1 * (int)strlen(telnbr) ;
  2379. /* dialtone + completion wait times */
  2380. waitct += mp->dial_time;
  2381. for (s = telnbr; *s; s++) {
  2382.     for (p = mp->pause_chars; *p; p++)
  2383.       if (*s == *p) {
  2384.   waitct += mp->pause_time;
  2385.   break;
  2386.       }
  2387. }
  2388. #ifdef CK_TAPI
  2389.     }
  2390. #endif /* CK_TAPI */
  2391. } else waitct = dialtmo; /* User-specified timeout */
  2392.     }
  2394. /*
  2395.   waitct is our alarm() timer.
  2396.   mdmwait is how long we tell the modem to wait for carrier.
  2397.   We set mdmwait to be 5 seconds less than waitct, to increase the
  2398.   chance that we get a response from the modem before timing out.
  2399. */
  2400.     if (waitct <= 0) { /* 0 or negative means wait forever  */
  2401. waitct = 254;
  2402. mdmwait = 0;
  2403.     } else {
  2404. #ifdef XWAITCT
  2405. /* Addtl wait slop can be defined at compile time */
  2406. waitct += XWAITCT;
  2407. #endif /* XWAITCT */
  2408. if (waitct < 60 + mdmwaitd)
  2409.   waitct = 60 + mdmwaitd;
  2410. mdmwait = waitct - mdmwaitd;
  2411.     }
  2412.     if (fc != 0) { /* ANSWER */
  2413. #ifdef COMMENT
  2414. /*
  2415.   This is wrong.  mdmwait is the value given to S7 in Hayeslike modems.
  2416.   When in autoanswer mode, this is the amount of time the modem waits for
  2417.   carrier once ringing starts.  Whereas waitct is the timeout given to the
  2418.   ANSWER command, which is an entirely different thing.  Since the default
  2419.   ANSWER timeout is 0 (meaning "wait forever"), the following statement sets
  2420.   S7 to 0, which, on some modems (like the USR Sportster) makes it hang up
  2421.   and report NO CARRIER the instant the phone rings.
  2422. */
  2423. mdmwait = waitct;
  2424. #else
  2425. mdmwait = 60; /* Always wait 60 seconds. */
  2426. #endif /* COMMENT */
  2428.     }
  2429.     if (!quiet && !backgrd) { /* Print information messages. */
  2430. #ifdef VMS
  2431. printf(" n");
  2432. fflush(stdout);
  2433. #endif /* VMS */
  2434. if (fc == 1)
  2435.   printf(" Waiting for phone call...n");
  2436. else
  2437.   printf(" %srying: %s...n", x1 > 0 ? "Ret" : "T", telnbr);
  2438. if (x1 == 0 && x2 == 0 && dialsta != DIA_PART) {
  2439.     if (network) {
  2440. printf(" Via modem server: %s, modem: %sn",
  2441.        ttname, gmdmtyp() );
  2442.     } else {
  2443. #ifdef CK_TAPI
  2444. if (tttapi && !tapipass)
  2445.   printf(" Device: %s, modem: %s", ttname, "TAPI" );
  2446. else
  2447. #endif /* CK_TAPI */
  2448. printf(" Device: %s, modem: %s",
  2449.        ttname, gmdmtyp() );
  2450. if (speed > -1L)
  2451.   printf(", speed: %ldn", speed);
  2452. else
  2453.   printf(", speed: (unknown)n");
  2454.     }
  2455.     spdmax = dialmax > 0L ? dialmax : mp->max_speed;
  2457.     if (!network &&  spdmax > 0L && speed > spdmax
  2458. #ifdef CK_TAPI
  2459.  && (!tttapi || tapipass)
  2460. #endif /* CK_TAPI */
  2461. #ifndef NOHINTS
  2462. && hints
  2463. #endif /* NOHINTS */
  2464.  ) {
  2465. #ifndef NOHINTS
  2466. printf("n*************************");
  2467. #endif /* NOHINTS */
  2468. printf(
  2469. "nHINT: interface speed %ld might be too high for this modem type.n",
  2470.        speed
  2471.        );
  2472. printf(
  2473. "If dialing fails, SET SPEED to %ld or less and try again.n",
  2474.        spdmax
  2475.        );
  2476. #ifndef NOHINTS
  2477. printf("(Use SET HINTS OFF to suppress future hints.)n");
  2478. printf("n*************************n");
  2479. #endif /* NOHINTS */
  2480. printf("n");
  2481.     }
  2482.     printf(" %s timeout: ", fc == 0 ? "Dial" : "Answer");
  2483.     if (waitct > 0)
  2484.       printf("%d secondsn",waitct);
  2485.     else
  2486.       printf(" (none)n");
  2487.     printf(
  2488. #ifdef MAC
  2489.        " Type Command-. to cancel.n"
  2490. #else
  2491. #ifdef UNIX
  2492.        " To cancel: type your interrupt character (normally Ctrl-C).n"
  2493. #else
  2494.        " To cancel: type Ctrl-C (hold down Ctrl, press C).n"
  2495. #endif /* UNIX */
  2496. #endif /* MAC */
  2497.    );
  2498. }
  2499.     }
  2500.     debug(F111,"ckdial",ttname,(int) (speed / 10L));
  2501.     debug(F101,"ckdial timeout","",waitct);
  2502. #ifdef OS2
  2503.     term_io = 0;
  2504. #endif /* OS2 */
  2506. /* Set timer and interrupt handlers. */
  2507.     savint = signal( SIGINT, dialint ) ; /* And terminal interrupt handler. */
  2508.     cc_alrm_execute(ckjaddr(sjbuf), 0, dialtime, _dodial, faildial);
  2509.     signal(SIGINT, savint);
  2510. #ifdef OS2
  2511.     if (dialsta == DIA_OK) /* Dialing is completed */
  2512.       DialerSend(OPT_KERMIT_CONNECT, 0);
  2513.     term_io = term_io_sav;
  2514. #endif /* OS2 */
  2515.     if (dialsta == DIA_PART || dialsta == DIA_OK)
  2516.       return(1); /* Dial attempt succeeded */
  2517.     else
  2518.       return(0); /* Dial attempt failed */
  2519. } /* ckdial */
  2521. /*
  2522.   getok() - wait up to n seconds for OK (0) or ERROR (4) response from modem.
  2523.   Use with Hayeslike or CCITT modems for reading the reply to a nondialing
  2524.   command.
  2526.   Second argument says whether to be strict about numeric result codes, i.e.
  2527.   to require they be preceded by CR or else be the first character in the
  2528.   response, e.g. to prevent the ATH0<CR> echo from looking like a valid
  2529.   response.  Strict == 0 is needed for ATI on Telebit, which can return the
  2530.   model number concatenated with the numeric response code, e.g. "9620"
  2531.   ("962" is the model number, "0" is the response code).  getok() Returns:
  2533.    0 if it timed out,
  2534.    1 if it succeeded,
  2535.   -1 on modem command, i/o, or other error.
  2536. */
  2537. static ckjmpbuf okbuf;
  2539. static SIGTYP
  2540. #ifdef CK_ANSIC
  2541. oktimo(int foo) /* Alarm handler for getok(). */
  2542. #else
  2543. oktimo(foo) int foo; /* Alarm handler for getok(). */
  2544. #endif /* CK_ANSIC */
  2545. /* oktimo */ {
  2547. #ifdef OS2
  2548.     alarm(0);
  2549.     /* signal(SIGALRM,SIG_IGN); */
  2550.     debug(F100,"oktimo() SIGALRM caught -- SIG_IGN set","",0) ;
  2551. #endif /* OS2 */
  2553. #ifdef OSK /* OS-9, see comment in dialtime(). */
  2554.     sigmask(-1);
  2555. #endif /* OSK */
  2556. #ifdef NTSIG
  2557.     if ( foo == SIGALRM )
  2558.       PostAlarmSigSem();
  2559.     else
  2560.       PostCtrlCSem();
  2561. #else /* NTSIG */
  2562. #ifdef NT
  2563.     cklongjmp(ckjaddr(okbuf),1);
  2564. #else /* NT */
  2565.     cklongjmp(okbuf,1);
  2566. #endif /* NTSIG */
  2567. #endif /* NT */
  2568.     /* NOTREACHED */
  2569.     SIGRETURN;
  2570. }
  2572. static int okstatus, okn, okstrict;
  2574. static SIGTYP
  2575. #ifdef CK_ANSIC
  2576. dook(void * threadinfo)
  2577. #else /* CK_ANSIC */
  2578. dook(threadinfo) VOID * threadinfo ;
  2579. #endif /* CK_ANSIC */
  2580. /* dook */ {
  2581.     CHAR c;
  2582.     int i, x;
  2583. #ifdef IKSD
  2584.     extern int inserver;
  2585. #endif /* IKSD */
  2586. #ifdef NTSIG
  2587.     signal(SIGINT,oktimo);
  2588.     if (threadinfo) { /* Thread local storage... */
  2589. TlsSetValue(TlsIndex,threadinfo);
  2590.     }
  2591. #endif /* NTSIG */
  2592. #ifdef CK_LOGIN
  2593. #ifdef NT
  2594. #ifdef IKSD
  2595.     if (inserver)
  2596.       setntcreds();
  2597. #endif /* IKSD */
  2598. #endif /* NT */
  2599. #endif /* CK_LOGIN */
  2601.     if (mdmcapas & CKD_V25) { /* CCITT, easy... */
  2602.         waitfor("VAL");
  2603.         okstatus = 1 ;
  2604. #ifdef NTSIG
  2605. ckThreadEnd(threadinfo);
  2606. #endif /* NTSIG */
  2607. SIGRETURN;
  2608. #ifndef MINIDIAL
  2609.     } else if (mymdmtyp == n_MICROCOM) { /* Microcom in SX mode, also easy */
  2610.         waitfor(MICROCOM.wake_prompt); /* (I think...) */
  2611.         okstatus = 1 ;
  2612. #ifdef NTSIG
  2613. ckThreadEnd(threadinfo);
  2614. #endif /* NTSIG */
  2615. SIGRETURN;
  2616. #endif /* MINIDIAL */
  2617.     } else { /* Hayes & friends, start here... */
  2618. okstatus = 0; /* No status yet. */
  2619. for (x = 0; x < RBUFL; x++) /* Initialize response buffer */
  2620.   rbuf[x] = SP; /*  to all spaces */
  2621. rbuf[RBUFL] = NUL; /* and terminate with NUL. */
  2622. debug(F100,"getok rbuf init ok","",0);
  2623. while (okstatus == 0) { /* While no status... */
  2624.     x = ddinc(okn); /* Read a character */
  2625.     if (x < 0) { /* I/O error */
  2626. okstatus = -1 ;
  2627. #ifdef NTSIG
  2628. ckThreadEnd(threadinfo);
  2629. #endif /* NTSIG */
  2630. SIGRETURN;
  2631.     }
  2632.     debug(F101,"getok ddinc","",x); /* Got a character. */
  2633.     c = (char) (x & 0x7f); /* Get low order 7 bits */
  2634.     if (!c) /* Don't deposit NULs */
  2635.       continue; /* or else didweget() won't work */
  2636.     if (dialdpy) conoc((char)c); /* Echo it if requested */
  2637.     for (i = 0; i < RBUFL-1; i++) /* Rotate buffer */
  2638.       rbuf[i] = rbuf[i+1];
  2639.     rbuf[RBUFL-1] = c; /* Deposit character at end */
  2640.     debug(F000,"getok:",rbuf,(int) c); /* Log it */
  2641.     switch (c) { /* Interpret it. */
  2642.       case CR: /* Got a carriage return. */
  2643. switch(rbuf[RBUFL-2]) { /* Look at character before it. */
  2644.   case '0': /* 0 = OK numeric response */
  2645.     if (!okstrict ||
  2646. rbuf[RBUFL-3] == CR || rbuf[RBUFL-3] == SP) {
  2647. nonverbal = 1;
  2648. okstatus = 1; /* Good response */
  2649.     }
  2650.     break;
  2651.   case '4': /* 4 = ERROR numeric response */
  2652. #ifndef MINIDIAL
  2653.     /* Or Telebit model number 964! */
  2654.     if (mymdmtyp == n_TELEBIT &&
  2655. isdigit(rbuf[RBUFL-3]) &&
  2656. isdigit(rbuf[RBUFL-4]))
  2657.       break;
  2658.     else
  2659. #endif /* MINIDIAL */
  2660.       if (!okstrict ||
  2661. rbuf[RBUFL-3] == CR || rbuf[RBUFL-3] == SP) {
  2662. nonverbal = 1;
  2663. okstatus = -1; /* Bad command */
  2664.     }
  2665.     break;
  2666. }
  2667. if (dialdpy && nonverbal) /* If numeric results, */
  2668.   conoc(LF);   /* echo a linefeed too. */
  2669. break;
  2670.       case LF: /* Got a linefeed. */
  2671. /*
  2672.   Note use of explicit octal codes in the string for
  2673.   CR and LF.  We want real CR and LF here, not whatever
  2674.   the compiler happens to replace r and n with...
  2675. */
  2676. if (!strcmp(rbuf+RBUFL-4,"OK1512")) /* Good response */
  2677.   okstatus = 1;
  2678. if (!strcmp(rbuf+RBUFL-3,"OK12")) /* Good response */
  2679.   okstatus = 1;
  2680. else if (!strcmp(rbuf+RBUFL-7,"ERROR1512")) /* Error */
  2681.   okstatus = -1;
  2682. else if (!strcmp(rbuf+RBUFL-6,"ERROR12")) /* Error */
  2683.   okstatus = -1;
  2684. break;
  2685.       /* Check whether modem echoes its commands... */
  2686.       case 't': /* Got little t */
  2687. if (!strcmp(rbuf+RBUFL-3,"15at") || /* See if it's "at" */
  2688.     !strcmp(rbuf+RBUFL-3," at"))
  2689.     mdmecho = 1;
  2690. debug(F111,"MDMECHO-t",rbuf+RBUFL-2,mdmecho);
  2691. break;
  2692.       case 'T': /* Got Big T */
  2693. if (!strcmp(rbuf+RBUFL-3,"15AT") || /* See if it's "AT" */
  2694.     !strcmp(rbuf+RBUFL-3," AT"))
  2695.     mdmecho = 1;
  2696. debug(F111,"MDMECHO-T",rbuf+RBUFL-3,mdmecho);
  2697. break;
  2698.       default: /* Other characters, accumulate. */
  2699. okstatus = 0;
  2700. break;
  2701.     }
  2702. }
  2703.     }
  2704.     debug(F101,"getok returns","",okstatus); /* <-- It's a lie */
  2705. #ifdef NTSIG
  2706.     ckThreadEnd(threadinfo);
  2707. #endif /* NTSIG */
  2708.     SIGRETURN;
  2709. }
  2711. static SIGTYP
  2712. #ifdef CK_ANSIC
  2713. failok(void * threadinfo)
  2714. #else /* CK_ANSIC */
  2715. failok(threadinfo) VOID * threadinfo;
  2716. #endif /* CK_ANSIC */
  2717. /* failok */ {
  2718.     debug(F100,"longjmp returned to getok()","",0);
  2719.     debug(F100,"getok timeout","",0);
  2720.     SIGRETURN;
  2721. }
  2723. int
  2724. getok(n, strict) int n, strict; {
  2725.     debug(F101,"getok entry n","",n);
  2726.     okstatus = 0;
  2727.     okn = n;
  2728.     okstrict = strict;
  2730. #ifdef DYNAMIC
  2731.     if (!rbuf) {
  2732. if (!(rbuf = malloc(RBUFL+1))) { /* Allocate input line buffer */
  2733.     dialsta = DIA_IE;
  2734.     return(-1);
  2735. }
  2736. debug(F101,"GETOK rbuf malloc ok","",RBUFL+1);
  2737.     }
  2738. #endif /* DYNAMIC */
  2740.     mdmecho = 0; /* Assume no echoing of commands */
  2742.     debug(F100,"about to alrm_execute dook()","",0);
  2743.     alrm_execute( ckjaddr(okbuf), n, oktimo, dook, failok ) ;
  2744.     debug(F100,"returning from alrm_execute dook()","",0);
  2746.     ttflui(); /* Flush input buffer */
  2747.     return(okstatus); /* Return status */
  2748. }
  2750. /*  G E T H R N  --  Get Hayes Result Numeric  */
  2752. static VOID
  2753. gethrn() {
  2754.     char c;
  2755.     int x;
  2756. /*
  2757.   Hayes numeric result codes (Hayes 1200 and higher):
  2758.      0 = OK
  2759.      1 = CONNECT at 300 bps (or 1200 bps on Hayes 1200 with basic code set)
  2760.      2 = RING
  2761.      3 = NO CARRIER
  2762.      4 = ERROR (in command line)
  2763.      5 = CONNECT 1200 (extended code set)
  2764.   Hayes 2400 and higher:
  2765.      6 = NO DIALTONE
  2766.      7 = BUSY
  2767.      8 = NO ANSWER
  2768.      9 = (there is no 9)
  2769.     10 = CONNECT 2400
  2770.   Reportedly, the codes for Hayes V.32 modems are:
  2771.     1x = CONNECT <suffix>
  2772.     5x = CONNECT 1200 <suffix>
  2773.     9x = CONNECT 2400 <suffix>
  2774.    11x = CONNECT 4800 <suffix>
  2775.    12x = CONNECT 9600 <suffix>
  2776.   Where:
  2777.     x:   suffix:
  2778.     R  = RELIABLE
  2779.     RC = RELIABLE COMPRESSED
  2780.     L  = LAPM
  2781.     LC = LAPM COMPRESSED
  2782.   And for Telebits, all the above, except no suffix in numeric mode, plus:
  2783.     11 = CONNECT 4800
  2784.     12 = CONNECT 9600
  2785.     13 = CONNECT 14400
  2786.     14 = CONNECT 19200
  2787.     15 = CONNECT 38400
  2788.     16 = CONNECT 57600
  2789.     20 = CONNECT 300/REL  (= MNP)
  2790.     22 = CONNECT 1200/REL (= MNP)
  2791.     23 = CONNECT 2400/REL (= MNP)
  2792.     46 = CONNECT 7512  (i.e. 75/1200)
  2793.     47 = CONNECT 1275  (i.e. 1200/75)
  2794.     48 = CONNECT 7200
  2795.     49 = CONNECT 12000
  2796.     50 = CONNECT FAST (not on T1600/3000)
  2797.     52 = RRING
  2798.     53 = DIALING
  2799.     54 = NO PROMPTTONE
  2800.     61 = CONNECT FAST/KERM (Kermit spoof)
  2801.     70 = CONNECT FAST/COMP (PEP + compression)
  2802.     71 = CONNECT FAST/KERM/COMP (PEP + compression + Kermit spoof)
  2804.   And for others, lots of special cases below...
  2805. */
  2806. #define NBUFL 8
  2807.     char nbuf[NBUFL+1]; /* Response buffer */
  2808.     int i = 0, j = 0; /* Buffer pointers */
  2810.     debug(F101,"RESPONSE mdmecho","",mdmecho);
  2811.     if (mdmecho) { /* Sponge up dialing string echo. */
  2812. while (1) {
  2813.     c = (char) (ddinc(0) & 0x7f);
  2814.     debug(F000,"SPONGE","",c);
  2815.     dialoc(c);
  2816.     if (c == CR) break;
  2817. }
  2818.     }
  2819.     while (mdmstat == 0) { /* Read response */
  2820. for (i = 0; i < NBUFL; i++) /* Clear the buffer */
  2821.   nbuf[i] = '';
  2822. i = 0; /* Reset the buffer pointer. */
  2823. c = (char) (ddinc(0) & 0177); /* Get first digit of response. */
  2824. /* using an untimed, blocking read. */
  2825. debug(F000,"RESPONSE-A","",c);
  2826. dialoc(c); /* Echo it if requested. */
  2827. if (!isdigit(c)) /* If not a digit, keep looking. */
  2828.   continue;
  2829. nbuf[i++] = c; /* Got first digit, save it. */
  2830. while (c != CR && i < 8) { /* Read chars up to CR */
  2831.     x = ddinc(0) & 0177; /* Get a character. */
  2832.     c = (char) x; /* Got it OK. */
  2833.     debug(F000,"RESPONSE-C","",c);
  2834.     if (c != CR) /* If it's not a carriage return, */
  2835.       nbuf[i++] = c; /*  save it. */
  2836.     dialoc(c); /* Echo it. */
  2837. }
  2838. nbuf[i] = ''; /* Done, terminate the buffer. */
  2839. debug(F110,"dial hayesnv lbuf",lbuf,0);
  2840. debug(F111,"dial hayesnv got",nbuf,i);
  2841. /*
  2842.    Separate any non-numeric suffix from the numeric
  2843.    result code with a null.
  2844. */
  2845. for (j = i-1; (j > -1) && !isdigit(nbuf[j]); j--)
  2846.   nbuf[j+1] = nbuf[j];
  2847. j++;
  2848. nbuf[j++] = '';
  2849. debug(F110,"dial hayesnv numeric",nbuf,0);
  2850. debug(F111,"dial hayesnv suffix ",nbuf+j,j);
  2851. /* Probably phone number echoing. */
  2852. if ((int)strlen(nbuf) > 3)
  2853.   continue;
  2855. /* Now read and interpret the results... */
  2857. i = atoi(nbuf); /* Convert to integer */
  2858. switch (i) {
  2859.   case 0:
  2860.     mdmstat = D_PARTIAL; /* OK response */
  2861.     break;
  2862.   case 1: /* CONNECT */
  2863.     mdmstat = CONNECTED; /* Could be any speed */
  2864.     break;
  2865.   case 2: /* RING */
  2866.     if (dialdpy)
  2867.       printf("rn Local phone is ringing!rn");
  2868.     mdmstat = D_FAILED;
  2869.     dialsta = DIA_RING;
  2870.     break;
  2871.   case 3: /* NO CARRIER */
  2872.     if (dialdpy) printf("rn No Carrier.rn");
  2873.     mdmstat = D_FAILED;
  2874.     dialsta = DIA_NOCA;
  2875.     break;
  2876.   case 4: /* ERROR */
  2877.     if (dialdpy)
  2878.       printf("rn Modem Command Error.rn");
  2879.     mdmstat = D_FAILED;
  2880.     dialsta = DIA_ERR;
  2881.     break;
  2882.   case 5: /* CONNECT 1200 */
  2883.     spdchg(1200L); /* Change speed if necessary. */
  2884.     mdmstat = CONNECTED;
  2885.     break;
  2886.   case 6: /* NO DIALTONE */
  2887. #ifndef MINIDIAL
  2888.     if (mymdmtyp == n_MICROLINK && atoi(diallcc) == 49 && dialdpy)
  2889.       printf("rn Dial Locked.rn"); /* Germany */
  2890.     else
  2891. #endif /* MINIDIAL */
  2892.       if (dialdpy)
  2893. printf("rn No Dialtone.rn");
  2894.     mdmstat = D_FAILED;
  2895.     dialsta = DIA_NODT;
  2896.     break;
  2897.   case 7: /* BUSY */
  2898.     if (dialdpy) printf("rn Busy.rn");
  2899.     mdmstat = D_FAILED;
  2900.     dialsta = DIA_BUSY;
  2901.     break;
  2902.   case 8: /* NO ANSWER */
  2903. #ifndef MINIDIAL
  2904.     if (mymdmtyp == n_MICROLINK && atoi(diallcc) == 41 && dialdpy)
  2905.       printf("rn Dial Locked.rn"); /* Switzerland */
  2906.     else
  2907. #endif /* MINIDIAL */
  2908.       if (dialdpy)
  2909. printf("rn No Answer.rn");
  2910.     mdmstat = D_FAILED;
  2911.     dialsta = DIA_NOAN;
  2912.     break;
  2914.   case 9:
  2915. #ifndef MINIDIAL
  2916.     if (mymdmtyp == n_XJACK || mymdmtyp == n_SUPRAX) {
  2917. spdchg(600);
  2918. break;
  2919.     } /* fall thru */
  2920. #endif /* MINIDIAL */
  2921.   case 10: /* CONNECT 2400 */
  2922.     spdchg(2400L); /* Change speed if necessary. */
  2923.     mdmstat = CONNECTED;
  2924.     break;
  2926. #ifndef MINIDIAL
  2928. /* Starting here, we get different meanings from different manufacturers */
  2930.   case 11:
  2931.     if (mymdmtyp == n_USR) {
  2932. if (dialdpy) printf(" Ringing...rn");
  2933.     } else {
  2934. spdchg(4800L); /* CONNECT 4800 */
  2935. mdmstat = CONNECTED;
  2936.     }
  2937.     break;
  2938.   case 12:
  2939.     if (mymdmtyp == n_USR) {
  2940. if (dialdpy)
  2941.   printf("rn Answered by voice.rn");
  2942. mdmstat = D_FAILED;
  2943. dialsta = DIA_VOIC;
  2944.     } else if (mymdmtyp == n_KEEPINTOUCH) {
  2945. spdchg(7200L);
  2946. mdmstat = CONNECTED;
  2947.     } else {
  2948. spdchg(9600L);
  2949. mdmstat = CONNECTED;
  2950.     }
  2951.     break;
  2952.   case 13:
  2953.     if (mymdmtyp == n_ATT1900 || mymdmtyp == n_ATT1910) {
  2954. if (dialdpy) printf(" Wait...rn");
  2955. break;
  2956.     } else if (mymdmtyp == n_USR || mymdmtyp == n_USRX2)
  2957.       spdchg(9600L);
  2958.     else if (is_rockwell || is_supra ||
  2959. mymdmtyp == n_ZOLTRIX || mymdmtyp == n_XJACK)
  2960.       spdchg(7200L);
  2961.     else if (mymdmtyp != n_MICROLINK) /* 12000 */
  2962.       spdchg(14400L);
  2963.     mdmstat = CONNECTED;
  2964.     break;
  2965.   case 14:
  2966.     if (is_rockwell || is_supra || mymdmtyp == n_XJACK)
  2967.       spdchg(12000L);
  2968.     else if (mymdmtyp == n_DATAPORT || mymdmtyp == n_MICROLINK)
  2969.       spdchg(14400L);
  2970.     else if (mymdmtyp == n_KEEPINTOUCH)
  2971.       spdchg(9600L);
  2972.     else if (mymdmtyp != n_USR && mymdmtyp != n_ZOLTRIX)
  2973.       spdchg(19200L);
  2974.     mdmstat = CONNECTED;
  2975.     break;
  2976.   case 15:
  2977.     if (is_rockwell || is_supra ||
  2978. mymdmtyp == n_ZOLTRIX || mymdmtyp == n_XJACK)
  2979.       spdchg(14400L);
  2980.     else if (mymdmtyp == n_USR)
  2981.       spdchg(1200L);
  2982.     else if (mymdmtyp == n_ZYXEL || mymdmtyp == n_INTEL)
  2983.       spdchg(7200L);
  2984.     else if (mymdmtyp == n_DATAPORT)
  2985.       spdchg(19200L);
  2986.     else
  2987.       spdchg(38400L);
  2988.     mdmstat = CONNECTED;
  2989.     break;
  2990.   case 16:
  2991.     if (is_rockwell || is_supra ||
  2992. mymdmtyp == n_ZOLTRIX || mymdmtyp == n_XJACK)
  2993.       spdchg(19200L);
  2994.     else if (mymdmtyp == n_USR)
  2995.       spdchg(2400L);
  2996.     else if (mymdmtyp == n_DATAPORT)
  2997.       spdchg(7200L);
  2998.     else if (mymdmtyp != n_ZYXEL && mymdmtyp != n_INTEL) /* 12000 */
  2999.       spdchg(57600L);
  3000.     mdmstat = CONNECTED;
  3001.     break;
  3002.   case 17:
  3003.     if (mymdmtyp != n_DATAPORT || mymdmtyp == n_XJACK) /* 16800 */
  3004.       spdchg(38400L);
  3005.     else if (mymdmtyp == n_ZYXEL || mymdmtyp == n_INTEL)
  3006.       spdchg(14400L);
  3007.     else if (mymdmtyp == n_KEEPINTOUCH)
  3008.       spdchg(14400L);
  3009.     else if (mymdmtyp == n_USR)
  3010.       spdchg(9600L);
  3011.     mdmstat = CONNECTED;
  3012.     break;
  3013.   case 18:
  3014.     if (is_rockwell || is_supra ||
  3015. mymdmtyp == n_ZOLTRIX || mymdmtyp == n_XJACK
  3016. || mymdmtyp == n_MHZATT)
  3017.       spdchg(57600L);
  3018.     else if (mymdmtyp == n_INTEL)
  3019.       spdchg(19200L);
  3020.     else if (mymdmtyp == n_USR || mymdmtyp == n_USRX2)
  3021.       spdchg(4800L);
  3022.     mdmstat = CONNECTED;
  3023.     break;
  3024.   case 19:
  3025.     if (mymdmtyp == n_DATAPORT)
  3026.       spdchg(300L);
  3027.     else if (mymdmtyp == n_ZYXEL || mymdmtyp == n_INTEL)
  3028.       spdchg(38400L);
  3029.     else
  3030.       spdchg(115200L);
  3031.     mdmstat = CONNECTED;
  3032.     break;
  3033.   case 20:
  3034.     if (mymdmtyp == n_USR || mymdmtyp == n_USRX2)
  3035.       spdchg(7200L);
  3036.     else if (mymdmtyp == n_DATAPORT)
  3037.       spdchg(2400L);
  3038.     else if (mymdmtyp == n_ZYXEL || mymdmtyp == n_INTEL)
  3039.       spdchg(57600L);
  3040.     else
  3041.       spdchg(300L);
  3042.     mdmstat = CONNECTED;
  3043.     break;
  3044.   case 21:
  3045.     if (mymdmtyp == n_DATAPORT)
  3046.       spdchg(4800L);
  3047.     mdmstat = CONNECTED;
  3048.     break;
  3049.   case 22:
  3050.     if (is_rockwell || is_supra || mymdmtyp == n_XJACK)
  3051.       spdchg(8880L);
  3052.     else if (mymdmtyp == n_DATAPORT)
  3053.       spdchg(9600L);
  3054.     else if (mymdmtyp == n_KEEPINTOUCH)
  3055.       spdchg(300L);
  3056.     else if (!is_hayeshispd)
  3057.       spdchg(1200L);
  3058.     mdmstat = CONNECTED;
  3059.     break;
  3060.   case 23:
  3061.     if (is_hayeshispd || is_supra ||
  3062. mymdmtyp == n_MULTI || mymdmtyp == n_XJACK)
  3063.       spdchg(8880L);
  3064.     else if (mymdmtyp != n_DATAPORT && !is_rockwell) /* 12000 */
  3065.       spdchg(2400L);
  3066.     mdmstat = CONNECTED;
  3067.     break;
  3068.   case 24:
  3069.     if (is_rockwell ||  is_supra || mymdmtyp == n_XJACK) {
  3070. mdmstat = D_FAILED;
  3071. dialsta = DIA_DELA; /* Delayed */
  3072. break;
  3073.     } else if (is_hayeshispd)
  3074.       spdchg(7200L);
  3075.     else if (mymdmtyp == n_DATAPORT)
  3076.       spdchg(14400L);
  3077.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3078.       spdchg(1200L);
  3079.     mdmstat = CONNECTED;
  3080.     break;
  3081.   case 25:
  3082.     if (mymdmtyp == n_USR || mymdmtyp == n_USRX2)
  3083.       spdchg(14400L);
  3084.     else if (is_motorola)
  3085.       spdchg(9600L);
  3086.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3087.       spdchg(2400L);
  3088.     mdmstat = CONNECTED;
  3089.     break;
  3090.   case 26:
  3091.     if (mymdmtyp == n_DATAPORT)
  3092.       spdchg(19200L);
  3093.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3094.       spdchg(4800L);
  3095.     mdmstat = CONNECTED;
  3096.     break;
  3097.   case 27:
  3098.     if (mymdmtyp == n_DATAPORT)
  3099.       spdchg(38400L);
  3100.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3101.       spdchg(7200L);
  3102.     else if (mymdmtyp == n_MHZATT)
  3103.       spdchg(8880L);
  3104.     mdmstat = CONNECTED;
  3105.     break;
  3106.   case 28:
  3107.     if (mymdmtyp == n_DATAPORT)
  3108.       spdchg(7200L);
  3109.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3110.       spdchg(9600L);
  3111.     else if (mymdmtyp == n_MHZATT)
  3112.       spdchg(38400L);
  3113.     mdmstat = CONNECTED;
  3114.     break;
  3115.   case 29:
  3116.     if (is_motorola)
  3117.       spdchg(4800L);
  3118.     else if (mymdmtyp == n_DATAPORT)
  3119.       spdchg(19200L);
  3120.     mdmstat = CONNECTED;
  3121.     break;
  3122.   case 30:
  3123.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3124. spdchg(14400L);
  3125. mdmstat = CONNECTED;
  3126.     } /* fall thru on purpose... */
  3127.   case 31:
  3128.     if (mymdmtyp == n_UCOM_AT || mymdmtyp == n_MICROLINK) {
  3129. spdchg(4800L);
  3130. mdmstat = CONNECTED;
  3131.     } else if (is_motorola) {
  3132. spdchg(57600L);
  3133. mdmstat = CONNECTED;
  3134.     }
  3135.     break;
  3136.   case 32:
  3137.     if (is_rockwell || is_supra || mymdmtyp == n_XJACK) {
  3138. mdmstat = D_FAILED;
  3139. dialsta = DIA_BLCK; /* Blacklisted */
  3140.     } else if (mymdmtyp == n_UCOM_AT || mymdmtyp == n_MICROLINK) {
  3141. spdchg(9600L);
  3142. mdmstat = CONNECTED;
  3143.     } else if (mymdmtyp == n_KEEPINTOUCH) {
  3144. spdchg(300L);
  3145. mdmstat = CONNECTED;
  3146.     } else if (mymdmtyp == n_INTEL) {
  3147. spdchg(2400L);
  3148. mdmstat = CONNECTED;
  3149.     }
  3150.     break;
  3151.   case 33: /* FAX connection */
  3152.     if (is_rockwell || is_supra ||
  3153. mymdmtyp == n_ZOLTRIX || mymdmtyp == n_XJACK) {
  3154. mdmstat = D_FAILED;
  3155. dialsta = DIA_FAX;
  3156.     } else if (mymdmtyp == n_UCOM_AT ||
  3157.        is_motorola ||
  3158.        mymdmtyp == n_MICROLINK
  3159.        ) {
  3160. spdchg(9600L);
  3161. mdmstat = CONNECTED;
  3162.     } else if (mymdmtyp == n_MHZATT) {
  3163. spdchg(115200L);
  3164. mdmstat = CONNECTED;
  3165.     }
  3166.     break;
  3167.   case 34:
  3168.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3169. spdchg(1200L);
  3170. mdmstat = CONNECTED;
  3171.     } else if (mymdmtyp == n_MICROLINK) {
  3172. spdchg(7200L);
  3173. mdmstat = CONNECTED;
  3174.     }
  3175.     break;
  3176.   case 35:
  3177.     if (is_rockwell) {
  3178. spdchg(300L);
  3179. dialsta = CONNECTED;
  3180.     } else if (is_motorola) {
  3181. spdchg(14400L);
  3182. mdmstat = CONNECTED;
  3183.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3184. spdchg(2400L);
  3185. mdmstat = CONNECTED;
  3186.     } else if (mymdmtyp == n_MICROLINK) {
  3187. spdchg(7200L);
  3188. mdmstat = CONNECTED;
  3189.     } else if (mymdmtyp == n_ZOLTRIX || mymdmtyp == n_XJACK) /* DATA */
  3190.       mdmstat = CONNECTED;
  3191.     break;
  3192.   case 36:
  3193.     if (mymdmtyp == n_UCOM_AT) {
  3194. spdchg(19200L);
  3195. mdmstat = CONNECTED;
  3196.     } else if (is_motorola) {
  3197. spdchg(1200L);
  3198. mdmstat = CONNECTED;
  3199.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3200. spdchg(4800L);
  3201. mdmstat = CONNECTED;
  3202.     }
  3203.     break;
  3204.   case 37:
  3205.     if (mymdmtyp == n_UCOM_AT) {
  3206. spdchg(19200L);
  3207. mdmstat = CONNECTED;
  3208.     } else if (is_motorola) {
  3209. spdchg(2400L);
  3210. mdmstat = CONNECTED;
  3211.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3212. spdchg(7200L);
  3213. mdmstat = CONNECTED;
  3214.     }
  3215.     break;
  3216.   case 38:
  3217.     if (is_motorola) {
  3218. spdchg(4800L);
  3219. mdmstat = CONNECTED;
  3220.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3221. spdchg(9600L);
  3222. mdmstat = CONNECTED;
  3223.     } /* fall thru on purpose... */
  3224.   case 39:
  3225.     if (mymdmtyp == n_UCOM_AT) {
  3226. spdchg(38400L);
  3227. mdmstat = CONNECTED;
  3228.     } else if (is_motorola) {
  3229. spdchg(9600L);
  3230. mdmstat = CONNECTED;
  3231.     } else if (mymdmtyp == n_MICROLINK) {
  3232. spdchg(14400L);
  3233. mdmstat = CONNECTED;
  3234.     }
  3235.     break;
  3236.   case 40:
  3237.     if (mymdmtyp == n_UCOM_AT) {
  3238. mdmstat = D_FAILED;
  3239. dialsta = DIA_NOCA;
  3240.     } else if (is_motorola || mymdmtyp == n_INTEL ||
  3241.        mymdmtyp == n_KEEPINTOUCH) {
  3242. spdchg(14400L);
  3243. mdmstat = CONNECTED;
  3244.     }
  3245.     break;
  3246.   case 41:
  3247.     if (is_motorola) {
  3248. spdchg(19200L);
  3249. mdmstat = CONNECTED;
  3250.     }
  3251.     break;
  3252.   case 42:
  3253.     if (mymdmtyp == n_KEEPINTOUCH) {
  3254. spdchg(300L);
  3255. mdmstat = CONNECTED;
  3256.     } else if (is_motorola) {
  3257. spdchg(38400L);
  3258. mdmstat = CONNECTED;
  3259.     } /* fall thru on purpose... */
  3260.   case 43:
  3261.     if (mymdmtyp == n_UCOM_AT) {
  3262. spdchg(57600L);
  3263. mdmstat = CONNECTED;
  3264.     } else if (mymdmtyp == n_USRX2)
  3265.       mdmstat = CONNECTED; /* 168000 */
  3266.     break;
  3267.   case 44:
  3268.     if (is_rockwell) {
  3269. spdchg(8800L);
  3270. dialsta = CONNECTED;
  3271.     } else if (is_motorola) {
  3272. spdchg(7200L);
  3273. mdmstat = CONNECTED;
  3274.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3275. spdchg(1200L);
  3276. mdmstat = CONNECTED;
  3277.     }
  3278.     break;
  3279.   case 45:
  3280.     if (is_motorola) {
  3281. spdchg(57600L);
  3282. mdmstat = CONNECTED;
  3283.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3284. spdchg(2400L);
  3285. mdmstat = CONNECTED;
  3286.     } else if (n_USR) {
  3287. spdchg(14400L);
  3288. mdmstat = CONNECTED;
  3289.     }
  3290.     break;
  3291.   case 46:
  3292.     if (is_rockwell)
  3293.       spdchg(1200L);
  3294.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3295.       spdchg(4800L);
  3296.     else
  3297.       spdchg(8880L); /* 75/1200 split speed */
  3298.     mdmstat = CONNECTED;
  3299.     break;
  3300.   case 47:
  3301.     if (is_rockwell)
  3302.       spdchg(2400L);
  3303.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3304.       spdchg(7200L);
  3305.     else
  3306.       printf("CONNECT 1200/75 - Not supported by C-Kermitrn");
  3307.     mdmstat = CONNECTED;
  3308.     break;
  3309.   case 48:
  3310.     if (is_rockwell)
  3311.       spdchg(4800L);
  3312.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3313.       spdchg(9600L);
  3314.     else
  3315.       spdchg(7200L);
  3316.     mdmstat = CONNECTED;
  3317.     break;
  3318.   case 49:
  3319.     if (is_rockwell)
  3320.       spdchg(7200L);
  3321.     mdmstat = CONNECTED;
  3322.     break;
  3323.   case 50: /* CONNECT FAST */
  3324.     if (is_rockwell)
  3325.       spdchg(9600L);
  3326.     else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH)
  3327.       spdchg(14400L);
  3328.     mdmstat = CONNECTED;
  3329.     break;
  3330.   case 51:
  3331.     if (mymdmtyp == n_UCOM_AT) {
  3332. mdmstat = D_FAILED;
  3333. dialsta = DIA_NODT;
  3334.     }
  3335.     break;
  3336.   case 52: /* RRING */
  3337.     if (mymdmtyp == n_TELEBIT)
  3338.       if (dialdpy) printf(" Ringing...rn");
  3339.     break;
  3340.   case 53: /* DIALING */
  3341.     if (mymdmtyp == n_TELEBIT)
  3342.       if (dialdpy) printf(" Dialing...rn");
  3343.     break;
  3344.   case 54:
  3345.     if (is_rockwell) {
  3346. spdchg(19200L);
  3347. mdmstat = CONNECTED;
  3348.     } else if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3349. spdchg(1200L);
  3350. mdmstat = CONNECTED;
  3351.     } else if (mymdmtyp == n_TELEBIT) {
  3352. if (dialdpy) printf("rn No Prompttone.rn");
  3353. mdmstat = D_FAILED;
  3354. dialsta = DIA_NODT;
  3355.     }
  3356.     break;
  3357.   case 55:
  3358.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3359. spdchg(2400L);
  3360. mdmstat = CONNECTED;
  3361.     }
  3362.     break;
  3363.   case 56:
  3364.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3365. spdchg(4800L);
  3366. mdmstat = CONNECTED;
  3367.     }
  3368.     break;
  3369.   case 57:
  3370.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3371. spdchg(7200L);
  3372. mdmstat = CONNECTED;
  3373.     }
  3374.     break;
  3375.   case 58:
  3376.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3377. spdchg(9600L);
  3378. mdmstat = CONNECTED;
  3379.     }
  3380.     break;
  3381.   case 59:
  3382.     if (mymdmtyp == n_INTEL) /* 12000 */
  3383.       mdmstat = CONNECTED;
  3384.     break;
  3385.   case 60:
  3386.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3387. spdchg(14400L);
  3388. mdmstat = CONNECTED;
  3389.     }
  3390.     break;
  3391.   case 64:
  3392.     if (mymdmtyp == n_INTEL) {
  3393. spdchg(1200L);
  3394. mdmstat = CONNECTED;
  3395.     } else if (is_supra) {
  3396. spdchg(28800L);
  3397. mdmstat = CONNECTED;
  3398.     }
  3399.     break;
  3400.   case 65:
  3401.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3402. spdchg(2400L);
  3403. mdmstat = CONNECTED;
  3404.     }
  3405.     break;
  3406.   case 66:
  3407.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3408. spdchg(4800L);
  3409. mdmstat = CONNECTED;
  3410.     }
  3411.     break;
  3412.   case 67:
  3413.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3414. spdchg(7200L);
  3415. mdmstat = CONNECTED;
  3416.     }
  3417.     break;
  3418.   case 68:
  3419.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3420. spdchg(9600L);
  3421. mdmstat = CONNECTED;
  3422.     }
  3423.     break;
  3424.   case 69:
  3425.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) /* 12000 */
  3426.       mdmstat = CONNECTED;
  3427.     break;
  3428.   case 70:
  3429.     if (mymdmtyp == n_INTEL || mymdmtyp == n_KEEPINTOUCH) {
  3430. spdchg(14400L);
  3431. mdmstat = CONNECTED;
  3432.     }
  3433.     break;
  3434.   case 73:
  3435.     if (mymdmtyp == n_UCOM_AT) {
  3436. spdchg(115200L);
  3437. mdmstat = CONNECTED;
  3438. break;
  3439.     } /* else fall thru */
  3440.     if (mymdmtyp == n_TELEBIT) /* Early models only */
  3441.       mdmstat = CONNECTED;
  3442.     break;
  3443.   case 85:
  3444.     if (mymdmtyp == n_USR || mymdmtyp == n_USRX2)
  3445.       spdchg(19200L);
  3446.     mdmstat = CONNECTED;
  3447.     break;
  3448.   case 91: /* 21600 */
  3449.   case 99: /* 24000 */
  3450.   case 103: /* 26400 */
  3451.     if (mymdmtyp == n_USRX2)
  3452.       mdmstat = CONNECTED;
  3453.     break;
  3454.   case 107:
  3455.     if (mymdmtyp == n_USR || mymdmtyp == n_USRX2) {
  3456. spdchg(28800L);
  3457. mdmstat = CONNECTED;
  3458.     }
  3459.     break;
  3460.   case 151: /* 312000 */
  3461.   case 155: /* 336000 */
  3462.     if (mymdmtyp == n_USRX2)
  3463.       mdmstat = CONNECTED;
  3464.     break;
  3466. #endif /* MINIDIAL */
  3467.   default:
  3468. #ifndef MINIDIAL
  3469.     if (mymdmtyp == n_USR || mymdmtyp == n_USRX2 ||
  3470. is_hayeshispd || is_rockwell)
  3471. #endif /* MINIDIAL */
  3472.       if (i > 12) /* There are hundreds of them... */
  3473. mdmstat = CONNECTED;
  3474.     break;
  3475. }
  3476.     }
  3477.     if (mdmstat == CONNECTED && nbuf[j] != '') {
  3478. if (dialdpy) {
  3479.     printf("rn");
  3480.     if (nbuf[j] == 'R') printf(" RELIABLE");
  3481.     if (nbuf[j] == 'L') printf(" LAPM");
  3482.     if (nbuf[j+1] == 'C') printf(" COMPRESSED");
  3483.     printf("rn");
  3484. }
  3485. strcpy(lbuf,nbuf); /* (for messages...) */
  3486.     }
  3487. }
  3489. static VOID /* Get Hayes Result in Word mode */
  3490. gethrw() {
  3491.     char *cptr, *s;
  3492.     long conspd;
  3494.     if (mdmspd && !network) {
  3495. s = lbuf;
  3496. while (*s != '' && *s != 'C') s++;
  3497. cptr = (*s == 'C') ? s : NULL;
  3498. conspd = 0L;
  3499. if ((cptr != NULL) && !strncmp(cptr,"CONNECT ",8)) {
  3500.     if ((int)strlen(cptr) < 9)   /* Just CONNECT, */
  3501.       conspd = 300L;  /* use 300 bps */
  3502.     else if (isdigit(*(cptr+8))) /* not CONNECT FAST */
  3503.       conspd = atol(cptr + 8);   /* CONNECT nnnn */
  3504.     if (conspd != speed) {
  3505. if ((conspd / 10L) > 0) {
  3506.     if (ttsspd((int) (conspd / 10L)) < 0) {
  3507. printf(" Can't change speed to %ldrn",
  3508.        conspd);
  3509.     } else {
  3510. speed = conspd;
  3511. mdmstat = CONNECTED;
  3512. if ( !quiet && !backgrd )
  3513.   printf(" Speed changed to %ldrn",
  3514.  conspd);
  3515.     }
  3516. }
  3517.     } /* Expanded to handle any conceivable speed */
  3518. }
  3519.     }
  3520. #ifndef MINIDIAL
  3521.     if (mymdmtyp == n_TELEBIT) {
  3522. if (didweget(lbuf,"CONNECT FAST/KERM")) {
  3523.     mdmstat = CONNECTED;
  3524.     if (dialdpy) printf("FAST/KERM ");
  3525.     return;
  3526. }
  3527.     }
  3528. #endif /* MINIDIAL */
  3529.     if (didweget(lbuf,"RRING") ||
  3530. didweget(lbuf,"RINGING") ||
  3531. didweget(lbuf,"DIALING")) {
  3532. mdmstat = 0;
  3533.     } else if (didweget(lbuf,"CONNECT")) {
  3534. mdmstat = CONNECTED;
  3535.     } else if (didweget(lbuf,"OK")) {
  3536. if (partial) {
  3537.     mdmstat = D_PARTIAL;
  3538. } else {
  3539.     mdmstat = D_FAILED;
  3540.     dialsta = DIA_ERR;
  3541. }
  3542.     } else if (didweget(lbuf,"NO CARRIER")) {
  3543. mdmstat = D_FAILED;
  3544. dialsta = DIA_NOCA;
  3545.     } else if (didweget(lbuf,"NO DIALTONE")) {
  3546. mdmstat = D_FAILED;
  3547. dialsta = DIA_NODT;
  3548.     } else if (didweget(lbuf,"NO DIAL TONE")) {
  3549. mdmstat = D_FAILED;
  3550. dialsta = DIA_NODT;
  3551.     } else if (didweget(lbuf,"BUSY")) {
  3552. mdmstat = D_FAILED;
  3553. dialsta = DIA_BUSY;
  3554.     } else if (didweget(lbuf,"NO ANSWER")) {
  3555. mdmstat = D_FAILED;
  3556. dialsta = DIA_NOAN;
  3557.     } else if (didweget(lbuf,"VOICE")) {
  3558. mdmstat = D_FAILED;
  3559. dialsta = DIA_VOIC;
  3560.     } else if (didweget(lbuf,"NO PROMPT TONE")) {
  3561. mdmstat = D_FAILED;
  3562. dialsta = DIA_NODT;
  3563.     } else if (didweget(lbuf,"REMOTE ACCESS FAILED")) {
  3564. mdmstat = D_FAILED;
  3565. dialsta = DIA_NOCA;
  3566.     } else if (didweget(lbuf,"FAX")) {
  3567. mdmstat = D_FAILED;
  3568. dialsta = DIA_FAX;
  3569.     } else if (didweget(lbuf,"WAIT - CONNECTING") ||
  3570.        didweget(lbuf,"WAIT-CONNECTING")) { /* AT&T STU-III 19xx */
  3571. mdmstat = 0;
  3572.     } else if (didweget(lbuf,"DELAYED")) {
  3573. mdmstat = D_FAILED;
  3574. dialsta = DIA_DELA;
  3575.     } else if (didweget(lbuf,"BLACKLISTED")) {
  3576. mdmstat = D_FAILED;
  3577. dialsta = DIA_BLCK;
  3578.     } else if (didweget(lbuf,"COMPRESSION")) {
  3579. mdmstat = 0;
  3580.     } else if (didweget(lbuf,"PROTOCOL")) {
  3581. mdmstat = 0;
  3582.     } else if (didweget(lbuf,"DIAL LOCKED")) { /* Germany, Austria, Schweiz */
  3583. mdmstat = D_FAILED;
  3584. dialsta = DIA_BLCK;
  3585.     } else if ( didweget(lbuf,"RING") ||
  3586.         didweget(lbuf,"RING1") || /* Distinctive Ring 1 */
  3587. didweget(lbuf,"RING2") || /* Distinctive Ring 2 */
  3588. didweget(lbuf,"RING3") ) {
  3589. mdmstat = (func_code == 0) ? D_FAILED : 0;
  3590. dialsta = DIA_RING;
  3591.     } else if (didweget(lbuf,"ERROR")) {
  3592. mdmstat = D_FAILED;
  3593. dialsta = DIA_ERR;
  3594.     } else if (didweget(lbuf,"CARRIER")) { /* Boca / Rockwell family */
  3595. #ifdef COMMENT
  3596. if (is_rockwell)
  3597. #endif /* COMMENT */
  3598.   mdmstat = 0;
  3599. #ifdef COMMENT
  3600. /* Does CARRIER ever mean the same as CONNECT? */
  3601. else
  3602.   mdmstat = CONNECTED;
  3603. #endif /* COMMENT */
  3604.     } else if (didweget(lbuf,"DATA")) { /* Boca / Rockwell family */
  3605. /* This message is sent when the modem is in FAX mode  */
  3606. /* So setting this to CONNECTED may not be appropriate */
  3607. /* We must send ATO15 to the modem in response       */
  3608. /* Then we will get a CONNECTED message                */
  3609. mdmstat = CONNECTED;
  3610.     } else if (didweget(lbuf,"DIGITAL LINE")) {
  3611. mdmstat = D_FAILED;
  3612. dialsta = DIA_DIGI;
  3613.     } else if (didweget(lbuf,"DATE")) { /* Caller ID Date */
  3614. debug(F110,"CALLID DATE",lbuf,0);
  3615. /* Format is "DATE     =   MMDD"   */
  3616.     } else if (didweget(lbuf,"TIME")) { /* Caller ID Time */
  3617. /* Format is "TIME     =   HHMM"   */
  3618. debug(F110,"CALLID TIME",lbuf,0);
  3619.     } else if (didweget(lbuf,"NAME")) { /* Caller ID Name */
  3620. /* Format is "NAME     =   <listing name>"   */
  3621. debug(F110,"CALLID NAME",lbuf,0);
  3622.     } else if (didweget(lbuf,"NMBR")) { /* Caller ID Number */
  3623. /* Format is "NMBR     =   <number>, 'P' or 'O'"   */
  3624. /*  'P' means Privacy Requested     */
  3625. /*      'O' means Out of Service or Not available  */
  3626. debug(F110,"CALLID NMBR",lbuf,0);
  3627.     } else if (didweget(lbuf,"MESG")) { /* Caller ID Unrecognized Message */
  3628. /* Format is "MESG     =   <tag><length><data><checksum>"   */
  3629. debug(F110,"CALLID MESG",lbuf,0);
  3630.     }
  3631. }
  3633. /* Maybe hang up the phone, depending on various SET DIAL parameters. */
  3635. int
  3636. dialhup() {
  3637.     int x = 0;
  3638.     if (dialhng && dialsta != DIA_PART) { /* DIAL HANGUP ON? */
  3639. x = mdmhup(); /* Try modem-specific method first */
  3640. debug(F101,"dialhup mdmhup","",x);
  3641. if (x > 0) { /* If it worked, */
  3642.     dialsta = DIA_HUP;
  3643.     if (dialdpy)
  3644.       printf(" Modem hangup OKrn"); /* fine. */
  3645. } else if (network) { /* If we're telnetted to */
  3646.     dialsta = DIA_HANG;
  3647.     if (dialdpy) /* a modem server, just print a msg */
  3648.       printf(" WARNING - modem hangup failedrn"); /* don't hangup! */
  3649.     return(0);
  3650. } else { /* Otherwise */
  3651.     x = tthang(); /* Tell the OS to turn off DTR. */
  3652.     if (x > 0) { /* Yes, tell results from tthang() */
  3653. dialsta = DIA_HUP;
  3654. if (dialdpy) printf(" Hangup OKrn");
  3655.     } else if (x == 0) {
  3656. if (dialdpy) printf(" Hangup skippedrn");
  3657.     } else {
  3658. dialsta = DIA_HANG;
  3659. if (dialdpy) perror(" Hangup error");
  3660.     }
  3661. }
  3662.     } else if (dialdpy) printf(" Hangup skippedrn"); /* DIAL HANGUP OFF */
  3663.     return(x);
  3664. }
  3666. /*
  3667.   M D M H U P  --
  3669.   Sends escape sequence to modem, then sends its hangup command.  Returns:
  3670.    0: If modem type is 0 (direct serial connection),
  3671.       or if modem type is < 0 (network connection),
  3672.       or if no action taken because DIAL MODEM-HANGUP is OFF)
  3673.         or because no hangup string for current modem type,
  3674.       or C-Kermit is in remote mode,
  3675.       or if action taken but there was no positive response from modem;
  3676.    1: Success: modem is in command state and acknowledged the hangup command;
  3677.   -1: On modem command error.
  3678. */
  3679. int
  3680. mdmhup() {
  3681. #ifdef MDMHUP
  3682.     int m, x = 0;
  3683.     int xparity;
  3684.     char *s, *p, c;
  3685.     MDMINF * mp = NULL;
  3687.     debug(F101,"mdmhup dialmhu","",dialmhu); /* MODEM-HANGUP METHOD */
  3688.     debug(F101,"mdmhup local","",local);
  3690.     if (dialmhu == 0 || local == 0) /* If DIAL MODEM-HANGUP is OFF, */
  3691.       return(0); /*  or not in local mode, fail. */
  3693.     if (dialesc < 0)
  3694.       return(0); /* No modem escape-character, fail. */
  3696. #ifdef CK_TAPI
  3697.     if (tttapi && !tapipass) /* Don't hangup if using TAPI */
  3698.       return(0);
  3699. #endif /* CK_TAPI */
  3701.     x = ttchk();
  3702.     debug(F101,"mdmhup ttchk","",x);
  3703.     if (x < 0) /* There appears to be no connection */
  3704.       return(0);
  3705.     x = 0;
  3707. #ifdef OS2
  3708. /*
  3709.   In OS/2, if CARRIER is OFF, and there is indeed no carrier signal, any
  3710.   attempt to do i/o at this point can hang the program.  This might be true
  3711.   for other operating systems too.
  3712. */
  3713.     if (!network) { /* Not a network connection */
  3714. m = ttgmdm(); /* Get modem signals */
  3715. if ((m > -1) && (m & BM_DCD == 0)) /* Check for carrier */
  3716.   return(0); /* No carrier, skip the rest */
  3717.     }
  3718. #endif /* OS2 */
  3720.     debug(F111,"mdmhup network",ttname,network);
  3721.     debug(F101,"mdmhup mymdmtyp","",mymdmtyp);
  3722.     debug(F101,"mdmhup mdmtyp","",mdmtyp);
  3723.     /* In case of HANGUP before DIAL */
  3724.     if (network && mdmtyp < 1) /* SET HOST but no subsequent */
  3725.       return(0); /* SET MODEM TYPE... */
  3726.     if (mymdmtyp == 0 && mdmtyp > 0)
  3727.       mymdmtyp = mdmtyp;
  3728.     if (mymdmtyp < 1) /* Not using a modem */
  3729.       return(0);
  3730.     if (mymdmtyp > 0) /* An actual modem... */
  3731.       mp = modemp[mymdmtyp];
  3732.     if (!mp) { /* Get pointer to its MDMINF struct */
  3733. debug(F100,"mdmhup no MDMINF","",0);
  3734. return(0);
  3735.     }
  3736.     mdmcapas = dialcapas ? dialcapas : mp->capas;
  3737.     xx_ok = mp->ok_fn; /* Pointer to response reader */
  3739.     s = dialhcmd ? dialhcmd : mp->hup_str; /* Get hangup command */
  3740.     if (!s) s = "";
  3741.     debug(F110,"mdmhup hup_str",s,0);
  3742.     if (!*s) return(0); /* If none, fail. */
  3744.     if (ttpkt(speed,FLO_DIAL,parity) < 0) /* Condition line for dialing */
  3745.       return(-1);
  3747.     xparity = parity; /* Set PARITY to NONE temporarily */
  3748.     parity = 0;
  3750.     /* In case they gave a SET MODEM ESCAPE command recently... */
  3752.     if (dialesc < 0 || dialesc > 127)
  3753.       c = NUL;
  3754.     else
  3755.       c = (char) (dialesc ? dialesc : mp->esc_char);
  3757.     if (mdmcapas & CKD_AT) { /* Hayes compatible */
  3758. escbuf[0] = c;
  3759. escbuf[1] = c;
  3760. escbuf[2] = c;
  3761. escbuf[3] = NUL;
  3762.     } else { /* Other */
  3763. escbuf[0] = c;
  3764. escbuf[1] = NUL;
  3765.     }
  3766.     debug(F110,"mdmhup escbuf",escbuf,0);
  3767.     if (escbuf[0]) { /* Have escape sequence? */
  3768. debug(F101,"mdmhup esc_time",0,mp->esc_time);
  3769. if (mp->esc_time) /* If we have a guard time */
  3770.   msleep(mp->esc_time); /* Pause for guard time */
  3771. debug(F100,"mdmhup pause 1 OK","",0);
  3773. #ifdef NETCONN /* Send modem's escape sequence */
  3774. if (network) { /* Must catch errors here. */
  3775.     if (ttol((CHAR *)escbuf,(int)strlen((char *)escbuf)) < 0) {
  3776. parity = xparity;
  3777. return(-1);
  3778.     }
  3779.     debug(F110,"mdmhup ttslow net ok",escbuf,0);
  3780. } else {
  3781. #endif /* NETCONN */
  3782.     ttslow((char *)escbuf,wr); /* Send escape sequence */
  3783.     debug(F110,"mdmhup ttslow ok",escbuf,0);
  3784. #ifdef NETCONN
  3785. }
  3786. #endif /* NETCONN */
  3788. if (mp->esc_time) /* Pause for guard time again */
  3789.   msleep(mp->esc_time);
  3790. else
  3791.   msleep(500); /* Wait half a sec for echoes. */
  3792. debug(F100,"mdmhup pause 1 OK","",0);
  3793. #ifdef COMMENT
  3794. ttflui(); /* Flush response or echo, if any */
  3795. debug(F100,"mdmhup ttflui OK","",0);
  3796. #endif /* COMMENT */
  3797.     }
  3798.     ttslow(s,wr); /* Now Send hangup string */
  3799.     debug(F110,"mdmhup ttslow ok",s,0);
  3800. /*
  3801.   This is not exactly right, but it works.
  3802.   If we are online:
  3803.     the modem says OK when it gets the escape sequence,
  3804.     and it says NO CARRIER when it gets the hangup command.
  3805.   If we are offline:
  3806.     the modem does NOT say OK (or anything else) when it gets the esc sequence,
  3807.     but it DOES say OK (and not NO CARRIER) when it gets the hangup command.
  3808.   So the following function should read the OK in both cases.
  3809.   Of course, this is somewhat Hayes-specific...
  3810. */
  3811.     if (xx_ok) { /* Look for OK response */
  3812. debug(F100,"mdmhup calling response function","",0);
  3813. x = (*xx_ok)(3,1); /* Give it 3 seconds, be strict. */
  3814. debug(F101,"mdmhup hangup response","",x);
  3815. msleep(500); /* Wait half a sec */
  3816. ttflui(); /* Get rid of NO CARRIER, if any */
  3817.     } else { /* No OK function, */
  3818. x = 1; /* so assume it worked */
  3819. debug(F101,"mdmhup no ok_fn","",x);
  3820.     }
  3821.     parity = xparity; /* Restore prevailing parity */
  3822.     return(x); /* Return OK function's return code. */
  3824. #else  /* MDMHUP not defined. */
  3826.     return(0); /* Always fail. */
  3827. #endif /* MDMHUP */
  3828. }
  3830. #else /* NODIAL */
  3832. int /* To allow NODIAL versions to */
  3833. mdmhup() { /* call mdmhup(), so calls to  */
  3834.     return(0); /* mdmhup() need not be within */
  3835. } /* #ifndef NODIAL conditionals */
  3837. #endif /* NOICP */
  3838. #endif /* NODIAL */
  3839. #endif /* NOLOCAL */