61de599c1b
find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
37 lines
692 B
Perl
37 lines
692 B
Perl
#!perl -Tw
|
|
|
|
=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);
|
|
}
|
|
}
|