BSD 4_3_Net_1 release

[unix-history] / fingerd / fingerd.c

/*
* Copyright (c) 1983 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1983 The Regents of the University of California.\n\
All rights reserved.\n";
#endif /* not lint */

#ifndef lint
static char sccsid[] = "@(#)fingerd.c   5.4 (Berkeley) 11/23/88";
#endif /* not lint */

#include <stdio.h>

main()
{
       register FILE *fp;
       register int ch;
       register char *lp;
       int p[2];
#define ENTRIES 50
       char **ap, *av[ENTRIES + 1], line[1024], *strtok();

#ifdef LOGGING                                  /* unused for now */
#include <netinet/in.h>
       struct sockaddr_in sin;
       int sval;

       sval = sizeof(sin);
       if (getpeername(0, &sin, &sval) < 0)
               fatal("getpeername");
#endif

       if (!fgets(line, sizeof(line), stdin))
               exit(1);

       av[0] = "finger";
       for (lp = line, ap = &av[1];;) {
               *ap = strtok(lp, " \t\r\n");
               if (!*ap)
                       break;
               /* RFC742: "/[Ww]" == "-l" */
               if ((*ap)[0] == '/' && ((*ap)[1] == 'W' || (*ap)[1] == 'w'))
                       *ap = "-l";
               if (++ap == av + ENTRIES)
                       break;
               lp = NULL;
       }

       if (pipe(p) < 0)
               fatal("pipe");

       switch(fork()) {
       case 0:
               (void)close(p[0]);
               if (p[1] != 1) {
                       (void)dup2(p[1], 1);
                       (void)close(p[1]);
               }
               execv("/usr/ucb/finger", av);
               _exit(1);
       case -1:
               fatal("fork");
       }
       (void)close(p[1]);
       if (!(fp = fdopen(p[0], "r")))
               fatal("fdopen");
       while ((ch = getc(fp)) != EOF) {
               if (ch == '\n')
                       putchar('\r');
               putchar(ch);
       }
       exit(0);
}

fatal(msg)
       char *msg;
{
       extern int errno;
       char *strerror();

       fprintf(stderr, "fingerd: %s: %s\r\n", msg, strerror(errno));
       exit(1);
}