Use this script to create .forward files for all users who don't already have them. The files created automatically route emails marked as spam into the users Trash IMAP folder. See Configure mail server for more details.
|
|
#!/usr/bin/perl
$filter = '# Exim filter
if
$h_X-Spam-Status: CONTAINS "Yes"
or
"${if def:h_X-Spam-Flag {def}{undef}}" is "def"
then
save $home/Maildir/.Trash/
finish
endif';
for ( glob "/home/*" ) {
$file = "$_/.forward";
if ( ! -e $file ) {
s|^.+/||;
qx( echo '$filter' > $file );
qx( chown $_:$_ $file );
}
}
|
|
