/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
#pragma ident "%Z%%M% %I% %E% SMI"
/*
* Copyright 2002 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#include "mail.h"
/*
This routine returns undeliverable mail as well as handles
replying to letters
*/
void
goback(letnum)
int letnum;
{
static char pn[] = "goback";
int i, w;
char buf[1024], *cp, work[1024], wuser[1024];
/*
* If dflag already == 1, then been here already and
* having a problem delivering failure notification.
* Reset dflag to 9 to avoid endless loop.....
*/
if (dflag == 1) {
dflag = 9;
Dout(pn, 0, "dflag = %d\n", dflag);
if (!error) {
error = E_REMOTE;
Dout(pn, 0, "error = %d\n", error);
}
}
if (dflag < 2) {
work[0] = '\0';
wuser[0] = '\0';
fclose(tmpf);
if (!replying) {
dflag = 1;
Dout(pn, 0, "dflag = 1\n");
if ((debug > 0) && (keepdbgfile == 0)) {
keepdbgfile++;
}
if (ckdlivopts(H_TCOPY, (int *)0) & IGNORE) {
goto skipsend;
}
}
tmpf = doopen(lettmp, "r+", E_TMP);
if (replying) {
fseek(tmpf, let[letnum].adr, 0);
}
for (fgets(line, LSIZE, tmpf);
strncmp(line, header[H_FROM].tag, strlen(header[H_FROM].tag))
== SAME ||
strncmp(line, header[H_FROM1].tag,
strlen(header[H_FROM1].tag)) == SAME; ) {
if ((i = substr(line, "remote from")) != -1) {
for (i = 0, cp = strrchr(line, ' ') + 1;
*cp != '\n';
cp++) {
buf[i++] = *cp;
}
buf[i++] = '!';
buf[i] = '\0';
strcat(work, buf);
if (line[0] == '>') {
i = 6;
} else {
i = 5;
}
for (w = i; line[w] != ' '; w++) {
wuser[w-i] = line[w];
}
wuser[w-i] = '\0';
} else if ((i = substr(line, "forwarded by")) == -1) {
if (line[0] == '>') {
break;
} else {
i = 5;
}
for (w = i; line[w] != ' '; w++) {
wuser[w-i] = line[w];
}
wuser[w-i] = '\0';
} else if ((i = substr(line, "forwarded by")) > -1) {
break;
}
fgets(line, LSIZE, tmpf);
}
strcat(work, wuser);
fclose(tmpf);
tmpf = doopen(lettmp, "r+", E_TMP);
if (work[0] != '\0') {
reciplist list;
if (replying) {
(void) snprintf(buf, sizeof (buf),
"mail %s %s", m_sendto, work);
printf("%s\n", buf);
systm(buf);
return;
}
if (interactive) {
(void) strlcpy(work, my_name, sizeof (work));
}
fprintf(stderr, "%s: Return to %s\n", program, work);
/* Put header info from message aside so it won't */
/* get confused with the Delivery Notification info */
Daffbytecnt = affbytecnt; affbytecnt = 0;
Daffcnt = affcnt; affcnt = 0;
Drcvbytecnt = rcvbytecnt; rcvbytecnt = 0;
hdrlines[H_DAFWDFROM].head = hdrlines[H_AFWDFROM].head;
hdrlines[H_DAFWDFROM].tail = hdrlines[H_AFWDFROM].tail;
hdrlines[H_AFWDFROM].head = (struct hdrs *)NULL;
hdrlines[H_AFWDFROM].tail = (struct hdrs *)NULL;
hdrlines[H_DRECEIVED].head = hdrlines[H_RECEIVED].head;
hdrlines[H_DRECEIVED].tail = hdrlines[H_RECEIVED].tail;
hdrlines[H_RECEIVED].head = (struct hdrs *)NULL;
hdrlines[H_RECEIVED].tail = (struct hdrs *)NULL;
hdrlines[H_DTCOPY].head = hdrlines[H_TCOPY].head;
hdrlines[H_DTCOPY].tail = hdrlines[H_TCOPY].tail;
hdrlines[H_TCOPY].head = (struct hdrs *)NULL;
hdrlines[H_TCOPY].tail = (struct hdrs *)NULL;
pushlist(H_TCOPY, HEAD, work, FALSE);
new_reciplist(&list);
add_recip(&list, work, FALSE);
sendlist(&list, 0, 0);
del_reciplist(&list);
}
}
skipsend:
if (dflag == 9) {
fprintf(stderr,
"%s: Cannot return mail.\n",
program);
mkdead();
}
else if (dflag < 2) {
if (!maxerr && (dflag != 1)) {
maxerr = error;
Dout(pn, 0, "maxerr = %d\n", maxerr);
}
dflag = 0;
error = 0;
Dout(pn, 0, "before return, dflag = %d, error = %d\n",
dflag, error);
}
}