usr.bin/tip/tip/tipout.c

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