byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

POD fixups

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd.pm
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
L<http://smtpd.develooper.com/> and the I<README> file for more information.
=encoding UTF8
=head1 COPYRIGHT
Copyright 2001-2012 Ask Bjørn Hansen, Develooper LLC. See the

2
plugins/resolvable_fromhost
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: fail, palmalar.com (SERVFAIL)
=encoding UTF8
=head1 AUTHORS
2012 - Matt Simerson - refactored, added: POD, tests, reject, reject_type

2
plugins/user_config
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.
Default: I</home/%u/.qpsmtpd/>
=back
=head1 DESCRIPTION
This plugin implements very basic support for storing user configuration

6
xt/01-syntax.t
View File

@ -12,14 +12,14 @@ use lib 'lib';
my $this_perl = $Config{'perlpath'} || $EXECUTABLE_NAME;
my @files =
find({wanted => \&test_syntax, no_chdir => 1}, 'plugins', 'lib', 't');
my @files = find({wanted => \&test_syntax, no_chdir => 1}, 'plugins', 'lib', 't');
sub test_syntax {
my $f = $File::Find::name;
chomp $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;
eval { $r = `$this_perl -Ilib -MQpsmtpd::Constants -c $f 2>&1`; };
my $exit_code = sprintf("%d", $CHILD_ERROR >> 8);