Return to dmpresp.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / notes / src

Annotation of 43BSD/contrib/notes/src/dmpresp.c, revision 1.1.1.1

1.1       root        1: #include "parms.h"
                      2: #include "structs.h"
                      3: 
                      4: #ifdef RCSIDENT
                      5: static char rcsid[] = "$Header: dmpresp.c,v 1.7 85/01/18 15:09:02 notes Rel $";
                      6: #endif RCSIDENT
                      7: 
                      8: /*
                      9:  *     dmprsp(io, note, notenum, dumpfid, response number)
                     10:  *     prints logical response number to the note whose number is
                     11:  *     passed in. The note descriptor is also passed in. The dump if
                     12:  *     sent to the file pointed to by dumpfid
                     13:  *
                     14:  *     Original Coding:        Ray Essick December 1981
                     15:  *
                     16:  */
                     17: 
                     18: 
                     19: dmprsp (io, note, notenum, dmpfile, num, extensive, protocol)
                     20: struct io_f *io;
                     21: struct note_f  *note;
                     22: FILE * dmpfile;
                     23: {
                     24:     int     roffset,
                     25:             rrecnum;
                     26:     int     i;
                     27:     struct resp_f   rsprec;
                     28:     struct when_f  *zdate;
                     29:     char    buf[256];                                  /* hold intermediate strings */
                     30: 
                     31:     if (lrsp (io, notenum, num, &rsprec, &roffset, &rrecnum) == -1)
                     32:        return;                                         /* no response */
                     33: 
                     34:     switch (protocol)
                     35:     {
                     36:        case 0:                                         /* original protocol */
                     37:            fprintf (dmpfile, "R:%s:%ld:%s:%ld:%d\n", note -> n_id.sys,
                     38:                    note -> n_id.uniqid, rsprec.r_id[roffset].sys,
                     39:                    rsprec.r_id[roffset].uniqid, num);
                     40: 
                     41:            fprintf (dmpfile, "%s:%d:%s:\n", rsprec.r_auth[roffset].aname,
                     42:                    rsprec.r_auth[roffset].aid & UIDMASK,
                     43:                    rsprec.r_auth[roffset].asystem);
                     44: 
                     45:            zdate = &rsprec.r_when[roffset];
                     46:            fprintf (dmpfile, "%d:%d:%d:%d:%d:%ld:\n", zdate -> w_year, zdate -> w_month,
                     47:                    zdate -> w_day, zdate -> w_hours, zdate -> w_mins, zdate -> w_gmttime);
                     48:            if (extensive)
                     49:            {
                     50:                zdate = &rsprec.r_rcvd[roffset];
                     51:                fprintf (dmpfile, "%d:%d:%d:%d:%d:%ld:\n", zdate -> w_year, zdate -> w_month,
                     52:                        zdate -> w_day, zdate -> w_hours, zdate -> w_mins, zdate -> w_gmttime);
                     53: 
                     54:                fprintf (dmpfile, "%s\n", rsprec.r_from[roffset]);
                     55:            }
                     56: 
                     57: 
                     58: 
                     59:            fprintf (dmpfile, "%03o:%ld\n", rsprec.r_stat[roffset],
                     60:                    ((long) rsprec.r_addr[roffset].textlen));/* make sure long */
                     61: 
                     62:            pageout (io, &rsprec.r_addr[roffset], dmpfile);
                     63:            break;
                     64: 
                     65:        case 1:                                         /* protocol 1 */
                     66:            fprintf (dmpfile, "Protocol: 1 Response\n");/* let it know */
                     67:            fprintf (dmpfile, "Title: Re: %s\n", note -> ntitle);
                     68:            fprintf (dmpfile, "Parent-ID: %s.%ld\n", note -> n_id.sys,
                     69:                    note -> n_id.uniqid);
                     70:            fprintf (dmpfile, "Author: %s@%s\n",
                     71:                    rsprec.r_auth[roffset].aname, rsprec.r_auth[roffset].asystem);
                     72:            if (extensive)
                     73:                fprintf (dmpfile, "Author-UID: %d\n", rsprec.r_auth[roffset].aid);
                     74:            fprintf (dmpfile, "Response-ID: %s.%ld\n", rsprec.r_id[roffset].sys,
                     75:                    rsprec.r_id[roffset].uniqid);
                     76:            sprdate (&rsprec.r_when[roffset], buf);     /* format date */
                     77:            fprintf (dmpfile, "Date-Written: %s\n", buf);
                     78:            if (extensive)                              /* dump extra information */
                     79:            {
                     80:                sprdate (&rsprec.r_rcvd[roffset], buf);
                     81:                fprintf (dmpfile, "Date-Received: %s\n", buf);
                     82:                fprintf (dmpfile, "Source-System: %s\n", rsprec.r_from[roffset]);
                     83:            }
                     84:            fprintf (dmpfile, "Status:");               /* do the bits */
                     85:            if (rsprec.r_stat[roffset] & FRMNEWS)
                     86:                fprintf (dmpfile, " Thru-News");
                     87:            if (rsprec.r_stat[roffset] & DIRMES)
                     88:                fprintf (dmpfile, " Director-Message");
                     89:            if (rsprec.r_stat[roffset] & WRITONLY)
                     90:                fprintf (dmpfile, " Write-Only");
                     91:            if (rsprec.r_stat[roffset] & ORPHND)
                     92:                fprintf (dmpfile, " Foster-Parent");
                     93:            putc ('\n', dmpfile);
                     94:            fprintf (dmpfile, "Text-Length: %ld bytes\n",
                     95:                    (long) rsprec.r_addr[roffset].textlen);
                     96:            pageout (io, &rsprec.r_addr[roffset], dmpfile);/* dump text */
                     97:            break;
                     98: 
                     99:        default: 
                    100:            fprintf (stderr, "dmpresp: Unsupported Protocol (%d)\n",
                    101:                    protocol);
                    102:            break;
                    103:     }
                    104: 
                    105: }
                    106: 
                    107: /*     dmpall - dump all the responses to a note.  Merely calls
                    108:  *     dmpresp repetitively to dump all of them 
                    109:  *
                    110:  *     Original Coding:        Ray Essick      December 1981
                    111:  */
                    112: dmprall (io, note, notenum, dmpfile, extensive, protocol)
                    113: struct io_f *io;
                    114: struct note_f  *note;
                    115: FILE * dmpfile;
                    116: {
                    117:     int     num;
                    118: 
                    119:     for (num = 1; num <= note -> n_nresp; num++)
                    120:     {
                    121:        dmprsp (io, note, notenum, dmpfile, num, extensive, protocol);
                    122:     }
                    123: }

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