скрин:
В файле /etc/exim.pl находится следующий код:
touch /etc/spamdisable
mv /etc/chkserv.d/spamd ~/
service exim restart
service chkservd restartrm /etc/spamdisable
mv ~/spamd /etc/chkserv.d/
service exim restart
service chkservd restart
#!/usr/bin/perl
print "Converting all domain Default Accounts to :fail: ...";opendir (DIR, "/etc/valiases/") or die;while (my $file = readdir (DIR)) {     if ($file =~ /^./) {next}open (IN,
"/etc/valiases/$file" ) or die;my @data = ;
close (IN);
     open (OUT, ">/etc/valiases/$file") or die;     foreach my $line (@data) {             if ($line =~ /^*:/) {                     print OUT "*: :fail:n";             } else {print OUT $line;
}
}
close (OUT);
}
print "Done!n";