sub check_rbl_uris {

  my ($self, $rule, $set, $rbl_server) = @_;

  return 0 if $self->{conf}->{skip_rbl_checks};

  return 0 unless $self->is_dns_available();

  my @uris = $self->get_uri_list();

  my %domains;

  for my $uri (@uris) {

    if ($uri =~ /^mailto:.*\@([^\@\s>]+)/i) {

      $uri = lc($1);

      next unless $uri =~ /\S\.\S\S/;

      $domains{$uri} = 1;

      $domains{hostname_to_domain2($uri)} = 1;

    }

    elsif ($uri =~ m@^\w+://(.+?)/?@i) {

      $uri = lc($1);

      next unless $uri =~ /\S\.\S\S/;

      $domains{$uri} = 1;

      $domains{hostname_to_domain2($uri)} = 1;

    }

  }

  return unless scalar keys %domains;

  $self->load_resolver();

  for my $domain (keys %domains) {

    print STDERR "checking $domain\n";

    $self->do_rbl_lookup($rule, $set, 'A', $rbl_server, "$domain.$rbl_server");

  }

}

# in.dnsbl.org

header T_FROM_IN_IN_DNSBL	rbleval:check_rbl_from('in-dnsbl', 'in.dnsbl.org.')

tflags T_FROM_IN_IN_DNSBL net

# temporary

header T_FROM_IN_RFCI_ABUSE	rbleval:check_rbl_from('rfci-abuse', 'abuse.rfc-ignorant.org.')

header T_FROM_IN_RFCI_POSTMASTER	rbleval:check_rbl_from('rfci-postmaster', 'postmaster.rfc-ignorant.org.')

header T_FROM_IN_RFCI_WHOIS	rbleval:check_rbl_from('rfci-whois', 'whois.rfc-ignorant.org.')

# bug 1375: do RBL look-ups on URLs

header T_URI_IN_RFCI_ABUSE	rbleval:check_rbl_uris('rfci-abuse', 'abuse.rfc-ignorant.org.')

header T_URI_IN_RFCI_DSN	rbleval:check_rbl_uris('rfci-dsn', 'dsn.rfc-ignorant.org.')

header T_URI_IN_RFCI_POSTMASTER	rbleval:check_rbl_uris('rfci-postmaster', 'postmaster.rfc-ignorant.org.')

header T_URI_IN_RFCI_WHOIS	rbleval:check_rbl_uris('rfci-whois', 'whois.rfc-ignorant.org.')

tflags T_URI_IN_RFCI_ABUSE net

tflags T_URI_IN_RFCI_DSN net

tflags T_URI_IN_RFCI_POSTMASTER net

tflags T_URI_IN_RFCI_WHOIS net

header T_URI_IN_DEADBEEF	rbleval:check_rbl_uris('deadbeef', 'bl.deadbeef.com.')

header T_URI_IN_IN_DNSBL	rbleval:check_rbl_uris('in-dnsbl', 'in.dnsbl.org.')

header T_URI_IN_PIGS		rbleval:check_rbl_uris('pigs', 'bandwidth-pigs.monkeys.com.')

tflags T_URI_IN_DEADBEEF net

tflags T_URI_IN_IN_DNSBL net

tflags T_URI_IN_PIGS net

meta T_RFC_IGNORANT_A1	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS > 1)

meta T_RFC_IGNORANT_A2	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS > 2)

meta T_RFC_IGNORANT_A3	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS > 3)

meta T_RFC_IGNORANT_B1	(T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 1)

meta T_RFC_IGNORANT_B2	(T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 2)

meta T_RFC_IGNORANT_B3	(T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 3)

meta T_RFC_IGNORANT_C1	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 1)

meta T_RFC_IGNORANT_C2	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 2)

meta T_RFC_IGNORANT_C3	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 3)

meta T_RFC_IGNORANT_C4	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 4)

meta T_RFC_IGNORANT_C5	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 5)

meta T_RFC_IGNORANT_C6	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 6)

meta T_RFC_IGNORANT_C7	(T_URI_IN_RFCI_ABUSE + T_URI_IN_RFCI_DSN + T_URI_IN_RFCI_POSTMASTER + T_URI_IN_RFCI_WHOIS + T_FROM_IN_RFCI_ABUSE + T_FROM_IN_RFCI_DSN + T_FROM_IN_RFCI_POSTMASTER + T_FROM_IN_RFCI_WHOIS > 7)