3837fabc9f
git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@659 958fd67b-6ff1-0310-b445-bb7760255be9
36 lines
699 B
Perl
36 lines
699 B
Perl
#!/usr/bin/perl -w
|
|
=head1 NAME
|
|
|
|
relay_only - this plugin only permits relaying
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
# in config/plugins
|
|
|
|
check_relay
|
|
|
|
relay_only
|
|
|
|
# other rcpt hooks go here
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This plugin can be used for the case where a server is used as the smart
|
|
relay host for internal users and external/authenticated users, but should
|
|
not be considered a normal inbound MX server
|
|
|
|
It should be configured to be run _AFTER_ check_relay and before other
|
|
RCPT hooks! Only clients that have authenticated or are listed in the
|
|
relayclient file will be allowed to send mail.
|
|
|
|
=cut
|
|
|
|
sub hook_rcpt {
|
|
if ( shift->qp->connection->relay_client ) {
|
|
return (OK);
|
|
}
|
|
else {
|
|
return (DENY);
|
|
}
|
|
}
|