]>
git.saurik.com Git - apple/network_cmds.git/blob - telnetd.tproj/state.c
4785306468cd3ead05d86afc78ac353fe4d84803
2 * Copyright (c) 1989, 1993
3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. All advertising materials mentioning features or use of this software
14 * must display the following acknowledgement:
15 * This product includes software developed by the University of
16 * California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 static const char sccsid
[] = "@(#)state.c 8.2 (Berkeley) 12/15/93";
38 static const char rcsid
[] =
39 "$FreeBSD: src/libexec/telnetd/state.c,v 1.13 2001/07/20 15:14:03 ru Exp $";
44 #if defined(AUTHENTICATION)
45 #include <libtelnet/auth.h>
48 unsigned char doopt
[] = { IAC
, DO
, '%', 'c', 0 };
49 unsigned char dont
[] = { IAC
, DONT
, '%', 'c', 0 };
50 unsigned char will
[] = { IAC
, WILL
, '%', 'c', 0 };
51 unsigned char wont
[] = { IAC
, WONT
, '%', 'c', 0 };
55 * Buffer for sub-options, and macros
56 * for suboptions buffer manipulations
58 unsigned char subbuffer
[512], *subpointer
= subbuffer
, *subend
= subbuffer
;
60 #define SB_CLEAR() subpointer = subbuffer
61 #define SB_TERM() { subend = subpointer; SB_CLEAR(); }
62 #define SB_ACCUM(c) if (subpointer < (subbuffer+sizeof subbuffer)) { \
63 *subpointer++ = (c); \
65 #define SB_GET() ((*subpointer++)&0xff)
66 #define SB_EOF() (subpointer >= subend)
67 #define SB_LEN() (subend - subpointer)
70 unsigned char *subsave
;
71 #define SB_SAVE() subsave = subpointer;
72 #define SB_RESTORE() subpointer = subsave;
79 #define TS_DATA 0 /* base state */
80 #define TS_IAC 1 /* look for double IAC's */
81 #define TS_CR 2 /* CR-LF ->'s CR */
82 #define TS_SB 3 /* throw away begin's... */
83 #define TS_SE 4 /* ...end's (suboption negotiation) */
84 #define TS_WILL 5 /* will option negotiation */
85 #define TS_WONT 6 /* wont " */
86 #define TS_DO 7 /* do " */
87 #define TS_DONT 8 /* dont " */
93 static int state
= TS_DATA
;
94 #if defined(CRAY2) && defined(UNICOS5)
95 char *opfrontp
= pfrontp
;
99 if ((&ptyobuf
[BUFSIZ
] - pfrontp
) < 2)
101 c
= *netip
++ & 0377, ncc
--;
106 /* Strip off \n or \0 after a \r */
107 if ((c
== 0) || (c
== '\n')) {
118 * We now map \r\n ==> \r for pragmatic reasons.
119 * Many client implementations send \r\n when
120 * the user hits the CarriageReturn key.
122 * We USED to map \r\n ==> \n, since \r\n says
123 * that we want to be in column 1 of the next
124 * printable line, and \n is the standard
125 * unix way of saying that (\r is only good
126 * if CRMOD is set, which it normally is).
128 if ((c
== '\r') && his_state_is_wont(TELOPT_BINARY
)) {
132 * If we are operating in linemode,
133 * convert to local end-of-line.
135 if (linemode
&& (ncc
> 0) && (('\n' == nc
) ||
136 ((0 == nc
) && tty_iscrnl())) ) {
152 * Send the process on the pty side an
153 * interrupt. Do this with a NULL or
154 * interrupt char; depending on the tty mode.
158 printoption("td: recv IAC", c
));
164 printoption("td: recv IAC", c
));
173 printoption("td: recv IAC", c
));
183 printoption("td: recv IAC", c
));
184 ptyflush(); /* half-hearted */
187 if (slctab
[SLC_AO
].sptr
&&
188 *slctab
[SLC_AO
].sptr
!= (cc_t
)(_POSIX_VDISABLE
)) {
190 (unsigned char)*slctab
[SLC_AO
].sptr
;
193 netclear(); /* clear buffer back */
194 output_data("%c%c", IAC
, DM
);
195 neturg
= nfrontp
-1; /* off by one XXX */
197 printoption("td: send IAC", DM
));
202 * Erase Character and
211 printoption("td: recv IAC", c
));
212 ptyflush(); /* half-hearted */
215 ch
= *slctab
[SLC_EC
].sptr
;
217 ch
= *slctab
[SLC_EL
].sptr
;
218 if (ch
!= (cc_t
)(_POSIX_VDISABLE
))
219 *pfrontp
++ = (unsigned char)ch
;
224 * Check for urgent data...
228 printoption("td: recv IAC", c
));
229 SYNCHing
= stilloob(net
);
235 * Begin option subnegotiation...
258 if (his_state_is_will(TELOPT_EOR
))
263 * Handle RFC 10xx Telnet linemode option additions
264 * to command stream (EOF, SUSP, ABORT).
297 * bad form of suboption negotiation.
298 * handle it in such a way as to avoid
299 * damage to local state. Parse
300 * suboption buffer found so far,
301 * then treat remaining stream as
302 * another command sequence.
305 /* for DIAGNOSTICS */
318 /* for DIAGNOSTICS */
324 suboption(); /* handle sub-option */
350 syslog(LOG_ERR
, "panic state=%d", state
);
351 printf("telnetd: panic state=%d\n", state
);
355 #if defined(CRAY2) && defined(UNICOS5)
357 char xptyobuf
[BUFSIZ
+NETSLOP
];
360 int n
= pfrontp
- opfrontp
, oc
;
361 memmove(xptyobuf
, opfrontp
, n
);
363 pfrontp
+= term_input(xptyobuf
, pfrontp
, n
, BUFSIZ
+NETSLOP
,
365 for (cp
= xbuf2
; oc
> 0; --oc
)
366 if ((*nfrontp
++ = *cp
++) == IAC
)
369 #endif /* defined(CRAY2) && defined(UNICOS5) */
370 } /* end of telrcv */
373 * The will/wont/do/dont state machines are based on Dave Borman's
374 * Telnet option processing state machine.
376 * These correspond to the following states:
377 * my_state = the last negotiated state
378 * want_state = what I want the state to go to
379 * want_resp = how many requests I have sent
380 * All state defaults are negative, and resp defaults to 0.
382 * When initiating a request to change state to new_state:
384 * if ((want_resp == 0 && new_state == my_state) || want_state == new_state) {
387 * want_state = new_state;
392 * When receiving new_state:
396 * if (want_resp && (new_state == my_state))
399 * if ((want_resp == 0) && (new_state != want_state)) {
400 * if (ok_to_switch_to new_state)
401 * want_state = new_state;
406 * my_state = new_state;
408 * Note that new_state is implied in these functions by the function itself.
409 * will and do imply positive new_state, wont and dont imply negative.
411 * Finally, there is one catch. If we send a negative response to a
412 * positive request, my_state will be the positive while want_state will
413 * remain negative. my_state will revert to negative when the negative
414 * acknowlegment arrives from the peer. Thus, my_state generally tells
415 * us not only the last negotiated state, but also tells us what the peer
416 * wants to be doing as well. It is important to understand this difference
417 * as we may wish to be processing data streams based on our desired state
418 * (want_state) or based on what the peer thinks the state is (my_state).
420 * This all works fine because if the peer sends a positive request, the data
421 * that we receive prior to negative acknowlegment will probably be affected
422 * by the positive state, and we can process it as such (if we can; if we
423 * can't then it really doesn't matter). If it is that important, then the
424 * peer probably should be buffering until this option state negotiation
429 send_do(option
, init
)
433 if ((do_dont_resp
[option
] == 0 && his_state_is_will(option
)) ||
434 his_want_state_is_will(option
))
437 * Special case for TELOPT_TM: We send a DO, but pretend
438 * that we sent a DONT, so that we can send more DOs if
441 if (option
== TELOPT_TM
)
442 set_his_want_state_wont(option
);
444 set_his_want_state_will(option
);
445 do_dont_resp
[option
]++;
447 output_data((const char *)doopt
, option
);
449 DIAG(TD_OPTIONS
, printoption("td: send do", option
));
452 #ifdef AUTHENTICATION
453 extern void auth_request();
456 extern void doclientstat();
467 * process input from peer.
470 DIAG(TD_OPTIONS
, printoption("td: recv will", option
));
472 if (do_dont_resp
[option
]) {
473 do_dont_resp
[option
]--;
474 if (do_dont_resp
[option
] && his_state_is_will(option
))
475 do_dont_resp
[option
]--;
477 if (do_dont_resp
[option
] == 0) {
478 if (his_want_state_is_wont(option
)) {
490 * See comments below for more info.
492 not42
= 0; /* looks like a 4.2 system */
496 #if defined(LINEMODE) && defined(KLUDGELINEMODE)
498 * This telnetd implementation does not really
499 * support timing marks, it just uses them to
500 * support the kludge linemode stuff. If we
501 * receive a will or wont TM in response to our
502 * do TM request that may have been sent to
503 * determine kludge linemode support, process
504 * it, otherwise TM should get a negative
508 * Handle the linemode kludge stuff.
509 * If we are not currently supporting any
510 * linemode at all, then we assume that this
511 * is the client telling us to use kludge
512 * linemode in response to our query. Set the
513 * linemode type that is to be supported, note
514 * that the client wishes to use linemode, and
515 * eat the will TM as though it never arrived.
517 if (lmodetype
< KLUDGE_LINEMODE
) {
518 lmodetype
= KLUDGE_LINEMODE
;
519 clientstat(TELOPT_LINEMODE
, WILL
, 0);
520 send_wont(TELOPT_SGA
, 1);
521 } else if (lmodetype
== NO_AUTOKLUDGE
) {
522 lmodetype
= KLUDGE_OK
;
524 #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */
526 * We never respond to a WILL TM, and
527 * we leave the state WONT.
533 * If we are going to support flow control
534 * option, then don't worry peer that we can't
535 * change the flow control characters.
537 slctab
[SLC_XON
].defset
.flag
&= ~SLC_LEVELBITS
;
538 slctab
[SLC_XON
].defset
.flag
|= SLC_DEFAULT
;
539 slctab
[SLC_XOFF
].defset
.flag
&= ~SLC_LEVELBITS
;
540 slctab
[SLC_XOFF
].defset
.flag
|= SLC_DEFAULT
;
545 case TELOPT_XDISPLOC
:
546 case TELOPT_NEW_ENVIRON
:
547 case TELOPT_OLD_ENVIRON
:
552 case TELOPT_LINEMODE
:
553 # ifdef KLUDGELINEMODE
555 * Note client's desire to use linemode.
557 lmodetype
= REAL_LINEMODE
;
558 # endif /* KLUDGELINEMODE */
562 #endif /* LINEMODE */
564 #ifdef AUTHENTICATION
565 case TELOPT_AUTHENTICATION
:
576 set_his_want_state_will(option
);
579 do_dont_resp
[option
]++;
580 send_dont(option
, 0);
584 * Option processing that should happen when
585 * we receive conformation of a change in
586 * state that we had requested.
590 not42
= 0; /* looks like a 4.2 system */
592 * Egads, he responded "WILL ECHO". Turn
595 send_dont(option
, 1);
597 * "WILL ECHO". Kludge upon kludge!
598 * A 4.2 client is now echoing user input at
599 * the tty. This is probably undesireable and
600 * it should be stopped. The client will
601 * respond WONT TM to the DO TM that we send to
602 * check for kludge linemode. When the WONT TM
603 * arrives, linemode will be turned off and a
604 * change propogated to the pty. This change
605 * will cause us to process the new pty state
606 * in localstat(), which will notice that
607 * linemode is off and send a WILL ECHO
608 * so that we are properly in character mode and
613 case TELOPT_LINEMODE
:
614 # ifdef KLUDGELINEMODE
616 * Note client's desire to use linemode.
618 lmodetype
= REAL_LINEMODE
;
619 # endif /* KLUDGELINEMODE */
622 #endif /* LINEMODE */
624 #ifdef AUTHENTICATION
625 case TELOPT_AUTHENTICATION
:
636 set_his_state_will(option
);
639 } /* end of willoption */
642 send_dont(option
, init
)
646 if ((do_dont_resp
[option
] == 0 && his_state_is_wont(option
)) ||
647 his_want_state_is_wont(option
))
649 set_his_want_state_wont(option
);
650 do_dont_resp
[option
]++;
652 output_data((const char *)dont
, option
);
654 DIAG(TD_OPTIONS
, printoption("td: send dont", option
));
662 * Process client input.
665 DIAG(TD_OPTIONS
, printoption("td: recv wont", option
));
667 if (do_dont_resp
[option
]) {
668 do_dont_resp
[option
]--;
669 if (do_dont_resp
[option
] && his_state_is_wont(option
))
670 do_dont_resp
[option
]--;
672 if (do_dont_resp
[option
] == 0) {
673 if (his_want_state_is_will(option
)) {
674 /* it is always ok to change to negative state */
677 not42
= 1; /* doesn't seem to be a 4.2 system */
687 case TELOPT_LINEMODE
:
688 # ifdef KLUDGELINEMODE
690 * If real linemode is supported, then client is
691 * asking to turn linemode off.
693 if (lmodetype
!= REAL_LINEMODE
)
695 lmodetype
= KLUDGE_LINEMODE
;
696 # endif /* KLUDGELINEMODE */
697 clientstat(TELOPT_LINEMODE
, WONT
, 0);
699 #endif /* LINEMODE */
703 * If we get a WONT TM, and had sent a DO TM,
704 * don't respond with a DONT TM, just leave it
705 * as is. Short circut the state machine to
708 set_his_want_state_wont(TELOPT_TM
);
713 * If we are not going to support flow control
714 * option, then let peer know that we can't
715 * change the flow control characters.
717 slctab
[SLC_XON
].defset
.flag
&= ~SLC_LEVELBITS
;
718 slctab
[SLC_XON
].defset
.flag
|= SLC_CANTCHANGE
;
719 slctab
[SLC_XOFF
].defset
.flag
&= ~SLC_LEVELBITS
;
720 slctab
[SLC_XOFF
].defset
.flag
|= SLC_CANTCHANGE
;
723 #if defined(AUTHENTICATION)
724 case TELOPT_AUTHENTICATION
:
725 auth_finished(0, AUTH_REJECT
);
730 * For options that we might spin waiting for
731 * sub-negotiation, if the client turns off the
732 * option rather than responding to the request,
733 * we have to treat it here as if we got a response
734 * to the sub-negotiation, (by updating the timers)
735 * so that we'll break out of the loop.
738 settimer(ttypesubopt
);
742 settimer(tspeedsubopt
);
745 case TELOPT_XDISPLOC
:
746 settimer(xdisplocsubopt
);
749 case TELOPT_OLD_ENVIRON
:
750 settimer(oenvironsubopt
);
753 case TELOPT_NEW_ENVIRON
:
754 settimer(environsubopt
);
760 set_his_want_state_wont(option
);
761 if (his_state_is_will(option
))
762 send_dont(option
, 0);
766 #if defined(LINEMODE) && defined(KLUDGELINEMODE)
767 if (lmodetype
< NO_AUTOKLUDGE
) {
768 lmodetype
= NO_LINEMODE
;
769 clientstat(TELOPT_LINEMODE
, WONT
, 0);
770 send_will(TELOPT_SGA
, 1);
771 send_will(TELOPT_ECHO
, 1);
773 #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */
776 #if defined(AUTHENTICATION)
777 case TELOPT_AUTHENTICATION
:
778 auth_finished(0, AUTH_REJECT
);
786 set_his_state_wont(option
);
788 } /* end of wontoption */
791 send_will(option
, init
)
795 if ((will_wont_resp
[option
] == 0 && my_state_is_will(option
))||
796 my_want_state_is_will(option
))
798 set_my_want_state_will(option
);
799 will_wont_resp
[option
]++;
801 output_data((const char *)will
, option
);
803 DIAG(TD_OPTIONS
, printoption("td: send will", option
));
806 #if !defined(LINEMODE) || !defined(KLUDGELINEMODE)
808 * When we get a DONT SGA, we will try once to turn it
809 * back on. If the other side responds DONT SGA, we
810 * leave it at that. This is so that when we talk to
811 * clients that understand KLUDGELINEMODE but not LINEMODE,
812 * we'll keep them in char-at-a-time mode.
824 * Process client input.
827 DIAG(TD_OPTIONS
, printoption("td: recv do", option
));
829 if (will_wont_resp
[option
]) {
830 will_wont_resp
[option
]--;
831 if (will_wont_resp
[option
] && my_state_is_will(option
))
832 will_wont_resp
[option
]--;
834 if ((will_wont_resp
[option
] == 0) && (my_want_state_is_wont(option
))) {
838 # ifdef KLUDGELINEMODE
839 if (lmodetype
== NO_LINEMODE
)
841 if (his_state_is_wont(TELOPT_LINEMODE
))
860 #if defined(LINEMODE) && defined(KLUDGELINEMODE)
862 * If kludge linemode is in use, then we must
863 * process an incoming do SGA for linemode
866 if (lmodetype
== KLUDGE_LINEMODE
) {
868 * Receipt of "do SGA" in kludge
869 * linemode is the peer asking us to
870 * turn off linemode. Make note of
873 clientstat(TELOPT_LINEMODE
, WONT
, 0);
875 * If linemode did not get turned off
876 * then don't tell peer that we did.
877 * Breaking here forces a wont SGA to
885 #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */
895 * Special case for TM. We send a WILL, but
896 * pretend we sent a WONT.
898 send_will(option
, 0);
899 set_my_want_state_wont(option
);
900 set_my_state_wont(option
);
905 * When we get a LOGOUT option, respond
906 * with a WILL LOGOUT, make sure that
907 * it gets written out to the network,
908 * and then just go away...
910 set_my_want_state_will(TELOPT_LOGOUT
);
911 send_will(TELOPT_LOGOUT
, 0);
912 set_my_state_will(TELOPT_LOGOUT
);
918 case TELOPT_LINEMODE
:
923 case TELOPT_XDISPLOC
:
924 #ifdef TELOPT_ENVIRON
925 case TELOPT_NEW_ENVIRON
:
927 case TELOPT_OLD_ENVIRON
:
932 set_my_want_state_will(option
);
933 send_will(option
, 0);
935 will_wont_resp
[option
]++;
936 send_wont(option
, 0);
939 set_my_state_will(option
);
941 } /* end of dooption */
944 send_wont(option
, init
)
948 if ((will_wont_resp
[option
] == 0 && my_state_is_wont(option
)) ||
949 my_want_state_is_wont(option
))
951 set_my_want_state_wont(option
);
952 will_wont_resp
[option
]++;
954 output_data((const char *)wont
, option
);
956 DIAG(TD_OPTIONS
, printoption("td: send wont", option
));
964 * Process client input.
968 DIAG(TD_OPTIONS
, printoption("td: recv dont", option
));
970 if (will_wont_resp
[option
]) {
971 will_wont_resp
[option
]--;
972 if (will_wont_resp
[option
] && my_state_is_wont(option
))
973 will_wont_resp
[option
]--;
975 if ((will_wont_resp
[option
] == 0) && (my_want_state_is_will(option
))) {
983 case TELOPT_ECHO
: /* we should stop echoing */
985 # ifdef KLUDGELINEMODE
986 if ((lmodetype
!= REAL_LINEMODE
) &&
987 (lmodetype
!= KLUDGE_LINEMODE
))
989 if (his_state_is_wont(TELOPT_LINEMODE
))
1000 #if defined(LINEMODE) && defined(KLUDGELINEMODE)
1002 * If kludge linemode is in use, then we
1003 * must process an incoming do SGA for
1004 * linemode purposes.
1006 if ((lmodetype
== KLUDGE_LINEMODE
) ||
1007 (lmodetype
== KLUDGE_OK
)) {
1009 * The client is asking us to turn
1012 lmodetype
= KLUDGE_LINEMODE
;
1013 clientstat(TELOPT_LINEMODE
, WILL
, 0);
1015 * If we did not turn line mode on,
1016 * then what do we say? Will SGA?
1017 * This violates design of telnet.
1018 * Gross. Very Gross.
1023 set_my_want_state_wont(option
);
1024 if (my_state_is_will(option
))
1025 send_wont(option
, 0);
1026 set_my_state_wont(option
);
1027 if (turn_on_sga
^= 1)
1028 send_will(option
, 1);
1030 #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */
1036 set_my_want_state_wont(option
);
1037 if (my_state_is_will(option
))
1038 send_wont(option
, 0);
1040 set_my_state_wont(option
);
1042 } /* end of dontoption */
1046 int env_ovalue
= -1;
1047 #else /* ENV_HACK */
1048 # define env_ovar OLD_ENV_VAR
1049 # define env_ovalue OLD_ENV_VALUE
1050 #endif /* ENV_HACK */
1055 * Look at the sub-option buffer, and try to be helpful to the other
1058 * Currently we recognize:
1068 register int subchar
;
1070 DIAG(TD_OPTIONS
, {netflush(); printsub('<', subpointer
, SB_LEN()+2);});
1074 case TELOPT_TSPEED
: {
1075 register int xspeed
, rspeed
;
1077 if (his_state_is_wont(TELOPT_TSPEED
)) /* Ignore if option disabled */
1080 settimer(tspeedsubopt
);
1082 if (SB_EOF() || SB_GET() != TELQUAL_IS
)
1085 xspeed
= atoi((char *)subpointer
);
1087 while (SB_GET() != ',' && !SB_EOF());
1091 rspeed
= atoi((char *)subpointer
);
1092 clientstat(TELOPT_TSPEED
, xspeed
, rspeed
);
1096 } /* end of case TELOPT_TSPEED */
1098 case TELOPT_TTYPE
: { /* Yaaaay! */
1099 static char terminalname
[41];
1101 if (his_state_is_wont(TELOPT_TTYPE
)) /* Ignore if option disabled */
1103 settimer(ttypesubopt
);
1105 if (SB_EOF() || SB_GET() != TELQUAL_IS
) {
1106 return; /* ??? XXX but, this is the most robust */
1109 terminaltype
= terminalname
;
1111 while ((terminaltype
< (terminalname
+ sizeof terminalname
-1)) &&
1119 *terminaltype
++ = c
; /* accumulate name */
1122 terminaltype
= terminalname
;
1124 } /* end of case TELOPT_TTYPE */
1127 register int xwinsize
, ywinsize
;
1129 if (his_state_is_wont(TELOPT_NAWS
)) /* Ignore if option disabled */
1134 xwinsize
= SB_GET() << 8;
1137 xwinsize
|= SB_GET();
1140 ywinsize
= SB_GET() << 8;
1143 ywinsize
|= SB_GET();
1144 clientstat(TELOPT_NAWS
, xwinsize
, ywinsize
);
1148 } /* end of case TELOPT_NAWS */
1151 case TELOPT_LINEMODE
: {
1152 register int request
;
1154 if (his_state_is_wont(TELOPT_LINEMODE
)) /* Ignore if option disabled */
1157 * Process linemode suboptions.
1160 break; /* garbage was sent */
1161 request
= SB_GET(); /* get will/wont */
1164 break; /* another garbage check */
1166 if (request
== LM_SLC
) { /* SLC is not preceded by WILL or WONT */
1168 * Process suboption buffer of slc's
1171 do_opt_slc(subpointer
, subend
- subpointer
);
1174 } else if (request
== LM_MODE
) {
1177 useeditmode
= SB_GET(); /* get mode flag */
1178 clientstat(LM_MODE
, 0, 0);
1184 switch (SB_GET()) { /* what suboption? */
1185 case LM_FORWARDMASK
:
1187 * According to spec, only server can send request for
1188 * forwardmask, and client can only return a positive response.
1189 * So don't worry about it.
1196 } /* end of case TELOPT_LINEMODE */
1198 case TELOPT_STATUS
: {
1206 if (my_state_is_will(TELOPT_STATUS
))
1217 } /* end of case TELOPT_STATUS */
1219 case TELOPT_XDISPLOC
: {
1220 if (SB_EOF() || SB_GET() != TELQUAL_IS
)
1222 settimer(xdisplocsubopt
);
1223 subpointer
[SB_LEN()] = '\0';
1224 (void)setenv("DISPLAY", (char *)subpointer
, 1);
1226 } /* end of case TELOPT_XDISPLOC */
1228 #ifdef TELOPT_NEW_ENVIRON
1229 case TELOPT_NEW_ENVIRON
:
1231 case TELOPT_OLD_ENVIRON
: {
1233 register char *cp
, *varp
, *valp
;
1238 if (c
== TELQUAL_IS
) {
1239 if (subchar
== TELOPT_OLD_ENVIRON
)
1240 settimer(oenvironsubopt
);
1242 settimer(environsubopt
);
1243 } else if (c
!= TELQUAL_INFO
) {
1247 #ifdef TELOPT_NEW_ENVIRON
1248 if (subchar
== TELOPT_NEW_ENVIRON
) {
1251 if ((c
== NEW_ENV_VAR
) || (c
== ENV_USERVAR
))
1259 * We only want to do this if we haven't already decided
1260 * whether or not the other side has its VALUE and VAR
1264 register int last
= -1; /* invalid value */
1266 int got_var
= 0, got_value
= 0, got_uservar
= 0;
1269 * The other side might have its VALUE and VAR values
1270 * reversed. To be interoperable, we need to determine
1271 * which way it is. If the first recognized character
1272 * is a VAR or VALUE, then that will tell us what
1273 * type of client it is. If the fist recognized
1274 * character is a USERVAR, then we continue scanning
1275 * the suboption looking for two consecutive
1276 * VAR or VALUE fields. We should not get two
1277 * consecutive VALUE fields, so finding two
1278 * consecutive VALUE or VAR fields will tell us
1279 * what the client is.
1286 if (last
< 0 || last
== OLD_ENV_VAR
1287 || (empty
&& (last
== OLD_ENV_VALUE
)))
1293 if (last
< 0 || last
== OLD_ENV_VALUE
1294 || (empty
&& (last
== OLD_ENV_VAR
)))
1295 goto env_ovar_wrong
;
1297 last
= OLD_ENV_VALUE
;
1300 /* count strings of USERVAR as one */
1301 if (last
!= ENV_USERVAR
)
1304 if (last
== OLD_ENV_VALUE
)
1306 if (last
== OLD_ENV_VAR
)
1307 goto env_ovar_wrong
;
1322 if (last
== OLD_ENV_VALUE
)
1324 if (last
== OLD_ENV_VAR
)
1325 goto env_ovar_wrong
;
1328 * Ok, the first thing was a USERVAR, and there
1329 * are not two consecutive VAR or VALUE commands,
1330 * and none of the VAR or VALUE commands are empty.
1331 * If the client has sent us a well-formed option,
1332 * then the number of VALUEs received should always
1333 * be less than or equal to the number of VARs and
1334 * USERVARs received.
1336 * If we got exactly as many VALUEs as VARs and
1337 * USERVARs, the client has the same definitions.
1339 * If we got exactly as many VARs as VALUEs and
1340 * USERVARS, the client has reversed definitions.
1342 if (got_uservar
+ got_var
== got_value
) {
1344 env_ovar
= OLD_ENV_VAR
;
1345 env_ovalue
= OLD_ENV_VALUE
;
1346 } else if (got_uservar
+ got_value
== got_var
) {
1348 env_ovar
= OLD_ENV_VALUE
;
1349 env_ovalue
= OLD_ENV_VAR
;
1351 output_data("ENVIRON VALUE and VAR are reversed!\r\n"));
1360 if ((c
== env_ovar
) || (c
== ENV_USERVAR
))
1368 cp
= varp
= (char *)subpointer
;
1373 if (subchar
== TELOPT_OLD_ENVIRON
) {
1376 else if (c
== env_ovalue
)
1383 cp
= valp
= (char *)subpointer
;
1390 (void)setenv(varp
, valp
, 1);
1393 cp
= varp
= (char *)subpointer
;
1409 (void)setenv(varp
, valp
, 1);
1413 } /* end of case TELOPT_NEW_ENVIRON */
1414 #if defined(AUTHENTICATION)
1415 case TELOPT_AUTHENTICATION
:
1422 * These are sent by us and cannot be sent by
1427 auth_is(subpointer
, SB_LEN());
1430 auth_name(subpointer
, SB_LEN());
1438 } /* end of switch */
1440 } /* end of suboption */
1445 clientstat(TELOPT_LINEMODE
, WILL
, 0);
1448 #define ADD(c) *ncp++ = c
1449 #define ADD_DATA(c) { *ncp++ = c; if (c == SE) *ncp++ = c; }
1453 unsigned char statusbuf
[256];
1454 register unsigned char *ncp
;
1455 register unsigned char i
;
1459 netflush(); /* get rid of anything waiting to go out */
1467 * We check the want_state rather than the current state,
1468 * because if we received a DO/WILL for an option that we
1469 * don't support, and the other side didn't send a DONT/WONT
1470 * in response to our WONT/DONT, then the "state" will be
1471 * WILL/DO, and the "want_state" will be WONT/DONT. We
1472 * need to go by the latter.
1474 for (i
= 0; i
< (unsigned char)NTELOPTS
; i
++) {
1475 if (my_want_state_is_will(i
)) {
1481 if (his_want_state_is_will(i
)) {
1489 if (his_want_state_is_will(TELOPT_LFLOW
)) {
1499 if (restartany
>= 0) {
1503 ADD(LFLOW_RESTART_ANY
);
1505 ADD(LFLOW_RESTART_XON
);
1513 if (his_want_state_is_will(TELOPT_LINEMODE
)) {
1514 unsigned char *cp
, *cpe
;
1518 ADD(TELOPT_LINEMODE
);
1521 if (editmode
== IAC
)
1526 ADD(TELOPT_LINEMODE
);
1531 for (cpe
= cp
+ len
; cp
< cpe
; cp
++)
1535 #endif /* LINEMODE */
1540 output_datalen(statusbuf
, ncp
- statusbuf
);
1541 netflush(); /* Send it on its way */
1544 {printsub('>', statusbuf
, ncp
- statusbuf
); netflush();});
1548 * This function appends data to nfrontp and advances nfrontp.
1549 * Returns the number of characters written altogether (the
1550 * buffer may have been flushed in the process).
1554 output_data(const char *format
, ...)
1560 va_start(args
, format
);
1561 if ((len
= vasprintf(&buf
, format
, args
)) == -1)
1563 output_datalen(buf
, len
);
1570 output_datalen(const char *buf
, int len
)
1572 int remaining
, copied
;
1574 remaining
= BUFSIZ
- (nfrontp
- netobuf
);
1576 /* Free up enough space if the room is too low*/
1577 if ((len
> BUFSIZ
? BUFSIZ
: len
) > remaining
) {
1579 remaining
= BUFSIZ
- (nfrontp
- netobuf
);
1582 /* Copy out as much as will fit */
1583 copied
= remaining
> len
? len
: remaining
;
1584 memmove(nfrontp
, buf
, copied
);
1587 remaining
-= copied
;