1 /* 2 * Copyright (c) 1983, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 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. 20 * 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 31 * SUCH DAMAGE. 32 * 33 * @(#)tipout.c 8.1 (Berkeley) 6/6/93 34 * $FreeBSD: src/usr.bin/tip/tip/tipout.c,v 1.6.2.2 2001/06/02 08:08:24 phk Exp $ 35 */ 36 37 #include "tip.h" 38 #include <errno.h> 39 /* 40 * tip 41 * 42 * lower fork of tip -- handles passive side 43 * reading from the remote host 44 */ 45 46 static jmp_buf sigbuf; 47 48 /* 49 * TIPOUT wait state routine -- 50 * sent by TIPIN when it wants to posses the remote host 51 */ 52 static void 53 intIOT(int signo) 54 { 55 56 write(repdes[1],&ccc,1); 57 read(fildes[0], &ccc,1); 58 longjmp(sigbuf, 1); 59 } 60 61 /* 62 * Scripting command interpreter -- 63 * accepts script file name over the pipe and acts accordingly 64 */ 65 static void 66 intEMT(int signo) 67 { 68 char c, line[256]; 69 char *pline = line; 70 char reply; 71 72 read(fildes[0], &c, 1); 73 while (c != '\n' && (size_t)(pline - line) < sizeof(line)) { 74 *pline++ = c; 75 read(fildes[0], &c, 1); 76 } 77 *pline = '\0'; 78 if (boolean(value(SCRIPT)) && fscript != NULL) 79 fclose(fscript); 80 if (pline == line) { 81 boolean(value(SCRIPT)) = FALSE; 82 reply = 'y'; 83 } else { 84 if ((fscript = fopen(line, "a")) == NULL) 85 reply = 'n'; 86 else { 87 reply = 'y'; 88 boolean(value(SCRIPT)) = TRUE; 89 } 90 } 91 write(repdes[1], &reply, 1); 92 longjmp(sigbuf, 1); 93 } 94 95 static void 96 intTERM(int signo) 97 { 98 99 if (boolean(value(SCRIPT)) && fscript != NULL) 100 fclose(fscript); 101 exit(0); 102 } 103 104 static void 105 intSYS(int signo) 106 { 107 108 boolean(value(BEAUTIFY)) = !boolean(value(BEAUTIFY)); 109 longjmp(sigbuf, 1); 110 } 111 112 /* 113 * ****TIPOUT TIPOUT**** 114 */ 115 void 116 tipout(void) 117 { 118 char buf[BUFSIZ]; 119 char *cp; 120 int cnt; 121 int omask; 122 123 signal(SIGINT, SIG_IGN); 124 signal(SIGQUIT, SIG_IGN); 125 signal(SIGEMT, intEMT); /* attention from TIPIN */ 126 signal(SIGTERM, intTERM); /* time to go signal */ 127 signal(SIGIOT, intIOT); /* scripting going on signal */ 128 signal(SIGHUP, intTERM); /* for dial-ups */ 129 signal(SIGSYS, intSYS); /* beautify toggle */ 130 (void) setjmp(sigbuf); 131 for (omask = 0;; sigsetmask(omask)) { 132 cnt = read(FD, buf, BUFSIZ); 133 if (cnt <= 0) { 134 /* lost carrier */ 135 if (cnt < 0 && errno == EIO) { 136 sigblock(sigmask(SIGTERM)); 137 intTERM(0); 138 /*NOTREACHED*/ 139 } else if (cnt == 0 && errno == ENOENT) { 140 if (getppid() != 1) 141 kill(getppid(),SIGUSR1); 142 sigblock(sigmask(SIGTERM)); 143 intTERM(0); 144 /*NOTREACHED*/ 145 } else if (cnt < 0) { 146 if (getppid() != 1) 147 kill(getppid(),SIGUSR1); 148 sigblock(sigmask(SIGTERM)); 149 intTERM(0); 150 /*NOTREACHED*/ 151 } 152 continue; 153 } 154 #define ALLSIGS sigmask(SIGEMT)|sigmask(SIGTERM)|sigmask(SIGIOT)|sigmask(SIGSYS) 155 omask = sigblock(ALLSIGS); 156 for (cp = buf; cp < buf + cnt; cp++) 157 *cp &= 0177; 158 if (write(1, buf, cnt) < 0) 159 exit(1); 160 if (boolean(value(SCRIPT)) && fscript != NULL) { 161 if (!boolean(value(BEAUTIFY))) { 162 fwrite(buf, 1, cnt, fscript); 163 continue; 164 } 165 for (cp = buf; cp < buf + cnt; cp++) 166 if ((*cp >= ' ' && *cp <= '~') || 167 any(*cp, value(EXCEPTIONS))) 168 putc(*cp, fscript); 169 } 170 } 171 } 172