* Copyright (c) 1983 The Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
static char sccsid
[] = "@(#)v3451.c 5.2 (Berkeley) %G%";
* Routines for calling up on a Vadic 3451 Modem
int slow
= number(value(BAUDRATE
)) < 1200, rw
= 2;
vawrite("I\r", 1 + slow
);
vawrite("I\r", 1 + slow
);
vawrite("I\r", 1 + slow
);
vawrite("\005\r", 2 + slow
);
printf("can't synchronize with vadic 3451\n");
logent(value(HOST
), num
, "vadic", "can't synch up");
vawrite("D\r", 2 + slow
);
if (!expect("NUMBER?")) {
printf("Vadic will not accept dial command\n");
logent(value(HOST
), num
, "vadic", "will not accept dial");
vawrite(phone
, 1 + slow
);
printf("Vadic will not accept phone number\n");
logent(value(HOST
), num
, "vadic", "will not accept number");
func
= signal(SIGINT
,SIG_IGN
);
* You cannot interrupt the Vadic when its dialing;
* even dropping DTR does not work (definitely a
if (!expect("DIALING:")) {
printf("Vadic failed to dial\n");
logent(value(HOST
), num
, "vadic", "failed to dial");
if (boolean(value(VERBOSE
)))
logent(value(HOST
), num
, "vadic", "call failed");
ioctl(FD
, TIOCFLUSH
, &rw
);
for (; *cp
; sleep(delay
), cp
++)
int alarmtr(), timeout
= 30, online
= 0;
if (strcmp(cp
, "\"\"") == 0)
* If we are waiting for the Vadic to complete
* dialing and get a connection, allow more time
* Unfortunately, the Vadic times out 24 seconds after
* the last digit is dialed
online
= strcmp(cp
, "ON LINE") == 0;
timeout
= number(value(DIALTIMEOUT
));
signal(SIGALRM
, alarmtr
);
while (notin(cp
, buf
) && rp
< buf
+ sizeof (buf
) - 1) {
if (online
&& notin("FAILED CALL", buf
) == 0)
if (read(FD
, rp
, 1) < 0) {
while ((c
= *s1
++) == *s2
++)