Return to netio.c CVS log

Up to [Research Unix] / researchv10no / cmd / upas / smtp

Annotation of researchv10no/cmd/upas/smtp/netio.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char *sccsid = "@(#)netio.c     1.7 87/07/31";
        !             3: #endif lint
        !             4: 
        !             5: #include <stdio.h>
        !             6: #include <setjmp.h>
        !             7: #include <sysexits.h>
        !             8: 
        !             9: #include "smtp.h"
        !            10: 
        !            11: char *strcpy(), *strncat();
        !            12: 
        !            13: int
        !            14: tgets(line, size, fi)          /* fgets from TCP */
        !            15: char *line;
        !            16: int size;
        !            17: FILE *fi;
        !            18: {
        !            19:        register char *cr, *rp;
        !            20: 
        !            21:        *line = 0;
        !            22:        rp = fgets(line, size, fi);
        !            23:        if (ferror(fi)) {
        !            24:                perror("error reading from smtp");
        !            25:                bomb(EX_IOERR);
        !            26:        }
        !            27:        if (feof(fi)) {
        !            28:                perror("eof from smtp");
        !            29:                bomb(EX_IOERR);
        !            30:        }
        !            31:        if (rp==NULL) {
        !            32:                perror("Eof reading from smtp");
        !            33:                bomb(EX_IOERR);
        !            34:        }
        !            35: 
        !            36:        /* convert \r\n -> \n */
        !            37:        cr = line + strlen(line) - 2;
        !            38:        if (cr >= line && *cr == '\r' && *(cr+1) == '\n') {     /* CRLF there? */
        !            39:                *cr++ = '\n';
        !            40:                *cr = 0;
        !            41:        } else                          /* no CRLF present */
        !            42:                cr += 2;                /* point at NUL byte */
        !            43: 
        !            44:        if (feof(fi)) {
        !            45:                perror("read eof from smtp");
        !            46:                bomb(EX_IOERR);
        !            47:        }
        !            48:        return cr - line;
        !            49: }
        !            50: 
        !            51: int
        !            52: tputs(line, fo)                        /* fputs to TCP */
        !            53: char *line;
        !            54: FILE *fo;
        !            55: {
        !            56:        char buf[MAXSTR];
        !            57:        register char *nl;
        !            58: 
        !            59:        (void) strcpy(buf, line);
        !            60:        /* replace terminating \n by \r\n */
        !            61:        nl = buf + strlen(buf) - 1;             /* presumably \n */
        !            62:        if (nl >= buf && *nl=='\n') {           /* if it is ... */
        !            63:                *nl++ = '\r';
        !            64:                *nl++ = '\n';
        !            65:                *nl = 0;
        !            66:        } else
        !            67:                printf("unterminated line: <%s>\n", buf);
        !            68: 
        !            69:        (void) fputs(buf, fo);
        !            70:        (void) fflush(fo);
        !            71:        if (ferror(fo)) {
        !            72:                perror("error writing to smtp");
        !            73:                bomb(EX_IOERR);
        !            74:        }
        !            75:        return 0;
        !            76: }

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