17 lines
487 B
Plaintext
17 lines
487 B
Plaintext
|
{
|
||
|
|
use esmith::AccountsDB;
|
||
|
|
|
||
|
|
my $db = esmith::AccountsDB->open_ro or return "# AccountsDB: open failed";
|
||
|
|
|
||
|
|
my $user = $db->get($USERNAME) or return "# AccountsDB: No user $USERNAME";
|
||
|
|
|
||
|
|
my $do_sortspam = $user->prop('SortSpam')
|
||
|
|
|| $spamassassin{SortSpam}
|
||
|
|
|| "enabled";
|
||
|
|
|
||
|
|
return "# sortspam disabled" unless ($do_sortspam eq "enabled");
|
||
|
|
|
||
|
|
return qq(| condredirect $USERNAME-junkmail headermatch 'X-Spam-Status: Yes');
|
||
|
|
|
||
|
|
}
|