+ /*
+ ** Output machine-readable version.
+ */
+
+ if (e->e_msgboundary != NULL)
+ {
+ putline("", mci);
+ (void) sprintf(buf, "--%s", e->e_msgboundary);
+ putline(buf, mci);
+ putline("Content-Type: message/delivery-status", mci);
+ putline("", mci);
+
+ /*
+ ** Output per-message information.
+ */
+
+ /* OMTS from MAIL FROM: line */
+ if (e->e_parent->e_omts != NULL)
+ {
+ (void) sprintf(buf, "Original-MTS-Type: %s",
+ e->e_parent->e_omts);
+ putline(buf, mci);
+ }
+
+ /* original envelope id from MAIL FROM: line */
+ if (e->e_parent->e_envid != NULL)
+ {
+ (void) sprintf(buf, "Original-Envelope-Id: %s",
+ e->e_parent->e_envid);
+ putline(buf, mci);
+ }
+
+ /* Final-MTS-Type: is required -- our type */
+ putline("Final-MTS-Type: Internet", mci);
+
+ /* Final-MTA: seems silly -- this is in the From: line */
+ (void) sprintf(buf, "Final-MTA: %s", MyHostName);
+ putline(buf, mci);
+
+ /* Received-From: shows where we got this message from */
+ if (RealHostName != NULL)
+ {
+ (void) sprintf(buf, "Received-From: %s", RealHostName);
+ putline(buf, mci);
+ }
+
+ /* Arrival-Date: -- when it arrived here */
+ (void) sprintf(buf, "Arrival-Date: %s",
+ arpadate(ctime(&e->e_parent->e_ctime)));
+ putline(buf, mci);
+
+ /*
+ ** Output per-address information.
+ */
+
+ for (q = e->e_parent->e_sendqueue; q != NULL; q = q->q_next)
+ {
+ register ADDRESS *r;
+
+ if (!bitset(QBADADDR|QREPORT|QRELAYED, q->q_flags))
+ continue;
+ putline("", mci);
+
+ /* Recipient: -- the name from the RCPT command */
+ for (r = q; r->q_alias != NULL; r = r->q_alias)
+ continue;
+ (void) sprintf(buf, "Recipient: %s", r->q_paddr);
+ putline(buf, mci);
+
+ /* Action: -- what happened? */
+ if (bitset(QBADADDR, q->q_flags))
+ putline("Action: failed", mci);
+ else if (bitset(QQUEUEUP, q->q_flags))
+ putline("Action: delayed", mci);
+ else if (bitset(QRELAYED, q->q_flags))
+ putline("Action: relayed", mci);
+ else
+ putline("Action: delivered", mci);
+
+ /* Status: -- what _really_ happened? */
+ strcpy(buf, "Status: ");
+ if (q->q_status != NULL)
+ strcat(buf, q->q_status);
+ else if (q->q_fstatus != NULL)
+ strcat(buf, q->q_fstatus);
+ else if (bitset(QBADADDR, q->q_flags))
+ strcat(buf, "500");
+ else if (bitset(QQUEUEUP, q->q_flags))
+ strcat(buf, "400");
+ else if (bitset(QRELAYED, q->q_flags))
+ strcat(buf, "601");
+ else
+ strcat(buf, "200");
+ putline(buf, mci);
+
+ /* Date: -- fine granularity */
+ if (q->q_statdate == (time_t) 0L)
+ q->q_statdate = curtime();
+ (void) sprintf(buf, "Date: %s",
+ arpadate(ctime(&q->q_statdate)));
+ putline(buf, mci);
+
+ /* Final-Log-Id: -- why isn't this per-message? */
+ (void) sprintf(buf, "Final-Log-Id: %s", e->e_id);
+ putline(buf, mci);
+
+ /* Expiry-Date: -- for delayed messages only */
+ if (bitset(QQUEUEUP, q->q_flags) &&
+ !bitset(QBADADDR, q->q_flags))
+ {
+ time_t xdate;
+
+ xdate = e->e_ctime + TimeOuts.to_q_return[e->e_timeoutclass];
+ sprintf(buf, "Expiry-Date: %s",
+ arpadate(ctime(&xdate)));
+ putline(buf, mci);
+ }
+
+ /* Original-Recipient: -- passed from on high */
+ if (q->q_orcpt != NULL)
+ {
+ (void) sprintf(buf, "Original-Recipient: %s",
+ q->q_orcpt);
+ putline(buf, mci);
+ }
+
+ /* Final-Recipient: -- if through alias */
+ if (q->q_alias != NULL)
+ {
+ (void) sprintf(buf, "Final-Recipient: %s",
+ q->q_paddr);
+ putline(buf, mci);
+ }
+
+ /* Final-Status: -- same as Status? XXX */
+ if (q->q_fstatus != NULL && q->q_status != NULL)
+ {
+ (void) sprintf(buf, "Final-Status: %s",
+ q->q_fstatus);
+ putline(buf, mci);
+ }
+
+ /* Remote-MTS-Type: -- always INET? XXX */
+ if (q->q_mailer->m_mtstype != NULL)
+ {
+ (void) sprintf(buf, "Remote-MTS-Type: %s",
+ q->q_mailer->m_mtstype);
+ putline(buf, mci);
+ }
+
+ /* Remote-MTA: -- who was I talking to? */
+ if (q->q_statmta != NULL)
+ {
+ (void) sprintf(buf, "Remote-MTA: %s",
+ q->q_statmta);
+ putline(buf, mci);
+ }
+
+ /* Remote-Recipient: -- same as Final-Recipient? XXX */
+ if (strcmp(q->q_user, q->q_paddr) != 0)
+ {
+ (void) sprintf(buf, "Remote-Recipient: %s",
+ q->q_user);
+ putline(buf, mci);
+ }
+
+ /* Remote-Status: -- return code from remote mailer */
+ if (q->q_rstatus != NULL)
+ {
+ (void) sprintf(buf, "Remote-Status: %s",
+ q->q_rstatus);
+ putline(buf, mci);
+ }
+ }
+ }
+
projects / unix-history / blobdiff