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

MERGE 503:505 FROM https://svn.perl.org/qpsmtpd/branches/0.31

Browse Source 
Fix test failures due to hook renames
Fix redefined warnings due to hook renames


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@507 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-07-14 13:31:07 +00:00
parent 51f1f32928
commit 2ca6e9d192
3 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd.pm
View File

@ -238,7 +238,7 @@ sub _load_plugins {
my $package = "Qpsmtpd::Plugin::$plugin_name";
# don't reload plugins if they are already loaded
unless ( defined &{"${package}::register"} ) {
unless ( defined &{"${package}::plugin_name"} ) {
Qpsmtpd::Plugin->compile($plugin_name,
$package, "$dir/$plugin", $self->{_test_mode});
$self->log(LOGDEBUG, "Loading $plugin_line")
@ -320,9 +320,7 @@ sub run_hook {
}
else {
$self->varlog(LOGINFO, $hook, $code->{name});
print STDERR "plugin $hook $code->{name} 1\n";
eval { (@r) = $code->{code}->($self, $self->transaction, @args); };
print STDERR "plugin $hook $code->{name} 2\n";
$@ and $self->log(LOGCRIT, "FATAL PLUGIN ERROR: ", $@) and return;

4
lib/Qpsmtpd/Plugin.pm
View File

@ -102,8 +102,8 @@ sub isa_plugin {
$cleanParent =~ s/\W/_/g;
my $newPackage = $currentPackage."::_isa_$cleanParent";
return if defined &{"${newPackage}::register"};
# don't reload plugins if they are already loaded
return if defined &{"${newPackage}::plugin_name"};
$self->compile($self->plugin_name . "_isa_$cleanParent",
$newPackage,

4
t/plugin_tests/dnsbl
View File

@ -11,7 +11,7 @@ sub test_local {
my $connection = $self->qp->connection;
$connection->remote_ip('127.0.0.2'); # standard dnsbl test value
$self->connect_handler($self->qp->transaction);
$self->hook_connect($self->qp->transaction);
ok($self->qp->connection->notes('dnsbl_sockets'));
}
@ -20,7 +20,7 @@ sub test_returnval {
my $self = shift;
my $address = Qpsmtpd::Address->parse('<rcpt@example.com>');
my ($ret, $note) = $self->rcpt_handler($self->qp->transaction,
my ($ret, $note) = $self->hook_rcpt($self->qp->transaction,
$address);
is($ret, DENY, "Check we got a DENY");
print("# dnsbl result: $note\n");