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

perltidy -b lib/Qpsmtpd/Plugin.pm

Browse Source
This commit is contained in:
Jared Johnson 2014-11-14 15:24:30 -06:00
parent a20ced01f6
commit 971e6ab0e8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/Qpsmtpd/Plugin.pm
View File

@ -164,7 +164,7 @@ sub isa_plugin {
$self->compile($self->plugin_name . "_isa_$cleanParent",
$newPackage, "$parent_dir/$parent");
warn "---- $newPackage\n";
no strict 'refs'; ## no critic (strict)
no strict 'refs'; ## no critic (strict)
push @{"${currentPackage}::ISA"}, $newPackage;
}
@ -208,7 +208,7 @@ sub compile {
$eval =~ m/(.*)/s;
$eval = $1;
eval $eval; ## no critic (Eval)
eval $eval; ## no critic (Eval)
die "eval $@" if $@;
}
@ -272,10 +272,10 @@ sub store_auth_results {
my $auths = $self->qp->connection->notes('authentication_results') or do {
$self->qp->connection->notes('authentication_results', $result);
return;
};
};
my $ar = join('; ', $auths, $result);
$self->log(LOGDEBUG, "auth-results: $ar");
$self->qp->connection->notes('authentication_results', $ar );
$self->qp->connection->notes('authentication_results', $ar);
}
sub is_immune {
@ -306,9 +306,9 @@ sub is_naughty {
my ($self, $setit) = @_;
# see plugins/naughty
return $self->connection->notes('naughty') if ! defined $setit;
return $self->connection->notes('naughty') if !defined $setit;
$self->connection->notes('naughty', $setit);
$self->connection->notes('naughty', $setit);
$self->connection->notes('rejected', $setit);
if ($self->connection->notes('naughty')) {
@ -342,7 +342,7 @@ sub _register_standard_hooks {
my $hooksub = "hook_$hook";
$hooksub =~ s/\W/_/g;
next if !$plugin->can($hooksub);
$plugin->register_hook($hook, $hooksub)
$plugin->register_hook($hook, $hooksub);
}
}