...
No Format |
---|
#!/usr/bin/perl # # run sa-learn on STDIN ... easy to use with .qmail files: # # .qmail-spamtrap: # | learn_spam --spam --username=alias | cat - > /dev/null # .qmail-qqqhamreport: # | learn_spam --ham --username=alias | cat - > /dev/null # # 3/16/2005 -- cgg007 at yahoo.com # use strict; sub learn { my $message = shift; my $pipe = shift; open LEARN, $pipe; print LEARN $message; close LEARN; } my $learn_cmd = "| bayes_fixup.pl | sa-learn " . join(" ",@ARGV); my $count = 0; my $message = ''; while (<STDIN>) { /^From/ and do { if ($count) { learn($message,$learn_cmd); $message = ''; } $count++; }; $message .= $_; } learn($message,$learn_cmd); |
...