月: 2006年8月

Content-Type: text/plain;
Content-Transfer-Encoding: base64

my Email::MIME @parts = $parsed->parts;

my @parts = $parsed->parts;

case ‘m’: /* MIME support */
/* mime_decode_f = TRUE; */ /* this has too large side effects… */
if (*cp==’B’||*cp==’Q’) {
mime_decode_mode = *cp++;
mimebuf_f = FIXED_MIME;
} else if (*cp==’N’) {
mime_f = TRUE; cp++;
} else if (*cp==’S’) {
mime_f = STRICT_MIME; cp++;
} else if (*cp==’0′) {
mime_decode_f = FALSE;
mime_f = FALSE; cp++;
}
continue;
(nkf.c より)

#!/usr/bin/perl
# prebogo
use Email::MIME;

local $/;
my $message = <>;
my $parsed = Email::MIME->new($message);
my @parts = $parsed->parts;

print $parsed->_headers_as_string . “\n”;
foreach my $p (@parts) {
if ($p->content_type =~ /text/i) {
print $p->body;
}
}

#!/bin/sh
prebogo | nkf -e | kakasi -w | bogofilter -n -v

#!/bin/sh
PATH=/bin:/usr/bin:/usr/local/bin:$PATH

for i in $*; do
prebogo $i | nkf -e | kakasi -w | bogofilter
if [ $? -eq 0 ]; then
echo $i
fi
done

bogoutil -w ~/.bogofilter/wordlist.db .MSG_COUNT

If -S is used for a message that wasn’t registered as spam, the counts will still be decremented.

#!/bin/sh
prebogo | nkf -e | kakasi -w | bogofilter -s -v

教訓： きちんと自らオプションの意味を確認しなければならない。