a23d4b3da9
Exclude some tests with dependencies. Remove -T from perl line in plugins This makes it harder to test with PERL5LIB/perlbrew etc
26 lines
516 B
Perl
26 lines
516 B
Perl
#!perl -w
|
|
|
|
=head1 NAME
|
|
|
|
auth_deny
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
This plugin doesn't actually check anything and will fail any
|
|
user no matter what they type. It is strictly a proof of concept for
|
|
the Qpsmtpd::Auth module. Don't run this in production!!!
|
|
|
|
=cut
|
|
|
|
sub hook_auth {
|
|
my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) =
|
|
@_;
|
|
|
|
# $DB::single = 1;
|
|
|
|
$self->log( LOGWARN, "Cannot authenticate using authdeny" );
|
|
|
|
return ( DECLINED, "$user is not free to abuse my relay" );
|
|
}
|
|
|