POD syntax cleanup (Steve Kemp)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@786 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2007-09-03 15:47:08 +00:00
parent af82701fff
commit 4be7bb40e4
16 changed files with 26 additions and 15 deletions

View File

@ -1,5 +1,7 @@
0.41 0.41
POD syntax cleanup (Steve Kemp)
Make connection->local_ip available from the Apache transport (Peter Eisch) Make connection->local_ip available from the Apache transport (Peter Eisch)

View File

@ -178,14 +178,14 @@ Apache::Qpsmtpd - a mod_perl-2 connection handler for qpsmtpd
## with apache >= 2.1.5, for others it doesn't hurt. See also ## with apache >= 2.1.5, for others it doesn't hurt. See also
## http://httpd.apache.org/docs/2.2/mod/core.html#acceptfilter ## http://httpd.apache.org/docs/2.2/mod/core.html#acceptfilter
## and http://httpd.apache.org/docs/2.2/mod/mpm_common.html#listen ## and http://httpd.apache.org/docs/2.2/mod/mpm_common.html#listen
LoadModule perl_module modules/mod_perl.so LoadModule perl_module modules/mod_perl.so
<Perl> <Perl>
use lib qw( /path/to/qpsmtpd/lib ); use lib qw( /path/to/qpsmtpd/lib );
use Apache::Qpsmtpd; use Apache::Qpsmtpd;
</Perl> </Perl>
<VirtualHost _default_:25> <VirtualHost _default_:25>
PerlSetVar QpsmtpdDir /path/to/qpsmtpd PerlSetVar QpsmtpdDir /path/to/qpsmtpd
PerlModule Apache::Qpsmtpd PerlModule Apache::Qpsmtpd

View File

@ -35,7 +35,7 @@ Inside a plugin
my ($self, $transaction, $cmd) = @_; my ($self, $transaction, $cmd) = @_;
return (OK, \&bdat_parser) if ($cmd eq 'bdat'); return (OK, \&bdat_parser) if ($cmd eq 'bdat');
} }
sub bdat_parser { sub bdat_parser {
my ($self,$cmd,$line) = @_; my ($self,$cmd,$line) = @_;
# .. do something with $line... # .. do something with $line...
@ -43,7 +43,7 @@ Inside a plugin
if $some_reason_why_there_is_a_syntax_error; if $some_reason_why_there_is_a_syntax_error;
return (OK, @args); return (OK, @args);
} }
sub hook_unrecognized_command { sub hook_unrecognized_command {
my ($self, $transaction, $cmd, @args) = @_; my ($self, $transaction, $cmd, @args) = @_;
return (DECLINED) if ($self->qp->connection->hello eq 'helo'); return (DECLINED) if ($self->qp->connection->hello eq 'helo');

View File

@ -170,8 +170,6 @@ The remote IP address of the connecting host.
The remote port. The remote port.
=head2 hello( )
=head2 remote_info( ) =head2 remote_info( )
If your server does an ident lookup on the remote host, this is the If your server does an ident lookup on the remote host, this is the

View File

@ -247,7 +247,7 @@ default: DENY
=cut =cut
sub addr_bad_from_system { shift->_dsn(shift,shift,DENY,1,8); } sub addr_bad_from_system { shift->_dsn(shift,shift,DENY,1,8); }
=head1 MAILBOX STATUS =head1 MAILBOX STATUS
=over 5 =over 5
@ -411,7 +411,7 @@ default: DENY, but RFC says:
transient error. transient error.
Why do we want to DENYSOFT something like this? Why do we want to DENYSOFT something like this?
=back =back
=cut =cut
@ -446,7 +446,7 @@ sub proto_invalid_command { shift->_dsn(shift,shift,DENY,5,1); }
X.5.2 X.5.2
default: DENY default: DENY
=cut =cut
sub proto_syntax_error { shift->_dsn(shift,shift,DENY,5,2); } sub proto_syntax_error { shift->_dsn(shift,shift,DENY,5,2); }

View File

@ -1,4 +1,5 @@
# -*- perl -*- # -*- perl -*-
=head1 NAME =head1 NAME
check_badmailfrom - checks the badmailfrom config, with per-line reasons check_badmailfrom - checks the badmailfrom config, with per-line reasons

View File

@ -1,4 +1,5 @@
#! perl #! perl
=head1 NAME =head1 NAME
check_badmailfromto - checks the badmailfromto config check_badmailfromto - checks the badmailfromto config

View File

@ -3,11 +3,11 @@
=head1 NAME =head1 NAME
check_basicheaders - Make sure both From and Date headers are present, and check_basicheaders - Make sure both From and Date headers are present, and
do optional range checking on the Date header do optional range checking on the Date header.
=head1 DESCRIPTION =head1 DESCRIPTION
Rejects messages that do not have a From or Date header or are completely Rejects messages that do not have a From or Date header or are completely
empty. empty.
Can also reject messages where the date in the Date header is more than Can also reject messages where the date in the Date header is more than

View File

@ -25,6 +25,7 @@ Written by Keith C. Ivey
Released to the public domain, 17 June 2005. Released to the public domain, 17 June 2005.
=cut =cut
use Qpsmtpd::DSN; use Qpsmtpd::DSN;
sub init { sub init {

View File

@ -28,6 +28,8 @@ the connecting MTA's IP address. Any A or TXT answer is means that the
remote HOST address can be selectively exempted at other stages by plugins remote HOST address can be selectively exempted at other stages by plugins
testing for a 'whitelisthost' connection note. testing for a 'whitelisthost' connection note.
=back
NOTE: other 'connect' hooks will continue to fire (e.g. dnsbl), since the DNS NOTE: other 'connect' hooks will continue to fire (e.g. dnsbl), since the DNS
queries happen in the background. This plugin's 'rcpt_handler' retrieves queries happen in the background. This plugin's 'rcpt_handler' retrieves
the results of the query and sets the connection note if found. the results of the query and sets the connection note if found.

View File

@ -30,6 +30,8 @@ The path to use to execute the Exim BSMTP receiver; by default this is
I</usr/sbin/rsmtp>. The commandline switch '-bS' will be added (this is I</usr/sbin/rsmtp>. The commandline switch '-bS' will be added (this is
actually redundant with rsmtp, but harmless). actually redundant with rsmtp, but harmless).
=back
=cut =cut
=head1 LICENSE =head1 LICENSE

View File

@ -1,4 +1,5 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
=head1 NAME =head1 NAME
relay_only - this plugin only permits relaying relay_only - this plugin only permits relaying

View File

@ -24,6 +24,8 @@ Path to the private key file. Default: I<ssl/qpsmtpd-server.key>
Path to the certificate autority file. Default: I<ssl/qpsmtpd-ca.crt> Path to the certificate autority file. Default: I<ssl/qpsmtpd-ca.crt>
=back
=head1 DESCRIPTION =head1 DESCRIPTION
This plugin implements basic TLS support. It can also be used to support This plugin implements basic TLS support. It can also be used to support

View File

@ -69,7 +69,7 @@ command line, the return code corresponds to the results of scanning the last fi
8 scan results are unavailable: file is corrupted or input/output error. 8 scan results are unavailable: file is corrupted or input/output error.
9 some of the required parameters are missing from the command line. 9 some of the required parameters are missing from the command line.
=head1 VERSION =head1 VERSION
0.1rc first proof of concept. 0.1rc first proof of concept.
@ -87,7 +87,7 @@ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE. SOFTWARE.
=cut =cut
use File::Temp qw(tempfile); use File::Temp qw(tempfile);

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# Kasperski-AV plugin. # Kasperski-AV plugin.
=head1 NAME =head1 NAME
kavscanner - plugin for qpsmtpd which calls the Kasperski anti virus scanner kavscanner - plugin for qpsmtpd which calls the Kasperski anti virus scanner

View File

@ -1,4 +1,5 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
=head1 NAME =head1 NAME
uvscan uvscan