# Copyright (C) 2018-2021 all contributors # License: AGPL-3.0+ # Spamchecking used by -watch and -mda tools package PublicInbox::Spamcheck; use strict; use warnings; sub get { my ($cfg, $key, $default) = @_; my $spamcheck = $cfg->{$key}; $spamcheck = $default unless $spamcheck; return if !$spamcheck || $spamcheck eq 'none'; if ($spamcheck eq 'spamc') { $spamcheck = 'PublicInbox::Spamcheck::Spamc'; } if ($spamcheck =~ /::/) { eval "require $spamcheck"; return $spamcheck->new; } warn "unsupported $key=$spamcheck\n"; undef; } 1;