Changeset 23 for trunk/dnsbl/export-dnsbl

Timestamp:

08/31/10 15:35:18 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Shuffle processing in DNSBL::export() for 1.5-10x speedup (depending

on DB version, OS, Perl, phase of moon):

• prepare some statement handles more globally, so we're not recreating them for each netblock (moved to new sub initexport())
• pass the bitmask down the recursion chain instead of retrieving parent "islisted?" info for each netblock
• remove complex JOIN on recursion loop so we don't wait so long for the DB to finish

Trim commented stale code.

File:

• trunk/dnsbl/export-dnsbl (modified) (1 diff)

trunk/dnsbl/export-dnsbl

@@ -26 +26 @@
 #$dnsbl->export($ipref,$mode,1,'76.73.0.0/17');
 #$dnsbl->export($ipref,$mode,1,'174.36.0.0/15');
+$dnsbl->initexport;
 $dnsbl->export($ipref,$mode);