freebsd-skq/usr.sbin/ppp/chat.c

642 lines
13 KiB
C
Raw Normal View History

1995-01-31 06:29:58 +00:00
/*
* Written by Toshiharu OHNO (tony-o@iij.ad.jp)
*
* Copyright (C) 1993, Internet Initiative Japan, Inc. All rights reserverd.
*
* Most of codes are derived from chat.c by Karl Fox (karl@MorningStar.Com).
*
* Chat -- a program for automatic session establishment (i.e. dial
* the phone and log in).
*
* This software is in the public domain.
*
* Please send all bug reports, requests for information, etc. to:
*
* Karl Fox <karl@MorningStar.Com>
* Morning Star Technologies, Inc.
* 1760 Zollinger Road
* Columbus, OH 43221
* (614)451-1883
1995-05-30 03:57:47 +00:00
*
* $Id: chat.c,v 1.38 1997/11/09 14:18:36 brian Exp $
1995-05-30 03:57:47 +00:00
*
1995-01-31 06:29:58 +00:00
* TODO:
* o Support more UUCP compatible control sequences.
* o Dialing shoud not block monitor process.
* o Reading modem by select should be unified into main.c
1995-01-31 06:29:58 +00:00
*/
#include <sys/param.h>
#include <netinet/in.h>
1995-01-31 06:29:58 +00:00
#include <ctype.h>
#include <errno.h>
#include <fcntl.h>
#include <setjmp.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <sys/uio.h>
#include <sys/wait.h>
#include <termios.h>
#include <unistd.h>
#include "command.h"
#include "mbuf.h"
#include "log.h"
#include "defs.h"
#include "timer.h"
#include "loadalias.h"
1995-01-31 06:29:58 +00:00
#include "vars.h"
#include "chat.h"
#include "sig.h"
#include "modem.h"
#ifndef isblank
#define isblank(c) ((c) == '\t' || (c) == ' ')
#endif
1995-01-31 06:29:58 +00:00
#define IBSIZE LINE_LEN
1995-01-31 06:29:58 +00:00
static int TimeoutSec;
static int abort_next, timeout_next;
static int numaborts;
static char *AbortStrings[50];
static char inbuff[IBSIZE * 2 + 1];
1995-01-31 06:29:58 +00:00
#define MATCH 1
#define NOMATCH 0
#define ABORT -1
static char *
findblank(char *p, int instring)
1995-01-31 06:29:58 +00:00
{
if (instring) {
while (*p) {
if (*p == '\\') {
strcpy(p, p + 1);
if (!*p)
break;
} else if (*p == '"')
return (p);
1995-01-31 06:29:58 +00:00
p++;
}
} else {
while (*p) {
if (isblank(*p))
return (p);
1995-01-31 06:29:58 +00:00
p++;
}
}
return p;
}
int
MakeArgs(char *script, char **pvect, int maxargs)
1995-01-31 06:29:58 +00:00
{
int nargs, nb;
int instring;
nargs = 0;
while (*script) {
nb = strspn(script, " \t");
script += nb;
if (*script) {
if (*script == '"') {
instring = 1;
script++;
if (*script == '\0')
break; /* Shouldn't return here. Need to null
* terminate below */
1995-01-31 06:29:58 +00:00
} else
instring = 0;
if (nargs >= maxargs - 1)
break;
1995-01-31 06:29:58 +00:00
*pvect++ = script;
nargs++;
script = findblank(script, instring);
if (*script)
*script++ = '\0';
}
}
*pvect = NULL;
return nargs;
}
/*
* \c don't add a cr
* \d Sleep a little (delay 2 seconds
* \n Line feed character
* \P Auth Key password
* \p pause 0.25 sec
1995-01-31 06:29:58 +00:00
* \r Carrige return character
* \s Space character
* \T Telephone number(s) (defined via `set phone')
1995-01-31 06:29:58 +00:00
* \t Tab character
* \U Auth User
1995-01-31 06:29:58 +00:00
*/
char *
ExpandString(const char *str, char *result, int reslen, int sendmode)
1995-01-31 06:29:58 +00:00
{
int addcr = 0;
char *phone;
1995-01-31 06:29:58 +00:00
result[--reslen] = '\0';
1995-01-31 06:29:58 +00:00
if (sendmode)
addcr = 1;
while (*str && reslen > 0) {
1995-01-31 06:29:58 +00:00
switch (*str) {
case '\\':
str++;
switch (*str) {
case 'c':
if (sendmode)
addcr = 0;
break;
case 'd': /* Delay 2 seconds */
nointr_sleep(2);
break;
1995-01-31 06:29:58 +00:00
case 'p':
nointr_usleep(250000);
break; /* Pause 0.25 sec */
1995-01-31 06:29:58 +00:00
case 'n':
*result++ = '\n';
reslen--;
break;
1995-01-31 06:29:58 +00:00
case 'r':
*result++ = '\r';
reslen--;
break;
1995-01-31 06:29:58 +00:00
case 's':
*result++ = ' ';
reslen--;
break;
1995-01-31 06:29:58 +00:00
case 't':
*result++ = '\t';
reslen--;
break;
1995-01-31 06:29:58 +00:00
case 'P':
strncpy(result, VarAuthKey, reslen);
reslen -= strlen(result);
result += strlen(result);
1995-01-31 06:29:58 +00:00
break;
case 'T':
if (VarAltPhone == NULL) {
if (VarNextPhone == NULL) {
strcpy(VarPhoneCopy, VarPhoneList);
VarNextPhone = VarPhoneCopy;
}
VarAltPhone = strsep(&VarNextPhone, ":");
}
phone = strsep(&VarAltPhone, "|");
strncpy(result, phone, reslen);
reslen -= strlen(result);
result += strlen(result);
if (VarTerm)
fprintf(VarTerm, "Phone: %s\n", phone);
LogPrintf(LogPHASE, "Phone: %s\n", phone);
1995-01-31 06:29:58 +00:00
break;
case 'U':
strncpy(result, VarAuthName, reslen);
reslen -= strlen(result);
result += strlen(result);
1995-01-31 06:29:58 +00:00
break;
default:
reslen--;
*result++ = *str;
break;
1995-01-31 06:29:58 +00:00
}
if (*str)
str++;
1995-01-31 06:29:58 +00:00
break;
case '^':
str++;
if (*str) {
1995-01-31 06:29:58 +00:00
*result++ = *str++ & 0x1f;
reslen--;
}
1995-01-31 06:29:58 +00:00
break;
default:
*result++ = *str++;
reslen--;
1995-01-31 06:29:58 +00:00
break;
}
}
if (--reslen > 0) {
if (addcr)
*result++ = '\r';
}
if (--reslen > 0)
*result++ = '\0';
return (result);
1995-01-31 06:29:58 +00:00
}
#define MAXLOGBUFF LINE_LEN
static char logbuff[MAXLOGBUFF];
static int loglen = 0;
static void
clear_log(void)
{
memset(logbuff, 0, MAXLOGBUFF);
loglen = 0;
}
static void
flush_log(void)
{
if (LogIsKept(LogCONNECT))
LogPrintf(LogCONNECT, "%s\n", logbuff);
else if (LogIsKept(LogCARRIER) && strstr(logbuff, "CARRIER"))
LogPrintf(LogCARRIER, "%s\n", logbuff);
clear_log();
}
static void
connect_log(const char *str, int single_p)
{
int space = MAXLOGBUFF - loglen - 1;
while (space--) {
if (*str == '\n') {
flush_log();
} else {
logbuff[loglen++] = *str;
}
if (single_p || !*++str)
break;
}
if (!space)
flush_log();
}
static int
WaitforString(const char *estr)
1995-01-31 06:29:58 +00:00
{
struct timeval timeout;
char *s, *str, ch;
char *inp;
fd_set rfds;
int i, nfds, nb;
char buff[IBSIZE];
1995-01-31 06:29:58 +00:00
#ifdef SIGALRM
int omask;
omask = sigblock(sigmask(SIGALRM));
#endif
clear_log();
ExpandString(estr, buff, sizeof(buff), 0);
LogPrintf(LogCHAT, "Wait for (%d): %s --> %s\n", TimeoutSec, estr, buff);
1995-01-31 06:29:58 +00:00
str = buff;
inp = inbuff;
if (strlen(str) >= IBSIZE) {
str[IBSIZE - 1] = 0;
LogPrintf(LogCHAT, "Truncating String to %d character: %s\n", IBSIZE, str);
}
1995-01-31 06:29:58 +00:00
nfds = modem + 1;
s = str;
for (;;) {
FD_ZERO(&rfds);
FD_SET(modem, &rfds);
1995-01-31 06:29:58 +00:00
/*
* Because it is not clear whether select() modifies timeout value, it is
* better to initialize timeout values everytime.
1995-01-31 06:29:58 +00:00
*/
timeout.tv_sec = TimeoutSec;
timeout.tv_usec = 0;
i = select(nfds, &rfds, NULL, NULL, &timeout);
#ifdef notdef
TimerService();
#endif
if (i < 0) {
#ifdef SIGALRM
if (errno == EINTR)
continue;
sigsetmask(omask);
#endif
LogPrintf(LogERROR, "WaitForString: select(): %s\n", strerror(errno));
*inp = 0;
return (NOMATCH);
} else if (i == 0) { /* Timeout reached! */
*inp = 0;
if (inp != inbuff)
LogPrintf(LogCHAT, "Got: %s\n", inbuff);
LogPrintf(LogCHAT, "Can't get (%d).\n", timeout.tv_sec);
#ifdef SIGALRM
sigsetmask(omask);
#endif
return (NOMATCH);
1995-01-31 06:29:58 +00:00
}
if (FD_ISSET(modem, &rfds)) { /* got something */
if (DEV_IS_SYNC) {
int length;
if ((length = strlen(inbuff)) > IBSIZE) {
/* shuffle down next part */
memcpy(inbuff, &(inbuff[IBSIZE]), IBSIZE + 1);
length = strlen(inbuff);
}
nb = read(modem, &(inbuff[length]), IBSIZE);
inbuff[nb + length] = 0;
connect_log(inbuff, 0);
if (strstr(inbuff, str)) {
#ifdef SIGALRM
sigsetmask(omask);
#endif
flush_log();
return (MATCH);
1995-01-31 06:29:58 +00:00
}
for (i = 0; i < numaborts; i++) {
if (strstr(inbuff, AbortStrings[i])) {
LogPrintf(LogCHAT, "Abort: %s\n", AbortStrings[i]);
#ifdef SIGALRM
sigsetmask(omask);
#endif
flush_log();
return (ABORT);
1995-01-31 06:29:58 +00:00
}
}
} else {
if (read(modem, &ch, 1) < 0) {
LogPrintf(LogERROR, "read error: %s\n", strerror(errno));
*inp = '\0';
return (NOMATCH);
}
connect_log(&ch, 1);
*inp++ = ch;
if (ch == *s) {
s++;
if (*s == '\0') {
#ifdef SIGALRM
sigsetmask(omask);
#endif
*inp = 0;
flush_log();
return (MATCH);
}
} else
s = str;
if (inp == inbuff + IBSIZE) {
memcpy(inbuff, inp - 100, 100);
inp = inbuff + 100;
}
if (s == str) {
for (i = 0; i < numaborts; i++) { /* Look for Abort strings */
int len;
char *s1;
s1 = AbortStrings[i];
len = strlen(s1);
if ((len <= inp - inbuff) && (strncmp(inp - len, s1, len) == 0)) {
LogPrintf(LogCHAT, "Abort: %s\n", s1);
*inp = 0;
#ifdef SIGALRM
sigsetmask(omask);
#endif
flush_log();
return (ABORT);
}
}
}
1995-01-31 06:29:58 +00:00
}
}
}
}
static void
ExecStr(char *command, char *out)
{
int pid;
int fids[2];
char *vector[MAXARGS];
int stat, nb;
char *cp;
char tmp[300];
cp = inbuff + strlen(inbuff) - 1;
while (cp > inbuff) {
if (*cp < ' ' && *cp != '\t') {
cp++;
break;
}
cp--;
}
if (snprintf(tmp, sizeof tmp, "%s %s", command, cp) >= sizeof tmp) {
LogPrintf(LogCHAT, "Too long string to ExecStr: \"%s\"\n", command);
return;
}
MakeArgs(tmp, vector, VECSIZE(vector));
if (pipe(fids) < 0) {
LogPrintf(LogCHAT, "Unable to create pipe in ExecStr: %s\n",
strerror(errno));
return;
}
pid = fork();
if (pid == 0) {
TermTimerService();
signal(SIGINT, SIG_DFL);
signal(SIGQUIT, SIG_DFL);
signal(SIGTERM, SIG_DFL);
signal(SIGHUP, SIG_DFL);
signal(SIGALRM, SIG_DFL);
close(fids[0]);
if (dup2(fids[1], 1) < 0) {
LogPrintf(LogCHAT, "dup2(fids[1], 1) in ExecStr: %s\n", strerror(errno));
return;
}
close(fids[1]);
nb = open("/dev/tty", O_RDWR);
if (dup2(nb, 0) < 0) {
LogPrintf(LogCHAT, "dup2(nb, 0) in ExecStr: %s\n", strerror(errno));
return;
}
setuid(geteuid());
LogPrintf(LogCHAT, "exec: %s\n", command);
pid = execvp(command, (char **)vector);
LogPrintf(LogCHAT, "execvp failed for (%d/%d): %s\n", pid, errno, command);
exit(127);
} else {
close(fids[1]);
for (;;) {
nb = read(fids[0], out, 1);
if (nb <= 0)
break;
out++;
}
*out = '\0';
close(fids[0]);
close(fids[1]);
waitpid(pid, &stat, WNOHANG);
}
1995-01-31 06:29:58 +00:00
}
static void
SendString(const char *str)
1995-01-31 06:29:58 +00:00
{
char *cp;
int on;
char buff[LINE_LEN];
1995-01-31 06:29:58 +00:00
if (abort_next) {
abort_next = 0;
ExpandString(str, buff, sizeof(buff), 0);
1995-01-31 06:29:58 +00:00
AbortStrings[numaborts++] = strdup(buff);
} else if (timeout_next) {
timeout_next = 0;
TimeoutSec = atoi(str);
if (TimeoutSec <= 0)
TimeoutSec = 30;
} else {
if (*str == '!') {
ExpandString(str + 1, buff + 2, sizeof(buff) - 2, 0);
ExecStr(buff + 2, buff + 2);
} else {
ExpandString(str, buff + 2, sizeof(buff) - 2, 1);
}
if (strstr(str, "\\P")) /* Do not log the password itself. */
LogPrintf(LogCHAT, "sending: %s\n", str);
else
LogPrintf(LogCHAT, "sending: %s\n", buff + 2);
cp = buff;
if (DEV_IS_SYNC)
memcpy(buff, "\377\003", 2); /* Prepend HDLC header */
else
cp += 2;
on = strlen(cp);
write(modem, cp, on);
1995-01-31 06:29:58 +00:00
}
}
static int
ExpectString(char *str)
1995-01-31 06:29:58 +00:00
{
char *minus;
int state;
if (strcmp(str, "ABORT") == 0) {
++abort_next;
return (MATCH);
1995-01-31 06:29:58 +00:00
}
if (strcmp(str, "TIMEOUT") == 0) {
++timeout_next;
return (MATCH);
1995-01-31 06:29:58 +00:00
}
LogPrintf(LogCHAT, "Expecting %s\n", str);
1995-01-31 06:29:58 +00:00
while (*str) {
1995-01-31 06:29:58 +00:00
/*
* Check whether if string contains sub-send-expect.
1995-01-31 06:29:58 +00:00
*/
for (minus = str; *minus; minus++) {
if (*minus == '-') {
if (minus == str || minus[-1] != '\\')
break;
}
}
if (*minus == '-') { /* We have sub-send-expect. */
*minus = '\0'; /* XXX: Cheat with the const string */
1995-01-31 06:29:58 +00:00
state = WaitforString(str);
*minus = '-'; /* XXX: Cheat with the const string */
minus++;
1995-01-31 06:29:58 +00:00
if (state != NOMATCH)
return (state);
1995-01-31 06:29:58 +00:00
/*
* Can't get expect string. Sendout send part.
*/
str = minus;
for (minus = str; *minus; minus++) {
if (*minus == '-') {
if (minus == str || minus[-1] != '\\')
break;
}
}
if (*minus == '-') {
*minus = '\0'; /* XXX: Cheat with the const string */
1995-01-31 06:29:58 +00:00
SendString(str);
*minus = '-'; /* XXX: Cheat with the const string */
str = ++minus;
1995-01-31 06:29:58 +00:00
} else {
SendString(str);
return (MATCH);
1995-01-31 06:29:58 +00:00
}
} else {
1995-01-31 06:29:58 +00:00
/*
* Simple case. Wait for string.
1995-01-31 06:29:58 +00:00
*/
return (WaitforString(str));
1995-01-31 06:29:58 +00:00
}
}
return (MATCH);
1995-01-31 06:29:58 +00:00
}
static jmp_buf ChatEnv;
static void (*oint) (int);
static void
StopDial(int sig)
{
LogPrintf(LogPHASE, "DoChat: Caught signal %d, abort connect\n", sig);
longjmp(ChatEnv, 1);
}
1995-01-31 06:29:58 +00:00
int
DoChat(char *script)
1995-01-31 06:29:58 +00:00
{
char *vector[MAXARGS];
char *const *argv;
1995-01-31 06:29:58 +00:00
int argc, n, state;
1995-05-30 03:57:47 +00:00
if (!script || !*script)
return MATCH;
/* While we're chatting, we want an INT to fail us */
if (setjmp(ChatEnv)) {
signal(SIGINT, oint);
return (-1);
}
oint = signal(SIGINT, StopDial);
1995-01-31 06:29:58 +00:00
timeout_next = abort_next = 0;
for (n = 0; AbortStrings[n]; n++) {
free(AbortStrings[n]);
AbortStrings[n] = NULL;
}
numaborts = 0;
memset(vector, '\0', sizeof(vector));
argc = MakeArgs(script, vector, VECSIZE(vector));
1995-01-31 06:29:58 +00:00
argv = vector;
TimeoutSec = 30;
while (*argv) {
if (strcmp(*argv, "P_ZERO") == 0 ||
strcmp(*argv, "P_ODD") == 0 || strcmp(*argv, "P_EVEN") == 0) {
ChangeParity(*argv++);
continue;
}
state = ExpectString(*argv++);
switch (state) {
case MATCH:
if (*argv)
SendString(*argv++);
break;
case ABORT:
case NOMATCH:
signal(SIGINT, oint);
return (NOMATCH);
1995-01-31 06:29:58 +00:00
}
}
signal(SIGINT, oint);
return (MATCH);
1995-01-31 06:29:58 +00:00
}