cvs commit: qpsmtpd/t/Test Qpsmtpd.pm
[email protected] (Ask "Bj?rn" Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/11/09 07:25:52
Modified: . Changes STATUS
t addresses.t plugin_tests.t qpsmtpd-address.t
t/Test Qpsmtpd.pm
Log:
moved config to config.sample
minor test cleanups
updated Changes file in preperation for a release
Revision Changes Path
1.77 +32 -2 qpsmtpd/Changes
Index: Changes
===================================================================
RCS file: /cvs/public/qpsmtpd/Changes,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -r1.76 -r1.77
--- Changes 23 Sep 2004 13:51:09 -0000 1.76
+++ Changes 9 Nov 2004 15:25:51 -0000 1.77
@@ -1,6 +1,19 @@
0.29 -
- [ many changes from cvs logs, gah ]
+ Many improvements to the forking server (qpsmtpd-forkserver)
+
+ Plugin testing framework (Matt)
+
+ Added Apache::Qpsmtpd (Apache/mod_perl 2.0 connection handler)
+
+ Allow for multiple instances of a single plugin by using plugin:0
+ notation (Robert)
+
+ Fix CDB support so the server can work without it
+
+ VRFY plugin support (Robert Spier)
+
+ Added Makefile.PL etc to make it easier to build a package (Matt).
Make the rhsbl plugin do DNS lookups in the background. (Mark Powell)
@@ -10,14 +23,32 @@
Improve error messages from the Postfix module (Erik I. Bolsø,
<knan at mo.himolde.no>)
+ make the maildir plugin record who the message was to (with a bit of improvements
+ this could make a decent local delivery plugin)
+
+ Pass extra "stuff" to HELO/EHLO callbacks (to make it easier to
+ support SMTP extensions)
+
+ Renamed the *HARD return codes to DENY_DISCONNECT and
+ DENYSOFT_DISCONNECT (DENYSOFT_DISCONNECT is new)
+
Mail::Address does RFC822 addresses, we need SMTP addresses.
Replace Mail::Address with Peter J. Holzer's Qpsmtpd::Address module.
+ Don't keep adding ip addresses to the process status line ($0) when
+ running under PPerl.
+
+ Include the date and time the session started in the process status line.
+
Add "plugin/virus/uvscan" - McAfee commandline virus scanner
Inbound connections logged as soon as the remote host address is known
when running under tcpserver.
+ Add Qpsmtpd::Auth (authentication handlers! See plugins/auth/) (John Peacock)
+
+ Add a plugin hook for the DATA command
+
check_earlytalker -
+ optionally react to an earlytalker by denying all MAIL-FROM commands
rather than issuing a 4xx/5xx greeting and disconnecting. (Mark
@@ -27,7 +58,6 @@
Move relay flag to connection object (John Peacock):
+ add relay_client() method to Connection.pm
- + Update Auth.pm module to set $connection->relay_client()
+ Remove $transaction->relaying() completely (due to popular demand)
Split check_relay plugin into two plugins (John Peacock):
1.16 +2 -3 qpsmtpd/STATUS
Index: STATUS
===================================================================
RCS file: /cvs/public/qpsmtpd/STATUS,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- STATUS 29 Jul 2004 19:32:40 -0000 1.15
+++ STATUS 9 Nov 2004 15:25:51 -0000 1.16
@@ -2,7 +2,7 @@
New Name Suggestions
====================
ignite
-flare
+flare(mta)
quench
pez (or pezmail)
@@ -10,9 +10,8 @@
Near term roadmap
=================
-0.29:
+0.30:
- Add the first time denysoft plugin
- - Support email addresses with spaces in them (done)
- Bugfixes
0.40:
1.3 +2 -2 qpsmtpd/t/addresses.t
Index: addresses.t
===================================================================
RCS file: /cvs/public/qpsmtpd/t/addresses.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- addresses.t 14 Sep 2004 19:34:19 -0000 1.2
+++ addresses.t 9 Nov 2004 15:25:51 -0000 1.3
@@ -19,11 +19,11 @@
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format, '<[email protected]>', 'got the right sender');
-my $command = 'MAIL FROM:<>';
+$command = 'MAIL FROM:<>';
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format, '<>', 'got the right sender');
-my $command = 'MAIL FROM:<[email protected]> SIZE=1230';
+$command = 'MAIL FROM:<[email protected]> SIZE=1230';
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format, '<[email protected]>', 'got the right sender');
1.2 +0 -1 qpsmtpd/t/plugin_tests.t
Index: plugin_tests.t
===================================================================
RCS file: /cvs/public/qpsmtpd/t/plugin_tests.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- plugin_tests.t 8 Sep 2004 16:26:31 -0000 1.1
+++ plugin_tests.t 9 Nov 2004 15:25:51 -0000 1.2
@@ -1,5 +1,4 @@
#!/usr/bin/perl -w
-
use strict;
use lib 't';
use Test::Qpsmtpd;
1.6 +3 -2 qpsmtpd/t/qpsmtpd-address.t
Index: qpsmtpd-address.t
===================================================================
RCS file: /cvs/public/qpsmtpd/t/qpsmtpd-address.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- qpsmtpd-address.t 14 Sep 2004 19:34:19 -0000 1.5
+++ qpsmtpd-address.t 9 Nov 2004 15:25:51 -0000 1.6
@@ -63,6 +63,9 @@
ok ($ao, "new $as");
is ($ao->address, '[email protected]', "address $as");
+# Not sure why we can change the address like this, but we can so test it ...
+is ($ao && $ao->address('[email protected]'), '[email protected]', 'address([email protected])');
+
$as = '<[email protected]>';
$ao = Qpsmtpd::Address->new($as);
ok ($ao, "new $as");
@@ -72,7 +75,5 @@
ok ($ao = Qpsmtpd::Address->parse($as), "parse $as");
is ($ao && $ao->address, $as, "address $as");
-# Not sure why we can change the address like this, but we can so test it ...
-is ($ao->address('[email protected]'), '[email protected]', 'address([email protected])');
1.6 +2 -2 qpsmtpd/t/Test/Qpsmtpd.pm
Index: Qpsmtpd.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/t/Test/Qpsmtpd.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Qpsmtpd.pm 8 Sep 2004 21:53:29 -0000 1.5
+++ Qpsmtpd.pm 9 Nov 2004 15:25:52 -0000 1.6
@@ -67,7 +67,7 @@
}
sub config_dir {
- './config';
+ './config.sample';
}
sub plugin_dir {
@@ -97,7 +97,7 @@
require Test::Builder;
my $Test = Test::Builder->new();
-
+
$Test->plan( tests => $num_tests );
# Now run them