By: TyskJohan

TyskJohan — Fri, 30 Nov 2007 00:00:00 +0000

I got it here and modified it quite heavily.

use Geo::IP; my $geoip = Geo::IP->new(GEOIP_STANDARD);


sub hook_connect {

        my ($self) = @_;

        my $country = $geoip->country_code_by_addr

                ($self->qp->connection->remote_ip);

        $self->qp->connection->notes('geoip_country', $country);

        $self->log(LOGNOTICE, "GeoIP Country: $country");

        if ( $self->qp->config("badcountries") ) {

                my @badcountries = $self->qp->config("badcountries");
                for (@badcountries) {

                        my ($pattern, $response) = split /\s+/, $_, 2;

                        return (DENY, $response) if ($country eq $pattern);

                }

        }

return (DECLINED); }

By: Doug

Doug — Fri, 30 Nov 2001 00:00:00 +0000

I like the new graph. Where did you get the GEOIP plugin?

Comments on: More spam stopping statistics

By: TyskJohan

By: Doug