+ 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: