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  */
  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 void
  53 intIOT()
  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 void
  66 intEMT()
  67 {
  68         char c, line[256];
  69         char *pline = line;
  70         char reply;
  71
  72         read(fildes[0], &c, 1);
  73         while (c != '\n' && 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 void
  96 intTERM()
  97 {
  98
  99         if (boolean(value(SCRIPT)) && fscript != NULL)
 100                 fclose(fscript);
 101         exit(0);
 102 }
 103
 104 void
 105 intSYS()
 106 {
 107
 108         boolean(value(BEAUTIFY)) = !boolean(value(BEAUTIFY));
 109         longjmp(sigbuf, 1);
 110 }
 111
 112 /*
 113  * ****TIPOUT   TIPOUT****
 114  */
 115 void
 116 tipout()
 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();
 138                                 /*NOTREACHED*/
 139                         } else if (cnt == 0 && errno == ENOENT) {
 140                                 if (getppid() != 1)
 141                                         kill(getppid(),SIGUSR1);
 142                                 sigblock(sigmask(SIGTERM));
 143                                 intTERM();
 144                                 /*NOTREACHED*/
 145                         } else if (cnt < 0) {
 146                                 if (getppid() != 1)
 147                                         kill(getppid(),SIGUSR1);
 148                                 sigblock(sigmask(SIGTERM));
 149                                 intTERM();
 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 }