usr/contrib/news/src/recnews.c

/*
 * recnews [to newsgroup] [from user]
 *
 * Process a news article which has been mailed to some group like msgs.
 * Such articles are in normal mail format and have never seen the insides
 * of netnews.  If the "to newsgroup" is included, the article is posted
 * to this newsgroup instead of trying to intuit it from the headers.
 * If the "from user" is included, the return address is forged to look
 * like that user instead of what getuid or a from line says.
 *
 * It is recommended that you always include the to newsgroup, since the
 * intuition code is flakey and out of date.  The from user is probably
 * appropriate for arpanet mailing lists being funnelled at ucbvax but
 * not otherwise.  Sample lines in /usr/lib/aliases (if you run delivermail):
 *      worldnews: "|/usr/lib/news/recnews net.general"
 *              Allows you to mail to worldnews rather than using inews.
 *              Intended for humans to mail to.
 *      post-unix-wizards: "|/usr/lib/news/recnews fa.unix-wizards unix-wizards"
 *              Causes mail to post-unix-wizards to be fed into fa.unix-wizards
 *              and the return address forged as unix-wizards on the local
 *              machine.  post-unix-wizards (on the local machine) should
 *              be part of the master mailing list somewhere (on a different
 *              machine.)
 *
 * Recnews is primarily useful in remote places on the usenet which collect
 * mail from mailing lists and funnel them into the network.  It is also
 * useful if you like to send mail to some user instead of invoking
 * inews -t .. -n .. when you want to submit an article.  (Many mailers give
 * you nice facilities like editing the message.)  It is not, however,
 * essential to use recnews to be able to join usenet.
 *
 * WARNING: recnews disables the "recording" check - it has to because
 * by the time inews is run, it's in the background and too late to
 * ask permission.  If you depend heavily on recordings you probably
 * should not allow recnews (and thus the mail interface) to be used.
 */

#ifdef SCCSID
static char     *SccsId = "@(#)recnews.c        2.11    3/19/86";
#endif /* SCCSID */

#include "defs.h"

#include <stdio.h>
#include <ctype.h>

/*
 * Note: we assume there are 2 kinds of hosts using recnews:
 * Those that have delivermail (and hence this program will never
 * have to deal with more than one message at a time) and those on the arpanet
 * that do not (and hence all messages end with a sentinel).  It is
 * supposed that regular v7 type systems without delivermail or some
 * other automatic forwarding device will just use rnews.  We do
 * not attempt to tell where a message ends on all systems due to the
 * different conventions in effect.  (This COULD be fixed, I suppose.)
 */

/*
 * Kinds of lines in a message.
 */
#define FROM    001             /* From line */
#define SUBJ    002             /* Subject */
#define TO      003             /* To (newgroup based on this) */
#define BLANK   004             /* blank line */
#define EOM     005             /* End of message (4 ctrl A's) */
#define HEADER  006             /* any unrecognized header */
#define TEXT    007             /* anything unrecognized */
#define INCLUSIVE 010           /* newsgroup is already in header */

/*
 * Possible states program can be in.
 */
#define SKIPPING        0100    /* In header of message */
#define READING         0200    /* In body of message */

#define BFSZ 250

#define EOT     '\004'

char    from[BFSZ];             /* mailing address for replies */
char    sender[BFSZ];           /* mailing address of author, if different */
char    to[BFSZ];               /* Destination of mail (msgs, etc) */
char    subject[BFSZ];          /* subject of message */
char    newsgroup[BFSZ];        /* newsgroups of message */
char    cmdbuf[BFSZ];           /* command to popen */

extern  char    *strcat(), *strcpy();
extern  FILE    *popen();
char    *any();

main(argc, argv)
int argc;
char **argv;
{
        char buf[BFSZ], inews[BFSZ];
        register char *p, *q;
        register FILE *pipe = NULL;
        register int state;

        /* build inews command */
#ifdef IHCC
        sprintf(inews, "%s/%s/%s", logdir(HOME), LIBDIR, "inews");
#else
        sprintf(inews, "%s/%s", LIBDIR, "inews");
#endif

        if (argc > 1)
                strcpy(to, argv[1]);
        if (argc > 2)
                strcpy(from, argv[2]);
#ifdef debug
        printf("argv[0] is <%s>, argv[1] is <%s>, argv[2] is <%s>\n",
                argv[0], argv[1], argv[2]);
#endif
        state = SKIPPING;
        while (fgets(buf, BFSZ, stdin) != NULL) {
                if (state == READING) {
                        fputs(buf,pipe);
                        continue;
                }
                switch (type(buf)) {

                case FROM:
                        frombreak(buf, from);
                        break;

                case SUBJ:
                        p = any(buf, " \t");
                        if (p == NULL)
                                p = buf + 8;
                        q = subject;
                        while (*++p) {
                                if (*p == '"')
                                        *q++ = '\\';
                                *q++ = *p;
                        }
                        q[-1] = '\0';
                        break;

                case TO:
                        if (to[0])
                                break;          /* already have one */
                        p = any(buf, " \t");
                        if (p == NULL)
                                p = buf + 3;
                        q = to;
                        while (*++p) {
                                if (*p == '"')
                                        *q++ = '\\';
                                *q++ = *p;
                        }
                        q[-1] = '\0';
                        break;

                case INCLUSIVE:
                        sprintf(cmdbuf,"exec %s -p", inews);
                        pipe = popen(cmdbuf,"w");
                        if (pipe == NULL){
                                perror("recnews: open failed");
                                exit(1);
                        }
                        state = READING;
                        fputs(buf,pipe);
                        break;

                /*
                 * Kludge to compensate for messages without real headers
                 */
                case HEADER:
                        break;

                case BLANK:
                        state = READING;
                        findgroup(to, newsgroup);
                        sprintf(cmdbuf, "exec %s -t \"%s\" -n \"%s\" -f \"%s\"",
                                inews, *subject ? subject : "(none)",
                                newsgroup, from);
#ifdef debug
                        pipe = stdout;
                        printf("BLANK: %s\n", cmdbuf);
#else
                        pipe = popen(cmdbuf, "w");
                        if (pipe == NULL) {
                                perror("recnews: popen failed");
                                exit(1);
                        }
#endif
                        if (sender[0]) {
                                fputs(sender, pipe);
                                putc('\n', pipe);
                        }
                        break;

                case TEXT:
                        findgroup(to, newsgroup);
                        state = READING;
                        if (subject[0] == 0) {
                                strcpy(subject, buf);
                                if (subject[strlen(subject)-1] == '\n')
                                        subject[strlen(subject)-1] = '\0';
                        }
                        sprintf(cmdbuf, "exec \"%s\" -t \"%s\" -n \"%s\" -f \"%s\"",
                                inews, subject, newsgroup, from);
#ifdef debug
                        pipe = stdout;
                        printf("TEXT: %s\n", cmdbuf);
#else
                        pipe = popen(cmdbuf, "w");
                        if (pipe == NULL) {
                                perror("pipe failed");
                                exit(1);
                        }
#endif
                        if (sender[0]){
                                fputs(sender, pipe);
                                putc('\n',pipe);
                        }
                        break;
                }
        }
        exit(0);
}

type(p)
register char *p;
{
        char *firstbl;
        static char lasthdr;            /* prev line was a header */

        lasthdr = 1;
        if ((*p == ' ' || *p == '\t') && lasthdr)
                return HEADER;          /* continuation line */
        firstbl = any(p, " \t");
        while (*p == ' ' || *p == '?' || *p == '\t')
                ++p;

        if (*p == '\n' || *p == 0)
                return BLANK;
        if (strncmp(p, ">From", 5) == 0 || strncmp(p, "From", 4) == 0)
                return FROM;
        if (strncmp(p, "Subj", 4)==0 || strncmp(p, "Re:", 3)==0 ||
                strncmp(p, "re:", 3)==0)
                return SUBJ;
        if (strncmp(p, "To", 2)==0)
                return TO;
        if (strncmp(p, "\1\1\1\1", 4)==0)
                return EOM;
        if (firstbl && firstbl[-1] == ':' && isalpha(*p))
                return HEADER;
        lasthdr = 0;
        return TEXT;
}

/*
 * Figure out who a message is from.
 */
frombreak(buf, fbuf)
register char *buf, *fbuf;
{
        char wordfrom[BFSZ], uname[BFSZ], at[BFSZ], site[BFSZ];

        if (fbuf[0]) {  /* we already know who it's from */
                if (sender[0] == 0 || buf[4] == ':') {
#ifdef debug
                        printf("sender set to: %s", buf);
#endif
                        strcpy(sender, buf);
                }
                return;
        }
        /* break the line into tokens. */
        sscanf(buf, "%s %s %s %s", wordfrom, uname, at, site);
        if (isat(at))
                /*
                 * Some arpanet mail comes from "joe at mit-dms"
                 * instead of "joe@mit-dms", so handle it here.
                 */
                sprintf(fbuf, "%s@%s", uname, site);
        else
                strcpy(fbuf, uname);
}

isat(str)
char *str;
{
        if (strcmp(str, "@")==0) return TRUE;
        if (strcmp(str, "at")==0) return TRUE;
        if (strcmp(str, "AT")==0) return TRUE;
        return FALSE;
}

findgroup(dest, group)
char *dest ;
char *group;
{
#ifdef debug
        printf("findgroup(%s)\n", dest);
#endif
#ifdef fussy
        /*
         * Default unknown "to" fields to "general".  This gives you
         * tight control over which newsgroups exist.
         */
        if (strcmp(dest, "msgs")==0)
                strcpy(group, "msgs");
        else if (strcmp(dest, "allmsgs")==0)
                strcpy(group, "NET.allmsgs");
        else if (strcmp(dest, "csmsgs")==0)
                strcpy(group, "NET.csmsgs");
        else
                strcpy(group, "general");
#else
        /*
         * Allow any newsgroup.  This way you don't have to recompile
         * recnews every time you add a newsgroup.
         */
        strcpy(group, dest);
#endif
}

/*
 * Return the ptr in sp at which a character in sq appears;
 * NULL if not found
 *
 */

char *
any(sp, sq)
char *sp, *sq;
{
        register c1, c2;
        register char *q;

        while (c1 = *sp++) {
                q = sq;
                while (c2 = *q++)
                        if (c1 == c2)
                                return(--sp);
        }
        return(NULL);
}