fcb_t *in; /* the fcb of 'stdin' that I shall use */
fcb_t *node; /* the fcb of the msg system */
char nl = '\n'; /* line end character */
+char mode = 1; /* 0 - ax25, 1 - normal telnet, 2 - nlonly telnet */
char ending = 0; /* set this to end the program */
char send_Z = 1; /* set a Z record to the node on termination */
char echo = 1; /* echo characters on stdout from stdin */
int timeout = 60; /* default timeout for logins and things */
int paclen = DEFPACLEN; /* default buffer size for outgoing packets */
int tabsize = 8; /* default tabsize for text messages */
+char *connsort = "local"; /* the connection variety */
+
myregex_t iscallreg[] = { /* regexes to determine whether this is a reasonable callsign */
{
flush_text(f);
f->obuf = mp = cmsg_new(paclen+1, f->sort, f);
}
- *mp->inp++ = nl;
+ if (nl == '\r')
+ *mp->inp++ = nl;
+ else {
+ if (mode != 2)
+ *mp->inp++ = '\r';
+ *mp->inp++ = '\n';
+ }
if (!f->buffer_it)
flush_text(f);
}
unsigned char c;
/* input modes */
- if (in) {
+ if (ending == 0 && in) {
char *p, buf[MAXBUFL];
int r;
default:
/* if (f->sort == MSG)
send_Z = 0; */
+ dbg(DBUF,"got errno %d in input", errno);
ending++;
return 0;
}
} else if (r == 0) {
/* if (f->sort == MSG)
send_Z = 0; */
+ dbg(DBUF, "ending normally");
ending++;
return 0;
}
*mp->inp++ = *p++;
}
break;
- case '\b':
+ case 0x08:
case 0x7f:
if (mp->inp > mp->data)
mp->inp--;
default:
/* if (f->sort == MSG)
send_Z = 0; */
+ dbg(DBUF,"got errno %d in output", errno);
ending++;
return;
}
return 0;
}
+/*
+ * set up the various mode flags, NL endings and things
+ */
+void setmode(char *m)
+{
+ connsort = strlower(m);
+ if (eq(connsort, "telnet") || eq(connsort, "local") || eq(connsort, "nlonly")) {
+ nl = '\n';
+ echo = 1;
+ mode = eq(connsort, "nlonly") ? 2 : 1;
+ } else if (eq(connsort, "ax25")) {
+ nl = '\r';
+ echo = 0;
+ mode = 0;
+ } else if (eq(connsort, "connect")) {
+ nl = '\n';
+ echo = 0;
+ mode = 3;
+ } else {
+ die("Connection type must be \"telnet\", \"nlonly\", \"ax25\", \"login\" or \"local\"");
+ }
+}
+
/*
* things to do with initialisation
*/
die("Must have at least a callsign (for now)");
if (optind < argc) {
- connsort = strlower(argv[optind]);
- if (eq(connsort, "telnet") || eq(connsort, "local")) {
- nl = '\n';
- echo = 1;
- } else if (eq(connsort, "ax25")) {
- nl = '\r';
- echo = 0;
- } else {
- die("2nd argument must be \"telnet\" or \"ax25\" or \"local\"");
- }
+ setmode(argv[optind]);
} else {
- connsort = "local";
- nl = '\n';
- echo = 1;
+ setmode("local");
}
/* this is kludgy, but hey so is the rest of this! */
- if (!eq(connsort, "ax25") && paclen == DEFPACLEN) {
+ if (mode != 0 && paclen == DEFPACLEN) {
paclen = MAXPACLEN;
}
}
void terminate(int i)
{
+#if 0
if (node && send_Z && call) {
send_msg(node, 'Z', "bye", 3);
}
+#endif
signal(SIGALRM, term_timeout);
alarm(10);
}
/* is this a login? */
- if (eq(call, "LOGIN")) {
+ if (eq(call, "LOGIN") || eq(call, "login")) {
+
char buf[MAXPACLEN+1];
- int r;
+ char callsign[MAXCALLSIGN+1];
+ int r, i;
int f = xopen("data", "issue", 0);
if (f > 0) {
while ((r = read(f, buf, paclen)) > 0) {
signal(SIGALRM, login_timeout);
alarm(timeout);
write(0, "login: ", 7);
- r = read(0, buf, 20);
- if (r <= 0)
- die("No login or error (%d)", errno);
+ dbgdump(DBUF, "<-out", "login: ", 7);
+ for (i = 0;;) {
+ char *p;
+ r = read(0, buf, 20);
+ dbgdump(DBUF, "in ->", buf, r);
+ if (r <= 0)
+ die("No login or error (%d)", errno);
+ write(0, buf, r);
+ dbgdump(DBUF, "<-out", buf, r);
+ for (p = buf; p < buf+r; ++p) {
+ if (i < MAXCALLSIGN) {
+ if (*p == '\r' || *p == '\n')
+ goto lgotcall;
+ else if (isalnum(*p) || *p == '-')
+ callsign[i++] = *p;
+ else
+ die("%c is not a valid callsign character", *p);
+ } else
+ die("callsign entered is too long");
+ }
+ }
+lgotcall:
signal(SIGALRM, SIG_IGN);
alarm(0);
- while (r > 0) {
- if (buf[r-1] == ' ' || buf[r-1] == '\r' || buf[r-1] == '\n')
- --r;
- else
- break;
- }
- buf[r] = 0;
- call = strupper(buf);
+ callsign[i]= 0;
+ call = strupper(callsign);
}
/* check the callsign */
in = fcb_new(0, TEXT);
in->sp = sel_open(0, in, "STDIN", fcb_handler, TEXT, SEL_INPUT);
if (tcgetattr(0, &in->t) < 0) {
- echo = 0;
+/* echo = 0; */
+ in->echo = echo;
in->t_set = 0;
} else {
struct termios t = in->t;
t.c_lflag &= ~(ECHO|ECHONL|ICANON);
+ t.c_oflag = 0;
if (tcsetattr(0, TCSANOW, &t) < 0)
die("tcsetattr (%d)", errno);
in->echo = echo;
send_msg(node, 'A', connsort, strlen(connsort));
/* main processing loop */
- while (!ending) {
+ while (ending == 0) {
sel_run();
- if (!ending) {
+ if (ending == 0) {
process_stdin();
process_node();
}