Return to okrmt.c CVS log

Up to [Research Unix] / researchv8dc / cmd / upas / send

Annotation of researchv8dc/cmd/upas/send/okrmt.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #define GFLIST "forwardlist"
                      3: #define LFLIST "forwardlist.lo"
                      4: 
                      5: /* imported */
                      6: extern char *upaspath();
                      7: 
                      8: static checkfile();
                      9: 
                     10: /*
                     11:  *     Return nonzero if forwarding is allowed to the system
                     12:  *     named in the string at "cp".  If we can't read the file
                     13:  *     which contains the systems, assume blanket forwarding.
                     14:  */
                     15: okrmt(cp)
                     16: char *cp;
                     17: {
                     18:        /* always accept the null string */
                     19:        if (*cp == '\0')
                     20:                return 1;
                     21: 
                     22:        /* try both general and local forwardlists */
                     23:        switch (checkfile(cp, GFLIST)) {
                     24:        case -1:
                     25:                return checkfile(cp, LFLIST);
                     26:        case 0:
                     27:                return checkfile(cp, LFLIST) == 1;
                     28:        }
                     29:        return 1;
                     30: }
                     31: 
                     32: static
                     33: checkfile(cp, file)
                     34: char *cp;
                     35: char *file;
                     36: {
                     37:        register FILE *fp;
                     38:        char buf[20];
                     39: 
                     40:        /* try to open the file; allow forwarding on failure */
                     41:        fp = fopen (upaspath(file), "r");
                     42:        if (fp == NULL)
                     43:                return -1;
                     44: 
                     45:        /* one iteration per system name in the file */
                     46:        while (fgets (buf, sizeof buf, fp) != NULL) {
                     47:                buf[strlen(buf)-1] = '\0';
                     48:                if (strcmp (buf, cp) == 0) {
                     49:                        /* found it, allow forwarding */
                     50:                        fclose (fp);
                     51:                        return 1;
                     52:                }
                     53:        }
                     54: 
                     55:        /* didn't find it, prohibit forwarding */
                     56:        fclose (fp);
                     57:        return 0;
                     58: }

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