sys_term.c revision 1.41 1 1.41 christos /* $NetBSD: sys_term.c,v 1.41 2004/11/14 18:07:56 christos Exp $ */
2 1.8 thorpej
3 1.1 cgd /*
4 1.3 cgd * Copyright (c) 1989, 1993
5 1.3 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.39 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 cgd * may be used to endorse or promote products derived from this software
17 1.1 cgd * without specific prior written permission.
18 1.1 cgd *
19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 cgd * SUCH DAMAGE.
30 1.1 cgd */
31 1.1 cgd
32 1.11 mrg #include <sys/cdefs.h>
33 1.1 cgd #ifndef lint
34 1.8 thorpej #if 0
35 1.8 thorpej static char sccsid[] = "@(#)sys_term.c 8.4+1 (Berkeley) 5/30/95";
36 1.8 thorpej #else
37 1.41 christos __RCSID("$NetBSD: sys_term.c,v 1.41 2004/11/14 18:07:56 christos Exp $");
38 1.8 thorpej #endif
39 1.1 cgd #endif /* not lint */
40 1.1 cgd
41 1.1 cgd #include "telnetd.h"
42 1.1 cgd #include "pathnames.h"
43 1.1 cgd
44 1.11 mrg #include <util.h>
45 1.41 christos #include <vis.h>
46 1.11 mrg
47 1.6 jtk #include <sys/cdefs.h>
48 1.3 cgd
49 1.31 wiz #include <utmp.h>
50 1.1 cgd struct utmp wtmp;
51 1.1 cgd
52 1.1 cgd #define SCPYN(a, b) (void) strncpy(a, b, sizeof(a))
53 1.1 cgd #define SCMPN(a, b) strncmp(a, b, sizeof(a))
54 1.1 cgd
55 1.1 cgd struct termios termbuf, termbuf2; /* pty control structure */
56 1.1 cgd
57 1.11 mrg void getptyslave __P((void));
58 1.11 mrg int cleanopen __P((char *));
59 1.11 mrg char **addarg __P((char **, char *));
60 1.11 mrg void scrub_env __P((void));
61 1.11 mrg int getent __P((char *, char *));
62 1.23 itojun char *getstr __P((const char *, char **));
63 1.16 aidan #ifdef KRB5
64 1.16 aidan extern void kerberos5_cleanup __P((void));
65 1.16 aidan #endif
66 1.11 mrg
67 1.1 cgd /*
68 1.1 cgd * init_termbuf()
69 1.1 cgd * copy_termbuf(cp)
70 1.1 cgd * set_termbuf()
71 1.1 cgd *
72 1.1 cgd * These three routines are used to get and set the "termbuf" structure
73 1.1 cgd * to and from the kernel. init_termbuf() gets the current settings.
74 1.1 cgd * copy_termbuf() hands in a new "termbuf" to write to the kernel, and
75 1.1 cgd * set_termbuf() writes the structure into the kernel.
76 1.1 cgd */
77 1.1 cgd
78 1.36 itojun void
79 1.1 cgd init_termbuf()
80 1.1 cgd {
81 1.1 cgd (void) tcgetattr(pty, &termbuf);
82 1.1 cgd termbuf2 = termbuf;
83 1.1 cgd }
84 1.1 cgd
85 1.1 cgd #if defined(LINEMODE) && defined(TIOCPKT_IOCTL)
86 1.36 itojun void
87 1.1 cgd copy_termbuf(cp, len)
88 1.1 cgd char *cp;
89 1.1 cgd int len;
90 1.1 cgd {
91 1.1 cgd if (len > sizeof(termbuf))
92 1.1 cgd len = sizeof(termbuf);
93 1.6 jtk memmove((char *)&termbuf, cp, len);
94 1.1 cgd termbuf2 = termbuf;
95 1.1 cgd }
96 1.1 cgd #endif /* defined(LINEMODE) && defined(TIOCPKT_IOCTL) */
97 1.1 cgd
98 1.36 itojun void
99 1.1 cgd set_termbuf()
100 1.1 cgd {
101 1.1 cgd /*
102 1.1 cgd * Only make the necessary changes.
103 1.1 cgd */
104 1.6 jtk if (memcmp((char *)&termbuf, (char *)&termbuf2, sizeof(termbuf)))
105 1.1 cgd (void) tcsetattr(pty, TCSANOW, &termbuf);
106 1.1 cgd }
107 1.1 cgd
108 1.1 cgd
109 1.1 cgd /*
110 1.1 cgd * spcset(func, valp, valpp)
111 1.1 cgd *
112 1.1 cgd * This function takes various special characters (func), and
113 1.1 cgd * sets *valp to the current value of that character, and
114 1.1 cgd * *valpp to point to where in the "termbuf" structure that
115 1.1 cgd * value is kept.
116 1.1 cgd *
117 1.1 cgd * It returns the SLC_ level of support for this function.
118 1.1 cgd */
119 1.1 cgd
120 1.1 cgd
121 1.36 itojun int
122 1.1 cgd spcset(func, valp, valpp)
123 1.1 cgd int func;
124 1.1 cgd cc_t *valp;
125 1.1 cgd cc_t **valpp;
126 1.1 cgd {
127 1.1 cgd
128 1.1 cgd #define setval(a, b) *valp = termbuf.c_cc[a]; \
129 1.1 cgd *valpp = &termbuf.c_cc[a]; \
130 1.1 cgd return(b);
131 1.1 cgd #define defval(a) *valp = ((cc_t)a); *valpp = (cc_t *)0; return(SLC_DEFAULT);
132 1.1 cgd
133 1.1 cgd switch(func) {
134 1.1 cgd case SLC_EOF:
135 1.1 cgd setval(VEOF, SLC_VARIABLE);
136 1.1 cgd case SLC_EC:
137 1.1 cgd setval(VERASE, SLC_VARIABLE);
138 1.1 cgd case SLC_EL:
139 1.1 cgd setval(VKILL, SLC_VARIABLE);
140 1.1 cgd case SLC_IP:
141 1.1 cgd setval(VINTR, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT);
142 1.1 cgd case SLC_ABORT:
143 1.1 cgd setval(VQUIT, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT);
144 1.1 cgd case SLC_XON:
145 1.1 cgd setval(VSTART, SLC_VARIABLE);
146 1.1 cgd case SLC_XOFF:
147 1.1 cgd setval(VSTOP, SLC_VARIABLE);
148 1.1 cgd case SLC_EW:
149 1.1 cgd setval(VWERASE, SLC_VARIABLE);
150 1.1 cgd case SLC_RP:
151 1.1 cgd setval(VREPRINT, SLC_VARIABLE);
152 1.1 cgd case SLC_LNEXT:
153 1.1 cgd setval(VLNEXT, SLC_VARIABLE);
154 1.1 cgd case SLC_AO:
155 1.1 cgd setval(VDISCARD, SLC_VARIABLE|SLC_FLUSHOUT);
156 1.1 cgd case SLC_SUSP:
157 1.1 cgd setval(VSUSP, SLC_VARIABLE|SLC_FLUSHIN);
158 1.1 cgd case SLC_FORW1:
159 1.1 cgd setval(VEOL, SLC_VARIABLE);
160 1.1 cgd case SLC_FORW2:
161 1.1 cgd setval(VEOL2, SLC_VARIABLE);
162 1.1 cgd case SLC_AYT:
163 1.1 cgd setval(VSTATUS, SLC_VARIABLE);
164 1.1 cgd
165 1.1 cgd case SLC_BRK:
166 1.1 cgd case SLC_SYNCH:
167 1.1 cgd case SLC_EOR:
168 1.1 cgd defval(0);
169 1.1 cgd
170 1.1 cgd default:
171 1.1 cgd *valp = 0;
172 1.1 cgd *valpp = 0;
173 1.1 cgd return(SLC_NOSUPPORT);
174 1.1 cgd }
175 1.1 cgd }
176 1.1 cgd
177 1.1 cgd
178 1.1 cgd /*
179 1.1 cgd * getpty()
180 1.1 cgd *
181 1.1 cgd * Allocate a pty. As a side effect, the external character
182 1.1 cgd * array "line" contains the name of the slave side.
183 1.1 cgd *
184 1.1 cgd * Returns the file descriptor of the opened pty.
185 1.1 cgd */
186 1.1 cgd #ifndef __GNUC__
187 1.19 christos char *line = NULL16STR;
188 1.1 cgd #else
189 1.19 christos static char Xline[] = NULL16STR;
190 1.1 cgd char *line = Xline;
191 1.1 cgd #endif
192 1.1 cgd
193 1.13 perry
194 1.13 perry static int ptyslavefd; /* for cleanopen() */
195 1.13 perry
196 1.13 perry int
197 1.13 perry getpty(ptynum)
198 1.13 perry int *ptynum;
199 1.13 perry {
200 1.13 perry int ptyfd;
201 1.13 perry
202 1.13 perry ptyfd = openpty(ptynum, &ptyslavefd, line, NULL, NULL);
203 1.13 perry if (ptyfd == 0)
204 1.13 perry return *ptynum;
205 1.13 perry ptyslavefd = -1;
206 1.13 perry return (-1);
207 1.13 perry }
208 1.1 cgd
209 1.1 cgd #ifdef LINEMODE
210 1.1 cgd /*
211 1.1 cgd * tty_flowmode() Find out if flow control is enabled or disabled.
212 1.1 cgd * tty_linemode() Find out if linemode (external processing) is enabled.
213 1.1 cgd * tty_setlinemod(on) Turn on/off linemode.
214 1.1 cgd * tty_isecho() Find out if echoing is turned on.
215 1.1 cgd * tty_setecho(on) Enable/disable character echoing.
216 1.1 cgd * tty_israw() Find out if terminal is in RAW mode.
217 1.1 cgd * tty_binaryin(on) Turn on/off BINARY on input.
218 1.1 cgd * tty_binaryout(on) Turn on/off BINARY on output.
219 1.1 cgd * tty_isediting() Find out if line editing is enabled.
220 1.1 cgd * tty_istrapsig() Find out if signal trapping is enabled.
221 1.1 cgd * tty_setedit(on) Turn on/off line editing.
222 1.1 cgd * tty_setsig(on) Turn on/off signal trapping.
223 1.1 cgd * tty_issofttab() Find out if tab expansion is enabled.
224 1.1 cgd * tty_setsofttab(on) Turn on/off soft tab expansion.
225 1.1 cgd * tty_islitecho() Find out if typed control chars are echoed literally
226 1.1 cgd * tty_setlitecho() Turn on/off literal echo of control chars
227 1.1 cgd * tty_tspeed(val) Set transmit speed to val.
228 1.1 cgd * tty_rspeed(val) Set receive speed to val.
229 1.1 cgd */
230 1.1 cgd
231 1.1 cgd
232 1.36 itojun int
233 1.1 cgd tty_linemode()
234 1.1 cgd {
235 1.1 cgd return(termbuf.c_lflag & EXTPROC);
236 1.1 cgd }
237 1.1 cgd
238 1.36 itojun void
239 1.1 cgd tty_setlinemode(on)
240 1.1 cgd int on;
241 1.1 cgd {
242 1.1 cgd set_termbuf();
243 1.1 cgd (void) ioctl(pty, TIOCEXT, (char *)&on);
244 1.1 cgd init_termbuf();
245 1.1 cgd }
246 1.3 cgd #endif /* LINEMODE */
247 1.1 cgd
248 1.36 itojun int
249 1.1 cgd tty_isecho()
250 1.1 cgd {
251 1.1 cgd return (termbuf.c_lflag & ECHO);
252 1.1 cgd }
253 1.3 cgd
254 1.36 itojun int
255 1.3 cgd tty_flowmode()
256 1.3 cgd {
257 1.3 cgd return((termbuf.c_iflag & IXON) ? 1 : 0);
258 1.3 cgd }
259 1.3 cgd
260 1.36 itojun int
261 1.3 cgd tty_restartany()
262 1.3 cgd {
263 1.3 cgd return((termbuf.c_iflag & IXANY) ? 1 : 0);
264 1.3 cgd }
265 1.1 cgd
266 1.36 itojun void
267 1.1 cgd tty_setecho(on)
268 1.1 cgd int on;
269 1.1 cgd {
270 1.1 cgd if (on)
271 1.1 cgd termbuf.c_lflag |= ECHO;
272 1.1 cgd else
273 1.1 cgd termbuf.c_lflag &= ~ECHO;
274 1.1 cgd }
275 1.1 cgd
276 1.36 itojun int
277 1.1 cgd tty_israw()
278 1.1 cgd {
279 1.1 cgd return(!(termbuf.c_lflag & ICANON));
280 1.1 cgd }
281 1.3 cgd
282 1.36 itojun void
283 1.1 cgd tty_binaryin(on)
284 1.1 cgd int on;
285 1.1 cgd {
286 1.1 cgd if (on) {
287 1.1 cgd termbuf.c_iflag &= ~ISTRIP;
288 1.1 cgd } else {
289 1.1 cgd termbuf.c_iflag |= ISTRIP;
290 1.1 cgd }
291 1.1 cgd }
292 1.1 cgd
293 1.36 itojun void
294 1.1 cgd tty_binaryout(on)
295 1.1 cgd int on;
296 1.1 cgd {
297 1.1 cgd if (on) {
298 1.1 cgd termbuf.c_cflag &= ~(CSIZE|PARENB);
299 1.1 cgd termbuf.c_cflag |= CS8;
300 1.1 cgd termbuf.c_oflag &= ~OPOST;
301 1.1 cgd } else {
302 1.1 cgd termbuf.c_cflag &= ~CSIZE;
303 1.1 cgd termbuf.c_cflag |= CS7|PARENB;
304 1.1 cgd termbuf.c_oflag |= OPOST;
305 1.1 cgd }
306 1.1 cgd }
307 1.1 cgd
308 1.36 itojun int
309 1.1 cgd tty_isbinaryin()
310 1.1 cgd {
311 1.1 cgd return(!(termbuf.c_iflag & ISTRIP));
312 1.1 cgd }
313 1.1 cgd
314 1.36 itojun int
315 1.1 cgd tty_isbinaryout()
316 1.1 cgd {
317 1.1 cgd return(!(termbuf.c_oflag&OPOST));
318 1.1 cgd }
319 1.1 cgd
320 1.1 cgd #ifdef LINEMODE
321 1.36 itojun int
322 1.1 cgd tty_isediting()
323 1.1 cgd {
324 1.1 cgd return(termbuf.c_lflag & ICANON);
325 1.1 cgd }
326 1.1 cgd
327 1.36 itojun int
328 1.1 cgd tty_istrapsig()
329 1.1 cgd {
330 1.1 cgd return(termbuf.c_lflag & ISIG);
331 1.1 cgd }
332 1.1 cgd
333 1.36 itojun void
334 1.1 cgd tty_setedit(on)
335 1.1 cgd int on;
336 1.1 cgd {
337 1.1 cgd if (on)
338 1.1 cgd termbuf.c_lflag |= ICANON;
339 1.1 cgd else
340 1.1 cgd termbuf.c_lflag &= ~ICANON;
341 1.1 cgd }
342 1.1 cgd
343 1.36 itojun void
344 1.1 cgd tty_setsig(on)
345 1.1 cgd int on;
346 1.1 cgd {
347 1.1 cgd if (on)
348 1.1 cgd termbuf.c_lflag |= ISIG;
349 1.1 cgd else
350 1.1 cgd termbuf.c_lflag &= ~ISIG;
351 1.1 cgd }
352 1.1 cgd #endif /* LINEMODE */
353 1.1 cgd
354 1.36 itojun int
355 1.1 cgd tty_issofttab()
356 1.1 cgd {
357 1.1 cgd # ifdef OXTABS
358 1.1 cgd return (termbuf.c_oflag & OXTABS);
359 1.1 cgd # endif
360 1.1 cgd # ifdef TABDLY
361 1.1 cgd return ((termbuf.c_oflag & TABDLY) == TAB3);
362 1.1 cgd # endif
363 1.1 cgd }
364 1.1 cgd
365 1.36 itojun void
366 1.1 cgd tty_setsofttab(on)
367 1.1 cgd int on;
368 1.1 cgd {
369 1.1 cgd if (on) {
370 1.1 cgd # ifdef OXTABS
371 1.1 cgd termbuf.c_oflag |= OXTABS;
372 1.1 cgd # endif
373 1.1 cgd # ifdef TABDLY
374 1.1 cgd termbuf.c_oflag &= ~TABDLY;
375 1.1 cgd termbuf.c_oflag |= TAB3;
376 1.1 cgd # endif
377 1.1 cgd } else {
378 1.1 cgd # ifdef OXTABS
379 1.1 cgd termbuf.c_oflag &= ~OXTABS;
380 1.1 cgd # endif
381 1.1 cgd # ifdef TABDLY
382 1.1 cgd termbuf.c_oflag &= ~TABDLY;
383 1.1 cgd termbuf.c_oflag |= TAB0;
384 1.1 cgd # endif
385 1.1 cgd }
386 1.1 cgd }
387 1.1 cgd
388 1.36 itojun int
389 1.1 cgd tty_islitecho()
390 1.1 cgd {
391 1.1 cgd # ifdef ECHOCTL
392 1.1 cgd return (!(termbuf.c_lflag & ECHOCTL));
393 1.1 cgd # endif
394 1.1 cgd # ifdef TCTLECH
395 1.1 cgd return (!(termbuf.c_lflag & TCTLECH));
396 1.1 cgd # endif
397 1.1 cgd # if !defined(ECHOCTL) && !defined(TCTLECH)
398 1.1 cgd return (0); /* assumes ctl chars are echoed '^x' */
399 1.1 cgd # endif
400 1.1 cgd }
401 1.1 cgd
402 1.36 itojun void
403 1.1 cgd tty_setlitecho(on)
404 1.1 cgd int on;
405 1.1 cgd {
406 1.1 cgd # ifdef ECHOCTL
407 1.1 cgd if (on)
408 1.1 cgd termbuf.c_lflag &= ~ECHOCTL;
409 1.1 cgd else
410 1.1 cgd termbuf.c_lflag |= ECHOCTL;
411 1.1 cgd # endif
412 1.1 cgd # ifdef TCTLECH
413 1.1 cgd if (on)
414 1.1 cgd termbuf.c_lflag &= ~TCTLECH;
415 1.1 cgd else
416 1.1 cgd termbuf.c_lflag |= TCTLECH;
417 1.1 cgd # endif
418 1.1 cgd }
419 1.1 cgd
420 1.36 itojun int
421 1.1 cgd tty_iscrnl()
422 1.1 cgd {
423 1.1 cgd return (termbuf.c_iflag & ICRNL);
424 1.1 cgd }
425 1.1 cgd
426 1.36 itojun void
427 1.1 cgd tty_tspeed(val)
428 1.1 cgd int val;
429 1.1 cgd {
430 1.6 jtk cfsetospeed(&termbuf, val);
431 1.1 cgd }
432 1.1 cgd
433 1.36 itojun void
434 1.1 cgd tty_rspeed(val)
435 1.1 cgd int val;
436 1.1 cgd {
437 1.6 jtk cfsetispeed(&termbuf, val);
438 1.1 cgd }
439 1.1 cgd
440 1.1 cgd
441 1.1 cgd
442 1.1 cgd
443 1.1 cgd /*
444 1.1 cgd * getptyslave()
445 1.1 cgd *
446 1.1 cgd * Open the slave side of the pty, and do any initialization
447 1.1 cgd * that is necessary. The return value is a file descriptor
448 1.1 cgd * for the slave side.
449 1.1 cgd */
450 1.22 christos extern int def_tspeed, def_rspeed;
451 1.22 christos extern int def_row, def_col;
452 1.22 christos
453 1.22 christos void
454 1.1 cgd getptyslave()
455 1.1 cgd {
456 1.1 cgd register int t = -1;
457 1.1 cgd
458 1.31 wiz #ifdef LINEMODE
459 1.1 cgd int waslm;
460 1.31 wiz #endif
461 1.1 cgd struct winsize ws;
462 1.1 cgd /*
463 1.1 cgd * Opening the slave side may cause initilization of the
464 1.1 cgd * kernel tty structure. We need remember the state of
465 1.1 cgd * if linemode was turned on
466 1.1 cgd * terminal window size
467 1.1 cgd * terminal speed
468 1.1 cgd * so that we can re-set them if we need to.
469 1.1 cgd */
470 1.31 wiz #ifdef LINEMODE
471 1.1 cgd waslm = tty_linemode();
472 1.31 wiz #endif
473 1.1 cgd
474 1.1 cgd /*
475 1.1 cgd * Make sure that we don't have a controlling tty, and
476 1.1 cgd * that we are the session (process group) leader.
477 1.1 cgd */
478 1.1 cgd t = open(_PATH_TTY, O_RDWR);
479 1.1 cgd if (t >= 0) {
480 1.1 cgd (void) ioctl(t, TIOCNOTTY, (char *)0);
481 1.1 cgd (void) close(t);
482 1.1 cgd }
483 1.1 cgd
484 1.1 cgd
485 1.1 cgd
486 1.1 cgd t = cleanopen(line);
487 1.1 cgd if (t < 0)
488 1.1 cgd fatalperror(net, line);
489 1.1 cgd
490 1.3 cgd
491 1.1 cgd /*
492 1.1 cgd * set up the tty modes as we like them to be.
493 1.1 cgd */
494 1.1 cgd init_termbuf();
495 1.1 cgd if (def_row || def_col) {
496 1.6 jtk memset((char *)&ws, 0, sizeof(ws));
497 1.1 cgd ws.ws_col = def_col;
498 1.1 cgd ws.ws_row = def_row;
499 1.1 cgd (void)ioctl(t, TIOCSWINSZ, (char *)&ws);
500 1.1 cgd }
501 1.1 cgd
502 1.1 cgd /*
503 1.1 cgd * Settings for sgtty based systems
504 1.1 cgd */
505 1.1 cgd
506 1.1 cgd /*
507 1.1 cgd * Settings for all other termios/termio based
508 1.1 cgd * systems, other than 4.4BSD. In 4.4BSD the
509 1.1 cgd * kernel does the initial terminal setup.
510 1.1 cgd */
511 1.1 cgd tty_rspeed((def_rspeed > 0) ? def_rspeed : 9600);
512 1.1 cgd tty_tspeed((def_tspeed > 0) ? def_tspeed : 9600);
513 1.31 wiz #ifdef LINEMODE
514 1.1 cgd if (waslm)
515 1.1 cgd tty_setlinemode(1);
516 1.31 wiz #endif /* LINEMODE */
517 1.1 cgd
518 1.1 cgd /*
519 1.1 cgd * Set the tty modes, and make this our controlling tty.
520 1.1 cgd */
521 1.1 cgd set_termbuf();
522 1.1 cgd if (login_tty(t) == -1)
523 1.1 cgd fatalperror(net, "login_tty");
524 1.1 cgd if (net > 2)
525 1.1 cgd (void) close(net);
526 1.3 cgd if (pty > 2) {
527 1.1 cgd (void) close(pty);
528 1.3 cgd pty = -1;
529 1.3 cgd }
530 1.1 cgd }
531 1.1 cgd
532 1.1 cgd /*
533 1.1 cgd * Open the specified slave side of the pty,
534 1.1 cgd * making sure that we have a clean tty.
535 1.1 cgd */
536 1.36 itojun int
537 1.23 itojun cleanopen(ttyline)
538 1.23 itojun char *ttyline;
539 1.1 cgd {
540 1.13 perry return ptyslavefd;
541 1.1 cgd }
542 1.1 cgd
543 1.1 cgd /*
544 1.1 cgd * startslave(host)
545 1.1 cgd *
546 1.1 cgd * Given a hostname, do whatever
547 1.1 cgd * is necessary to startup the login process on the slave side of the pty.
548 1.1 cgd */
549 1.1 cgd
550 1.1 cgd /* ARGSUSED */
551 1.36 itojun void
552 1.1 cgd startslave(host, autologin, autoname)
553 1.1 cgd char *host;
554 1.1 cgd int autologin;
555 1.1 cgd char *autoname;
556 1.1 cgd {
557 1.1 cgd register int i;
558 1.1 cgd
559 1.36 itojun #ifdef AUTHENTICATION
560 1.1 cgd if (!autoname || !autoname[0])
561 1.1 cgd autologin = 0;
562 1.1 cgd
563 1.1 cgd if (autologin < auth_level) {
564 1.1 cgd fatal(net, "Authorization failed");
565 1.1 cgd exit(1);
566 1.1 cgd }
567 1.1 cgd #endif
568 1.1 cgd
569 1.1 cgd
570 1.1 cgd if ((i = fork()) < 0)
571 1.1 cgd fatalperror(net, "fork");
572 1.1 cgd if (i) {
573 1.1 cgd } else {
574 1.11 mrg getptyslave();
575 1.1 cgd start_login(host, autologin, autoname);
576 1.1 cgd /*NOTREACHED*/
577 1.1 cgd }
578 1.1 cgd }
579 1.1 cgd
580 1.1 cgd char *envinit[3];
581 1.1 cgd
582 1.36 itojun void
583 1.1 cgd init_env()
584 1.1 cgd {
585 1.1 cgd char **envp;
586 1.1 cgd
587 1.1 cgd envp = envinit;
588 1.11 mrg if ((*envp = getenv("TZ")))
589 1.1 cgd *envp++ -= 3;
590 1.1 cgd *envp = 0;
591 1.1 cgd environ = envinit;
592 1.1 cgd }
593 1.1 cgd
594 1.1 cgd
595 1.1 cgd /*
596 1.1 cgd * start_login(host)
597 1.1 cgd *
598 1.1 cgd * Assuming that we are now running as a child processes, this
599 1.1 cgd * function will turn us into the login process.
600 1.1 cgd */
601 1.22 christos extern char *gettyname;
602 1.1 cgd
603 1.36 itojun void
604 1.1 cgd start_login(host, autologin, name)
605 1.1 cgd char *host;
606 1.1 cgd int autologin;
607 1.1 cgd char *name;
608 1.1 cgd {
609 1.1 cgd register char **argv;
610 1.9 tls #define TABBUFSIZ 512
611 1.9 tls char defent[TABBUFSIZ];
612 1.9 tls char defstrs[TABBUFSIZ];
613 1.9 tls #undef TABBUFSIZ
614 1.23 itojun const char *loginprog = NULL;
615 1.41 christos extern struct sockaddr_storage from;
616 1.41 christos char buf[sizeof(from) * 4 + 1];
617 1.1 cgd
618 1.6 jtk scrub_env();
619 1.6 jtk
620 1.1 cgd /*
621 1.41 christos * -a : pass on the address of the host.
622 1.1 cgd * -h : pass on name of host.
623 1.41 christos * WARNING: -h and -a are accepted by login
624 1.41 christos * if and only if getuid() == 0.
625 1.1 cgd * -p : don't clobber the environment (so terminal type stays set).
626 1.1 cgd *
627 1.1 cgd * -f : force this login, he has already been authenticated
628 1.1 cgd */
629 1.1 cgd argv = addarg(0, "login");
630 1.3 cgd
631 1.41 christos argv = addarg(argv, "-a");
632 1.41 christos (void)strvisx(buf, (const char *)(const void *)&from, sizeof(from),
633 1.41 christos VIS_WHITE);
634 1.41 christos argv = addarg(argv, buf);
635 1.41 christos
636 1.41 christos argv = addarg(argv, "-h");
637 1.41 christos argv = addarg(argv, host);
638 1.41 christos
639 1.1 cgd argv = addarg(argv, "-p");
640 1.6 jtk #ifdef LINEMODE
641 1.6 jtk /*
642 1.6 jtk * Set the environment variable "LINEMODE" to either
643 1.6 jtk * "real" or "kludge" if we are operating in either
644 1.6 jtk * real or kludge linemode.
645 1.6 jtk */
646 1.6 jtk if (lmodetype == REAL_LINEMODE)
647 1.6 jtk setenv("LINEMODE", "real", 1);
648 1.6 jtk # ifdef KLUDGELINEMODE
649 1.6 jtk else if (lmodetype == KLUDGE_LINEMODE || lmodetype == KLUDGE_OK)
650 1.6 jtk setenv("LINEMODE", "kludge", 1);
651 1.6 jtk # endif
652 1.6 jtk #endif
653 1.36 itojun #ifdef SECURELOGIN
654 1.1 cgd /*
655 1.1 cgd * don't worry about the -f that might get sent.
656 1.1 cgd * A -s is supposed to override it anyhow.
657 1.1 cgd */
658 1.15 dean if (require_secure_login)
659 1.1 cgd argv = addarg(argv, "-s");
660 1.1 cgd #endif
661 1.36 itojun #ifdef AUTHENTICATION
662 1.1 cgd if (auth_level >= 0 && autologin == AUTH_VALID) {
663 1.1 cgd argv = addarg(argv, "-f");
664 1.5 mycroft argv = addarg(argv, "--");
665 1.3 cgd argv = addarg(argv, name);
666 1.1 cgd } else
667 1.1 cgd #endif
668 1.1 cgd if (getenv("USER")) {
669 1.5 mycroft argv = addarg(argv, "--");
670 1.1 cgd argv = addarg(argv, getenv("USER"));
671 1.3 cgd /*
672 1.3 cgd * Assume that login will set the USER variable
673 1.3 cgd * correctly. For SysV systems, this means that
674 1.3 cgd * USER will no longer be set, just LOGNAME by
675 1.3 cgd * login. (The problem is that if the auto-login
676 1.3 cgd * fails, and the user then specifies a different
677 1.3 cgd * account name, he can get logged in with both
678 1.3 cgd * LOGNAME and USER in his environment, but the
679 1.3 cgd * USER value will be wrong.
680 1.3 cgd */
681 1.3 cgd unsetenv("USER");
682 1.1 cgd }
683 1.9 tls if (getent(defent, gettyname) == 1) {
684 1.9 tls char *cp = defstrs;
685 1.9 tls
686 1.9 tls loginprog = getstr("lo", &cp);
687 1.9 tls }
688 1.9 tls if (loginprog == NULL)
689 1.9 tls loginprog = _PATH_LOGIN;
690 1.1 cgd closelog();
691 1.6 jtk /*
692 1.6 jtk * This sleep(1) is in here so that telnetd can
693 1.6 jtk * finish up with the tty. There's a race condition
694 1.6 jtk * the login banner message gets lost...
695 1.6 jtk */
696 1.6 jtk sleep(1);
697 1.9 tls execv(loginprog, argv);
698 1.1 cgd
699 1.25 wiz syslog(LOG_ERR, "%s: %m", loginprog);
700 1.9 tls fatalperror(net, loginprog);
701 1.1 cgd /*NOTREACHED*/
702 1.1 cgd }
703 1.1 cgd
704 1.1 cgd char **
705 1.1 cgd addarg(argv, val)
706 1.1 cgd register char **argv;
707 1.1 cgd register char *val;
708 1.1 cgd {
709 1.1 cgd register char **cpp;
710 1.40 itojun char **nargv;
711 1.1 cgd
712 1.1 cgd if (argv == NULL) {
713 1.1 cgd /*
714 1.1 cgd * 10 entries, a leading length, and a null
715 1.1 cgd */
716 1.1 cgd argv = (char **)malloc(sizeof(*argv) * 12);
717 1.1 cgd if (argv == NULL)
718 1.1 cgd return(NULL);
719 1.1 cgd *argv++ = (char *)10;
720 1.1 cgd *argv = (char *)0;
721 1.1 cgd }
722 1.1 cgd for (cpp = argv; *cpp; cpp++)
723 1.1 cgd ;
724 1.7 jtk if (cpp == &argv[(long)argv[-1]]) {
725 1.1 cgd --argv;
726 1.40 itojun nargv = (char **)realloc(argv,
727 1.40 itojun sizeof(*argv) * ((long)(*argv) + 10 + 2));
728 1.18 tron if (argv == NULL) {
729 1.18 tron fatal(net, "not enough memory");
730 1.18 tron /*NOTREACHED*/
731 1.18 tron }
732 1.40 itojun argv = nargv;
733 1.40 itojun *argv = (char *)((long)(*argv) + 10);
734 1.1 cgd argv++;
735 1.7 jtk cpp = &argv[(long)argv[-1] - 10];
736 1.1 cgd }
737 1.1 cgd *cpp++ = val;
738 1.1 cgd *cpp = 0;
739 1.1 cgd return(argv);
740 1.1 cgd }
741 1.1 cgd
742 1.1 cgd /*
743 1.6 jtk * scrub_env()
744 1.6 jtk *
745 1.20 assar * We only accept the environment variables listed below.
746 1.6 jtk */
747 1.20 assar
748 1.11 mrg void
749 1.6 jtk scrub_env()
750 1.6 jtk {
751 1.20 assar static const char *reject[] = {
752 1.20 assar "TERMCAP=/",
753 1.20 assar NULL
754 1.20 assar };
755 1.20 assar
756 1.27 wiz static const char *acceptstr[] = {
757 1.20 assar "XAUTH=", "XAUTHORITY=", "DISPLAY=",
758 1.20 assar "TERM=",
759 1.20 assar "EDITOR=",
760 1.20 assar "PAGER=",
761 1.20 assar "LOGNAME=",
762 1.20 assar "POSIXLY_CORRECT=",
763 1.20 assar "TERMCAP=",
764 1.20 assar "PRINTER=",
765 1.20 assar NULL
766 1.20 assar };
767 1.20 assar
768 1.20 assar char **cpp, **cpp2;
769 1.20 assar const char **p;
770 1.6 jtk
771 1.6 jtk for (cpp2 = cpp = environ; *cpp; cpp++) {
772 1.20 assar int reject_it = 0;
773 1.20 assar
774 1.20 assar for(p = reject; *p; p++)
775 1.20 assar if(strncmp(*cpp, *p, strlen(*p)) == 0) {
776 1.20 assar reject_it = 1;
777 1.20 assar break;
778 1.20 assar }
779 1.20 assar if (reject_it)
780 1.20 assar continue;
781 1.20 assar
782 1.27 wiz for(p = acceptstr; *p; p++)
783 1.20 assar if(strncmp(*cpp, *p, strlen(*p)) == 0)
784 1.20 assar break;
785 1.20 assar if(*p != NULL)
786 1.6 jtk *cpp2++ = *cpp;
787 1.6 jtk }
788 1.20 assar *cpp2 = NULL;
789 1.6 jtk }
790 1.6 jtk
791 1.6 jtk /*
792 1.1 cgd * cleanup()
793 1.1 cgd *
794 1.1 cgd * This is the routine to call when we are all through, to
795 1.1 cgd * clean up anything that needs to be cleaned up.
796 1.1 cgd */
797 1.36 itojun /* ARGSUSED */
798 1.36 itojun void
799 1.1 cgd cleanup(sig)
800 1.1 cgd int sig;
801 1.1 cgd {
802 1.14 tsarna char *p, c;
803 1.1 cgd
804 1.1 cgd p = line + sizeof("/dev/") - 1;
805 1.32 christos #ifdef SUPPORT_UTMP
806 1.1 cgd if (logout(p))
807 1.1 cgd logwtmp(p, "", "");
808 1.32 christos #endif
809 1.32 christos #ifdef SUPPORT_UTMPX
810 1.32 christos if (logoutx(p, 0, DEAD_PROCESS))
811 1.32 christos logwtmpx(p, "", "", 0, DEAD_PROCESS);
812 1.32 christos #endif
813 1.1 cgd (void)chmod(line, 0666);
814 1.1 cgd (void)chown(line, 0, 0);
815 1.14 tsarna c = *p; *p = 'p';
816 1.1 cgd (void)chmod(line, 0666);
817 1.1 cgd (void)chown(line, 0, 0);
818 1.14 tsarna *p = c;
819 1.14 tsarna if (ttyaction(line, "telnetd", "root"))
820 1.14 tsarna syslog(LOG_ERR, "%s: ttyaction failed", line);
821 1.1 cgd (void) shutdown(net, 2);
822 1.1 cgd exit(1);
823 1.1 cgd }
824