#Spam Test with SpamAssassin...				
unless ($SpamChecked || $whitelisted) {			
  my $trigger = $CLUBSITES{'spamthreshold'} || 5.0;	
  my $spamtest = new Mail::SpamAssassin({ 'post_config_text' => "required_score $trigger" });
  my $status = $spamtest->check_message_text( $message_received );
  if ( $status->is_spam() ) {
     my $score = $status->get_score();
     my $threshold = $status->get_required_score();
     my $hits = $status->get_names_of_tests_hit();
     my $SpamLogMsg = "Score: $score / $threshold (trigger);\t Positive Tests: $hits"; 
     HandleError("SPAM", $SpamLogMsg, $message_received);
  }
  $status->finish();
  $spamtest->finish();
  $SpamChecked++;					
}