POD fixups

This commit is contained in:
Matt Simerson 2014-09-16 23:27:19 -07:00
parent a1dc532dec
commit 5155e5c32f
4 changed files with 9 additions and 3 deletions

View File

@ -491,6 +491,8 @@ Qpsmtpd - base class for the qpsmtpd mail server
This is the base class for the qpsmtpd mail server. See This is the base class for the qpsmtpd mail server. See
L<http://smtpd.develooper.com/> and the I<README> file for more information. L<http://smtpd.develooper.com/> and the I<README> file for more information.
=encoding UTF8
=head1 COPYRIGHT =head1 COPYRIGHT
Copyright 2001-2012 Ask Bjørn Hansen, Develooper LLC. See the Copyright 2001-2012 Ask Bjørn Hansen, Develooper LLC. See the

View File

@ -57,6 +57,8 @@ Default: temp (temporary, aka soft, aka 4xx).
86627 (mail) resolvable_fromhost: palmalar.com has no MX 86627 (mail) resolvable_fromhost: palmalar.com has no MX
86627 (mail) resolvable_fromhost: fail, palmalar.com (SERVFAIL) 86627 (mail) resolvable_fromhost: fail, palmalar.com (SERVFAIL)
=encoding UTF8
=head1 AUTHORS =head1 AUTHORS
2012 - Matt Simerson - refactored, added: POD, tests, reject, reject_type 2012 - Matt Simerson - refactored, added: POD, tests, reject, reject_type

View File

@ -20,6 +20,8 @@ Pattern to use when searching for user config directory
Substitute %u for username, %h for host, or %a for full addressn. Substitute %u for username, %h for host, or %a for full addressn.
Default: I</home/%u/.qpsmtpd/> Default: I</home/%u/.qpsmtpd/>
=back
=head1 DESCRIPTION =head1 DESCRIPTION
This plugin implements very basic support for storing user configuration This plugin implements very basic support for storing user configuration

View File

@ -12,14 +12,14 @@ use lib 'lib';
my $this_perl = $Config{'perlpath'} || $EXECUTABLE_NAME; my $this_perl = $Config{'perlpath'} || $EXECUTABLE_NAME;
my @files = my @files = find({wanted => \&test_syntax, no_chdir => 1}, 'plugins', 'lib', 't');
find({wanted => \&test_syntax, no_chdir => 1}, 'plugins', 'lib', 't');
sub test_syntax { sub test_syntax {
my $f = $File::Find::name; my $f = $File::Find::name;
chomp $f; chomp $f;
return if !-f $f; return if !-f $f;
return if $f =~ m/(~|\.(bak|orig|rej))/; return if $f =~ m/(~|\.(bak|orig|rej|txt))$/;
return if $f =~ m/^t\/config/;
my $r; my $r;
eval { $r = `$this_perl -Ilib -MQpsmtpd::Constants -c $f 2>&1`; }; eval { $r = `$this_perl -Ilib -MQpsmtpd::Constants -c $f 2>&1`; };
my $exit_code = sprintf("%d", $CHILD_ERROR >> 8); my $exit_code = sprintf("%d", $CHILD_ERROR >> 8);