Return to canreach.c CVS log

Up to [Research Unix] / researchv10no / cmd / ap / apkeys

Annotation of researchv10no/cmd/ap/apkeys/canreach.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: main (argc,argv)
        !             3:     char *argv[];
        !             4: {
        !             5: char *s, fname[100]; int c; FILE *f;
        !             6: if (argc < 2) return(1);
        !             7: for (s=argv[1]; *s && *s!= '!'; s++)
        !             8:     ;
        !             9: if (*s == 0) return(0); /* local mail, ok */
        !            10: *s=0;
        !            11: sprintf (fname, "/usr/spool/uucp/STST.%.7s", argv[1]);
        !            12: f = fopen(fname, "r");
        !            13: if (f==NULL) return (0); /* no file, ok */
        !            14: c = fgetc (f);
        !            15: if (c== '3') /* uucp is happy */
        !            16:     return(0);
        !            17: return(1);
        !            18: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.