Amavis punktacja

Problemy dotyczące programowania.

Moderatorzy: Moderatorzy, Administratorzy

Awatar użytkownika
brx
Użytkownik
Posty: 723
Rejestracja: 2004-06-24, 14:37
Lokalizacja: Poznań/Lublin

Amavis punktacja

Post autor: brx »

Kod: Zaznacz cały

X-Spam-Status: Yes, score=19.958 tag=2 tag2=6.2 kill=6.9 tests=[BAYES_60=1,
	HTML_IMAGE_ONLY_12=2.46, HTML_IMAGE_RATIO_04=0.172,
	HTML_MESSAGE=0.001, HTML_SHORT_LINK_IMG_2=0.001, MIME_HTML_ONLY=1.457,
	RAZOR2_CF_RANGE_51_100=0.5, RAZOR2_CF_RANGE_E4_51_100=1.5,
	RAZOR2_CF_RANGE_E8_51_100=1.5, RAZOR2_CHECK=0.5, SUBJ_ALL_CAPS=2.077,
	URIBL_AB_SURBL=1.86, URIBL_BLACK=1.955, URIBL_JP_SURBL=1.501,
	URIBL_OB_SURBL=1.5, URIBL_SC_SURBL=0.474, URIBL_WS_SURBL=1.5]

Kod: Zaznacz cały

X-Spam-Status: Yes, score=18.561 tag=2 tag2=6.2 kill=6.9 tests=[BAYES_99=3.5,
	DCC_CHECK=2.17, DIGEST_MULTIPLE=0.001, RAZOR2_CF_RANGE_51_100=0.5,
	RAZOR2_CF_RANGE_E4_51_100=1.5, RAZOR2_CF_RANGE_E8_51_100=1.5,
	RAZOR2_CHECK=0.5, RDNS_NONE=0.1, URIBL_AB_SURBL=1.86,
	URIBL_BLACK=1.955, URIBL_JP_SURBL=1.501, URIBL_OB_SURBL=1.5,
	URIBL_SC_SURBL=0.474, URIBL_WS_SURBL=1.5]
Jak zrobić, żeby się nie narobić ;)
Macie jakiś pomysł na wyciągnięcia wartości dodawanych do nagłówku maila przez amavisa? Nie koniecznie muszą to być wszystkie, np. odczytać wartość: URIBL_OB_SURBL=XY.

Perl sobie powinien sobie z tym poradzić, ale jakoś nie potrafię dobrać odpowiedniego wyrażenia;/ Moim celem jest zestawienie, które z kryteriów jest najbardziej punktowane...
Ostatnio zmieniony 2008-05-30, 11:04 przez brx, łącznie zmieniany 1 raz.
Slackware Current - Kernel 2.6.18 - Xfce - - Aterm - Kadu
_______________________________________
Registered Linux User 363857 :D
Awatar użytkownika
mina86
Moderator
Posty: 3338
Rejestracja: 2004-06-14, 21:58
Lokalizacja: Linux 5.x x86_64
Kontakt:

Re: Amavis punktacja

Post autor: mina86 »

Kod: Zaznacz cały

use warnings;
use strict;

my @headers = (
'X-Spam-Status: Yes, score=19.958 tag=2 tag2=6.2 kill=6.9 tests=[BAYES_60=1,
    HTML_IMAGE_ONLY_12=2.46, HTML_IMAGE_RATIO_04=0.172,
    HTML_MESSAGE=0.001, HTML_SHORT_LINK_IMG_2=0.001, MIME_HTML_ONLY=1.457,
    RAZOR2_CF_RANGE_51_100=0.5, RAZOR2_CF_RANGE_E4_51_100=1.5,
    RAZOR2_CF_RANGE_E8_51_100=1.5, RAZOR2_CHECK=0.5, SUBJ_ALL_CAPS=2.077,
    URIBL_AB_SURBL=1.86, URIBL_BLACK=1.955, URIBL_JP_SURBL=1.501,
    URIBL_OB_SURBL=1.5, URIBL_SC_SURBL=0.474, URIBL_WS_SURBL=1.5]',
'X-Spam-Status: Yes, score=18.561 tag=2 tag2=6.2 kill=6.9 tests=[BAYES_99=3.5,
    DCC_CHECK=2.17, DIGEST_MULTIPLE=0.001, RAZOR2_CF_RANGE_51_100=0.5,
    RAZOR2_CF_RANGE_E4_51_100=1.5, RAZOR2_CF_RANGE_E8_51_100=1.5,
    RAZOR2_CHECK=0.5, RDNS_NONE=0.1, URIBL_AB_SURBL=1.86,
    URIBL_BLACK=1.955, URIBL_JP_SURBL=1.501, URIBL_OB_SURBL=1.5,
    URIBL_SC_SURBL=0.474, URIBL_WS_SURBL=1.5]'
);

for my $h (@headers) {
	print "\n";
	$h =~ s/^.*tests=\[\s*//m;
	$h =~ s/\s*\]$//m;
	for my $i (split /[,\s]+/, $h) {
		my ($item, $value) = split /=/, $i, 2;
		print "$item = $value\n";
	}
}
Zastrzegam sobie prawo nieanalizowania postów pisanych niepoprawną polszczyzną.
Post generated automatically by A.I. system code name ‘mina86’ in response to the previous one.
ODPOWIEDZ