Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/unix/volume28/bmw-5/part01/bmwmail

Text File | 1994-07-09 | 5KB | 218 lines

#! /usr/bin/perl
#
# bmwmail - send a message to the mailing list
#
#

$USAGE = "$0 <listname>\n";
# This program expects a mail-format message on standard input.

if ($#ARGV != 0) { die ("$USAGE"); }

$LISTNAME = $ARGV[0];
$LISTNAME =~ tr/A-Z/a-z/;  # Convert everything to lower case for now.

%GLOBALS = ();

## We need to set the hostname.  You this is done by querying hostname and
## domainname.  You can override this here or set your FQDN global explicitly
## in the bmw.cf file.

$HOSTNAME = `hostname`; chop($HOSTNAME);
$DOMAINNAME = `domainname`; chop($DOMAINNAME);

## Path to bmw.cf - CHANGE THIS FOR YOUR SYSTEM
#$BMWCF = "/etc/bmw.cf";
$BMWCF = "/home/bmw/bmw.cf";

## Process the config file and learn about all the globals.
## FORMAT OF CONFIG FILE:
##   Each line of the config file should have the format
##     <globalname> = <value>
##   for example,
##     BASEDIR = /usr/local/lib/bmw
##
## I now set the defaults.  You should override these in your bmw.cf file.
##
$GLOBALS{'SENDMAIL'} = "/usr/lib/sendmail";
$GLOBALS{'SENDMAILOPTS'} = "";
$GLOBALS{'ENCODE'} = "/usr/bin/uuencode";
$GLOBALS{'COMPRESS'} = "/bin/gzip";
$GLOBALS{'COMPSUFFIX'} = ".gz";
$GLOBALS{'ARCDIR'} = "/home/ftp/pub/lists";
$GLOBALS{'ARCOWNER'} = "ftp";
$GLOBALS{'OWNER'} = "postmaster";
$GLOBALS{'DEBUG'} = 0;
$GLOBALS{'LOG'} = 0;
$GLOBALS{'MAXGETS'} = 5;
$GLOBALS{'PREFERFTP'} = 0;
$GLOBALS{'TRACE'} = 0;
$GLOBALS{'BASEDIR'} = "/home/bmw";
$GLOBALS{'FQDN'} = $HOSTNAME . "." . $DOMAINNAME;
$GLOBALS{'DIGEST'} = 0;
$GLOBALS{'TMPDIR'} = "/var/tmp";
$GLOBALS{'USER'} = "bmw";
$GLOBALS{'GROUP'} = "bin";


@VALIDGLOBALS = ("SENDMAIL", "SENDMAILOPTS", "TMPDIR", "ENCODE",
                 "COMPRESS", "COMPSUFFIX", "ARCDIR", "ARCOWNER",
                 "OWNER", "DEBUG", "LOG", "MAXGETS", "PREFERFTP",
                 "TRACE", "BASEDIR", "FQDN", "DIGEST", "USER", "GROUP");



sub validGlobal {
## Determine if the string is a valid global reference.
  local($s) = @_;
  local($i);
  for ($i=0; $i<=$#VALIDGLOBALS; $i++) {
    if ($s eq $VALIDGLOBALS[$i]) { return 1; }
  }
  return 0;
}



## Load the globals from the cf file.
if (-e $BMWCF) {
  local($lno) = 0;
  local(@LINE);
  open(CF, "<$BMWCF") || die "Cannot open $BMWCF: $!\n";
  while (<CF>) {
    $lno++;
    chop;
    tr/\t //d;
    @LINE = split("=");
    if (!$LINE[0]) { die "ERROR in $BMWCF line $lno; $_\n"; }
    $LINE[0] =~ tr/a-z/A-Z/;
    if (!&validGlobal($LINE[0])) {
      die "ERROR in $BMWCF line $lno; Unknown global \"$LINE[0]\"\n";
    }
## Good.  We have a valid global
    $GLOBALS{$LINE[0]} = $LINE[1];
  }
}
else {
  die "$BMWCF does not exist!\n";
}

if ($GLOBALS{'DEBUG'}) {
  local($key);
  foreach $key (keys %GLOBALS) {
    print "$key = $GLOBALS{$key}",$LF;
  }
}


## Internal global values.  Do not fiddle with these without good reason.
$VERSION = "5.0";
$LISTDIR = $GLOBALS{'BASEDIR'} . "/$LISTNAME";
$DIGESTFILE = "$LISTDIR/digest";
$TOCFILE = "$LISTDIR/digesttoc";
$LOGFILE = "$LISTDIR/log";
$MESSAGE = "$LISTDIR/message";
$HELP = $GLOBALS{'BASEDIR'} . "/help";

$TMPFILE = $GLOBALS{'TMPDIR'} . "/bmw$$";
$REPLYFILE = "$TMPFILE.reply";
$TMPLOGFILE = "$TMPFILE.log";

$LISTOWNER = "$LISTNAME-owner";
$LISTREQUEST = "$LISTNAME-request";

@ERRORS = ();
%LOCKS = ();

##
## Exit routines.  These make sure everything is cleaned up.
##
sub finish {
  local($rc) = @_;
  local($i);
  system("rm -f $TMPFILE $REPLYFILE");
  if ($#ERRORS > -1) {
    open(T, ">$TMPFILE");
    print T "From: $LISTOWNER\n";
    print T "Subject: Errors from $LISTREQUEST\n";
    print T "To: $LISTOWNER\n\n";
    for ($i = 0; $i <= $#ERRORS; $i++) {
      print T $ERRORS[$i],$LF;
    }
    close(T);
    system("cat $TMPFILE | $GLOBALS{'SENDMAIL'} \'$LISTOWNER\'");
    system("rm -f $TMPFILE")
  }
  exit($rc);
}


sub DIE {
  local($msg) = @_;
  print STDERR "$msg",$LF;
  $ERRORS[$#ERRORS+1] = $msg;
  local($key);
  foreach $key (keys %LOCKS) {
    system("rm -f $key");
  }
  &finish(-1);
}


# Test for things that must exist.

&DIE("$LISTDIR does not exist!\n") if (! -d $LISTDIR);

$FQDN = $GLOBALS{'FQDN'};

$DATE = `date`; chop($DATE);

@TEXT = ();

$LISTADDR = "$LISTNAME@$FQDN (The $LISTNAME mailing list)";
$MAILADDR = "$LISTNAME-mail";

$MAILCMD = "$GLOBALS{'SENDMAIL'} $MAILADDR";

open(T,">$TMPFILE") || &DIE("$TMPFILE: $!\n");

shift;

$HEADERS = 1;
$l = 0;
while (<>)
{
  if ($HEADERS)
  {
    $l = length;
    if ($l > 1)
    {
      if (!/^Reply-To:/ && !/^Errors-To:/)
      {
        print T $_;
      }
    }
    else
    {
      print T "Reply-To: $LISTADDR\n";
      print T "Errors-To: $LISTOWNER@$FQDN\n";
      print T "X-bmw: Black Marble Wombat Version $VERSION\n";
      print T $_;
      $HEADERS = 0;
    }
  }
  else
  {
    print T $_;
  }
}

close(T);

#open(T,"<$TMPFILE");
#while (<T>) { print "3 " . $_; }
#close(T);
system("cat $TMPFILE | $MAILCMD");

&finish();