mcglough@cork.cig.mot.com (Mark McGloughlin) writes:
# I just installed majordomo 1.62 and it is really neat. The one thing I want t
# o
# do that I so far cannot figure out is automatically archive messages sent to
# a
# group for later "get" commands
#
# Can anyone help ??
Here's a new script called "archive" that will be part of the next
Majordomo release. I've been using it for a couple of months, and I
posted it to Majordomo-Workers a couple of months ago and nobody has
complained about bugs in it, so I think it's reasonably solid.
Instructions (such as they are; it has the usual terse Majordomo
documentation style) are in the comments at the top of the program.
-Brent
--
Brent Chapman Great Circle Associates
Brent@GreatCircle.COM 1057 West Dana Street
+1 415 962 0841 Mountain View, CA 94041
#!/usr/local/bin/perl
# Copyright 1993, D. Brent Chapman. All Rights Reserved. For use by
# permission only.
#
# $Source: /mycroft/brent/majordomo/RCS/archive,v $
# $Revision: 1.2 $
# $Date: 1993/11/09 07:17:05 $
# $Author: brent $
# $State: Exp $
#
# $Locker: $
#
# archive -f <archive> {-u|-a} [-d|-m|-y] [file ...]
# -f <archive> REQUIRED; specifies base file name for archive
# -u Input is a UNIX archive (separated by "From " lines) to split
# -a Input is a message to append to archive
# -d Archive file is <archive>.YYMMDD
# -m Archive file is <archive>.YYMM
# -y Archive file is <archive>.YY
# Exactly one of "-u" or "-a" must be specified.
# At most one of "-d", "-m", or "-y" may be specified; if none is
# specified, archive name is simply <archive>
#
# An example of using "archive" to split an existing UNIX-style archive
# named "my-list.archive" into by-day archive files named "my-list.YYMMDD":
#
# archive -f my-list -d -u my-list.archive
#
# A sample /etc/aliases file entry to use "archive" add each incoming message
# to a "my-list.YYMM" file in the "/usr/local/mail/lists/my-list.archive"
# directory:
#
# my-list-archive: "|/usr/local/mail/majordomo/wrapper archive
# -f /usr/local/mail/lists/my-list.archive/my-list
# -m -a"
# set our path explicitly
$ENV{'PATH'} = "/bin:/usr/bin:/usr/ucb";
# What shall we use for temporary files?
$tmp = "/tmp/majordomo.$$";
# Read and execute the .cf file
$cf = $ENV{"MAJORDOMO_CF"} || "/etc/majordomo.cf";
if ($ARGV[0] eq "-C") {
$cf = $ARGV[1];
shift(@ARGV);
shift(@ARGV);
}
if (! -r $cf) {
die("$cf not readable; stopped");
}
eval(`cat $cf`);
# 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
# Here's where the fun begins...
require "getopts.pl";
$m = 1;
foreach (@ctime'MoY) {
$MoY{$_} = $m++;
}
$usage = "Usage: $0 -f <file> {-u|-a} [-d|-m|-y] [file ...]";
&Getopts("f:uadmy") || die("$usage\nStopped");
if (!defined($opt_f)) {
print STDERR "'-f <list>' required\n$usage\n";
exit 1;
}
if (defined($opt_a)) { $mutex++; }
if (defined($opt_u)) { $mutex++; }
if ($mutex != 1) {
print STDERR "Either '-a' or '-u' required\n$usage\n";
exit 2;
}
$mutex = 0;
if (defined($opt_d)) { $mutex++; }
if (defined($opt_m)) { $mutex++; }
if (defined($opt_y)) { $mutex++; }
if ($mutex > 1) {
print STDERR "Only one of '-d', '-m', or '-y' allowed\n$usage\n";
exit 3;
}
if (defined($opt_a)) {
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
localtime(time);
&open_archive(FILE, $year, $mon + 1, $mday);
}
while (<>) {
if (/^From\s/) {
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) {
if (defined($opt_u)) {
if (defined($is_open)) {
print FILE "\n";
&lclose(FILE);
}
&open_archive_unix(FILE, $_);
}
print FILE "$_";
} else {
print FILE ">$_";
}
} else {
print FILE $_;
}
}
print FILE "\n";
&lclose(FILE);
sub open_archive_unix {
local($FH) = shift;
local($from) = shift;
local($junk, $addr, $dow, $moy, $dom, $time, $year, @rest);
($junk, $addr, $dow, $moy, $dom, $time, $year, @rest) = split(/\s+/,$from);
&open_archive($FH, $year % 100, $MoY{$moy}, $mday);
}
sub open_archive {
local($FH) = shift;
local($year) = shift;
local($mon) = shift;
local($mday) = shift;
local($suffix);
if (defined($opt_y)) {
$suffix = sprintf(".%02d", $year % 100);
}
if (defined($opt_m)) {
$suffix = sprintf(".%02d%02d", $year % 100, $mon);
}
if (defined($opt_d)) {
$suffix = sprintf(".%02d%02d%02d", $year % 100, $mon, $mday);
}
&lopen($FH, ">>", "$opt_f$suffix") ||
die("Can't append to $opt_f$suffix: $!");
$is_open = 1;
}
|
|
