![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to uustat.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / uucp|
Return to uustat.c CVS log | Up to [Research Unix] / researchv8dc / cmd / uucp |
1.1 root 1: /* @(#)uustat.c 1.14
2: */
3: #include "uucp.h"
4: VERSION(@(#)uustat.c 1.14)
5:
6: #ifdef V7
7: #define O_RDONLY 0
8: #endif
9:
10: #define USAGE1 "[-a] [-q] or [-m] or [-kJOB] or [-rJOB] or [-p]"
11: #define USAGE2 "[-sSYSTEM] [-uUSER]"
12:
13: #define STST_MAX 132
14: struct m {
15: char mach[15]; /* machine name */
16: char locked;
17: int ccount, xcount;
18: int count, type;
19: long retrytime;
20: time_t lasttime;
21: short c_age; /* age of oldest C. file */
22: short x_age; /* age of oldest X. file */
23: char stst[STST_MAX];
24: } M[UUSTAT_TBL+2];
25:
26: extern long atol();
27: extern void qsort(); /* qsort(3) and comparison test */
28: int sortcnt = -1;
29: extern int machcmp();
30: extern int _age(); /* find the age of a file */
31:
32: extern char Jobid[]; /* jobid for status or kill option */
33: short Kill; /* == 1 if -k specified */
34: short Rejuvenate; /* == 1 for -r specified */
35: short Uopt; /* == 1 if -u option specified */
36: short Sysopt; /* == 1 if -s option specified */
37: short Summary; /* == 1 if -q or -m is specified */
38: short Queue; /* == 1 if -q option set - queue summary */
39: short Machines; /* == 1 if -m option set - machines summary */
40: short Psopt; /* == 1 if -p option set - output "ps" of LCK pids */
41:
42: main(argc, argv, envp)
43: char *argv[];
44: char **envp;
45: {
46: struct m *m, *machine();
47: DIR *spooldir, *subdir;
48: char *str, *rindex();
49: char f[256], subf[256];
50: char *c, lckdir[BUFSIZ];
51: char buf[BUFSIZ];
52: char chkname[MAXFULLNAME];
53: char *vec[7];
54: int i, chkid;
55:
56:
57: User[0] = '\0';
58: Rmtname[0] = '\0';
59: Jobid[0] = '\0';
60: Psopt=Machines=Summary=Queue=Kill=Rejuvenate=Uopt=Sysopt=0;
61: (void) strcpy(Progname, "uustat");
62: Uid = getuid();
63: Euid = geteuid();
64: guinfo(Uid, Loginuser);
65: uucpname(Myname);
66: while ((i = getopt(argc, argv, "ak:mpr:qs:u:x:")) != EOF) {
67: switch(i){
68: case 'a':
69: Sysopt = 1;
70: break;
71: case 'k':
72: (void) strncpy(Jobid, optarg, NAMESIZE);
73: Jobid[NAMESIZE] = '\0';
74: Kill = 1;
75: break;
76: case 'm':
77: Machines = Summary = 1;
78: break;
79: case 'p':
80: Psopt = 1;
81: break;
82: case 'r':
83: (void) strncpy(Jobid, optarg, NAMESIZE);
84: Jobid[NAMESIZE] = '\0';
85: Rejuvenate = 1;
86: break;
87: case 'q':
88: Queue = Summary = 1;
89: break;
90: case 's':
91: (void) strncpy(Rmtname, optarg, MAXBASENAME);
92: Rmtname[MAXBASENAME] = '\0';
93: if (versys(Rmtname, 0)) {
94: fprintf(stderr, "Invalid system\n");
95: exit(1);
96: }
97: Sysopt = 1;
98: break;
99: case 'u':
100: (void) strncpy(User, optarg, 8);
101: User[8] = '\0';
102: if(gninfo(User, &chkid, chkname)) {
103: fprintf(stderr, "Invalid user\n");
104: exit(1);
105: }
106: Uopt = 1;
107: break;
108: case 'x':
109: Debug = atoi(optarg);
110: if (Debug <= 0)
111: Debug = 1;
112: break;
113: default:
114: (void) fprintf(stderr, "\tusage: %s %s\n",
115: Progname, USAGE1);
116: (void) fprintf(stderr, "or\n\tusage: %s %s\n",
117: Progname, USAGE2);
118: exit(1);
119: }
120: }
121:
122: if (argc != optind) {
123: (void) fprintf(stderr, "\tusage: %s %s\n", Progname, USAGE1);
124: (void) fprintf(stderr, "or\n\tusage: %s %s\n",
125: Progname, USAGE2);
126: exit(1);
127: }
128:
129: DEBUG(9, "Progname (%s): STARTED\n", Progname);
130: DEBUG(9, "User=%s, ", User);
131: DEBUG(9, "Loginuser=%s, ", Loginuser);
132: DEBUG(9, "Jobid=%s, ", Jobid);
133: DEBUG(9, "Rmtname=%s\n", Rmtname);
134:
135: if ((Psopt + Machines + Queue + Kill + Rejuvenate + (Uopt|Sysopt)) >1) {
136: /* only -u and -s can be used together */
137: printf("\tusage: %s %s\n", Progname, USAGE1);
138: printf("or\n\tusage: %s %s\n", Progname, USAGE2);
139: exit(1);
140: }
141: if ( !(Kill | Rejuvenate | Uopt | Sysopt | Queue | Machines) ) {
142: (void) strcpy(User, Loginuser);
143: Uopt = 1;
144: }
145:
146: if (Psopt) {
147: /* do "ps -flp" or pids in LCK files */
148: lckpid();
149: /* lckpid will not return */
150: }
151:
152: if (Summary) {
153: /* Gather data for Summary option report */
154: if (chdir(STATDIR) || (spooldir = opendir(STATDIR)) == NULL)
155: exit(101); /* good old code 101 */
156: while (gnamef(spooldir, f) == TRUE) {
157: if (freopen(f, "r", stdin) == NULL)
158: continue;
159: m = machine(f);
160: if (gets(buf) == NULL)
161: continue;
162: if (getargs(buf, vec, 5) < 5)
163: continue;
164: m->type = atoi(vec[0]);
165: m->count = atoi(vec[1]);
166: m->lasttime = atol(vec[2]);
167: m->retrytime = atol(vec[3]);
168: (void) strncpy(m->stst, vec[4], STST_MAX);
169: str = rindex(m->stst, ' ');
170: (void) machine(++str); /* longer name? */
171: *str = '\0';
172:
173: }
174: closedir(spooldir);
175: }
176:
177:
178: if (Summary) {
179: /* search for LCK machines */
180:
181: (void) strcpy(lckdir, LOCKPRE);
182: *strrchr(lckdir, '/') = '\0';
183: /* open lock directory */
184: if (chdir(lckdir) != 0 || (subdir = opendir(lckdir)) == NULL)
185: exit(101); /* good old code 101 */
186:
187: while (gnamef(subdir, f) == TRUE) {
188: if (EQUALSN("LCK..", f, 5)) {
189: if (!EQUALSN(f + 5, "cul", 3)
190: && !EQUALSN(f + 5, "tty", 3)
191: && !EQUALSN(f + 5, "dtsw", 4)
192: && !EQUALSN(f + 5, "vadic", 5)
193: && !EQUALSN(f + 5, "micom", 5))
194: machine(f + 5)->locked++;
195: }
196: }
197: }
198:
199: if (chdir(SPOOL) != 0 || (spooldir = opendir(SPOOL)) == NULL)
200: exit(101); /* good old code 101 */
201: while (gnamef(spooldir, f) == TRUE) {
202: if (EQUALSN("LCK..", f, 5))
203: continue;
204:
205: if (*Rmtname && !EQUALSN(Rmtname, f, SYSNSIZE))
206: continue;
207:
208: if ( (Kill || Rejuvenate)
209: && (!EQUALSN(f, Jobid, strlen(Jobid)-5)) )
210: continue;
211:
212: if (DIRECTORY(f) && (subdir = opendir(f))) {
213: m = machine(f);
214: while (gnamef(subdir, subf) == TRUE)
215: if (subf[1] == '.') {
216: if (subf[0] == CMDPRE) {
217: m->ccount++;
218: if (Kill || Rejuvenate)
219: kprocessC(f, subf);
220: else if (Uopt | Sysopt)
221: uprocessC(f, subf);
222: else /* get the age of the C. file */
223: if ( (i = _age(f, subf))>m->c_age)
224: m->c_age = i;
225: }
226:
227: else if (subf[0] == XQTPRE) {
228: m->xcount++;
229: if ( (i = _age(f, subf)) > m->x_age)
230: m->x_age = i;
231: }
232:
233: }
234: closedir(subdir);
235: }
236: }
237: /* for Kill or Rejuvenate - will not get here unless it failed */
238: if (Kill || Rejuvenate) {
239: printf("Can't find Job %s; Not %s\n", Jobid,
240: Kill ? "killed" : "rejuvenated");
241: exit(1);
242: }
243:
244: /* Make sure the overflow entry is null since it may be incorrect */
245: M[UUSTAT_TBL].mach[0] = NULLCHAR;
246: if (Summary) {
247: for((sortcnt = 0, m = &M[0]);*(m->mach) != NULL;(sortcnt++,m++))
248: ;
249: qsort((char *)M, (unsigned int)sortcnt, sizeof(struct m), machcmp);
250: for (m = M; m->mach[0] != NULLCHAR; m++)
251: printit(m);
252: }
253: exit(0);
254: }
255:
256:
257: /*
258: * uprocessC - get information about C. file
259: *
260: */
261:
262: uprocessC(dir, file)
263: char *file, *dir;
264: {
265: struct stat s;
266: register struct tm *tp;
267: char fullname[MAXFULLNAME], buf[BUFSIZ], user[9];
268: char xfullname[MAXFULLNAME];
269: char file1[BUFSIZ], file2[BUFSIZ], file3[BUFSIZ], type[2], opt[256];
270: FILE *fp, *xfp;
271: short first = 1;
272: extern long fsize();
273:
274: DEBUG(9, "uprocessC(%s, ", dir);
275: DEBUG(9, "%s);\n", file);
276:
277: if (Jobid[0] != '\0' && (!EQUALS(Jobid, &file[2])) ) {
278: /* kill job - not this one */
279: return;
280: }
281:
282: (void) sprintf(fullname, "%s/%s", dir, file);
283: if (stat(fullname, &s) != 0) {
284: /* error - can't stat */
285: DEBUG(4, "Can't stat file (%s),", fullname);
286: DEBUG(4, " errno (%d) -- skip it!\n", errno);
287: }
288:
289: fp = fopen(fullname, "r");
290: if (fp == NULL) {
291: DEBUG(4, "Can't open file (%s), ", fullname);
292: DEBUG(4, "errno=%d -- skip it!\n", errno);
293: return;
294: }
295: tp = localtime(&s.st_mtime);
296:
297: if (s.st_size == 0 && User[0] == '\0') { /* dummy D. for polling */
298: printf("%-12s %2.2d/%2.2d-%2.2d:%2.2d:%2.2d (POLL)\n",
299: &file[2], tp->tm_mon + 1, tp->tm_mday, tp->tm_hour,
300: tp->tm_min, tp->tm_sec);
301: }
302: else while (fgets(buf, BUFSIZ, fp) != NULL) {
303: if (sscanf(buf,"%s%s%s%s%s%s", type, file1, file2,
304: user, opt, file3) <5) {
305: DEBUG(4, "short line (%s)\n", buf);
306: continue;
307: }
308: DEBUG(9, "type (%s), ", type);
309: DEBUG(9, "file1 (%s)", file1);
310: DEBUG(9, "file2 (%s)", file2);
311: DEBUG(9, "file3 (%s)", file3);
312: DEBUG(9, "user (%s)", user);
313:
314: if (User[0] != '\0' && (!EQUALS(User, user)) )
315: continue;
316:
317: /*
318: if ( (*file2 != 'X')
319: && (*file1 != '/' && *file1 != '~')
320: && (*file2 != '/' && *file2!= '~') )
321: continue;
322: */
323:
324: if (first)
325: printf("%-12s %2.2d/%2.2d-%2.2d:%2.2d ",
326: &file[2], tp->tm_mon + 1, tp->tm_mday, tp->tm_hour,
327: tp->tm_min);
328: else
329: printf("%-12s %2.2d/%2.2d-%2.2d:%2.2d ",
330: "", tp->tm_mon + 1, tp->tm_mday, tp->tm_hour,
331: tp->tm_min);
332: first = 0;
333:
334: printf("%s %s ", type, dir);
335: if (*type == 'R')
336: printf("%s %s\n", user, file1);
337: else if (file2[0] != 'X')
338: printf("%s %ld %s\n", user, fsize(dir, file3, file1), file1);
339: else if (*type == 'S' && file2[0] == 'X') {
340: (void) sprintf(xfullname, "%s/%s", dir, file1);
341: xfp = fopen(xfullname, "r");
342: if (xfp == NULL) { /* program error */
343: DEBUG(4, "Can't read %s, ", xfullname);
344: DEBUG(4, "errno=%d -- skip it!\n", errno);
345: printf("%s %s %s ", type, dir, user);
346: printf("????\n");
347: }
348: else {
349: char command[BUFSIZ], uline_u[BUFSIZ], uline_m[BUFSIZ];
350: char retaddr[BUFSIZ], *username;
351:
352: *retaddr = *uline_u = *uline_m = '\0';
353: while (fgets(buf, BUFSIZ, xfp) != NULL) {
354: switch(buf[0]) {
355: case 'C':
356: strcpy(command, buf + 2);
357: break;
358: case 'U':
359: sscanf(buf + 2, "%s%s", uline_u, uline_m);
360: break;
361: case 'R':
362: sscanf(buf+2, "%s", retaddr);
363: break;
364: }
365: }
366: username = user;
367: if (*uline_u != '\0')
368: username = uline_u;
369: if (*retaddr != '\0')
370: username = retaddr;
371: if (!EQUALS(uline_m, Myname))
372: printf("%s!", uline_m);
373: printf("%s %s", username, command);
374: }
375: if (xfp != NULL)
376: fclose(xfp);
377: }
378: }
379:
380: fclose(fp);
381: return;
382: }
383:
384:
385: /*
386: * kprocessC - process kill or rejuvenate job
387: */
388:
389: kprocessC(dir, file)
390: char *file, *dir;
391: {
392: struct stat s;
393: register struct tm *tp;
394: extern struct tm *localtime();
395: extern int errno;
396: char fullname[MAXFULLNAME], buf[BUFSIZ], user[9];
397: char rfullname[MAXFULLNAME];
398: char file1[BUFSIZ], file2[BUFSIZ], file3[BUFSIZ], type[2], opt[256];
399: FILE *fp, *xfp;
400: time_t times[2];
401: short ret;
402: short first = 1;
403:
404: DEBUG(9, "kprocessC(%s, ", dir);
405: DEBUG(9, "%s);\n", file);
406:
407: if ((!EQUALS(Jobid, &file[2])) ) {
408: /* kill job - not this one */
409: return;
410: }
411:
412: (void) sprintf(fullname, "%s/%s", dir, file);
413: if (stat(fullname, &s) != 0) {
414: /* error - can't stat */
415: fprintf(stderr, "Can't stat:%s, errno (%d)--can't %s it!\n",
416: fullname, errno, Kill ? "kill" : "rejuvenate");
417: exit(1);
418: }
419:
420: fp = fopen(fullname, "r");
421: if (fp == NULL) {
422: fprintf(stderr, "Can't read:%s, errno (%d)--can't %s it!\n",
423: fullname, errno, Kill ? "kill" : "rejuvenate");
424: exit(1);
425: }
426:
427: times[0] = times[1] = time((time_t *)NULL);
428:
429: while (fgets(buf, BUFSIZ, fp) != NULL) {
430: if (sscanf(buf,"%s%s%s%s%s%s", type, file1, file2,
431: user, opt, file3) <6) {
432: fprintf(stderr, "Bad format:%s, errno (%d)--can't %s it!\n",
433: fullname, errno, Kill ? "kill" : "rejuvenate");
434: exit(1);
435: }
436: DEBUG(9, "type (%s), ", type);
437: DEBUG(9, "file1 (%s)", file1);
438: DEBUG(9, "file2 (%s)", file2);
439: DEBUG(9, "file3 (%s)", file3);
440: DEBUG(9, "user (%s)", user);
441:
442:
443: if (first) {
444: if (Uid != 0
445: && !PREFIX(Loginuser, user)
446: && !PREFIX(user, Loginuser) ) {
447: /* not allowed - not owner or root */
448: fprintf(stderr,
449: "Not owner or root - can't %s job %s\n",
450: Kill ? "kill" : "rejuvenate", Jobid);
451: exit(1);
452: }
453: first = 0;
454: }
455:
456: /* remove D. file */
457: (void) sprintf(rfullname, "%s/%s", dir, file3);
458: DEBUG(4, "Remove %s\n", rfullname);
459: if (Kill)
460: ret = unlink(rfullname);
461: else /* Rejuvenate */
462: ret = utime(rfullname, times);
463: if (ret != 0 && errno != ENOENT) {
464: /* program error?? */
465: fprintf(stderr, "Error: Can't %s, File ( %s), errno (%d)\n",
466: Kill ? "kill" : "rejuvenate", rfullname, errno);
467: exit(1);
468: }
469: }
470:
471: DEBUG(4, "Remove %s\n", fullname);
472: if (Kill)
473: ret = unlink(fullname);
474: else /* Rejuvenate */
475: ret = utime(fullname, times);
476:
477: if (ret != 0) {
478: /* program error?? */
479: fprintf(stderr, "Error: Can't %s, File ( %s), errno (%d)\n",
480: Kill ? "kill" : "rejuvenate", fullname, errno);
481: exit(1);
482: }
483: fclose(fp);
484: printf("Job: %s successfully %s\n", Jobid,
485: Kill ? "killed" : "rejuvenated");
486: exit(0);
487: }
488:
489: /*
490: * fsize - return the size of f1 or f2 (if f1 does not exist)
491: * f1 is the local name
492: *
493: */
494:
495: long
496: fsize(dir, f1, f2)
497: char *dir, *f1, *f2;
498: {
499: struct stat s;
500: char fullname[BUFSIZ];
501:
502: (void) sprintf(fullname, "%s/%s", dir, f1);
503: if (stat(fullname, &s) == 0) {
504: return(s.st_size);
505: }
506: if (stat(f2, &s) == 0) {
507: return(s.st_size);
508: }
509:
510: return(-99999);
511: }
512:
513: cleanup(){}
514: void logent(){} /* to load ulockf.c */
515: void systat(){} /* to load utility.c */
516:
517: struct m *
518: machine(name)
519: char *name;
520: {
521: struct m *m;
522: int namelen;
523:
524: DEBUG(9, "machine(%s), ", name);
525: namelen = strlen(name);
526: for (m = M; m->mach[0] != NULLCHAR; m++)
527: /* match on overlap? */
528: if (EQUALSN(name, m->mach, SYSNSIZE)) {
529: /* use longest name */
530: if (namelen > strlen(m->mach))
531: (void) strcpy(m->mach, name);
532: return(m);
533: }
534:
535: /*
536: * The table is set up with 2 extra entries
537: * When we go over by one, output error to errors log
538: * When more than one over, just reuse the previous entry
539: */
540: DEBUG(9, "m-M=%d\n", m-M);
541: if (m-M >= UUSTAT_TBL) {
542: if (m-M == UUSTAT_TBL) {
543: errent("MACHINE TABLE FULL", "", UUSTAT_TBL,
544: sccsid, __FILE__, __LINE__);
545: (void) fprintf(stderr,
546: "WARNING: Table Overflow--output not complete\n");
547: }
548: else
549: /* use the last entry - overwrite it */
550: m = &M[UUSTAT_TBL];
551: }
552:
553: (void) strcpy(m->mach, name);
554: m->c_age= m->x_age= m->lasttime= m->locked= m->ccount= m->xcount= 0;
555: m->stst[0] = '\0';
556: return(m);
557: }
558:
559: printit(m)
560: struct m *m;
561: {
562: register struct tm *tp;
563: time_t t;
564: int min;
565: extern struct tm *localtime();
566:
567: if (m->ccount == 0
568: && m->xcount == 0
569: /*&& m->stst[0] == '\0'*/
570: && m->locked == 0
571: && Queue
572: && m->type == 0)
573: return;
574: printf("%-10s", m->mach);
575: if (m->ccount)
576: printf("%3dC", m->ccount);
577: else
578: printf(" ");
579: if (m->c_age)
580: printf("(%d)", m->c_age);
581: else
582: printf(" ");
583: if (m->xcount)
584: printf("%4dX", m->xcount);
585: else
586: printf(" ");
587: if (m->x_age)
588: printf("(%d) ", m->x_age);
589: else
590: printf(" ");
591:
592: if (m->lasttime) {
593: tp = localtime(&m->lasttime);
594: printf("%2.2d/%2.2d-%2.2d:%2.2d ",
595: tp->tm_mon + 1, tp->tm_mday, tp->tm_hour,
596: tp->tm_min);
597: }
598: /* if (m->locked && m->type != SS_INPROGRESS) */
599: if (m->locked)
600: printf("Locked ");
601: if (m->stst[0] != '\0') {
602: printf("%s", m->stst);
603: switch (m->type) {
604: case SS_SEQBAD:
605: case SS_LOGIN_FAILED:
606: case SS_DIAL_FAILED:
607: case SS_BAD_LOG_MCH:
608: case SS_BADSYSTEM:
609: case SS_CANT_ACCESS_DEVICE:
610: case SS_DEVICE_FAILED:
611: case SS_WRONG_MCH:
612: case SS_RLOCKED:
613: case SS_RUNKNOWN:
614: case SS_RLOGIN:
615: case SS_UNKNOWN_RESPONSE:
616: case SS_STARTUP:
617: case SS_CHAT_FAILED:
618: (void) time(&t);
619: t = m->retrytime - (t - m->lasttime);
620: if (t > 0) {
621: min = (t + 59) / 60;
622: printf("Retry: %d:%2.2d", min/60, min%60);
623: }
624: if (m->count > 1)
625: printf(" Count: %d", m->count);
626: }
627: }
628: putchar('\n');
629: }
630:
631: #define MAXLOCKS 100 /* Maximum number of lock files this will handle */
632:
633: lckpid()
634: {
635: register i;
636: long pid, ret, fd;
637: #ifdef ASCIILOCKS
638: char alpid[SIZEOFPID+2]; /* +2 for '\n' and null */
639: #endif
640: long list[MAXLOCKS];
641: char buf[BUFSIZ], f[MAXBASENAME];
642: char *c, lckdir[BUFSIZ];
643: DIR *dir;
644:
645: DEBUG(9, "lckpid() - entered\n", "");
646: for (i=0; i<MAXLOCKS; i++)
647: list[i] = -1;
648: (void) strcpy(lckdir, LOCKPRE);
649: *strrchr(lckdir, '/') = '\0';
650: DEBUG(9, "lockdir (%s)\n", lckdir);
651:
652: /* open lock directory */
653: if (chdir(lckdir) != 0 || (dir = opendir(lckdir)) == NULL)
654: exit(101); /* good old code 101 */
655: while (gnamef(dir, f) == TRUE) {
656: /* find all lock files */
657: DEBUG(9, "f (%s)\n", f);
658: if (EQUALSN("LCK.", f, 4)) {
659: /* read LCK file */
660: fd = open(f, O_RDONLY);
661: printf("%s: ", f);
662: #ifdef ASCIILOCKS
663: ret = read(fd, alpid, SIZEOFPID+2); /* +2 for '\n' and null */
664: pid = atoi(alpid);
665: #else
666: ret = read(fd, &pid, sizeof (int));
667: #endif
668: (void) close(fd);
669: if (ret != -1) {
670: printf("%d\n", pid);
671: for(i=0; i<MAXLOCKS; i++) {
672: if (list[i] == pid)
673: break;
674: if (list[i] == -1) {
675: list[i] = pid;
676: break;
677: }
678: }
679: }
680: else
681: printf("????\n");
682: }
683: }
684: fflush(stdout);
685: *buf = NULLCHAR;
686: for (i=0; i<MAXLOCKS; i++) {
687: if( list[i] == -1)
688: break;
689: (void) sprintf(&buf[strlen(buf)], "%d ", list[i]);
690: }
691:
692: if (i > 0)
693: #ifdef V7
694: execlp(UUPS, "uustat-ps", buf, 0);
695: #else
696: execl("/bin/ps", "ps", "-flp", buf, 0);
697: #endif
698: exit(0);
699: }
700:
701: int machcmp(a,b)
702: char *a,*b;
703: {
704: return(strcmp(((struct m *) a)->mach,((struct m *) b)->mach));
705: }
706:
707: static long _sec_per_day = 86400L;
708:
709: /*
710: * _age - find the age of "file" in days
711: * return:
712: * age of file
713: * 0 - if stat fails
714: */
715:
716: int
717: _age(dir, file)
718: char * file; /* the file name */
719: char * dir; /* system spool directory */
720: {
721: char fullname[MAXFULLNAME];
722: static time_t ptime = 0;
723: time_t time();
724: struct stat stbuf;
725:
726: if (!ptime)
727: (void) time(&ptime);
728: (void) sprintf(fullname, "%s/%s", dir, file);
729: if (stat(fullname, &stbuf) != -1) {
730: return ((int)((ptime - stbuf.st_mtime)/_sec_per_day));
731: }
732: else
733: return(0);
734: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.