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

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

#! /usr/bin/perl

# mkarchive -- move the currently monthly file to the archive.

$USAGE = "$0 <listname>\n";

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'} = "/usr/local/lib/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";
$LISTARCDIR = $GLOBALS{'ARCDIR'} . "/$LISTNAME";
$DIGESTFILE = "$LISTDIR/digest";
$TOCFILE = "$LISTDIR/digesttoc";
$LOGFILE = "$LISTDIR/log";
$MONTHLY = "$LISTDIR/monthly";
$MESSAGE = "$LISTDIR/message";
$HELP = "$LISTDIR/help";
$WDIR = "";                   # working directory suffix for gets

$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");
  if ($#ERRORS > -1) {
    open(T, ">$TMPFILE");
    print T "Subject: Errors from $LISTREQUEST\n";
    print T "From: $LISTOWNER\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);
&DIE("$LISTARCDIR does not exist!\n") if (! -d $LISTARCDIR);


$FROM = "";
$SUBJECT = "";
$MID = "";
$DATE = `date`; chop($DATE);

if (! -e $MONTHLY)
{
  system("touch $MONTHLY");
  chown $GLOBALS{'USER'}, $GLOBALS{'GROUP'}, $DIGESTFILE;
  chmod 0664 , $MONTHLY;
  &finish(0);
}

shift;


# Copy monthly to tmpdir with a new name
$thismonth = (Jan,Feb,Mar,Apr,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[(localtime)[4]];
$thisyear = (localtime)[5];

$FNAME = $LISTNAME . "-" . $thismonth . "-" . $thisyear;
$FNAMECMP = $LISTARCDIR . "/" . $FNAME . $GLOBALS{'COMPSUFFIX'};
$TMPF = $TMPFILE . $GLOBALS{'COMPSUFFIX'};

$COMPRESSOR = $GLOBALS{'COMPRESS'} . " " . $TMPFILE;

system("mv $MONTHLY $TMPFILE");
#print $COMPRESSOR . "\n";
system("$GLOBALS{'COMPRESS'} $TMPFILE");
system("mv $TMPF $FNAMECMP");
chmod 0444, $FNAMECMP;

&finish();