/[Apache-SVN]/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm
ViewVC logotype

Diff of /spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 583551, Wed Oct 10 17:33:04 2007 UTC revision 585292, Wed Oct 17 00:04:48 2007 UTC
# Line 471  sub lookup_domain_ns { Line 471  sub lookup_domain_ns {
471    return if $scanner->{async}->get_lookup($key);    return if $scanner->{async}->get_lookup($key);
472    
473    # dig $dom ns    # dig $dom ns
474    my $ent = $self->start_lookup($scanner, 'NS',    my $ent = $self->start_lookup($scanner, $dom, 'NS',
475                                  $self->res_bgsend($scanner, $dom, 'NS', $key),                                  $self->res_bgsend($scanner, $dom, 'NS', $key),
476                                  $key);                                  $key);
477    $ent->{obj} = $obj;    $ent->{obj} = $obj;
# Line 517  sub lookup_a_record { Line 517  sub lookup_a_record {
517    return if $scanner->{async}->get_lookup($key);    return if $scanner->{async}->get_lookup($key);
518    
519    # dig $hname a    # dig $hname a
520    my $ent = $self->start_lookup($scanner, 'A',    my $ent = $self->start_lookup($scanner, $hname, 'A',
521                                  $self->res_bgsend($scanner, $hname, 'A', $key),                                  $self->res_bgsend($scanner, $hname, 'A', $key),
522                                  $key);                                  $key);
523    $ent->{obj} = $obj;    $ent->{obj} = $obj;
# Line 562  sub lookup_single_dnsbl { Line 562  sub lookup_single_dnsbl {
562    my $item = $lookupstr.".".$dnsbl;    my $item = $lookupstr.".".$dnsbl;
563    
564    # dig $ip txt    # dig $ip txt
565    my $ent = $self->start_lookup($scanner, 'DNSBL',    my $ent = $self->start_lookup($scanner, $item, 'DNSBL',
566                                $self->res_bgsend($scanner, $item, $qtype, $key),                                $self->res_bgsend($scanner, $item, $qtype, $key),
567                                $key);                                $key);
568    $ent->{obj} = $obj;    $ent->{obj} = $obj;
# Line 650  sub got_dnsbl_hit { Line 650  sub got_dnsbl_hit {
650  # ---------------------------------------------------------------------------  # ---------------------------------------------------------------------------
651    
652  sub start_lookup {  sub start_lookup {
653    my ($self, $scanner, $type, $id, $key) = @_;    my ($self, $scanner, $zone, $type, $id, $key) = @_;
654    
655    my $ent = {    my $ent = {
656      key => $key,      key => $key,
657      timeout_initial => $scanner->{conf}->{rbl_timeout},      zone => $zone,  # serves to fetch other per-zone settings
658      type => "URI-".$type,      type => "URI-".$type,
659      id => $id,      id => $id,
660      completed_callback => sub {      completed_callback => sub {
Legend:
Removed from v.583551  
changed lines
  Added in v.585292
apache@apache.org
 ViewVC Help
Powered by ViewVC 1.1.2