Select Code to Download

sub mlog {
 my $fh=shift;
...
 print DEBUG  $m;
 if($logfile && open(LOG,">>$logfile")) {print LOG $m; close LOG;}
}

  if(onwhitelist($fh,$this->{header})) {
   setmaillog(0,$fh);
   isnotspam($fh);
   mlog($fh,'local or whitelisted');
  }