=head1 NAME
-B<minc> - Incorporate mail from a maildir into mh folders.
+B<minc> - incorporate mail from a maildir into mh folders
=head1 SYNOPSIS
-B<minc> [-B<dmnp>]
+B<minc> [B<-m> I<MAX>] [B<-n>] [B<-p>]
+
+B<minc> B<-d>
+
+B<minc> B<-h>
=head1 DESCRIPTION
use Fcntl qw(O_WRONLY O_EXCL O_CREAT);
use FileHandle;
use File::stat;
-use Getopt::Std; $Getopt::Std::STANDARD_HELP_VERSION = 1;
+use Getopt::Long qw(:config gnu_getopt no_ignore_case);
use POSIX qw(strftime WEXITSTATUS WIFEXITED);
+use Pod::Usage;
our $VERSION = 1;
Dump (using Data::Dumper) the FILTERS list and exit. This is useful
for testing the syntax of .mincfilter.
-=item B<--help>
+=item B<-h>
Show help.
=cut
-my $dumpfilters = 0;
+my $dumpfilters;
+my $help;
my $maxmsgs;
-our $run = 1;
-my $printfilenames = 0;
-
-my %opts;
+my $norun;
+my $printfilenames;
-if (not getopts('dm:np', \%opts)) {
- exit(2);
-}
+GetOptions(
+ 'd' => \$dumpfilters,
+ 'h|help' => \$help,
+ 'm=i' => \$maxmsgs,
+ 'n' => \$norun,
+ 'p' => \$printfilenames,
+ ) or pod2usage();
+$help and pod2usage(-exitstatus=>0, -verbose=>1);
+@ARGV == 0 or pod2usage();
-if ($opts{'d'}) {
- $dumpfilters = 1;
-} elsif ($opts{'n'}) {
- $run = 0;
-}
-
-if (defined($opts{'m'})) {
- $maxmsgs = $opts{'m'};
-}
-
-if ($opts{'p'}) {
- $printfilenames = 1;
-}
+our $run = !$norun;
=head1 ENVIRONMENT
=cut
our @FILTERS;
-require "$HOME/.mincfilter";
my $mh;
my $logfile;
# Utility procedures
sub mkfolder {
- my $mhfolder = shift;
- my $folder;
+ my $folder = shift;
my $target;
my $component;
- $folder = $mh . '/' . $mhfolder;
- $target = '';
-
- if (not -d $folder) {
- foreach $component (split('/', $folder)) {
- if (defined($component) and length($component) >= 1) {
- $target = $target . '/' . $component;
- if (-d $target or mkdir($target)) {
- next;
- } else {
- die("Failed to create +$mhfolder ($component)");
- }
- }
- }
+ $target = $mh;
+ foreach $component (split('/', $folder)) {
+ $target = join('/', $target, $component);
+ -d $target or mkdir($target) or die("mkdir($target): $!");
}
}
my @result;
if (not opendir(DIR, $dir)) {
- die("Failed opendir($dir)");
+ die("opendir($dir): $!");
}
# Initialize $! to 0 (success) because stupid stupid Perl provides
# to detect an error. Real Programmers don't handle errors,
# right? >sigh<
$! = 0;
- @result = grep {
- ($_ ne '.' and $_ ne '..')
- and $_ = "$MAILDIR/new/$_"
- } readdir(DIR);
-
+ @result = readdir(DIR);
if ($! != 0) {
- die("Failed readdir($dir)");
+ die("readdir($dir): $!");
}
- if (scalar(@result) == 0) {
+ if (@result <= 2) {
exit(0);
}
STDOUT->autoflush(1);
- print(scalar(@result), " messages...");
+ print(@result - 2, " messages...");
closedir(DIR);
$dir = "$mh/$mhfolder";
if (not opendir(DIR, $dir)) {
- die("Failed opendir($dir)");
+ die("opendir($dir): $!");
}
+ # Insert rant from getfiles here.
$! = 0;
@list = readdir(DIR);
if ($! != 0) {
- die("Failed readdir($dir)");
+ die("readdir($dir): $!");
}
closedir(DIR);
# file is left behind as opposed to a duplicate
# message. This is more easily detected by the user.
if ($run) {
- if (sysopen(MSG, "$mhmsg",
+ if (sysopen(MSG, $mhmsg,
O_WRONLY | O_EXCL | O_CREAT, 0600)) {
close(MSG);
last;
if ($run) {
if (not rename($msg, $mhmsg)) {
- die("Failed rename($msg, $mhmsg)");
+ die("rename($msg, $mhmsg): $!");
}
# Mark each message as soon as we store it and bomb if that
} else {
$status = system('mark', "+$mhfolder", "$msgnum", '-sequence',
'unseen', '-add');
+ # XXX need to handle signalled and stopped, and print
+ # the exit code or signal number.
if (not WIFEXITED($status)) {
die("Failed to run mark");
} elsif (WEXITSTATUS($status) != 0) {
my $fieldname; # unmolested header name
my $contents; # contents of header
- open(MSG, $msg);
+ open(MSG, $msg) or die("open(MSG, $msg): $!");
while (<MSG>) {
chomp;
if (length == 0) {
sub filter_mail {
my @msglist = @_;
- my $msgcount = scalar(@msglist);
- my $msgcountlen = length($msgcount);
+ my $msgcount = @msglist - 2; # don't count . and ..
+ my $len = length($msgcount);
my @baton;
my $msg;
my $mhfolder;
eval "sub spam_check { return 0; }";
}
+ if (-f "$HOME/.mincfilter") {
+ require "$HOME/.mincfilter";
+ }
+
@baton = spam_start_hook();
foreach $msg (@msglist) {
+ ($msg eq '.' or $msg eq '..') and next;
+
+ if ($printfilenames) {
+ print("$msg\n");
+ }
+
if (spam_check($msg, @baton)) {
$mhfolder = 'SPAM';
- $spam = scalar(@SPAM)+ 1;
+ $spam = @SPAM + 1;
} else {
$mhfolder = find_mh_folder($msg);
$saved++;
print("\r");
if (not $FOLDERS{$mhfolder}) {
- print(' ' x $msgcountlen);
- print(" \r+$mhfolder\n");
+ print(' ' x $len);
+ print(" \r$mhfolder\n");
$FOLDERS{$mhfolder} = 1;
}
- printf('%6d SPAM %6d saved %6d/%1d',
+ printf(" \%${len}d SPAM \%${len}d saved \%${len}d/%1d",
$spam, $saved, $spam + $saved, $msgcount);
defined($maxmsgs) and ($spam + $saved < $maxmsgs or last);
\f
MAIN: {
- my @msglist;
my $st;
if ($dumpfilters) {
+ require "$HOME/.mincfilter";
$Data::Dumper::Indent = 1;
print(Dumper(\@FILTERS));
exit;
}
- @msglist = (
- map { $_->[1] }
+ chdir("$MAILDIR/new") or die("chdir($MAILDIR/new): $!");
+ filter_mail(map { $_->[1] }
sort { $a->[0] <=> $b->[0] }
map {
if (not ($st = stat($_))) {
}
[$st->mtime, $_]
}
- getfiles("$MAILDIR/new"));
-
- filter_mail(@msglist);
+ getfiles('.'));
@SPAM and (exec('scan', '+SPAM', @SPAM) or die);
}
name l/apache/httpd/dev.
For an example B<spam_check> function, see
-L<http:E<047>E<047>pretzelnet.orgE<047>cvsE<047>dotfilesE<047>.mincspam>
+L<http://pretzelnet.org/cvs/dotfiles/.mincspam>
=head1 AUTHORS
projects / minc / blobdiff