Return to receipt.c CVS log

Up to [Research Unix] / researchv10no / lbin / mailx

Annotation of researchv10no/lbin/mailx/receipt.c, revision 1.1

1.1     ! root        1: #ident "@(#)receipt.c  1.3 'attmail mail(1) command'"
        !             2: #ident "@(#)mailx:receipt.c    1.1"
        !             3: #include "rcv.h"
        !             4: 
        !             5: int            icsubstr();                                             /* adb */
        !             6: 
        !             7: void
        !             8: receipt(mp)
        !             9: struct message *mp;
        !            10: {
        !            11:        struct headline hl;
        !            12:        char    head[LINESIZE];
        !            13:        char    buf[BUFSIZ];
        !            14:        FILE    *pp, *fp;
        !            15:        char    *mail, *s;
        !            16: 
        !            17:        if ((mail = value("sendmail")) == 0)
        !            18:                mail = MAIL;
        !            19:        if (icsubstr(hfield("default-options", mp, addone), "/receipt")
        !            20:         || icsubstr(hfield(">to", mp, addto), "/receipt")) {
        !            21:                sprintf(buf, "%s %s", mail, skin(nameof(mp)));
        !            22:                if (pp = npopen(buf, "w")) {
        !            23:                        fp = setinput(mp);
        !            24:                        readline(fp, head);
        !            25:                        parse(head, &hl, buf);
        !            26:                        fprintf(pp, "Original-Date: %s\n", hl.l_date);
        !            27:                        if (s = hfield("message-id", mp, addone))
        !            28:                                fprintf(pp, "Original-Message-ID: %s\n", s);
        !            29:                        s = hfield("subject", mp, addone);
        !            30:                        fprintf(pp, "Subject: RR: %s\n", s ? s : "(none)");
        !            31:                        npclose(pp);
        !            32:                }
        !            33:        }
        !            34: }
        !            35: 
        !            36: int                                                                    /* adb */
        !            37: icsubstr(s1, s2)
        !            38: char   *s1, *s2;
        !            39: {
        !            40:        char    buf[LINESIZE];
        !            41: 
        !            42:        if (s1 && s2) {
        !            43:                istrcpy(buf, s1);
        !            44:                return substr(buf, s2) != -1;
        !            45:        } else
        !            46:                return 0;
        !            47: }

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