Return to canreach.c CVS log

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

Annotation of researchv10dc/cmd/ap/apkeys/canreach.c, revision 1.1.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.