cat? is not world writeable

[unix-history] / usr / src / old / catman / catman.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.  The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/

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

#ifndef lint
static char sccsid[] = "@(#)catman.c    5.3 (Berkeley) %G%";
#endif not lint

/*
* catman: update cat'able versions of manual pages
*  (whatis database also)
*/
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <sys/dir.h>
#include <ctype.h>

#define SYSTEM(str)     (pflag ? printf("%s\n", str) : system(str))

char    buf[BUFSIZ];
char    pflag;
char    nflag;
char    wflag;
char    man[MAXNAMLEN+6] = "manx/";
char    cat[MAXNAMLEN+6] = "catx/";
char    lncat[MAXNAMLEN+6] = "catx/";
char    *mandir = "/usr/man";
char    *rindex();

main(ac, av)
       int ac;
       char *av[];
{
       register char *msp, *csp, *sp;
       register char *sections;
       register int exstat = 0;
       register char changed = 0;

       ac--, av++;
       while (ac > 0 && av[0][0] == '-') {
               switch (av[0][1]) {

               case 'p':
                       pflag++;
                       break;

               case 'n':
                       nflag++;
                       break;

               case 'w':
                       wflag++;
                       break;

               case 'M':
               case 'P':
                       if (ac < 1) {
                               fprintf(stderr, "%s: missing directory\n",
                                   av[0]);
                               exit(1);
                       }
                       ac--, av++;
                       mandir = *av;
                       break;

               default:
                       goto usage;
               }
               ac--, av++;
       }
       if (ac > 1) {
usage:
               printf("usage: catman [ -p ] [ -n ] [ -w ] [ -M path ] [ sections ]\n");
               exit(-1);
       }
       sections = (ac == 1) ? *av : "12345678ln";
       if (wflag)
               goto whatis;
       if (chdir(mandir) < 0) {
               fprintf(stderr, "catman: "), perror(mandir);
               exit(1);
       }
       msp = &man[5];
       csp = &cat[5];
       umask(02);
       for (sp = sections; *sp; sp++) {
               register DIR *mdir;
               register struct direct *dir;
               struct stat sbuf;

               man[3] = cat[3] = *sp;
               *msp = *csp = '\0';
               if ((mdir = opendir(man)) == NULL) {
                       fprintf(stderr, "opendir:");
                       perror(man);
                       exstat = 1;
                       continue;
               }
               if (stat(cat, &sbuf) < 0) {
                       char buf[MAXNAMLEN + 6], *cp, *rindex();

                       strcpy(buf, cat);
                       cp = rindex(buf, '/');
                       if (cp && cp[1] == '\0')
                               *cp = '\0';
                       if (pflag)
                               printf("mkdir %s\n", buf);
                       else if (mkdir(buf, 0775) < 0) {
                               sprintf(buf, "catman: mkdir: %s", cat);
                               perror(buf);
                               continue;
                       }
                       stat(cat, &sbuf);
               }
               if ((sbuf.st_mode & 0777) != 0775)
                       chmod(cat, 0775);
               while ((dir = readdir(mdir)) != NULL) {
                       time_t time;
                       char *tsp;
                       FILE *inf;
                       int  makelink;

                       if (dir->d_ino == 0 || dir->d_name[0] == '.')
                               continue;
                       /*
                        * Make sure this is a man file, i.e., that it
                        * ends in .[0-9] or .[0-9][a-z]
                        */
                       tsp = rindex(dir->d_name, '.');
                       if (tsp == NULL)
                               continue;
                       if (!isdigit(*++tsp) && *tsp != *sp)
                               continue;
                       if (*++tsp && !isalpha(*tsp))
                               continue;
                       if (*tsp && *++tsp)
                               continue;
                       strcpy(msp, dir->d_name);
                       if ((inf = fopen(man, "r")) == NULL) {
                               perror(man);
                               exstat = 1;
                               continue;
                       }
                       makelink = 0;
                       if (getc(inf) == '.' && getc(inf) == 's'
                           && getc(inf) == 'o') {
                               if (getc(inf) != ' ' ||
                                   fgets(lncat, sizeof(lncat), inf)==NULL) {
                                       fclose(inf);
                                       continue;
                               }
                               if (lncat[strlen(lncat)-1] == '\n')
                                       lncat[strlen(lncat)-1] = '\0';
                               if (strncmp(lncat, "man", 3) != 0) {
                                       fclose(inf);
                                       continue;
                               }
                               lncat[0] = 'c';
                               lncat[1] = 'a';
                               lncat[2] = 't';
                               makelink = 1;
                       }
                       fclose(inf);
                       strcpy(csp, dir->d_name);
                       if (stat(cat, &sbuf) >= 0) {
                               time = sbuf.st_mtime;
                               stat(man, &sbuf);
                               if (time >= sbuf.st_mtime)
                                       continue;
                               unlink(cat);
                       }
                       if (makelink) {
                               /*
                                * Don't unlink a directory by accident.
                                */
                               if (stat(lncat, &sbuf) >= 0 &&
                                   ((sbuf.st_mode&S_IFMT)==S_IFCHR))
                                       unlink(cat);
                               if (pflag)
                                       printf("ln %s %s\n", lncat, cat);
                               else
                                       link(lncat, cat);
                       }
                       else {
                               sprintf(buf, "nroff -man %s > %s", man, cat);
                               SYSTEM(buf);
                       }
                       changed = 1;
               }
               closedir(mdir);
       }
       if (changed && !nflag) {
whatis:
               if (!pflag) {
                       execl("/bin/sh", "/bin/sh",
                           "/usr/lib/makewhatis", mandir, 0);
                       perror("/bin/sh /usr/lib/makewhatis");
                       exstat = 1;
               } else
                       printf("/bin/sh /usr/lib/makewhatis %s\n", mandir);
       }
       exit(exstat);
}