On Thu, 17 Jan 2008 19:59:38 +0100
Hanno Hecker <[EMAIL PROTECTED]> wrote:
> sub connect_handler {
> my ($self, $transaction) = @_;
> my $score = $self->qp->connection->notes("dnswl") || -1;
err, the above line should be:
my $score = self->qp->connection->notes("dnswl");
$score = defined $score ? $score : -1;
> return (DECLINED)
> unless $score < 0; # not found in DB (or set to invalid value)
> $self->SUPER::connect_handler($transaction);
> }
>
> sub data_handler {
> my ($self, $transaction) = @_;
> my $score = $self->qp->connection->notes("dnswl") || -1;
same here
Hanno
