Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume9/elm2/part07

Internet Message Format | 1987-03-08 | 52.1 KB

Subject:  v09i007:  ELM Mail System, Part07/19
Newsgroups: mod.sources
Approved: [e-mail]

Submitted by: Dave Taylor <hplabs!taylor>
Mod.sources: Volume 9, Issue 7
Archive-name: elm2/Part07

#! /bin/sh
# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
# If this archive is complete, you will see the message:
#        "End of archive 7 (of 19)."
# Contents:  src/aliasdb.c src/domains.c src/initialize.c
#   utils/fastmail.c utils/newmail.c utils/wnewmail.c
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo shar: Extracting \"src/aliasdb.c\" \(7752 characters\)
if test -f src/aliasdb.c ; then
  echo shar: Will not over-write existing file \"src/aliasdb.c\"
else
sed "s/^X//" >src/aliasdb.c <<'END_OF_src/aliasdb.c'
X/**            aliasdb.c            **/
X
X/** Alias database files...
X
X    (C) Copyright 1986 Dave Taylor
X**/
X
X
X#include "headers.h"
X
X#include <sys/types.h>
X#include <sys/stat.h>
X#include <errno.h>
X
Xextern int errno;
X
X#ifdef USE_DBM
X# include <dbm.h>
X#endif
X
X#define  absolute(x)        ((x) > 0 ? x : -(x))
X
Xchar *shift_lower(), *find_path_to(), *strcat(), *strcpy();
Xunsigned long sleep();
X
Xint  findnode_has_been_initialized = FALSE;
X
Xfindnode(name, display_error)
Xchar *name;
Xint   display_error;
X{
X    /** break 'name' into machine!user or user@machine and then
X        see if you can find 'machine' in the path database..
X        If so, return name as the expanded address.  If not,
X        return what was given to us!   If display_error, then
X        do so...
X    **/
X
X#ifndef DONT_TOUCH_ADDRESSES
X
X    char   old_name[SLEN];
X    char   address[SLEN];
X
X    if (strlen(name) == 0)
X      return;
X
X    if (! findnode_has_been_initialized) {
X      if (! mail_only)
X        error("initializing internal tables...");
X#ifndef USE_DBM
X      get_connections();
X      open_domain_file();
X#endif
X      init_findnode();
X      clear_error();
X          findnode_has_been_initialized = TRUE;
X    }
X
X    strcpy(old_name, name);        /* save what we were given */
X
X    if (expand_site(name, address) == -1) {
X          if (display_error && name[0] != '!') {
X        dprint2(2,"Couldn't expand host %s in address. (%s)\n",
X                 name, "findnode");
X        if (! check_only && warnings) {    /* be silent if just checking */
X          if (mail_only)
X            printf("Warning: couldn't expand %s...\n\r", name);
X          else {
X            error1("Warning: couldn't expand %s...", name);
X            sleep(1);
X          }
X        }
X      }
X      strcpy(name, old_name);    /* and restore... */
X    }
X    else
X      strcpy(name, address);
X#endif
X    return;
X}
X
Xint
Xexpand_site(cryptic, expanded)
Xchar *cryptic, *expanded;
X{
X
X    /** Given an address of the form 'xyz@site' or 'site!xyz'
X        return an address of the form <expanded address for site>
X            with 'xyz' embedded according to the path database entry.
X        Note that 'xyz' can be eiher a simple address (as in "joe")
X        or a complex address (as in "[e-mail]")!
X        0 = found, -1 return means unknown site code
X
X        Modified to strip out parenthetical comments...
X    **/
X
X#ifdef ACSNET
X
X    strcpy(expanded, cryptic);    /* fast and simple */
X    return(0);
X
X#else
X# ifdef USE_DBM
X    datum  key, contents;
X# endif
X
X    char   name[VERY_LONG_STRING], sitename[VERY_LONG_STRING],
X               temp[VERY_LONG_STRING], old_name[VERY_LONG_STRING],
X           comment[LONG_STRING];
X    char   *expand_domain(), *addr;
X    register int i = 0, j = 0, domain_name;
X
X    strcpy(old_name, cryptic);    /* remember what we were given */
X
X    /** break down **/
X
X    /** first, rip out the comment, if any **/
X
X    if ((i = chloc(cryptic, '(')) > -1) {
X      comment[j++] = ' ';            /* leading space */
X      for ( ;cryptic[i] != ')'; i++)
X          comment[j++] = cryptic[i];
X      comment[j++] = ')';
X      comment[j] = '\0';
X      /* and remove this from cryptic string too... */
X      if (cryptic[(j = chloc(cryptic,'('))-1] == ' ')
X        cryptic[j-1] = '\0';
X      else
X        cryptic[j] = '\0';
X    }
X    else
X      comment[0] = '\0';
X
X    i = j = 0;    /* reset */
X
X    while (cryptic[i] != AT_SIGN && cryptic[i] != BANG &&
X           cryptic[i] != '\0' && cryptic[i] != '(')
X      sitename[j++] = cryptic[i++];
X
X    sitename[j++] = '\0';
X
X    j = 0;
X
X    if (cryptic[i] == '\0') return(-1);    /* nothing to expand! */
X
X    domain_name = (cryptic[i] == AT_SIGN);
X
X    i++;
X
X    while (cryptic[i] != '\0' && cryptic[i] != '(' &&
X               ! whitespace(cryptic[i]))
X      name[j++] = cryptic[i++];
X
X    name[j] = '\0';
X
X    if (domain_name) {
X      strcpy(temp, name);
X      strcpy(name, sitename);
X      strcpy(sitename, temp);
X    }
X
X    dprint3(5,"\nBroke address into '%s' @ '%s' '%s'\n\n",
X        name, sitename, comment);
X
X#ifdef USE_DBM
X
X    if (size_of_pathfd == 0)
X      return(-1);
X
X    key.dptr  = sitename;
X    key.dsize = strlen(sitename) + 1;
X
X    contents = fetch(key);
X
X    if (contents.dptr == 0)
X      return(-1);            /* can't find it! */
X
X    sprintf(expanded, contents.dptr, name);
X    strcat(expanded, " ");            /* add a single space... */
X    strcat(expanded, comment);        /*    ...and add comment */
X    return(0);
X#endif
X
X#ifndef LOOK_CLOSE_AFTER_SEARCH
X
X    if (talk_to(sitename)) {
X      strcpy(expanded, old_name);    /* restore! */
X      return(0);
X    }
X#endif
X
X    if ((addr = find_path_to(sitename, TRUE)) == NULL) {
X
X#ifdef LOOK_CLOSE_AFTER_SEARCH
X
X        if (talk_to(sitename)) {
X          strcpy(expanded, old_name);    /* restore! */
X          return(0);
X        }
X        else
X#endif
X        if ((addr = expand_domain(cryptic)) != NULL) {
X           strcpy(expanded, addr);    /* into THIS buffer */
X           strcat(expanded, comment);    /* patch in comment */
X           return(0);
X        }
X        else  if (size_of_pathfd == 0) {    /* no path database! */
X          strcpy(expanded, old_name);    /* restore! */
X          return(0);
X        }
X        else {                 /* We just can't get there! */
X          strcpy(expanded, old_name);    /* restore! */
X          return(-1);
X        }
X    }
X    else {            /* search succeeded */
X       sprintf(expanded, addr, name);
X       strcat(expanded, comment);        /* add comment */
X       return(0);
X    }
X#endif
X}
X
Xint
Xbinary_search(name, address)
Xchar *name, *address;
X{
X    /* binary search file for name.  Return 0 if found, -1 if not */
X
X    char machine[40];
X    register long first = 0, last, middle;
X    register int  compare;
X
X    address[0] = '\0';
X
X    last = size_of_pathfd;
X
X    do {
X
X      middle = (long) ((first+last) / 2);
X
X      get_entry(machine, address, pathfd, middle);
X
X      compare = strcmp(name, machine);
X
X      if (compare < 0)
X        last = middle - 1;
X      else if (compare == 0)
X        return(0);
X      else  /* greater */
X        first = middle + 1;
X    } while (absolute(last) - absolute(first) > FIND_DELTA);
X
X    return(-1);
X}
X
Xget_entry(machine, address, fileid, offset)
Xchar *machine, *address;
XFILE *fileid;
Xlong offset;
X{
X    /** get entry...return machine and address immediately
X        following given offset in fileid.  **/
X
X    fseek(fileid, offset, 0);
X
X    /* read until we hit an end-of-line */
X
X    while (getc(fileid) != '\n')
X       ;
X
X    fscanf(fileid, "%s\t%s", machine, address);
X}
X
Xinit_findnode()
X{
X    /** Initialize the FILE and 'size_of_file' values for the
X        findnode procedure **/
X
X    struct stat buffer;
X
X    if (stat(pathfile, &buffer) == -1) {
X      dprint2(1, "Warning: No pathalias file [filename %s] found! (%s)\n",
X          pathfile, "init_findnode");
X      size_of_pathfd = 0;
X      return;
X    }
X
X    size_of_pathfd = (long) buffer.st_size;
X
X#ifdef USE_DBM
X
X    if (dbminit(pathfile) != 0) {
X      dprint1(1, "Warning: couldn't initialize DBM database %s\n",
X             pathfile);
X      dprint2(1, "** %s - %s **\n\n", error_name(errno),
X             error_description(errno));
X      size_of_pathfd = 0;    /* error flag, in this case */
X      return;
X    }
X
X    return;
X#else
X
X    if ((pathfd = fopen(pathfile,"r")) == NULL) {
X      dprint2(1, "Warning: Can't read pathalias file [filename %s] (%s)\n",
X           pathfile, "init_findnode");
X      size_of_pathfd = 0;
X    }
X    else
X      dprint2(2, "\nOpened file '%s' as path alias database.  (%s)\n\n",
X          pathfile, "init_findnode");
X#endif
X}
X
Xchar *find_path_to(machine, printf_format)
Xchar *machine;
Xint   printf_format;
X{
X    /** Returns either the path to the specified machine or NULL if
X        not found.  If "printf_format" is TRUE, then it leaves the
X        '%s' intact, otherwise it assumes that the address is a uucp
X        address for the domain expansion program and removes the
X        last three characters of the expanded name ("!%s") since
X        they're redundant with the expansion!
X        **/
X
X    static char buffer[LONG_SLEN];    /* space for path */
X
X    if (size_of_pathfd > 0)
X      if (binary_search(machine, buffer) != -1) {       /* found it! */
X        if (! printf_format && strlen(buffer) > 3)
X          buffer[strlen(buffer)-3] = '\0';
X        return( (char *) buffer);
X      }
X
X    return(NULL);                        /* failed if it's here! */
X}
END_OF_src/aliasdb.c
if test 7752 -ne `wc -c <src/aliasdb.c`; then
    echo shar: \"src/aliasdb.c\" unpacked with wrong size!?
fi
# end of overwriting check
fi
echo shar: Extracting \"src/domains.c\" \(7773 characters\)
if test -f src/domains.c ; then
  echo shar: Will not over-write existing file \"src/domains.c\"
else
sed "s/^X//" >src/domains.c <<'END_OF_src/domains.c'
X/**            domains.c            **/
X
X/** This file contains all the code dealing with the expansion of
X    domain based addresses in Elm.  It uses the file "domains" as
X    defined in the sysdefs.h file.
X
X    (C) Copyright 1986 Dave Taylor
X
X    From a file format and idea in "uumail" - designed by Stan Barber.
X**/
X
X#include <stdio.h>
X#include <ctype.h>
X
X#include "headers.h"
X
X#ifdef BSD
X# undef toupper
X# undef tolower
X#endif
X
X/** define the various characters that we can encounter after a "%" sign
X    in the template file...
X**/
X
X#define USERNAME    'U'    /* %U = the name of the remote user */
X#define HOSTNAME    'N'    /* %N = the remote machine name     */
X#define FULLNAME    'D'    /* %D = %N + domain info given      */
X#define NPATH        'R'    /* %R = path to %N from pathalias   */
X#define PPATH        'P'    /* %P = path to 'P' from pathalias  */
X#define OBSOLETE    'S'    /* %S = (used to be suffix string)  */
X
X/** and finally some characters that are allowed in user/machine names **/
X
X#define okay_others(c)    (c == '-' || c == '^' || c == '$' || c == '_')
X
X/** and some allowed ONLY in the username field **/
X
X#define special_chars(c)    (c == '%' || c == ':')
X
Xchar *find_path_to(), *expand_domain(), *match_and_expand_domain();
Xchar *strcpy(), *strcat(), *strtok();
Xunsigned long sleep();
Xvoid rewind();
X
Xopen_domain_file()
X{
X    if ((domainfd = fopen(domains, "r")) == NULL) {
X      dprint1(1, "Can't open file %s as domains file (open_domain_file)\n",
X          domains);
X    }
X    else {
X      dprint1(2,
X            "\nOpened '%s' as the domain database. (open_domain_file)\n\n",
X          domains);
X    }
X
X    /* if it fails it'll instantiate domainfd to NULL which is
X       exactly what we want to have happen!! */
X}
X
Xchar *expand_domain(buffer)
Xchar *buffer;
X{
X    /** Expand the address 'buffer' based on the domain information,
X        if any.  Returns NULL if it can't expand it for any reason.
X    **/
X
X    char name[2*NLEN], address[2*NLEN], domain[2*NLEN];
X    char *match_and_expand_domain();
X
X    if (domainfd == NULL) return(NULL);    /* no file present! */
X
X    if (explode(buffer, name, address, domain))
X      return( match_and_expand_domain(domain, name, address) );
X    else {    /* invalid format - not "[e-mail]" */
X      dprint1(3,
X         "Invalid format for domain expansion: %s (expand_domain)\n",
X           buffer);
X      return(NULL);
X    }
X}
X
Xint
Xexplode(buffer, name, address, domain)
Xchar *buffer, *name, *address, *domain;
X{
X    /** Break buffer, if in format [e-mail], into the
X        component parts, otherwise return ZERO and don't worry
X        about the values of the parameters!
X    **/
X
X    register int i, j = 0;
X
X    /** First get the name... **/
X
X    for (i=0; buffer[i] != '@'; i++) {
X      if (! isalnum(buffer[i]) && ! okay_others(buffer[i]) && !
X        special_chars(buffer[i]))
X        return(0);            /* invalid character in string! */
X      name[i] = buffer[i];
X    }
X
X    name[i++] = '\0';
X
X    /** now let's get the machinename **/
X
X    while (buffer[i] != '.') {
X      if (! isalnum(buffer[i]) && ! okay_others(buffer[i]))
X         return(0);            /* invalid character in string! */
X      address[j++] = buffer[i++];
X    }
X    address[j] = '\0';
X
X    j = 0;
X
X    /** finally let's get the domain information (there better be some!) **/
X
X    while (buffer[i] != '\0') {
X      if (! isalnum(buffer[i]) && ! okay_others(buffer[i]) &&
X            buffer[i] != '.')
X        return(0);              /* an you fail again, bozo! */
X      domain[j++] = toupper(buffer[i]);
X      i++;
X    }
X
X    domain[j] = '\0';
X
X    return(j);        /* if j == 0 there's no domain info! */
X}
X
Xchar *match_and_expand_domain(domain, name, machine)
Xchar *domain, *name, *machine;
X{
X    /** Given the domain, try to find it in the domain file and
X           if found expand the entry and return the result as a
X        character string...
X    **/
X
X    static char address[SLEN];
X    char   buffer[SLEN], domainbuff[NLEN];
X    char   field1[2*NLEN], field2[2*NLEN], field3[2*NLEN];
X    char   *path, *template, *expanded, *mydomain, *strtok();
X    int    matched = 0, in_percent = 0;
X    register int i, j = 0;
X
X    address[j] = '\0';
X
X    domainbuff[0] = '\0';
X    mydomain = (char *) domainbuff;            /* set up buffer etc */
X
X    do {
X      rewind(domainfd);                   /* back to ground zero! */
X
X      if (strlen(mydomain) > 0) {           /* already in a domain! */
X        mydomain++;                       /* skip leading '.' */
X        while (*mydomain != '.' && *mydomain != ',')
X          mydomain++;                   /* next character   */
X        if (*mydomain == ',')
X          return (NULL);                /* didn't find domain!  */
X      }
X      else
X        sprintf(mydomain, "%s,", domain);        /* match ENTIRELY! */
X
X    /* whip through file looking for the entry, please... */
X
X    while (fgets(buffer, SLEN, domainfd) != NULL) {
X      if (buffer[0] == '#')                  /* skip comments */
X        continue;
X      if (strncmp(buffer, mydomain, strlen(mydomain)) == 0) { /* match? */
X         matched++;    /* Gotcha!  Remember this momentous event! */
X         break;
X      }
X    }
X
X    if (! matched)
X       continue;        /* Nothing.  Not a sausage!  Step through! */
X
X    /** We've matched the domain! **/
X
X    no_ret(buffer);
X
X    (void) strtok(buffer, ",");    /* skip the domain info */
X
X    strcpy(field1, strtok(NULL, ","));    /* fun         */
X    strcpy(field2, strtok(NULL, ","));    /*    stuff     */
X    strcpy(field3, strtok(NULL, ","));    /*       eh?    */
X
X    path = (char *) NULL;
X
X    /* now we merely need to figure out what permutation this is! */
X
X    if (field3 == NULL || strlen(field3) == 0)
X      if (field2 == NULL || strlen(field2) == 0)
X        template = (char *) field1;
X      else {
X        path     = (char *) field1;
X        template = (char *) field2;
X      }
X    else {
X      dprint1(2,"Domain info for %s from file broken into THREE fields!!\n",
X           domain);
X      dprint3(2, "-> %s\n-> %s\n-> %s\n", field1, field2, field3);
X      error1("Warning: domain %s uses a defunct field!!", domain);
X      sleep(2);
X      path     = (char *) field1;
X      template = (char *) field3;
X    }
X
X    if (strlen(path) > 0 && path[0] == '>')
X       path++;    /* skip the '>' character, okay? */
X
X    j = 0;             /* address is zero, right now, right?? */
X    address[j] = '\0';          /* make sure string is too! */
X
X    for (i=0; i < strlen(template); i++) {
X      if (template[i] == '%') {
X        if (! in_percent)               /* just hit a NEW percent! */
X          in_percent = 1;
X        else {          /* just another percent sign on the wall... */
X          address[j++] = '%';
X          address[j] = '\0';             /* ALWAYS NULL terminate */
X          in_percent = 0;
X        }
X      }
X      else if (in_percent) {           /* Hey! a real command string */
X        in_percent = 0;
X        switch (template[i]) {
X          case USERNAME: strcat(address, name);        break;
X          case HOSTNAME: strcat(address, machine);        break;
X          case FULLNAME: strcat(address, machine);
X                 strcat(address, domain);        break;
X          case NPATH   :
X
X         if ((expanded = find_path_to(machine, FALSE)) == NULL) {
X            dprint2(3,"\nCouldn't expand system path '%s' (%s)\n\n",
X                machine, "domains");
X                error1("Couldn't find a path to %s!", machine);
X                sleep(2);
X                return(NULL);    /* failed!! */
X             }
X             strcat(address, expanded);    /* isn't this fun??? */
X
X             break;
X
X          case PPATH   :
X
X         if ((expanded = find_path_to(path, FALSE)) == NULL) {
X            dprint2(3,"\nCouldn't expand system path '%s' (%s)\n\n",
X                path, "domains");
X                error1("I Couldn't find a path to %s!", path);
X                sleep(2);
X                return(NULL);    /* failed!! */
X             }
X             strcat(address, expanded);    /* isn't this fun??? */
X
X             break;
X
X          case OBSOLETE:    /* fall through.. */
X          default      : dprint2(1,
X         "\nError: Bad sequence in template file for domain '%s': %%%c\n\n",
X            domain, template[i]);
X        }
X        j = strlen(address);
X      }
X      else {
X        address[j++] = template[i];
X        address[j] = '\0';            /* null terminate */
X      }
X    }
X
X    address[j] = '\0';
X
X    } while (strlen(address) < 1);
X
X    return( (char *) address);
X}
END_OF_src/domains.c
if test 7773 -ne `wc -c <src/domains.c`; then
    echo shar: \"src/domains.c\" unpacked with wrong size!?
fi
# end of overwriting check
fi
echo shar: Extracting \"src/initialize.c\" \(8292 characters\)
if test -f src/initialize.c ; then
  echo shar: Will not over-write existing file \"src/initialize.c\"
else
sed "s/^X//" >src/initialize.c <<'END_OF_src/initialize.c'
X/**        initialize.c        **/
X
X/***** Initialize - read in all the defaults etc etc
X       (C) Copyright 1985 Dave Taylor
X*****/
X
X#include "headers.h"
X
X#ifdef BSD
X#  include <sgtty.h>
X#else
X#  include <termio.h>
X#endif
X
X#include <pwd.h>
X
X#ifdef BSD
X#  include <sys/time.h>
X#else
X#  include <time.h>
X#endif
X
X#include <signal.h>
X#include <ctype.h>
X#include <errno.h>
X
X#ifdef BSD
X#undef toupper
X#undef tolower
X#endif
X
Xextern int errno;        /* system error number on failure */
X
Xchar *error_name(), *error_description();
X
Xchar *expand_logname(), *getenv(), *getlogin(), *strcpy(), *strcat();
Xunsigned short getgid(), getuid();
Xvoid exit();
X
Xstruct   header_rec *malloc();
X
Xinitialize(initscreen_too)
Xint initscreen_too;
X{
X    /** initialize the whole ball of wax.   If "initscreen_too" then
X        call init_screen where appropriate..
X    **/
X    struct passwd *pass, *getpwnam();
X
X    register int i, j;
X    int      quit_signal(), term_signal(), ill_signal(),
X         fpe_signal(),  bus_signal(),  segv_signal(),
X             alarm_signal(), pipe_signal();
X    char     buffer[SLEN], *cp;
X
X
X    userid  = getuid();
X    groupid = getgid();
X
X    strcpy(home,((cp = getenv("HOME")) == NULL)? "" : cp);
X    strcpy(shell,((cp = getenv("SHELL")) == NULL)? "" : cp);
X    strcpy(pager,((cp = getenv("PAGER")) == NULL)? default_pager : cp);
X
X    if (debug) {        /* setup for dprintf statements! */
X      char newfname[SLEN], filename[SLEN];
X
X      sprintf(filename, "%s/%s", home, DEBUG);
X      if (access(filename, ACCESS_EXISTS) == 0) {    /* already one! */
X        sprintf(newfname,"%s/%s", home, OLDEBUG);
X        (void) link(filename, newfname);
X      }
X
X      /* Note what we just did up there: we always save the old
X         version of the debug file as OLDEBUG, so users can mail
X         copies of bug files without trashing 'em by starting up
X         the mailer.  Dumb, subtle, but easy enough to do!
X       */
X
X      if ((debugfile = fopen(filename, "w")) == NULL) {
X        debug = 0;    /* otherwise 'leave' will try to log! */
X        leave(fprintf(stderr,"Could not open file %s for debug output!\n",
X          filename));
X      }
X      chown(filename, userid, groupid); /* file owned by user */
X
X      fprintf(debugfile, "Debug output of the ELM program.  Version %s\n\n",
X          VERSION);
X    }
X
X    if (initscreen_too)    /* don't set up unless we need to! */
X      InitScreen();
X
X    if (debug < 2) {    /* otherwise let the system trap 'em! */
X      signal(SIGINT,  SIG_IGN);
X      signal(SIGQUIT, quit_signal);        /* Quit signal                 */
X      signal(SIGTERM, term_signal);     /* Terminate signal         */
X      signal(SIGILL,  ill_signal);        /* Illegal instruction      */
X      signal(SIGFPE,  fpe_signal);        /* Floating point exception */
X      signal(SIGBUS,  bus_signal);        /* Bus error              */
X      signal(SIGSEGV, segv_signal);        /* Segmentation Violation   */
X    }
X
X    signal(SIGALRM, alarm_signal);        /* Process Timer Alarm        */
X    signal(SIGPIPE, pipe_signal);        /* Illegal Pipe Operation   */
X
X    get_term_chars();
X
X    gethostname(hostname, sizeof(hostname));
X
X#ifdef BSD
X    if ((cp = getenv("USER")) == NULL)
X#else
X    if ((cp = getenv("LOGNAME")) == NULL)
X#endif
X      if ((cp = getlogin()) == NULL)
X        cuserid(username);
X      else
X        strcpy(username, cp);
X    else
X      strcpy(username, cp);
X
X    /* now let's get the full username.. */
X
X    if ((pass = getpwnam(username)) == NULL) {
X      error("Couldn't read password entry??");
X      strcpy(full_username, username);
X    }
X    else {
X      /* fix for this section from Don Joslyn of Nova University */
X      for (i=0,j=0; pass->pw_gecos[i] != '\0' && pass->pw_gecos[i] != ',';
X           i++)
X          if (pass->pw_gecos[i] == '&') {
X            full_username[j] = '\0';
X            strcat(full_username, expand_logname());
X            j = strlen(full_username);
X          }
X          else
X            full_username[j++] = pass->pw_gecos[i];
X      full_username[j] = '\0';
X    }
X
X    if ((cp = getenv("EDITOR")) == NULL)
X      strcpy(editor,default_editor);
X    else
X      strcpy(editor, cp);
X    strcpy(alternative_editor, editor);    /* this one can't be changed! */
X
X    if (! mail_only) {
X      mailbox[0] = '\0';
X      strcpy(prefixchars, "> ");     /* default message prefix */
X      sprintf(calendar_file, "%s/%s", home, dflt_calendar_file);
X    }
X
X    local_signature[0] = remote_signature[0] = '\0';    /* NULL! */
X
X    read_rc_file();        /* reading the .elmrc next... */
X
X    /** now try to expand the specified filename... **/
X
X    if (strlen(infile) > 0) {
X      (void) expand_filename(infile);
X      if ((errno = can_access(infile, READ_ACCESS))) {
X        dprint2(1,"Error: given file %s as mailbox - unreadable (%s)!\n",
X             infile, error_name(errno));
X        fprintf(stderr,"Can't open mailbox '%s' for reading!\n", infile);
X        exit(1);
X      }
X    }
X
X    /** check to see if the user has defined a LINES or COLUMNS
X        value different to that in the termcap entry (for
X        windowing systems, of course!) **/
X
X    ScreenSize(&LINES, &COLUMNS);
X
X    if ((cp = getenv("LINES")) != NULL && isdigit(*cp)) {
X      sscanf(cp, "%d", &LINES);
X      LINES -= 1;    /* kludge for HP Window system? ... */
X    }
X
X    if ((cp = getenv("COLUMNS")) != NULL && isdigit(*cp))
X      sscanf(cp, "%d", &COLUMNS);
X
X    /** fix the shell if needed **/
X
X    if (shell[0] != '/') {
X       sprintf(buffer, "/bin/%s", shell);
X       strcpy(shell, buffer);
X    }
X
X    if (! mail_only) {
X      mailbox_defined = (mailbox[0] != '\0');
X
X      /* get the cursor control keys... */
X
X      cursor_control = FALSE;
X
X      if ((cp = return_value_of("ku")) != NULL)
X       if (strlen(cp) == 2) {
X        strcpy(up, cp);
X        if ((cp = return_value_of("kd")) == NULL)
X          cursor_control = FALSE;
X        else if (strlen(cp) != 2)
X          cursor_control = FALSE;
X        else {
X          strcpy(down, cp);
X          cursor_control = TRUE;
X          transmit_functions(ON);
X        }
X      }
X
X      strcpy(start_highlight, "->");
X      end_highlight[0] = '\0';
X
X      if (!arrow_cursor) {    /* try to use inverse bar instead */
X        if ((cp = return_value_of("so")) != NULL) {
X          strcpy(start_highlight, cp);
X          if ((cp = return_value_of("se")) == NULL)
X            strcpy(start_highlight, "->");
X          else {
X            strcpy(end_highlight, cp);
X            has_highlighting = TRUE;
X          }
X        }
X      }
X    }
X
X    /** allocate the first KLICK headers... **/
X
X    if ((header_table = malloc(KLICK*sizeof(struct header_rec))) == NULL) {
X       fprintf(stderr,"\n\r\n\rCouldn't allocate initial headers!\n\r\n");
X       leave();
X    }
X    max_headers = KLICK;        /* we have those preallocated */
X
X    /** now cruise along... **/
X
X    if (! mail_only) {
X      if (mini_menu)
X        headers_per_page = LINES - 13;
X      else
X        headers_per_page = LINES -  8;    /* 5 more headers! */
X
X      newmbox(1,FALSE, TRUE);    /* read in the mailbox! */
X    }
X
X    dprint0(2,"\n-- end of initialization phase --\n");
X
X    dprint3(2,"\thostname = %s\n\tusername = %s\n\tfull_username = \"%s\"\n",
X             hostname, username, full_username);
X
X    dprint3(2,"\thome = %s\n\teditor = %s\n\tmailbox = %s\n",
X         home, editor, mailbox);
X
X    dprint3(2,"\tinfile = %s\n\tfolder-dir = %s\n\tprintout = \"%s\"\n",
X         infile, folders, printout);
X
X    dprint3(2,"\tsavefile = %s\n\tprefix = \"%s\"\n\tshell = %s\n",
X        savefile, prefixchars, shell);
X
X    if (signature)
X      dprint2(2,"\tlocal-signature = %s\n\tremote-signature = %s\n",
X            local_signature, remote_signature);
X
X    dprint0(1,"-- beginning execution phase --\n\n");
X}
X
Xget_term_chars()
X{
X    /** This routine sucks out the special terminal characters
X        ERASE and KILL for use in the input routine.  The meaning
X            of the characters are (dare I say it?) fairly obvious... **/
X
X#ifdef BSD
X    struct sgttyb term_buffer;
X
X# define TCGETA    TIOCGETP
X
X#else
X    struct termio term_buffer;
X#endif
X
X    if (ioctl(STANDARD_INPUT, TCGETA, &term_buffer) == -1) {
X      dprint1(1,"Error: %s encountered on ioctl call (get_term_chars)\n",
X           error_name(errno));
X      /* set to defaults for terminal driver */
X      backspace = BACKSPACE;
X      kill_line = ctrl('U');
X    }
X    else {
X#ifdef BSD
X      backspace = term_buffer.sg_erase;
X      kill_line = term_buffer.sg_kill;
X#else
X      backspace = term_buffer.c_cc[VERASE];
X      kill_line = term_buffer.c_cc[VKILL];
X#endif
X    }
X}
X
Xchar *expand_logname()
X{
X    /** Return logname in a nice format (for expanding "&" in the
X        /etc/passwd file) **/
X
X    static char buffer[SLEN];
X    register int i;
X
X    if (strlen(username) == 0)
X      buffer[0] = '\0';
X    else {
X      buffer[0] = toupper(username[0]);
X
X      for (i=1; username[i] != '\0'; i++)
X        buffer[i] = tolower(username[i]);
X
X      buffer[i] = '\0';
X    }
X
X    return( (char *) buffer);
X}
END_OF_src/initialize.c
if test 8292 -ne `wc -c <src/initialize.c`; then
    echo shar: \"src/initialize.c\" unpacked with wrong size!?
fi
# end of overwriting check
fi
echo shar: Extracting \"utils/fastmail.c\" \(8167 characters\)
if test -f utils/fastmail.c ; then
  echo shar: Will not over-write existing file \"utils/fastmail.c\"
else
sed "s/^X//" >utils/fastmail.c <<'END_OF_utils/fastmail.c'
X/**            fastmail.c            **/
X
X/** This program is specifically written for group mailing lists and
X    such batch type mail processing.  It does NOT use aliases at all,
X    it does NOT read the /etc/password file to find the From: name
X    of the user and does NOT expand any addresses.  It is meant
X    purely as a front-end for either /bin/mail or /usr/lib/sendmail
X    (according to what is available on the current system).
X
X         **** This program should be used with CAUTION *****
X
X    (C) Copyright 1985 Dave Taylor
X**/
X
X/** The calling sequence for this program is:
X
X    fastmail {args}  filename full-email-address
X
X   where args could be any (or all) of;
X
X       -b bcc-list        (Blind carbon copies to)
X       -c cc-list        (carbon copies to)
X       -d            (debug on)
X       -f from         (from name)
X       -r reply-to-address     (Reply-To:)
X       -s subject         (subject of message)
X**/
X
X#include <stdio.h>
X
X#ifdef BSD
X# ifdef BSD4.1
X#   include <time.h>
X#   include <sys/types.h>
X#   include <sys/timeb.h>
X# else
X#   include <sys/time.h>
X# endif
X#else
X#  include <time.h>
X#endif
X
X#include "defs.h"
X
Xstatic char ident[] = { WHAT_STRING };
X
X#define  binrmail    "/bin/rmail"
X#define  temphome    "/tmp/fastmail."
X
X#define DONE        0
X#define ERROR        -1
X
Xchar *optional_arg;            /* optional argument as we go */
Xint   opt_index;            /* argnum + 1 when we leave   */
X
Xchar *arpa_dayname[] = { "Sun", "Mon", "Tue", "Wed", "Thu",
X          "Fri", "Sat", "" };
X
Xchar *arpa_monname[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun",
X          "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", ""};
X
Xchar *get_arpa_date();
X
X#ifdef BSD
X  char *timezone();
X#else
X  extern char *tzname[];
X#endif
X
Xmain(argc, argv)
Xint argc;
Xchar *argv[];
X{
X
X    FILE *tempfile;
X    char hostname[NLEN], username[NLEN], from_string[SLEN], subject[SLEN];
X    char filename[SLEN], tempfilename[SLEN], command_buffer[256];
X    char replyto[SLEN], cc_list[SLEN], bcc_list[SLEN], to_list[SLEN];
X    int  c, sendmail_available, debug = 0;
X
X    replyto[0] = '\0';
X    cc_list[0] = '\0';
X    bcc_list[0] = '\0';
X
X    while ((c = get_options(argc, argv, "b:c:df:r:s:")) > 0) {
X      switch (c) {
X        case 'b' : strcpy(bcc_list, optional_arg);        break;
X        case 'c' : strcpy(cc_list, optional_arg);        break;
X        case 'd' : debug++;                    break;
X        case 'f' : strcpy(from_string, optional_arg);    break;
X        case 'r' : strcpy(replyto, optional_arg);        break;
X        case 's' : strcpy(subject, optional_arg);        break;
X       }
X    }
X
X    if (c == ERROR) {
X      fprintf(stderr,"Usage: fastmail {args} filename address(es)\n");
X      fprintf(stderr, "   where {args} can be;\n");
X      fprintf(stderr,"\t-b bcc-list\n\t-c cc-list\n\t-d\n\t-f from-name\n");
X      fprintf(stderr, "\t-r reply-to\n\t-s subject\n\n");
X      exit(1);
X    }
X
X    if (opt_index > argc) {
X      fprintf(stderr,"Usage: fastmail {args} filename address(es)\n");
X      fprintf(stderr, "   where {args} can be;\n");
X      fprintf(stderr,"\t-b bcc-list\n\t-c cc-list\n\t-d\n\t-f from-name\n");
X      fprintf(stderr, "\t-r reply-to\n\t-s subject\n\n");
X      exit(1);
X    }
X
X    strcpy(filename, argv[opt_index++]);
X
X    if (opt_index > argc) {
X      fprintf(stderr,"Usage: fastmail {args} filename address(es)\n");
X      fprintf(stderr, "   where {args} can be;\n");
X      fprintf(stderr,"\t-b bcc-list\n\t-c cc-list\n\t-d\n\t-f from-name\n");
X      fprintf(stderr, "\t-r reply-to\n\t-s subject\n\n");
X      exit(1);
X    }
X
X    gethostname(hostname, sizeof(hostname));
X    strcpy(username, getlogin());
X    if (strlen(username) == 0)
X      cuserid(username);
X
X    if (access(filename, READ_ACCESS) == -1)
X      exit(fprintf(stderr, "Error: can't find file %s!\n", filename));
X
X    sprintf(tempfilename, "%s%d", temphome, getpid());
X
X    if ((tempfile = fopen(tempfilename, "w")) == NULL)
X      exit(fprintf(stderr, "Couldn't open temp file %s\n", tempfilename));
X
X    if (strlen(from_string) > 0)
X      fprintf(tempfile, "From: %s!%s (%s)\n",
X          hostname, username, from_string);
X    else
X      fprintf(tempfile, "From: %s!%s\n", hostname, username);
X
X    fprintf(tempfile, "Date: %s\n", get_arpa_date());
X
X    if (strlen(subject) > 0)
X      fprintf(tempfile, "Subject: %s\n", subject);
X
X    if (strlen(replyto) > 0)
X      fprintf(tempfile, "Reply-To: %s\n", replyto);
X
X    while (opt_index < argc)
X          sprintf(to_list, "%s%s%s", to_list, (strlen(to_list) > 0? ", ":""),
X          argv[opt_index++]);
X
X    fprintf(tempfile, "To: %s\n", to_list);
X
X    if (strlen(cc_list) > 0)
X      fprintf(tempfile, "Cc: %s\n", cc_list);
X
X    if (strlen(bcc_list) > 0)
X      fprintf(tempfile, "Bcc: %s\n", bcc_list);    /* trust xport */
X
X    fprintf(tempfile, "X-Mailer: fastmail [version %s]\n", VERSION);
X    fprintf(tempfile, "\n");
X
X    fclose(tempfile);
X
X    /** now we'll cat both files to /bin/rmail or sendmail... **/
X
X    sendmail_available = (access(sendmail, EXECUTE_ACCESS) != -1);
X
X    printf("Mailing to %s%s%s%s%s [via %s]\n", to_list,
X        (strlen(cc_list) > 0 ? " ":""), cc_list,
X        (strlen(bcc_list) > 0 ? " ":""), bcc_list,
X        sendmail_available? "sendmail" : "rmail");
X
X    sprintf(command_buffer, "cat %s %s | %s '%s %s %s'",
X        tempfilename, filename,
X            sendmail_available? sendmail : mailer,
X        to_list, cc_list, bcc_list);
X
X    if (debug)
X      printf("%s\n", command_buffer);
X
X    system(command_buffer);
X
X    unlink(tempfilename);
X}
X
X
Xchar *get_arpa_date()
X{
X    /** returns an ARPA standard date.  The format for the date
X        according to DARPA document RFC-822 is exemplified by;
X
X                     Mon, 12 Aug 85 6:29:08 MST
X
X    **/
X
X    static char buffer[SLEN];    /* static character buffer       */
X    struct tm *the_time,        /* Time structure, see CTIME(3C) */
X          *localtime();
X    long       junk;        /* time in seconds....         */
X#ifdef BSD
X#  ifdef BSD4.1
X    struct timeb loc_time;    /* of course this is different! */
X#  else
X    struct  timeval  time_val;
X    struct  timezone time_zone;
X#  endif
X#endif
X
X#ifdef BSD
X#  ifdef BSD4.1
X    junk = (long) time((long *) 0);
X    ftime(&loc_time);
X#  else
X    gettimeofday(&time_val, &time_zone);
X    junk = time_val.tv_sec;
X#  endif
X#else
X    junk = time(0);    /* this must be here for it to work! */
X#endif
X    the_time = localtime(&junk);
X
X    sprintf(buffer, "%s, %d %s %d %d:%02d:%02d %s",
X      arpa_dayname[the_time->tm_wday],
X      the_time->tm_mday % 32,
X      arpa_monname[the_time->tm_mon],
X      the_time->tm_year % 100,
X      the_time->tm_hour % 24,
X      the_time->tm_min  % 61,
X      the_time->tm_sec  % 61,
X#ifdef BSD
X#  ifdef BSD4.1
X      timezone(loc_time.time_zone, the_time->tz_isdst));
X#  else
X      timezone(time_zone.tz_minuteswest, time_zone.tz_dsttime));
X#  endif
X#else
X      tzname[the_time->tm_isdst]);
X#endif
X
X    return( (char *) buffer);
X}
X
X/** Starting argument parsing routine.
X
X    Called as "get_options(argc, argv, options)" where options is a string
X    of the form "abc:d" indicating that 'a' 'b' and 'd' are flags and
X    'c' is a flag with a trailing argument.   Optional arguments are
X    returned in the external char * variable "optional_arg", and the
X    external int "opt_index" is set to the first entry in the argv list
X    that wasn't processed (ie after the flags).
X
X    For example, the C compiler would have something of the form
X    getopt(argc, argv, "Oo:l:") to allow "cc -O -o output -l lib file.c"
X
X    (C) Copyright 1986, Dave Taylor
X**/
X
Xint  _indx = 1, _argnum = 1;
X
Xint
Xget_options(argc, argv, options)
Xint argc;
Xchar *argv[], *options;
X{
X    /** Returns the character argument next, and optionally instantiates
X        "argument" to the argument associated with the particular option
X    **/
X
X    char       *word, *strchr();
X
X    if (_indx >= strlen(argv[_argnum])) {
X      _argnum++;
X      _indx = 1;        /* zeroeth char is '-' */
X    }
X
X    if (_argnum >= argc) {
X      opt_index = argc;
X      return(DONE);
X    }
X
X    if (argv[_argnum][0] != '-') {
X      opt_index = _argnum;
X      return(DONE);
X    }
X
X        word = strchr(options, argv[_argnum][_indx++]);
X
X    if (strlen(word) == 0)
X      return(ERROR);
X
X    if (word[1] == ':') {
X
X      /** Two possibilities - either tailing end of this argument or the
X          next argument in the list **/
X
X      if (_indx < strlen(argv[_argnum])) { /* first possibility */
X        optional_arg = (char *) (argv[_argnum] + _indx);
X        _argnum++;
X        _indx = 1;
X      }
X      else {                /* second choice     */
X        if (++_argnum >= argc)
X          return(ERROR);            /* no argument!!     */
X
X        optional_arg = (char *) argv[_argnum++];
X        _indx = 1;
X      }
X    }
X
X    return((int) word[0]);
X}
END_OF_utils/fastmail.c
if test 8167 -ne `wc -c <utils/fastmail.c`; then
    echo shar: \"utils/fastmail.c\" unpacked with wrong size!?
fi
# end of overwriting check
fi
echo shar: Extracting \"utils/newmail.c\" \(7989 characters\)
if test -f utils/newmail.c ; then
  echo shar: Will not over-write existing file \"utils/newmail.c\"
else
sed "s/^X//" >utils/newmail.c <<'END_OF_utils/newmail.c'
X/**            newmail.c            **/
X
X/** Keep track of the mail for the current user...if new mail
X    arrives, output a line of the form;
X
X       New mail from <name> - <subject>
X
X    where <name> is either the persons full name, or machine!login.
X    If there is no subject, it will say.
X
X    Added: you can specify a file other than the mailbox to keep
X    track of - if an argument is given, the program will try
X    to use it as a filename...
X
X    Also, the program will quit when you log off of the machine.
X
X    (C) Copyright 1986, Dave Taylor
X**/
X
X#include <stdio.h>
X#include <sys/types.h>
X#include <sys/stat.h>
X
X#include "defs.h"
X
X#ifdef AUTO_BACKGROUND
X#include <signal.h>    /* background jobs ignore some signals... */
X#endif
X
Xstatic char ident[] = { WHAT_STRING };
X
X#define LINEFEED    (char) 10
X#define BEGINNING    0            /* seek fseek(3S) */
X#define SLEEP_TIME    60
X
X#define NO_SUBJECT    "(No Subject Specified)"
X
XFILE *mailfile;
X
Xlong  bytes();
X
Xmain(argc, argv)
Xint argc;
Xchar *argv[];
X{
X    char filename[LONG_SLEN];
X    long size, newsize;
X
X    if (argc > 2)
X      fprintf(stderr, "Usage: %s [filename] &\n", argv[0]);
X    else if (argc == 2) {
X      strcpy(filename, argv[1]);
X      if (access(filename, ACCESS_EXISTS) == -1) {
X        fprintf(stderr,"%s: Can't open file %s to keep track of!\n",
X            argv[0], filename);
X        exit(1);
X      }
X    }
X    else
X      sprintf(filename,"%s%s",mailhome, getlogin());
X
X#ifdef AUTO_BACKGROUND
X    if (fork())        /* automatically puts this task in background! */
X      exit(0);
X
X    signal(SIGINT, SIG_IGN);
X    signal(SIGQUIT, SIG_IGN);
X    signal(SIGHUP,  SIG_DFL);    /* so we exit when logged out */
X#endif
X
X    size = bytes(filename);
X
X    mailfile = (FILE *) NULL;
X
X    while (1) {
X
X#ifndef AUTO_BACKGROUND        /* won't work if we're nested this deep! */
X      if (getppid() == 1)     /* we've lost our shell! */
X        exit();
X#endif
X    if (! isatty(1))    /* we're not sending output to a tty any more */
X       exit();
X
X    /** Note the lack of error checking on the fopen() (Philip Peake
X        did!) - this is okay since if it fails we don't have any
X        mail and we can sleep(60) and try again later...
X    **/
X
X      if (mailfile == (FILE *) NULL)
X        mailfile = fopen(filename,"r");
X
X      if ((newsize = bytes(filename)) > size) {    /* new mail */
X        fseek(mailfile, size, BEGINNING); /* skip all current mail */
X        size = newsize;
X        printf("\n\r");    /* blank lines surrounding message */
X        read_headers();
X        printf("\n\r");
X      }
X      else if (newsize != size) {
X        size = newsize;         /* mail's been removed... */
X        (void) fclose(mailfile);    /* close it and ...       */
X        mailfile = (FILE *) NULL;    /* let's reopen the file  */
X      }
X
X      sleep(SLEEP_TIME);
X    }
X}
X
Xint
Xread_headers()
X{
X    /** read the headers, output as found **/
X
X    char buffer[LONG_SLEN], from_whom[SLEN], subject[SLEN];
X    register int subj = 0, in_header = 1, count = 0, priority=0;
X
X    while (fgets(buffer, LONG_SLEN, mailfile) != NULL) {
X      if (first_word(buffer,"From ")) {
X        if (real_from(buffer, from_whom)) {
X          subj = 0;
X          in_header = 1;
X        }
X      }
X      else if (in_header) {
X        if (first_word(buffer,">From"))
X          forwarded(buffer, from_whom); /* return address */
X        else if (first_word(buffer,"Subject:") ||
X             first_word(buffer,"Re:")) {
X          if (! subj++) {
X            remove_first_word(buffer);
X        strcpy(subject, buffer);
X          }
X        }
X        else if (first_word(buffer,"Priority:"))
X          priority++;
X        else if (first_word(buffer,"From:"))
X          parse_arpa_from(buffer, from_whom);
X        else if (buffer[0] == LINEFEED) {
X          in_header = 0;    /* in body of message! */
X          show_header(priority, from_whom, subject);
X          from_whom[0] = 0;
X          subject[0] = 0;
X          count++;
X        }
X      }
X    }
X    return(count);
X}
X
Xint
Xreal_from(buffer, who)
Xchar *buffer, *who;
X{
X    /***** returns true iff 's' has the seven 'from' fields,
X           initializing the who to the sender *****/
X
X    char junk[80];
X
X    junk[0] = '\0';
X    sscanf(buffer, "%*s %s %*s %*s %*s %*s %s",
X                who, junk);
X    return(junk[0] != '\0');
X}
X
Xforwarded(buffer, who)
Xchar *buffer, *who;
X{
X    /** change 'from' and date fields to reflect the ORIGINATOR of
X        the message by iteratively parsing the >From fields... **/
X
X    char machine[80], buff[80];
X
X    machine[0] = '\0';
X    sscanf(buffer, "%*s %s %*s %*s %*s %*s %*s %*s %*s %s",
X                who, machine);
X
X    if (machine[0] == '\0') /* try for srm address */
X      sscanf(buffer, "%*s %s %*s %*s %*s %*s %*s %*s %s",
X                who, machine);
X
X    if (machine[0] == '\0')
X      sprintf(buff,"anonymous");
X    else
X      sprintf(buff,"%s!%s", machine, who);
X
X    strncpy(who, buff, 80);
X}
X
X
Xremove_first_word(string)
Xchar *string;
X{    /** removes first word of string, ie up to first non-white space
X        following a white space! **/
X
X    register int loc;
X
X    for (loc = 0; string[loc] != ' ' && string[loc] != '\0'; loc++)
X        ;
X
X    while (string[loc] == ' ' || string[loc] == '\t')
X      loc++;
X
X    move_left(string, loc);
X}
X
Xmove_left(string, chars)
Xchar string[];
Xint  chars;
X{
X    /** moves string chars characters to the left DESTRUCTIVELY **/
X
X    register int i;
X
X    chars--; /* index starting at zero! */
X
X    for (i=chars; string[i] != '\0' && string[i] != '\n'; i++)
X      string[i-chars] = string[i];
X
X    string[i-chars] = '\0';
X}
X
Xshow_header(priority, from, subject)
Xint   priority;
Xchar *from, *subject;
X{
X    /** output header in clean format, including abbreviation
X        of return address if more than one machine name is
X        contained within it! **/
X    char buffer[SLEN];
X    int  loc, i=0, exc=0;
X
X#ifdef PREFER_UUCP
X
X    if (chloc(from, '!') != -1 && in_string(from, BOGUS_INTERNET))
X      from[strlen(from) - strlen(BOGUS_INTERNET)] = '\0';
X
X#endif
X
X    loc = strlen(from);
X
X    while (exc < 2 && loc > 0)
X      if (from[--loc] == '!')
X        exc++;
X
X    if (exc == 2) { /* lots of machine names!  Get last one */
X      loc++;
X      while (loc < strlen(from) && loc < SLEN)
X        buffer[i++] = from[loc++];
X      buffer[i] = '\0';
X      strcpy(from, buffer);
X    }
X
X    if (strlen(subject) < 2)
X      strcpy(subject, NO_SUBJECT);
X
X      printf(">> %s mail from %s - %s\n\r",
X        priority? "PRIORITY" : "New", from, subject);
X}
X
Xparse_arpa_from(buffer, newfrom)
Xchar *buffer, *newfrom;
X{
X    /** try to parse the 'From:' line given... It can be in one of
X        two formats:
X        From: Dave Taylor <hpcnou!dat>
X        or  From: hpcnou!dat (Dave Taylor)
X        Change 'newfrom' ONLY if sucessfully parsed this entry and
X        the resulting name is non-null!
X    **/
X
X    char temp_buffer[SLEN], *temp;
X    register int i, j = 0;
X
X    temp = (char *) temp_buffer;
X    temp[0] = '\0';
X
X    no_ret(buffer);        /* blow away '\n' char! */
X
X    if (lastch(buffer) == '>') {
X      for (i=strlen("From: "); buffer[i] != '\0' && buffer[i] != '<' &&
X           buffer[i] != '('; i++)
X        temp[j++] = buffer[i];
X      temp[j] = '\0';
X    }
X    else if (lastch(buffer) == ')') {
X      for (i=strlen(buffer)-2; buffer[i] != '\0' && buffer[i] != '(' &&
X           buffer[i] != '<'; i--)
X        temp[j++] = buffer[i];
X      temp[j] = '\0';
X      reverse(temp);
X    }
X
X    if (strlen(temp) > 0) {        /* mess with buffer... */
X
X      /* remove leading spaces... */
X
X      while (whitespace(temp[0]))
X        temp = (char *) (temp + 1);        /* increment address! */
X
X      /* remove trailing spaces... */
X
X      i = strlen(temp) - 1;
X
X      while (whitespace(temp[i]))
X       temp[i--] = '\0';
X
X      /* if anything is left, let's change 'from' value! */
X
X      if (strlen(temp) > 0)
X        strcpy(newfrom, temp);
X    }
X}
X
Xreverse(string)
Xchar *string;
X{
X    /** reverse string... pretty trivial routine, actually! **/
X
X    char buffer[SLEN];
X    register int i, j = 0;
X
X    for (i = strlen(string)-1; i >= 0; i--)
X      buffer[j++] = string[i];
X
X    buffer[j] = '\0';
X
X    strcpy(string, buffer);
X}
X
Xlong
Xbytes(name)
Xchar *name;
X{
X    /** return the number of bytes in the specified file.  This
X        is to check to see if new mail has arrived....  **/
X
X    int ok = 1;
X    extern int errno;    /* system error number! */
X    struct stat buffer;
X
X    if (stat(name, &buffer) != 0)
X      if (errno != 2)
X       exit(fprintf(stderr,"Error %d attempting fstat on %s", errno, name));
X      else
X        ok = 0;
X
X    return(ok ? buffer.st_size : 0);
X}
END_OF_utils/newmail.c
if test 7989 -ne `wc -c <utils/newmail.c`; then
    echo shar: \"utils/newmail.c\" unpacked with wrong size!?
fi
# end of overwriting check
fi
echo shar: Extracting \"utils/wnewmail.c\" \(8080 characters\)
if test -f utils/wnewmail.c ; then
  echo shar: Will not over-write existing file \"utils/wnewmail.c\"
else
sed "s/^X//" >utils/wnewmail.c <<'END_OF_utils/wnewmail.c'
X/**            wnewmail.c            **/
X
X/** Same as newmail.c but for a windowing system...
X
X    (C) Copyright 1986, Dave Taylor
X**/
X
X#include <stdio.h>
X#include <sys/types.h>
X#include <sys/stat.h>
X
X#include "defs.h"
X
X#ifdef AUTO_BACKGROUND
X#include <signal.h>    /* background jobs ignore some signals... */
X#endif
X
Xstatic char ident[] = { WHAT_STRING };
X
X#define LINEFEED    (char) 10
X#define BEGINNING    0            /* seek fseek(3S) */
X#define SLEEP_TIME    10
X
X#define NO_SUBJECT    "(No Subject Specified)"
X
XFILE *mailfile;
X
Xlong  bytes();
Xchar  *getusername();
X
Xmain(argc, argv)
Xint argc;
Xchar *argv[];
X{
X    char filename[LONG_SLEN];
X    long size, newsize;
X
X    if (argc > 2)
X      fprintf(stderr, "Usage: %s [filename] &\n", argv[0]);
X    else if (argc == 2) {
X      strcpy(filename, argv[1]);
X      if (access(filename, ACCESS_EXISTS) == -1) {
X        fprintf(stderr,
X           "%s: Can't open file %s to keep track of incoming mail.\n",
X            argv[0], filename);
X        exit(1);
X      }
X    }
X    else
X      sprintf(filename,"%s%s",mailhome, getusername());
X
X#ifdef AUTO_BACKGROUND
X    if (fork())        /* automatically puts this task in background! */
X      exit(0);
X
X    signal(SIGINT, SIG_IGN);
X    signal(SIGQUIT, SIG_IGN);
X    signal(SIGHUP,  SIG_DFL);    /* so we exit when logged out */
X#endif
X
X    size = bytes(filename);
X
X    mailfile = (FILE *) NULL;
X
X    printf("Incoming Mail;\n");
X
X    while (1) {
X
X#ifndef AUTO_BACKGROUND        /* won't work if we're nested this deep! */
X      if (getppid() == 1)     /* we've lost our shell! */
X        exit();
X#endif
X    if (! isatty(1))     /* we're not talking to the screen any more */
X       exit();
X
X    /** Note the lack of error checking on the fopen() (Philip Peake
X        did!) - this is okay since if it fails we don't have any
X        mail and we can sleep(60) and try again later...
X    **/
X
X      if (mailfile == (FILE *) NULL)
X        mailfile = fopen(filename,"r");
X
X      if ((newsize = bytes(filename)) > size) {    /* new mail */
X        fseek(mailfile, size, BEGINNING); /* skip all current mail */
X        size = newsize;
X        printf("%c", 007);    /* beep for new mail! */
X        read_headers();
X      }
X      else if (newsize != size) {
X        size = newsize;         /* mail's been removed... */
X        (void) fclose(mailfile);    /* close it and ...       */
X        mailfile = (FILE *) NULL;    /* let's reopen the file  */
X      }
X
X      sleep(SLEEP_TIME);
X    }
X}
X
Xint
Xread_headers()
X{
X    /** read the headers, output as found **/
X
X    char buffer[LONG_SLEN], from_whom[SLEN], subject[SLEN];
X    register int subj = 0, in_header = 1, count = 0, priority = 0;
X
X    while (fgets(buffer, LONG_SLEN, mailfile) != NULL) {
X      if (first_word(buffer,"From ")) {
X        if (real_from(buffer, from_whom)) {
X          subj = 0;
X          priority = 0;
X          in_header = 1;
X        }
X      }
X      else if (in_header) {
X        if (first_word(buffer,">From"))
X          forwarded(buffer, from_whom); /* return address */
X        else if (first_word(buffer,"Subject:") ||
X             first_word(buffer,"Re:")) {
X          if (! subj++) {
X            remove_first_word(buffer);
X        strcpy(subject, buffer);
X          }
X        }
X        else if (first_word(buffer,"From:"))
X          parse_arpa_from(buffer, from_whom);
X        else if (first_word(buffer, "Priority:"))
X          priority++;
X        else if (buffer[0] == LINEFEED) {
X          in_header = 0;    /* in body of message! */
X          show_header(priority, from_whom, subject);
X          from_whom[0] = 0;
X          subject[0] = 0;
X          count++;
X        }
X      }
X    }
X    return(count);
X}
X
Xint
Xreal_from(buffer, who)
Xchar *buffer, *who;
X{
X    /***** returns true iff 's' has the seven 'from' fields,
X           initializing the who to the sender *****/
X
X    char junk[80];
X
X    junk[0] = '\0';
X    sscanf(buffer, "%*s %s %*s %*s %*s %*s %s",
X                who, junk);
X    return(junk[0] != '\0');
X}
X
Xforwarded(buffer, who)
Xchar *buffer, *who;
X{
X    /** change 'from' and date fields to reflect the ORIGINATOR of
X        the message by iteratively parsing the >From fields... **/
X
X    char machine[80], buff[80];
X
X    machine[0] = '\0';
X    sscanf(buffer, "%*s %s %*s %*s %*s %*s %*s %*s %*s %s",
X                who, machine);
X
X    if (machine[0] == '\0') /* try for srm address */
X      sscanf(buffer, "%*s %s %*s %*s %*s %*s %*s %*s %s",
X                who, machine);
X
X    if (machine[0] == '\0')
X      sprintf(buff,"anonymous");
X    else
X      sprintf(buff,"%s!%s", machine, who);
X
X    strncpy(who, buff, 80);
X}
X
X
Xremove_first_word(string)
Xchar *string;
X{    /** removes first word of string, ie up to first non-white space
X        following a white space! **/
X
X    register int loc;
X
X    for (loc = 0; string[loc] != ' ' && string[loc] != '\0'; loc++)
X        ;
X
X    while (string[loc] == ' ' || string[loc] == '\t')
X      loc++;
X
X    move_left(string, loc);
X}
X
Xmove_left(string, chars)
Xchar string[];
Xint  chars;
X{
X    /** moves string chars characters to the left DESTRUCTIVELY **/
X
X    register int i;
X
X    chars--; /* index starting at zero! */
X
X    for (i=chars; string[i] != '\0' && string[i] != '\n'; i++)
X      string[i-chars] = string[i];
X
X    string[i-chars] = '\0';
X}
X
Xshow_header(priority, from, subject)
Xint   priority;
Xchar *from, *subject;
X{
X    /** Output header in clean format, including abbreviation
X        of return address if more than one machine name is
X        contained within it! **/
X
X    char buffer[SLEN];
X    int  loc, i=0, exc=0;
X
X#ifdef PREFER_UUCP
X
X    if (chloc(from,'!') != -1 && in_string(from, BOGUS_INTERNET))
X      from[strlen(from) - strlen(BOGUS_INTERNET)] = '\0';
X
X#endif
X
X    loc = strlen(from);
X
X    while (exc < 2 && loc > 0)
X      if (from[--loc] == '!')
X        exc++;
X
X    if (exc == 2) { /* lots of machine names!  Get last one */
X      loc++;
X      while (loc < strlen(from) && loc < SLEN)
X        buffer[i++] = from[loc++];
X      buffer[i] = '\0';
X      strcpy(from, buffer);
X    }
X
X    if (strlen(subject) < 2)
X      strcpy(subject, NO_SUBJECT);
X
X      if (strlen(from) > 0)    /* last final check... */
X        printf("%sMail from %s -- %s\n",
X           priority? "PRIORITY ": "", from, subject);
X}
X
Xparse_arpa_from(buffer, newfrom)
Xchar *buffer, *newfrom;
X{
X    /** Try to parse the 'From:' line given... It can be in one of
X        two formats:
X        From: Dave Taylor <hpcnou!dat>
X        or  From: hpcnou!dat (Dave Taylor)
X        Change 'newfrom' ONLY if sucessfully parsed this entry and
X        the resulting name is non-null!
X    **/
X
X    char temp_buffer[SLEN], *temp;
X    register int i, j = 0;
X
X    temp = (char *) temp_buffer;
X    temp[0] = '\0';
X
X    no_ret(buffer);        /* blow away '\n' char! */
X
X    if (lastch(buffer) == '>') {
X      for (i=strlen("From: "); buffer[i] != '\0' && buffer[i] != '<' &&
X           buffer[i] != '('; i++)
X        temp[j++] = buffer[i];
X      temp[j] = '\0';
X    }
X    else if (lastch(buffer) == ')') {
X      for (i=strlen(buffer)-2; buffer[i] != '\0' && buffer[i] != '(' &&
X           buffer[i] != '<'; i--)
X        temp[j++] = buffer[i];
X      temp[j] = '\0';
X      reverse(temp);
X    }
X
X    if (strlen(temp) > 0) {        /* mess with buffer... */
X
X      /* remove leading spaces... */
X
X      while (whitespace(temp[0]))
X        temp = (char *) (temp + 1);        /* increment address! */
X
X      /* remove trailing spaces... */
X
X      i = strlen(temp) - 1;
X
X      while (whitespace(temp[i]))
X       temp[i--] = '\0';
X
X      /* if anything is left, let's change 'from' value! */
X
X      if (strlen(temp) > 0)
X        strcpy(newfrom, temp);
X    }
X}
X
Xreverse(string)
Xchar *string;
X{
X    /** reverse string... pretty trivial routine, actually! **/
X
X    char buffer[SLEN];
X    register int i, j = 0;
X
X    for (i = strlen(string)-1; i >= 0; i--)
X      buffer[j++] = string[i];
X
X    buffer[j] = '\0';
X
X    strcpy(string, buffer);
X}
X
Xlong
Xbytes(name)
Xchar *name;
X{
X    /** return the number of bytes in the specified file.  This
X        is to check to see if new mail has arrived....  **/
X
X    int ok = 1;
X    extern int errno;    /* system error number! */
X    struct stat buffer;
X
X    if (stat(name, &buffer) != 0)
X      if (errno != 2)
X       exit(fprintf(stderr,"Error %d attempting fstat on %s", errno, name));
X      else
X        ok = 0;
X
X    return(ok ? (long) buffer.st_size : 0L);
X}
X
Xchar  *getusername()
X{
X    /** Getting the username on some systems is a real pain, so...
X       This routine is guaranteed to return a usable username **/
X
X    char *return_value, *cuserid(), *getlogin();
X
X    if ((return_value = cuserid(NULL)) == NULL)
X      if ((return_value = getlogin()) == NULL)
X        exit(printf("Newmail: I can't get username!\n"));
X
X    return( (char *) return_value);
X}
END_OF_utils/wnewmail.c
if test 8080 -ne `wc -c <utils/wnewmail.c`; then
    echo shar: \"utils/wnewmail.c\" unpacked with wrong size!?
fi
# end of overwriting check
fi
echo shar: End of archive 7 \(of 19\).
cp /dev/null ark7isdone
DONE=true
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ; do
    if test ! -f ark${I}isdone ; then
    echo shar: You still need to run archive ${I}.
    DONE=false
    fi
done
if test "$DONE" = "true" ; then
    echo You have unpacked all 19 archives.
    echo "See the Instructions file"
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
fi
##  End of shell archive.
exit 0