Bell 32V release

[unix-history] / usr / src / cmd / uucp / uuclean.c

#include "uucp.h"
#include "uucpdefs.h"
#include <signal.h>
#include <pwd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/dir.h>

/*******
*
*      uuclean  -  this program will search through the spool
*      directory (Spool) and delete all files with a requested
*      prefix which are older than (nomtime) seconds.
*      If the -m option is set, the program will try to
*      send mail to the usid of the file.
*
*      options:
*              -m  -  send mail for deleted file
*              -d  -  directory to clean
*              -n  -  time to age files before delete (in hours)
*              -p  -  prefix for search
*              -x  -  turn on debug outputs
*      exit status:
*              0  -  normal return
*              1  -  can not read directory
*/

#define DPREFIX "U"
#define NOMTIME 72      /* hours to age files before deletion */

main(argc, argv)
char *argv[];
{
       FILE *pdirf;
       char file[NAMESIZE];
       time_t nomtime, ptime;
       struct stat stbuf;
       int mflg=0;
       extern int onintr();

       nomtime = NOMTIME * 3600L;

       while (argc>1 && argv[1][0] == '-') {
               switch (argv[1][1]) {
               case 'd':
                       Spool = &argv[1][2];
                       break;
               case 'm':
                       mflg = 1;
                       break;
               case 'n':
                       nomtime = atoi(&argv[1][2]) * 3600L;
                       break;
               case 'p':
                       if (&argv[1][2] != '\0')
                               stpre(&argv[1][2]);
                       break;
               case 'x':
                       Debug = atoi(&argv[1][2]);
                       if (Debug <= 0)
                               Debug = 1;
                       break;
               default:
                       printf("unknown flag %s\n", argv[1]); break;
               }
               --argc;  argv++;
       }

       DEBUG(4, "DEBUG# %s\n", "START");
       chdir(Spool);

       if ((pdirf = fopen(Spool, "r")) == NULL) {
               printf("%s directory unreadable\n", Spool);
               exit(1);
       }

       time(&ptime);
       while (gnamef(pdirf, file)) {
               if (!chkpre(file))
                       continue;

               if (stat(file, &stbuf) == -1) {
               DEBUG(4, "stat on %s failed\n", file);
                       continue;
               }


               if ((stbuf.st_mode & S_IFMT) == S_IFDIR)
                       continue;
               if ((ptime - stbuf.st_ctime) < nomtime)
                       continue;
               DEBUG(4, "unlink file %s\n", file);
               unlink(file);
               if (mflg) sdmail(file, stbuf.st_uid);
       }

       fclose(pdirf);
       exit(0);
}


#define MAXPRE 10
char Pre[MAXPRE][DIRSIZ];
int Npre = 0;
/***
*      chkpre(file)    check for prefix
*      char *file;
*
*      return codes:
*              0  -  not prefix
*              1  -  is prefix
*/

chkpre(file)
char *file;
{
       int i;

       for (i = 0; i < Npre; i++) {
               if (prefix(Pre[i], file))
                       return(1);
               }
       return(0);
}

/***
*      stpre(p)        store prefix
*      char *p;
*
*      return codes:  none
*/

stpre(p)
char *p;
{
       if (Npre < MAXPRE - 2)
               strcpy(Pre[Npre++], p);
       return;
}