X-Git-Url: https://git.distorted.org.uk/u/mdw/putty/blobdiff_plain/4017be6d5375063f59b63474490ac072e7f09b1a..818ab3bbbe73842da6b50d75ad4a64e40de5e2e6:/telnet.c diff --git a/telnet.c b/telnet.c index 9e6e6cdb..fdbfedae 100644 --- a/telnet.c +++ b/telnet.c @@ -1,7 +1,6 @@ #include #include #include -#include #include "putty.h" @@ -12,75 +11,78 @@ #define TRUE 1 #endif -static SOCKET s = INVALID_SOCKET; - -#define IAC 255 /* interpret as command: */ -#define DONT 254 /* you are not to use option */ -#define DO 253 /* please, you use option */ -#define WONT 252 /* I won't use option */ -#define WILL 251 /* I will use option */ -#define SB 250 /* interpret as subnegotiation */ -#define SE 240 /* end sub negotiation */ - -#define GA 249 /* you may reverse the line */ -#define EL 248 /* erase the current line */ -#define EC 247 /* erase the current character */ -#define AYT 246 /* are you there */ -#define AO 245 /* abort output--but let prog finish */ -#define IP 244 /* interrupt process--permanently */ -#define BREAK 243 /* break */ -#define DM 242 /* data mark--for connect. cleaning */ -#define NOP 241 /* nop */ -#define EOR 239 /* end of record (transparent mode) */ -#define ABORT 238 /* Abort process */ -#define SUSP 237 /* Suspend process */ -#define xEOF 236 /* End of file: EOF is already used... */ - -#define TELOPT_BINARY 0 /* 8-bit data path */ -#define TELOPT_ECHO 1 /* echo */ -#define TELOPT_RCP 2 /* prepare to reconnect */ -#define TELOPT_SGA 3 /* suppress go ahead */ -#define TELOPT_NAMS 4 /* approximate message size */ -#define TELOPT_STATUS 5 /* give status */ -#define TELOPT_TM 6 /* timing mark */ -#define TELOPT_RCTE 7 /* remote controlled transmission and echo */ -#define TELOPT_NAOL 8 /* negotiate about output line width */ -#define TELOPT_NAOP 9 /* negotiate about output page size */ -#define TELOPT_NAOCRD 10 /* negotiate about CR disposition */ -#define TELOPT_NAOHTS 11 /* negotiate about horizontal tabstops */ -#define TELOPT_NAOHTD 12 /* negotiate about horizontal tab disposition */ -#define TELOPT_NAOFFD 13 /* negotiate about formfeed disposition */ -#define TELOPT_NAOVTS 14 /* negotiate about vertical tab stops */ -#define TELOPT_NAOVTD 15 /* negotiate about vertical tab disposition */ -#define TELOPT_NAOLFD 16 /* negotiate about output LF disposition */ -#define TELOPT_XASCII 17 /* extended ascic character set */ -#define TELOPT_LOGOUT 18 /* force logout */ -#define TELOPT_BM 19 /* byte macro */ -#define TELOPT_DET 20 /* data entry terminal */ -#define TELOPT_SUPDUP 21 /* supdup protocol */ -#define TELOPT_SUPDUPOUTPUT 22 /* supdup output */ -#define TELOPT_SNDLOC 23 /* send location */ -#define TELOPT_TTYPE 24 /* terminal type */ -#define TELOPT_EOR 25 /* end or record */ -#define TELOPT_TUID 26 /* TACACS user identification */ -#define TELOPT_OUTMRK 27 /* output marking */ -#define TELOPT_TTYLOC 28 /* terminal location number */ -#define TELOPT_3270REGIME 29 /* 3270 regime */ -#define TELOPT_X3PAD 30 /* X.3 PAD */ -#define TELOPT_NAWS 31 /* window size */ -#define TELOPT_TSPEED 32 /* terminal speed */ -#define TELOPT_LFLOW 33 /* remote flow control */ -#define TELOPT_LINEMODE 34 /* Linemode option */ -#define TELOPT_XDISPLOC 35 /* X Display Location */ -#define TELOPT_OLD_ENVIRON 36 /* Old - Environment variables */ -#define TELOPT_AUTHENTICATION 37/* Authenticate */ -#define TELOPT_ENCRYPT 38 /* Encryption option */ -#define TELOPT_NEW_ENVIRON 39 /* New - Environment variables */ -#define TELOPT_EXOPL 255 /* extended-options-list */ - -#define TELQUAL_IS 0 /* option is... */ -#define TELQUAL_SEND 1 /* send option */ -#define TELQUAL_INFO 2 /* ENVIRON: informational version of IS */ +static Socket s = NULL; + +static void *frontend; +static int telnet_term_width, telnet_term_height; + +#define IAC 255 /* interpret as command: */ +#define DONT 254 /* you are not to use option */ +#define DO 253 /* please, you use option */ +#define WONT 252 /* I won't use option */ +#define WILL 251 /* I will use option */ +#define SB 250 /* interpret as subnegotiation */ +#define SE 240 /* end sub negotiation */ + +#define GA 249 /* you may reverse the line */ +#define EL 248 /* erase the current line */ +#define EC 247 /* erase the current character */ +#define AYT 246 /* are you there */ +#define AO 245 /* abort output--but let prog finish */ +#define IP 244 /* interrupt process--permanently */ +#define BREAK 243 /* break */ +#define DM 242 /* data mark--for connect. cleaning */ +#define NOP 241 /* nop */ +#define EOR 239 /* end of record (transparent mode) */ +#define ABORT 238 /* Abort process */ +#define SUSP 237 /* Suspend process */ +#define xEOF 236 /* End of file: EOF is already used... */ + +#define TELOPT_BINARY 0 /* 8-bit data path */ +#define TELOPT_ECHO 1 /* echo */ +#define TELOPT_RCP 2 /* prepare to reconnect */ +#define TELOPT_SGA 3 /* suppress go ahead */ +#define TELOPT_NAMS 4 /* approximate message size */ +#define TELOPT_STATUS 5 /* give status */ +#define TELOPT_TM 6 /* timing mark */ +#define TELOPT_RCTE 7 /* remote controlled transmission and echo */ +#define TELOPT_NAOL 8 /* negotiate about output line width */ +#define TELOPT_NAOP 9 /* negotiate about output page size */ +#define TELOPT_NAOCRD 10 /* negotiate about CR disposition */ +#define TELOPT_NAOHTS 11 /* negotiate about horizontal tabstops */ +#define TELOPT_NAOHTD 12 /* negotiate about horizontal tab disposition */ +#define TELOPT_NAOFFD 13 /* negotiate about formfeed disposition */ +#define TELOPT_NAOVTS 14 /* negotiate about vertical tab stops */ +#define TELOPT_NAOVTD 15 /* negotiate about vertical tab disposition */ +#define TELOPT_NAOLFD 16 /* negotiate about output LF disposition */ +#define TELOPT_XASCII 17 /* extended ascic character set */ +#define TELOPT_LOGOUT 18 /* force logout */ +#define TELOPT_BM 19 /* byte macro */ +#define TELOPT_DET 20 /* data entry terminal */ +#define TELOPT_SUPDUP 21 /* supdup protocol */ +#define TELOPT_SUPDUPOUTPUT 22 /* supdup output */ +#define TELOPT_SNDLOC 23 /* send location */ +#define TELOPT_TTYPE 24 /* terminal type */ +#define TELOPT_EOR 25 /* end or record */ +#define TELOPT_TUID 26 /* TACACS user identification */ +#define TELOPT_OUTMRK 27 /* output marking */ +#define TELOPT_TTYLOC 28 /* terminal location number */ +#define TELOPT_3270REGIME 29 /* 3270 regime */ +#define TELOPT_X3PAD 30 /* X.3 PAD */ +#define TELOPT_NAWS 31 /* window size */ +#define TELOPT_TSPEED 32 /* terminal speed */ +#define TELOPT_LFLOW 33 /* remote flow control */ +#define TELOPT_LINEMODE 34 /* Linemode option */ +#define TELOPT_XDISPLOC 35 /* X Display Location */ +#define TELOPT_OLD_ENVIRON 36 /* Old - Environment variables */ +#define TELOPT_AUTHENTICATION 37 /* Authenticate */ +#define TELOPT_ENCRYPT 38 /* Encryption option */ +#define TELOPT_NEW_ENVIRON 39 /* New - Environment variables */ +#define TELOPT_EXOPL 255 /* extended-options-list */ + +#define TELQUAL_IS 0 /* option is... */ +#define TELQUAL_SEND 1 /* send option */ +#define TELQUAL_INFO 2 /* ENVIRON: informational version of IS */ #define BSD_VAR 1 #define BSD_VALUE 0 #define RFC_VAR 0 @@ -92,20 +94,54 @@ static SOCKET s = INVALID_SOCKET; #define iswritable(x) ( (x) != IAC && (x) != CR ) -static char *telopt(int opt) { +static char *telopt(int opt) +{ #define i(x) if (opt == TELOPT_ ## x) return #x; - i(BINARY); i(ECHO); i(RCP); i(SGA); i(NAMS); i(STATUS); i(TM); i(RCTE); - i(NAOL); i(NAOP); i(NAOCRD); i(NAOHTS); i(NAOHTD); i(NAOFFD); i(NAOVTS); - i(NAOVTD); i(NAOLFD); i(XASCII); i(LOGOUT); i(BM); i(DET); i(SUPDUP); - i(SUPDUPOUTPUT); i(SNDLOC); i(TTYPE); i(EOR); i(TUID); i(OUTMRK); - i(TTYLOC); i(X3PAD); i(NAWS); i(TSPEED); i(LFLOW); i(LINEMODE); - i(XDISPLOC); i(OLD_ENVIRON); i(AUTHENTICATION); i(ENCRYPT); - i(NEW_ENVIRON); i(EXOPL); + i(BINARY); + i(ECHO); + i(RCP); + i(SGA); + i(NAMS); + i(STATUS); + i(TM); + i(RCTE); + i(NAOL); + i(NAOP); + i(NAOCRD); + i(NAOHTS); + i(NAOHTD); + i(NAOFFD); + i(NAOVTS); + i(NAOVTD); + i(NAOLFD); + i(XASCII); + i(LOGOUT); + i(BM); + i(DET); + i(SUPDUP); + i(SUPDUPOUTPUT); + i(SNDLOC); + i(TTYPE); + i(EOR); + i(TUID); + i(OUTMRK); + i(TTYLOC); + i(X3PAD); + i(NAWS); + i(TSPEED); + i(LFLOW); + i(LINEMODE); + i(XDISPLOC); + i(OLD_ENVIRON); + i(AUTHENTICATION); + i(ENCRYPT); + i(NEW_ENVIRON); + i(EXOPL); #undef i return ""; } -static void telnet_size(void); +static void telnet_size(int width, int height); struct Opt { int send; /* what we initially send */ @@ -117,55 +153,51 @@ struct Opt { } state; }; -static struct Opt o_naws = {WILL, WONT, DO, DONT, TELOPT_NAWS, REQUESTED}; -static struct Opt o_tspeed = {WILL, WONT, DO, DONT, TELOPT_TSPEED, REQUESTED}; -static struct Opt o_ttype = {WILL, WONT, DO, DONT, TELOPT_TTYPE, REQUESTED}; -static struct Opt o_oenv = {WILL, WONT, DO, DONT, TELOPT_OLD_ENVIRON, - INACTIVE}; -static struct Opt o_nenv = {WILL, WONT, DO, DONT, TELOPT_NEW_ENVIRON, - REQUESTED}; -static struct Opt o_echo = {DO, DONT, WILL, WONT, TELOPT_ECHO, REQUESTED}; -static struct Opt o_we_sga = {WILL, WONT, DO, DONT, TELOPT_SGA, REQUESTED}; -static struct Opt o_they_sga = {DO, DONT, WILL, WONT, TELOPT_SGA, REQUESTED}; +static struct Opt o_naws = + { WILL, WONT, DO, DONT, TELOPT_NAWS, REQUESTED }; +static struct Opt o_tspeed = + { WILL, WONT, DO, DONT, TELOPT_TSPEED, REQUESTED }; +static struct Opt o_ttype = + { WILL, WONT, DO, DONT, TELOPT_TTYPE, REQUESTED }; +static struct Opt o_oenv = { WILL, WONT, DO, DONT, TELOPT_OLD_ENVIRON, + INACTIVE +}; +static struct Opt o_nenv = { WILL, WONT, DO, DONT, TELOPT_NEW_ENVIRON, + REQUESTED +}; +static struct Opt o_echo = + { DO, DONT, WILL, WONT, TELOPT_ECHO, REQUESTED }; +static struct Opt o_we_sga = + { WILL, WONT, DO, DONT, TELOPT_SGA, REQUESTED }; +static struct Opt o_they_sga = + { DO, DONT, WILL, WONT, TELOPT_SGA, REQUESTED }; static struct Opt *opts[] = { &o_naws, &o_tspeed, &o_ttype, &o_oenv, &o_nenv, &o_echo, &o_we_sga, &o_they_sga, NULL }; +#define TELNET_MAX_BACKLOG 4096 + +static int echoing = TRUE, editing = TRUE; +static int activated = FALSE; +static int telnet_bufsize; static int in_synch; static int sb_opt, sb_len; static char *sb_buf = NULL; static int sb_size = 0; #define SB_DELTA 1024 -static void try_write (void) { - while (outbuf_head != outbuf_reap) { - int end = (outbuf_reap < outbuf_head ? outbuf_head : OUTBUF_SIZE); - int len = end - outbuf_reap; - int ret; - - ret = send (s, outbuf+outbuf_reap, len, 0); - if (ret > 0) - outbuf_reap = (outbuf_reap + ret) & OUTBUF_MASK; - if (ret < len) - return; - } +static void c_write1(int c) +{ + int backlog; + char cc = (char) c; + backlog = from_backend(frontend, 0, &cc, 1); + sk_set_frozen(s, backlog > TELNET_MAX_BACKLOG); } -static void s_write (void *buf, int len) { - unsigned char *p = buf; - while (len--) { - int new_head = (outbuf_head + 1) & OUTBUF_MASK; - if (new_head != outbuf_reap) { - outbuf[outbuf_head] = *p++; - outbuf_head = new_head; - } - } - try_write(); -} - -static void log_option (char *sender, int cmd, int option) { +static void log_option(char *sender, int cmd, int option) +{ char buf[50]; sprintf(buf, "%s:\t%s %s", sender, (cmd == WILL ? "WILL" : cmd == WONT ? "WONT" : @@ -174,23 +206,57 @@ static void log_option (char *sender, int cmd, int option) { logevent(buf); } -static void send_opt (int cmd, int option) { +static void send_opt(int cmd, int option) +{ unsigned char b[3]; - b[0] = IAC; b[1] = cmd; b[2] = option; - s_write (b, 3); + b[0] = IAC; + b[1] = cmd; + b[2] = option; + telnet_bufsize = sk_write(s, b, 3); log_option("client", cmd, option); } -static void deactivate_option (struct Opt *o) { +static void deactivate_option(struct Opt *o) +{ if (o->state == REQUESTED || o->state == ACTIVE) - send_opt (o->nsend, o->option); + send_opt(o->nsend, o->option); o->state = REALLY_INACTIVE; } -static void activate_option (struct Opt *o) { +/* + * Generate side effects of enabling or disabling an option. + */ +static void option_side_effects(struct Opt *o, int enabled) +{ + if (o->option == TELOPT_ECHO && o->send == DO) + echoing = !enabled; + else if (o->option == TELOPT_SGA && o->send == DO) + editing = !enabled; + ldisc_send(NULL, 0, 0); /* cause ldisc to notice the change */ + + /* Ensure we get the minimum options */ + if (!activated) { + if (o_echo.state == INACTIVE) { + o_echo.state = REQUESTED; + send_opt(o_echo.send, o_echo.option); + } + if (o_we_sga.state == INACTIVE) { + o_we_sga.state = REQUESTED; + send_opt(o_we_sga.send, o_we_sga.option); + } + if (o_they_sga.state == INACTIVE) { + o_they_sga.state = REQUESTED; + send_opt(o_they_sga.send, o_they_sga.option); + } + activated = TRUE; + } +} + +static void activate_option(struct Opt *o) +{ if (o->send == WILL && o->option == TELOPT_NAWS) - telnet_size(); + telnet_size(telnet_term_width, telnet_term_height); if (o->send == WILL && (o->option == TELOPT_NEW_ENVIRON || o->option == TELOPT_OLD_ENVIRON)) { @@ -198,42 +264,43 @@ static void activate_option (struct Opt *o) { * We may only have one kind of ENVIRON going at a time. * This is a hack, but who cares. */ - deactivate_option (o->option==TELOPT_NEW_ENVIRON ? &o_oenv : &o_nenv); + deactivate_option(o->option == + TELOPT_NEW_ENVIRON ? &o_oenv : &o_nenv); } - if (o->option == TELOPT_ECHO && cfg.ldisc_term) - ldisc = &ldisc_simple; + option_side_effects(o, 1); } -static void refused_option (struct Opt *o) { +static void refused_option(struct Opt *o) +{ if (o->send == WILL && o->option == TELOPT_NEW_ENVIRON && o_oenv.state == INACTIVE) { - send_opt (WILL, TELOPT_OLD_ENVIRON); + send_opt(WILL, TELOPT_OLD_ENVIRON); o_oenv.state = REQUESTED; } - if (o->option == TELOPT_ECHO && cfg.ldisc_term) - ldisc = &ldisc_term; + option_side_effects(o, 0); } -static void proc_rec_opt (int cmd, int option) { +static void proc_rec_opt(int cmd, int option) +{ struct Opt **o; - log_option ("server", cmd, option); + log_option("server", cmd, option); for (o = opts; *o; o++) { if ((*o)->option == option && (*o)->ack == cmd) { switch ((*o)->state) { case REQUESTED: (*o)->state = ACTIVE; - activate_option (*o); + activate_option(*o); break; case ACTIVE: break; case INACTIVE: (*o)->state = ACTIVE; - send_opt ((*o)->send, option); - activate_option (*o); + send_opt((*o)->send, option); + activate_option(*o); break; case REALLY_INACTIVE: - send_opt ((*o)->nsend, option); + send_opt((*o)->nsend, option); break; } return; @@ -241,11 +308,12 @@ static void proc_rec_opt (int cmd, int option) { switch ((*o)->state) { case REQUESTED: (*o)->state = INACTIVE; - refused_option (*o); + refused_option(*o); break; case ACTIVE: (*o)->state = INACTIVE; - send_opt ((*o)->nsend, option); + send_opt((*o)->nsend, option); + option_side_effects(*o, 0); break; case INACTIVE: case REALLY_INACTIVE: @@ -258,10 +326,11 @@ static void proc_rec_opt (int cmd, int option) { * If we reach here, the option was one we weren't prepared to * cope with. So send a negative ack. */ - send_opt ((cmd == WILL ? DONT : WONT), option); + send_opt((cmd == WILL ? DONT : WONT), option); } -static void process_subneg (void) { +static void process_subneg(void) +{ unsigned char b[2048], *p, *q; int var, value, n; char *e; @@ -269,45 +338,53 @@ static void process_subneg (void) { switch (sb_opt) { case TELOPT_TSPEED: if (sb_len == 1 && sb_buf[0] == TELQUAL_SEND) { - char logbuf[sizeof(cfg.termspeed)+80]; - b[0] = IAC; b[1] = SB; b[2] = TELOPT_TSPEED; + char logbuf[sizeof(cfg.termspeed) + 80]; + b[0] = IAC; + b[1] = SB; + b[2] = TELOPT_TSPEED; b[3] = TELQUAL_IS; - strcpy(b+4, cfg.termspeed); + strcpy(b + 4, cfg.termspeed); n = 4 + strlen(cfg.termspeed); - b[n] = IAC; b[n+1] = SE; - s_write (b, n+2); + b[n] = IAC; + b[n + 1] = SE; + telnet_bufsize = sk_write(s, b, n + 2); logevent("server:\tSB TSPEED SEND"); sprintf(logbuf, "client:\tSB TSPEED IS %s", cfg.termspeed); - logevent (logbuf); + logevent(logbuf); } else - logevent ("server:\tSB TSPEED "); + logevent("server:\tSB TSPEED "); break; case TELOPT_TTYPE: if (sb_len == 1 && sb_buf[0] == TELQUAL_SEND) { - char logbuf[sizeof(cfg.termtype)+80]; - b[0] = IAC; b[1] = SB; b[2] = TELOPT_TTYPE; + char logbuf[sizeof(cfg.termtype) + 80]; + b[0] = IAC; + b[1] = SB; + b[2] = TELOPT_TTYPE; b[3] = TELQUAL_IS; for (n = 0; cfg.termtype[n]; n++) - b[n+4] = (cfg.termtype[n] >= 'a' && cfg.termtype[n] <= 'z' ? - cfg.termtype[n] + 'A'-'a' : cfg.termtype[n]); - b[n+4] = IAC; b[n+5] = SE; - s_write (b, n+6); - b[n+4] = 0; + b[n + 4] = (cfg.termtype[n] >= 'a' + && cfg.termtype[n] <= + 'z' ? cfg.termtype[n] + 'A' - + 'a' : cfg.termtype[n]); + b[n + 4] = IAC; + b[n + 5] = SE; + telnet_bufsize = sk_write(s, b, n + 6); + b[n + 4] = 0; logevent("server:\tSB TTYPE SEND"); - sprintf(logbuf, "client:\tSB TTYPE IS %s", b+4); + sprintf(logbuf, "client:\tSB TTYPE IS %s", b + 4); logevent(logbuf); } else logevent("server:\tSB TTYPE \r\n"); break; case TELOPT_OLD_ENVIRON: - case TELOPT_NEW_ENVIRON: + case TELOPT_NEW_ENVIRON: p = sb_buf; q = p + sb_len; if (p < q && *p == TELQUAL_SEND) { char logbuf[50]; p++; - sprintf (logbuf, "server:\tSB %s SEND", telopt(sb_opt)); - logevent (logbuf); + sprintf(logbuf, "server:\tSB %s SEND", telopt(sb_opt)); + logevent(logbuf); if (sb_opt == TELOPT_OLD_ENVIRON) { if (cfg.rfc_environ) { value = RFC_VALUE; @@ -337,49 +414,61 @@ static void process_subneg (void) { value = RFC_VALUE; var = RFC_VAR; } - b[0] = IAC; b[1] = SB; b[2] = sb_opt; + b[0] = IAC; + b[1] = SB; + b[2] = sb_opt; b[3] = TELQUAL_IS; n = 4; - e = cfg.environmt; + e = cfg.environmt; while (*e) { b[n++] = var; - while (*e && *e != '\t') b[n++] = *e++; - if (*e == '\t') e++; + while (*e && *e != '\t') + b[n++] = *e++; + if (*e == '\t') + e++; b[n++] = value; - while (*e) b[n++] = *e++; + while (*e) + b[n++] = *e++; e++; } if (*cfg.username) { - b[n++] = var; b[n++] = 'U'; b[n++] = 'S'; - b[n++] = 'E'; b[n++] = 'R'; b[n++] = value; + b[n++] = var; + b[n++] = 'U'; + b[n++] = 'S'; + b[n++] = 'E'; + b[n++] = 'R'; + b[n++] = value; e = cfg.username; - while (*e) b[n++] = *e++; + while (*e) + b[n++] = *e++; } - b[n++] = IAC; b[n++] = SE; - s_write (b, n); + b[n++] = IAC; + b[n++] = SE; + telnet_bufsize = sk_write(s, b, n); sprintf(logbuf, "client:\tSB %s IS %s", telopt(sb_opt), - n==6 ? "" : ""); - logevent (logbuf); + n == 6 ? "" : ""); + logevent(logbuf); } break; } } static enum { - TOPLEVEL, SEENIAC, SEENWILL, SEENWONT, SEENDO, SEENDONT, + TOP_LEVEL, SEENIAC, SEENWILL, SEENWONT, SEENDO, SEENDONT, SEENSB, SUBNEGOT, SUBNEG_IAC, SEENCR -} telnet_state = TOPLEVEL; +} telnet_state = TOP_LEVEL; -static void do_telnet_read (char *buf, int len) { +static void do_telnet_read(char *buf, int len) +{ while (len--) { int c = (unsigned char) *buf++; switch (telnet_state) { - case TOPLEVEL: + case TOP_LEVEL: case SEENCR: if (c == NUL && telnet_state == SEENCR) - telnet_state = TOPLEVEL; + telnet_state = TOP_LEVEL; else if (c == IAC) telnet_state = SEENIAC; else { @@ -395,47 +484,52 @@ static void do_telnet_read (char *buf, int len) { * Oh well, we do get the DM in the right place so I'll * just stop hiding on the next 0xf2 and hope for the best. */ - else if (c == DM) in_synch = 0; + else if (c == DM) + in_synch = 0; #endif if (c == CR) telnet_state = SEENCR; else - telnet_state = TOPLEVEL; + telnet_state = TOP_LEVEL; } break; case SEENIAC: - if (c == DO) telnet_state = SEENDO; - else if (c == DONT) telnet_state = SEENDONT; - else if (c == WILL) telnet_state = SEENWILL; - else if (c == WONT) telnet_state = SEENWONT; - else if (c == SB) telnet_state = SEENSB; + if (c == DO) + telnet_state = SEENDO; + else if (c == DONT) + telnet_state = SEENDONT; + else if (c == WILL) + telnet_state = SEENWILL; + else if (c == WONT) + telnet_state = SEENWONT; + else if (c == SB) + telnet_state = SEENSB; else if (c == DM) { - in_synch = 0; - telnet_state = TOPLEVEL; - } - else { + in_synch = 0; + telnet_state = TOP_LEVEL; + } else { /* ignore everything else; print it if it's IAC */ if (c == IAC) { c_write1(c); } - telnet_state = TOPLEVEL; + telnet_state = TOP_LEVEL; } break; case SEENWILL: - proc_rec_opt (WILL, c); - telnet_state = TOPLEVEL; + proc_rec_opt(WILL, c); + telnet_state = TOP_LEVEL; break; case SEENWONT: - proc_rec_opt (WONT, c); - telnet_state = TOPLEVEL; + proc_rec_opt(WONT, c); + telnet_state = TOP_LEVEL; break; case SEENDO: - proc_rec_opt (DO, c); - telnet_state = TOPLEVEL; + proc_rec_opt(DO, c); + telnet_state = TOP_LEVEL; break; case SEENDONT: - proc_rec_opt (DONT, c); - telnet_state = TOPLEVEL; + proc_rec_opt(DONT, c); + telnet_state = TOP_LEVEL; break; case SEENSB: sb_opt = c; @@ -446,7 +540,7 @@ static void do_telnet_read (char *buf, int len) { if (c == IAC) telnet_state = SUBNEG_IAC; else { - subneg_addchar: + subneg_addchar: if (sb_len >= sb_size) { char *newbuf; sb_size += SB_DELTA; @@ -460,7 +554,7 @@ static void do_telnet_read (char *buf, int len) { } if (sb_len < sb_size) sb_buf[sb_len++] = c; - telnet_state = SUBNEGOT;/* in case we came here by goto */ + telnet_state = SUBNEGOT; /* in case we came here by goto */ } break; case SUBNEG_IAC: @@ -468,44 +562,76 @@ static void do_telnet_read (char *buf, int len) { goto subneg_addchar; /* yes, it's a hack, I know, but... */ else { process_subneg(); - telnet_state = TOPLEVEL; + telnet_state = TOP_LEVEL; } break; } } } +static int telnet_closing(Plug plug, char *error_msg, int error_code, + int calling_back) +{ + if (s) { + sk_close(s); + s = NULL; + } + if (error_msg) { + /* A socket error has occurred. */ + logevent(error_msg); + connection_fatal("%s", error_msg); + } /* Otherwise, the remote side closed the connection normally. */ + return 0; +} + +static int telnet_receive(Plug plug, int urgent, char *data, int len) +{ + if (urgent) + in_synch = TRUE; + do_telnet_read(data, len); + return 1; +} + +static void telnet_sent(Plug plug, int bufsize) +{ + telnet_bufsize = bufsize; +} + /* - * Called to set up the Telnet connection. Will arrange for - * WM_NETEVENT messages to be passed to the specified window, whose - * window procedure should then call telnet_msg(). + * Called to set up the Telnet connection. * * Returns an error message, or NULL on success. * - * Also places the canonical host name into `realhost'. + * Also places the canonical host name into `realhost'. It must be + * freed by the caller. */ -static char *telnet_init (HWND hwnd, char *host, int port, char **realhost) { - SOCKADDR_IN addr; - struct hostent *h; - unsigned long a; +static char *telnet_init(void *frontend_handle, + char *host, int port, char **realhost, int nodelay) +{ + static struct plug_function_table fn_table = { + telnet_closing, + telnet_receive, + telnet_sent + }, *fn_table_ptr = &fn_table; + + SockAddr addr; + char *err; + + frontend = frontend_handle; + telnet_term_width = cfg.width; + telnet_term_height = cfg.height; /* * Try to find host. */ - if ( (a = inet_addr(host)) == (unsigned long) INADDR_NONE) { - if ( (h = gethostbyname(host)) == NULL) - switch (WSAGetLastError()) { - case WSAENETDOWN: return "Network is down"; - case WSAHOST_NOT_FOUND: case WSANO_DATA: - return "Host does not exist"; - case WSATRY_AGAIN: return "Host not found"; - default: return "gethostbyname: unknown error"; - } - memcpy (&a, h->h_addr, sizeof(a)); - *realhost = h->h_name; - } else - *realhost = host; - a = ntohl(a); + { + char buf[200]; + sprintf(buf, "Looking up host \"%.170s\"", host); + logevent(buf); + } + addr = sk_namelookup(host, realhost); + if ((err = sk_addr_error(addr))) + return err; if (port < 0) port = 23; /* default telnet port */ @@ -513,232 +639,243 @@ static char *telnet_init (HWND hwnd, char *host, int port, char **realhost) { /* * Open socket. */ - s = socket(AF_INET, SOCK_STREAM, 0); - if (s == INVALID_SOCKET) - switch (WSAGetLastError()) { - case WSAENETDOWN: return "Network is down"; - case WSAEAFNOSUPPORT: return "TCP/IP support not present"; - default: return "socket(): unknown error"; - } - { - BOOL b = TRUE; - setsockopt (s, SOL_SOCKET, SO_OOBINLINE, (void *)&b, sizeof(b)); + char buf[200], addrbuf[100]; + sk_getaddr(addr, addrbuf, 100); + sprintf(buf, "Connecting to %.100s port %d", addrbuf, port); + logevent(buf); } + s = new_connection(addr, *realhost, port, 0, 1, nodelay, &fn_table_ptr); + if ((err = sk_socket_error(s))) + return err; - /* - * Bind to local address. - */ - addr.sin_family = AF_INET; - addr.sin_addr.s_addr = htonl(INADDR_ANY); - addr.sin_port = htons(0); - if (bind (s, (struct sockaddr *)&addr, sizeof(addr)) == SOCKET_ERROR) - switch (WSAGetLastError()) { - case WSAENETDOWN: return "Network is down"; - default: return "bind(): unknown error"; - } - - /* - * Connect to remote address. - */ - addr.sin_addr.s_addr = htonl(a); - addr.sin_port = htons((short)port); - if (connect (s, (struct sockaddr *)&addr, sizeof(addr)) == SOCKET_ERROR) - switch (WSAGetLastError()) { - case WSAENETDOWN: return "Network is down"; - case WSAECONNREFUSED: return "Connection refused"; - case WSAENETUNREACH: return "Network is unreachable"; - case WSAEHOSTUNREACH: return "No route to host"; - default: return "connect(): unknown error"; - } - - if (hwnd && WSAAsyncSelect (s, hwnd, WM_NETEVENT, FD_READ | - FD_WRITE | FD_OOB | FD_CLOSE) == SOCKET_ERROR) - switch (WSAGetLastError()) { - case WSAENETDOWN: return "Network is down"; - default: return "WSAAsyncSelect(): unknown error"; - } + sk_addr_free(addr); /* * Initialise option states. */ - if( cfg.ldisc_term ) - { + if (cfg.passive_telnet) { struct Opt **o; for (o = opts; *o; o++) if ((*o)->state == REQUESTED) (*o)->state = INACTIVE; - } - else - { + } else { struct Opt **o; for (o = opts; *o; o++) if ((*o)->state == REQUESTED) - send_opt ((*o)->send, (*o)->option); + send_opt((*o)->send, (*o)->option); + activated = TRUE; } /* * Set up SYNCH state. */ in_synch = FALSE; - return NULL; -} -/* - * Process a WM_NETEVENT message. Will return 0 if the connection - * has closed, or <0 for a socket error. - */ -static int telnet_msg (WPARAM wParam, LPARAM lParam) { - int ret; - /* This needs to be larger than the packet size now that inbuf - * cannot overflow, in fact the fewer calls we make to windows - * the faster we will run! - */ - char buf[16384]; - - /* - * Because reading less than the whole of the available pending - * data can generate an FD_READ event, we need to allow for the - * possibility that FD_READ may arrive with FD_CLOSE already in - * the queue; so it's possible that we can get here even with s - * invalid. If so, we return 1 and don't worry about it. - */ - if (s == INVALID_SOCKET) - return 1; - - if (WSAGETSELECTERROR(lParam) != 0) - return -WSAGETSELECTERROR(lParam); - - switch (WSAGETSELECTEVENT(lParam)) { - case FD_READ: - case FD_CLOSE: - { - int clear_of_oob = 1; - if (ioctlsocket (s, SIOCATMARK, &clear_of_oob) < 0 ) - return -20000-WSAGetLastError(); - - in_synch = !clear_of_oob; - - do { - ret = recv(s, buf, sizeof(buf), 0); - if (ret < 0 && WSAGetLastError() == WSAEWOULDBLOCK) - return 1; - if (ret < 0) /* any _other_ error */ - return -10000-WSAGetLastError(); - if (ret == 0) { - s = INVALID_SOCKET; - return 0; - } - do_telnet_read (buf, ret); - } while (in_synch); - } - return 1; - case FD_WRITE: - if (outbuf_head != outbuf_reap) - try_write(); - return 1; - } - return 1; /* shouldn't happen, but WTF */ + return NULL; } /* * Called to send data down the Telnet connection. */ -static void telnet_send (char *buf, int len) { +static int telnet_send(char *buf, int len) +{ char *p; static unsigned char iac[2] = { IAC, IAC }; static unsigned char cr[2] = { CR, NUL }; +#if 0 static unsigned char nl[2] = { CR, LF }; +#endif - if (s == INVALID_SOCKET) - return; + if (s == NULL) + return 0; p = buf; - while (p < buf+len) { + while (p < buf + len) { char *q = p; - while (iswritable((unsigned char)*p) && p < buf+len) p++; - s_write (q, p-q); + while (iswritable((unsigned char) *p) && p < buf + len) + p++; + telnet_bufsize = sk_write(s, q, p - q); - while (p < buf+len && !iswritable((unsigned char)*p)) { - s_write ((unsigned char)*p == IAC ? iac : nl, 2); + while (p < buf + len && !iswritable((unsigned char) *p)) { + telnet_bufsize = + sk_write(s, (unsigned char) *p == IAC ? iac : cr, 2); p++; } } + + return telnet_bufsize; +} + +/* + * Called to query the current socket sendability status. + */ +static int telnet_sendbuffer(void) +{ + return telnet_bufsize; } /* * Called to set the size of the window from Telnet's POV. */ -static void telnet_size(void) { +static void telnet_size(int width, int height) +{ unsigned char b[16]; char logbuf[50]; - if (s == INVALID_SOCKET || o_naws.state != ACTIVE) + telnet_term_width = width; + telnet_term_height = height; + + if (s == NULL || o_naws.state != ACTIVE) return; - b[0] = IAC; b[1] = SB; b[2] = TELOPT_NAWS; - b[3] = cols >> 8; b[4] = cols & 0xFF; - b[5] = rows >> 8; b[6] = rows & 0xFF; - b[7] = IAC; b[8] = SE; - s_write (b, 9); + b[0] = IAC; + b[1] = SB; + b[2] = TELOPT_NAWS; + b[3] = telnet_term_width >> 8; + b[4] = telnet_term_width & 0xFF; + b[5] = telnet_term_height >> 8; + b[6] = telnet_term_height & 0xFF; + b[7] = IAC; + b[8] = SE; + telnet_bufsize = sk_write(s, b, 9); sprintf(logbuf, "client:\tSB NAWS %d,%d", - ((unsigned char)b[3] << 8) + (unsigned char)b[4], - ((unsigned char)b[5] << 8) + (unsigned char)b[6]); - logevent (logbuf); + ((unsigned char) b[3] << 8) + (unsigned char) b[4], + ((unsigned char) b[5] << 8) + (unsigned char) b[6]); + logevent(logbuf); } /* * Send Telnet special codes. */ -static void telnet_special (Telnet_Special code) { +static void telnet_special(Telnet_Special code) +{ unsigned char b[2]; - if (s == INVALID_SOCKET) + if (s == NULL) return; b[0] = IAC; switch (code) { - case TS_AYT: b[1] = AYT; s_write (b, 2); break; - case TS_BRK: b[1] = BREAK; s_write (b, 2); break; - case TS_EC: b[1] = EC; s_write (b, 2); break; - case TS_EL: b[1] = EL; s_write (b, 2); break; - case TS_GA: b[1] = GA; s_write (b, 2); break; - case TS_NOP: b[1] = NOP; s_write (b, 2); break; - case TS_ABORT: b[1] = ABORT; s_write (b, 2); break; - case TS_AO: b[1] = AO; s_write (b, 2); break; - case TS_IP: b[1] = IP; s_write (b, 2); break; - case TS_SUSP: b[1] = SUSP; s_write (b, 2); break; - case TS_EOR: b[1] = EOR; s_write (b, 2); break; - case TS_EOF: b[1] = xEOF; s_write (b, 2); break; + case TS_AYT: + b[1] = AYT; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_BRK: + b[1] = BREAK; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_EC: + b[1] = EC; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_EL: + b[1] = EL; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_GA: + b[1] = GA; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_NOP: + b[1] = NOP; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_ABORT: + b[1] = ABORT; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_AO: + b[1] = AO; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_IP: + b[1] = IP; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_SUSP: + b[1] = SUSP; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_EOR: + b[1] = EOR; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_EOF: + b[1] = xEOF; + telnet_bufsize = sk_write(s, b, 2); + break; + case TS_EOL: + telnet_bufsize = sk_write(s, "\r\n", 2); + break; case TS_SYNCH: - outbuf_head = outbuf_reap = 0; b[1] = DM; - send (s, b, 2, MSG_OOB); + telnet_bufsize = sk_write(s, b, 1); + telnet_bufsize = sk_write_oob(s, b + 1, 1); break; case TS_RECHO: if (o_echo.state == INACTIVE || o_echo.state == REALLY_INACTIVE) { o_echo.state = REQUESTED; - send_opt (o_echo.send, o_echo.option); + send_opt(o_echo.send, o_echo.option); } break; case TS_LECHO: if (o_echo.state == ACTIVE) { o_echo.state = REQUESTED; - send_opt (o_echo.nsend, o_echo.option); + send_opt(o_echo.nsend, o_echo.option); + } + break; + case TS_PING: + if (o_they_sga.state == ACTIVE) { + b[1] = NOP; + telnet_bufsize = sk_write(s, b, 2); } break; } } -SOCKET telnet_socket(void) { return s; } +static Socket telnet_socket(void) +{ + return s; +} + +static int telnet_sendok(void) +{ + return 1; +} + +static void telnet_unthrottle(int backlog) +{ + sk_set_frozen(s, backlog > TELNET_MAX_BACKLOG); +} + +static int telnet_ldisc(int option) +{ + if (option == LD_ECHO) + return echoing; + if (option == LD_EDIT) + return editing; + return FALSE; +} + +static int telnet_exitcode(void) +{ + /* Telnet doesn't transmit exit codes back to the client */ + return 0; +} Backend telnet_backend = { telnet_init, - telnet_msg, telnet_send, + telnet_sendbuffer, telnet_size, telnet_special, - telnet_socket + telnet_socket, + telnet_exitcode, + telnet_sendok, + telnet_ldisc, + telnet_unthrottle, + 23 };