Displaying 1 result from an estimated 1 matches for "message_to_fil".
Did you mean:
message_to_file
2007 Oct 09
1
SpamAssassin and Public Namespace
...bug;
}
# Process the spam mailbox
*$imap->select('Filter/Spam');*
my @msgs = $imap->search("ALL");
for (my $i=0;$i <= $#msgs; $i++)
{
# I put it into a file for processing, doing it into a perl var &
piping through sa-learn just didn't seem to work
$imap->message_to_file("/tmp/salearn",$msgs[$i]);
# execute sa-learn w/data
# if ($debug) { $salearn = `/usr/bin/sa-learn -D --no-sync --showdots
--spam /tmp/salearn`; }
# else
{ $salearn = `/usr/bin/sa-learn --no-sync --showdots --spam /tmp/salearn`; }
print "-------\nSpam: ",$salearn,"...