| 201 |
my $skip_domains = $scanner->{main}->{conf}->{uridnsbl_skip_domains}; |
my $skip_domains = $scanner->{main}->{conf}->{uridnsbl_skip_domains}; |
| 202 |
|
|
| 203 |
# list of arrays to use in order |
# list of arrays to use in order |
| 204 |
my @uri_ordered = (); |
my @uri_ordered; |
| 205 |
|
|
| 206 |
# Generate the full list of html-parsed domains. |
# Generate the full list of html-parsed domains. |
| 207 |
my $uris = $scanner->get_uri_detail_list(); |
my $uris = $scanner->get_uri_detail_list(); |
| 255 |
|
|
| 256 |
# at this point, @uri_ordered is an ordered array of uri hashes |
# at this point, @uri_ordered is an ordered array of uri hashes |
| 257 |
|
|
| 258 |
my %domlist = (); |
my %domlist; |
| 259 |
my $umd = $scanner->{main}->{conf}->{uridnsbl_max_domains}; |
my $umd = $scanner->{main}->{conf}->{uridnsbl_max_domains}; |
| 260 |
while (keys %domlist < $umd && @uri_ordered) { |
while (keys %domlist < $umd && @uri_ordered) { |
| 261 |
my $array = shift @uri_ordered; |
my $array = shift @uri_ordered; |
| 292 |
|
|
| 293 |
sub set_config { |
sub set_config { |
| 294 |
my($self, $conf) = @_; |
my($self, $conf) = @_; |
| 295 |
my @cmds = (); |
my @cmds; |
| 296 |
|
|
| 297 |
push(@cmds, { |
push(@cmds, { |
| 298 |
setting => 'uridnsbl_max_domains', |
setting => 'uridnsbl_max_domains', |
| 571 |
my ($self, $scanner, $ent, $dnsblip) = @_; |
my ($self, $scanner, $ent, $dnsblip) = @_; |
| 572 |
|
|
| 573 |
my $conf = $scanner->{conf}; |
my $conf = $scanner->{conf}; |
| 574 |
my @subtests = (); |
my @subtests; |
| 575 |
my $rulename = $ent->{rulename}; |
my $rulename = $ent->{rulename}; |
| 576 |
my $rulecf = $conf->{uridnsbls}->{$rulename}; |
my $rulecf = $conf->{uridnsbls}->{$rulename}; |
| 577 |
|
|
Parent Directory
| 
Revision Log
| 
Patch