filter_relay

Optional (we've got sendmail's acls)

sub filter_relay ($$$) {
    my ($ip, $name, $helo) = @_;
    if (rand < 0.75) {
        return (0, "Sorry, the magic eight ball doesn't like you!");
    }
    return (1, "ok");
}