#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  archive
# Wrapped by brent@mycroft on Sat Feb 19 17:56:10 1994
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'archive' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'archive'\"
else
echo shar: Extracting \"'archive'\" \(4076 characters\)
sed "s/^X//" >'archive' <<'END_OF_FILE'
X#!/usr/local/bin/perl
X
X# Copyright 1993, D. Brent Chapman.  All Rights Reserved.  For use by
X# permission only.
X#
X# $Source: /mycroft/brent/majordomo/RCS/archive,v $
X# $Revision: 1.2 $
X# $Date: 1993/11/09 07:17:05 $
X# $Author: brent $
X# $State: Exp $
X#
X# $Locker:  $
X#
X# archive -f <archive> {-u|-a} [-d|-m|-y] [file ...]
X# 	-f <archive> REQUIRED; specifies base file name for archive
X# 	-u	Input is a UNIX archive (separated by "From " lines) to split
X# 	-a	Input is a message to append to archive
X# 	-d	Archive file is <archive>.YYMMDD
X# 	-m	Archive file is <archive>.YYMM
X# 	-y	Archive file is <archive>.YY
X# Exactly one of "-u" or "-a" must be specified.
X# At most one of "-d", "-m", or "-y" may be specified; if none is
X#   specified, archive name is simply <archive>
X# 
X# An example of using "archive" to split an existing UNIX-style archive
X# named "my-list.archive" into by-day archive files named "my-list.YYMMDD":
X# 
X# 	archive -f my-list -d -u my-list.archive
X# 
X# A sample /etc/aliases file entry to use "archive" add each incoming message
X# to a "my-list.YYMM" file in the "/usr/local/mail/lists/my-list.archive"
X# directory:
X# 
X# 	my-list-archive: "|/usr/local/mail/majordomo/wrapper archive
X# 		-f /usr/local/mail/lists/my-list.archive/my-list
X# 		-m -a"
X
X# set our path explicitly
X$ENV{'PATH'} = "/bin:/usr/bin:/usr/ucb";
X
X# What shall we use for temporary files?
X$tmp = "/tmp/majordomo.$$";
X
X# Read and execute the .cf file
X$cf = $ENV{"MAJORDOMO_CF"} || "/etc/majordomo.cf";
if ($ARGV[0] eq "-C") {
X    $cf = $ARGV[1];
X    shift(@ARGV); 
X    shift(@ARGV); 
X}
if (! -r $cf) {
X    die("$cf not readable; stopped");
X}
eval(`cat $cf`);
X
X# All these should be in the standard PERL library
unshift(@INC, $homedir);
require "ctime.pl";		# To get MoY definitions for month abbrevs
require "majordomo_version.pl";	# What version of Majordomo is this?
require "majordomo.pl";		# all sorts of general-purpose Majordomo subs
require "shlock.pl";		# NNTP-style file locking
X
X# Here's where the fun begins...
X
require "getopts.pl";
X
X$m = 1;
foreach (@ctime'MoY) {
X    $MoY{$_} = $m++;
X}
X
X$usage = "Usage: $0 -f <file> {-u|-a} [-d|-m|-y] [file ...]";
X
X&Getopts("f:uadmy") || die("$usage\nStopped");
X
if (!defined($opt_f)) {
X    print STDERR "'-f <list>' required\n$usage\n";
X    exit 1;
X}
X
if (defined($opt_a)) { $mutex++; }
if (defined($opt_u)) { $mutex++; }
if ($mutex != 1) {
X    print STDERR "Either '-a' or '-u' required\n$usage\n";
X    exit 2;
X}
X
X$mutex = 0;
X
if (defined($opt_d)) { $mutex++; }
if (defined($opt_m)) { $mutex++; }
if (defined($opt_y)) { $mutex++; }
if ($mutex > 1) {
X    print STDERR "Only one of '-d', '-m', or '-y' allowed\n$usage\n";
X    exit 3;
X}
X
if (defined($opt_a)) {
X    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = 
X	localtime(time);
X    &open_archive(FILE, $year, $mon + 1, $mday);
X}
X    
while (<>) {
X    if (/^From\s/) {
X	if (/^From\s+\S+\s+(Sun|Mon|Tue|Wed|Thu|Fri|Sat)\s+(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s+\d\d?\s+\d\d?:\d\d:\d\d\s+\d{2,4}\s*$/i) {
X	    if (defined($opt_u)) {
X		if (defined($is_open)) {
X		    print FILE "\n";
X		    &lclose(FILE);
X		}
X		&open_archive_unix(FILE, $_);
X	    }
X	    print FILE "$_";
X	} else {
X	    print FILE ">$_";
X	}
X    } else {
X	print FILE $_;
X    }
X}
X
print FILE "\n";
X&lclose(FILE);
X
sub open_archive_unix {
X    local($FH) = shift;
X    local($from) = shift;
X    local($junk, $addr, $dow, $moy, $dom, $time, $year, @rest);
X
X    ($junk, $addr, $dow, $moy, $dom, $time, $year, @rest) = split(/\s+/,$from);
X    &open_archive($FH, $year % 100, $MoY{$moy}, $mday);
X}
X
sub open_archive {
X    local($FH) = shift;
X    local($year) = shift;
X    local($mon) = shift;
X    local($mday) = shift;
X    local($suffix);
X
X    if (defined($opt_y)) {
X	$suffix = sprintf(".%02d", $year % 100);
X    }
X    if (defined($opt_m)) {
X	$suffix = sprintf(".%02d%02d", $year % 100, $mon);
X    }
X    if (defined($opt_d)) {
X	$suffix = sprintf(".%02d%02d%02d", $year % 100, $mon, $mday);
X    }
X
X    &lopen($FH, ">>", "$opt_f$suffix") || 
X	die("Can't append to $opt_f$suffix: $!");
X    $is_open = 1;
X}
END_OF_FILE
if test 4076 -ne `wc -c <'archive'`; then
    echo shar: \"'archive'\" unpacked with wrong size!
fi
chmod +x 'archive'
# end of 'archive'
fi
echo shar: End of shell archive.
exit 0

.