Author: ask Date: Mon Sep 3 08:47:08 2007 New Revision: 786 Modified: trunk/Changes trunk/lib/Apache/Qpsmtpd.pm trunk/lib/Qpsmtpd/Command.pm trunk/lib/Qpsmtpd/Connection.pm trunk/lib/Qpsmtpd/DSN.pm trunk/plugins/check_badmailfrom trunk/plugins/check_badmailfromto trunk/plugins/check_basicheaders trunk/plugins/check_loop trunk/plugins/dns_whitelist_soft trunk/plugins/queue/exim-bsmtp trunk/plugins/relay_only trunk/plugins/tls trunk/plugins/virus/aveclient trunk/plugins/virus/kavscanner trunk/plugins/virus/uvscan
Log: POD syntax cleanup (Steve Kemp) Modified: trunk/Changes ============================================================================== --- trunk/Changes (original) +++ trunk/Changes Mon Sep 3 08:47:08 2007 @@ -1,5 +1,7 @@ 0.41 + POD syntax cleanup (Steve Kemp) + Make connection->local_ip available from the Apache transport (Peter Eisch) Modified: trunk/lib/Apache/Qpsmtpd.pm ============================================================================== --- trunk/lib/Apache/Qpsmtpd.pm (original) +++ trunk/lib/Apache/Qpsmtpd.pm Mon Sep 3 08:47:08 2007 @@ -178,14 +178,14 @@ ## with apache >= 2.1.5, for others it doesn't hurt. See also ## http://httpd.apache.org/docs/2.2/mod/core.html#acceptfilter ## and http://httpd.apache.org/docs/2.2/mod/mpm_common.html#listen - + LoadModule perl_module modules/mod_perl.so - + <Perl> use lib qw( /path/to/qpsmtpd/lib ); use Apache::Qpsmtpd; </Perl> - + <VirtualHost _default_:25> PerlSetVar QpsmtpdDir /path/to/qpsmtpd PerlModule Apache::Qpsmtpd Modified: trunk/lib/Qpsmtpd/Command.pm ============================================================================== --- trunk/lib/Qpsmtpd/Command.pm (original) +++ trunk/lib/Qpsmtpd/Command.pm Mon Sep 3 08:47:08 2007 @@ -35,7 +35,7 @@ my ($self, $transaction, $cmd) = @_; return (OK, \&bdat_parser) if ($cmd eq 'bdat'); } - + sub bdat_parser { my ($self,$cmd,$line) = @_; # .. do something with $line... @@ -43,7 +43,7 @@ if $some_reason_why_there_is_a_syntax_error; return (OK, @args); } - + sub hook_unrecognized_command { my ($self, $transaction, $cmd, @args) = @_; return (DECLINED) if ($self->qp->connection->hello eq 'helo'); Modified: trunk/lib/Qpsmtpd/Connection.pm ============================================================================== --- trunk/lib/Qpsmtpd/Connection.pm (original) +++ trunk/lib/Qpsmtpd/Connection.pm Mon Sep 3 08:47:08 2007 @@ -170,8 +170,6 @@ The remote port. -=head2 hello( ) - =head2 remote_info( ) If your server does an ident lookup on the remote host, this is the Modified: trunk/lib/Qpsmtpd/DSN.pm ============================================================================== --- trunk/lib/Qpsmtpd/DSN.pm (original) +++ trunk/lib/Qpsmtpd/DSN.pm Mon Sep 3 08:47:08 2007 @@ -247,7 +247,7 @@ =cut sub addr_bad_from_system { shift->_dsn(shift,shift,DENY,1,8); } - + =head1 MAILBOX STATUS =over 5 @@ -411,7 +411,7 @@ transient error. Why do we want to DENYSOFT something like this? - + =back =cut @@ -446,7 +446,7 @@ X.5.2 default: DENY - + =cut sub proto_syntax_error { shift->_dsn(shift,shift,DENY,5,2); } Modified: trunk/plugins/check_badmailfrom ============================================================================== --- trunk/plugins/check_badmailfrom (original) +++ trunk/plugins/check_badmailfrom Mon Sep 3 08:47:08 2007 @@ -1,4 +1,5 @@ # -*- perl -*- + =head1 NAME check_badmailfrom - checks the badmailfrom config, with per-line reasons Modified: trunk/plugins/check_badmailfromto ============================================================================== --- trunk/plugins/check_badmailfromto (original) +++ trunk/plugins/check_badmailfromto Mon Sep 3 08:47:08 2007 @@ -1,4 +1,5 @@ #! perl + =head1 NAME check_badmailfromto - checks the badmailfromto config Modified: trunk/plugins/check_basicheaders ============================================================================== --- trunk/plugins/check_basicheaders (original) +++ trunk/plugins/check_basicheaders Mon Sep 3 08:47:08 2007 @@ -3,11 +3,11 @@ =head1 NAME 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 -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. Can also reject messages where the date in the Date header is more than Modified: trunk/plugins/check_loop ============================================================================== --- trunk/plugins/check_loop (original) +++ trunk/plugins/check_loop Mon Sep 3 08:47:08 2007 @@ -25,6 +25,7 @@ Released to the public domain, 17 June 2005. =cut + use Qpsmtpd::DSN; sub init { Modified: trunk/plugins/dns_whitelist_soft ============================================================================== --- trunk/plugins/dns_whitelist_soft (original) +++ trunk/plugins/dns_whitelist_soft Mon Sep 3 08:47:08 2007 @@ -28,6 +28,8 @@ remote HOST address can be selectively exempted at other stages by plugins testing for a 'whitelisthost' connection note. +=back + 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 the results of the query and sets the connection note if found. Modified: trunk/plugins/queue/exim-bsmtp ============================================================================== --- trunk/plugins/queue/exim-bsmtp (original) +++ trunk/plugins/queue/exim-bsmtp Mon Sep 3 08:47:08 2007 @@ -30,6 +30,8 @@ I</usr/sbin/rsmtp>. The commandline switch '-bS' will be added (this is actually redundant with rsmtp, but harmless). +=back + =cut =head1 LICENSE Modified: trunk/plugins/relay_only ============================================================================== --- trunk/plugins/relay_only (original) +++ trunk/plugins/relay_only Mon Sep 3 08:47:08 2007 @@ -1,4 +1,5 @@ #!/usr/bin/perl -w + =head1 NAME relay_only - this plugin only permits relaying Modified: trunk/plugins/tls ============================================================================== --- trunk/plugins/tls (original) +++ trunk/plugins/tls Mon Sep 3 08:47:08 2007 @@ -24,6 +24,8 @@ Path to the certificate autority file. Default: I<ssl/qpsmtpd-ca.crt> +=back + =head1 DESCRIPTION This plugin implements basic TLS support. It can also be used to support Modified: trunk/plugins/virus/aveclient ============================================================================== --- trunk/plugins/virus/aveclient (original) +++ trunk/plugins/virus/aveclient Mon Sep 3 08:47:08 2007 @@ -69,7 +69,7 @@ 8 scan results are unavailable: file is corrupted or input/output error. 9 some of the required parameters are missing from the command line. - + =head1 VERSION 0.1rc first proof of concept. @@ -87,7 +87,7 @@ 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 SOFTWARE. - + =cut use File::Temp qw(tempfile); Modified: trunk/plugins/virus/kavscanner ============================================================================== --- trunk/plugins/virus/kavscanner (original) +++ trunk/plugins/virus/kavscanner Mon Sep 3 08:47:08 2007 @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # Kasperski-AV plugin. - + =head1 NAME kavscanner - plugin for qpsmtpd which calls the Kasperski anti virus scanner Modified: trunk/plugins/virus/uvscan ============================================================================== --- trunk/plugins/virus/uvscan (original) +++ trunk/plugins/virus/uvscan Mon Sep 3 08:47:08 2007 @@ -1,4 +1,5 @@ #!/usr/bin/perl -w + =head1 NAME uvscan
