Changeset 51 for trunk/dnsbl/browse.cgi

Timestamp:

12/09/14 17:11:39 (10 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Update browse.cgi and dnsbl.cgi to display extended depth entries

File:

• trunk/dnsbl/browse.cgi (modified) (3 diffs)

trunk/dnsbl/browse.cgi

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2009-2011,2014 Kris Deugau <kdeugau@deepnet.cx>
 #
 #    This program is free software: you can redistribute it and/or modify
@@ -26 +26 @@
 
 use DNSBL;
+use DNSBLweb;
 
 my $dnsbl = new DNSBL;
@@ -69 +70 @@
 $template->param(pgcomment => $config{pgcomment}) if defined($config{pgcomment});
 
-my $basesql = "SELECT b.block,o.orgname,b.listme,o.listme,b.comments,o.comments ".
-        "FROM blocks b INNER JOIN orgs o ON b.orgid=o.orgid ".
-        "WHERE b.parent = ";
-my $sth0 = $dbh->prepare($basesql."'0/0' AND b.level=0 ORDER BY block");
-#my $sth0 = $dbh->prepare($basesql."'64/8' AND b.level=0 ORDER BY block");
-my $sth1 = $dbh->prepare($basesql."? AND b.level=1 ORDER BY block");
-my $sth2 = $dbh->prepare($basesql."? AND b.level=2 ORDER BY block");
-my $sthiplist = $dbh->prepare("select * from iplist where parent = ? order by ip");
+my $out = DNSBLweb::retlvl($dbh, $dnsbl, 0, block => '0/0');
 
-my %ipseen;
-
-my $out = '';
-
-$sth0->execute;
-while (my ($block0,$org0,$listmeb0,$listmeo0,$bcomments0,$ocomments0) = $sth0->fetchrow_array) {
-  my $tmpl0 = new HTML::Template(filename => "browse-block.tmpl");
-  $tmpl0->param(lvlclass => 'lvl0'.($dnsbl->autolist_block($block0) ? ' auto0' : ''));
-  $tmpl0->param(netclass => ($listmeb0 ? 'b0list' : ''));
-  $tmpl0->param(net => $block0);
-  $tmpl0->param(orgclass => ($listmeo0 ? 'b0org' : ''));
-  $tmpl0->param(org => $org0);
-  $tmpl0->param(bcomment => $bcomments0) if $bcomments0;
-  $tmpl0->param(ocomment => $ocomments0) if $ocomments0;
-  $sth1->execute($block0);
-  my $lvl1out = '';
-  if ($sth1->rows > 0) {
-    while (my ($block1,$org1,$listmeb1,$listmeo1,$bcomments1,$ocomments1) = $sth1->fetchrow_array) {
-      my $tmpl1 = new HTML::Template(filename => "browse-block.tmpl");
-      $tmpl1->param(lvlclass => 'lvl1'.($dnsbl->autolist_block($block1) ? ' auto1' : ''));
-      $tmpl1->param(netclass => ($listmeb1 ? 'b1list' : ''));
-      $tmpl1->param(net => $block1);
-      $tmpl1->param(orgclass => ($listmeo1 ? 'b1org' : ''));
-      $tmpl1->param(org => $org1);
-      $tmpl1->param(bcomment => $bcomments1) if $bcomments1;
-      $tmpl1->param(ocomment => $ocomments1) if $ocomments1;
-      $tmpl1->param(indent => '  ');
-      my $lvl2out = '';
-      $sth2->execute($block1);
-      if ($sth2->rows > 0) {
-        while (my ($block2,$org2,$listmeb2,$listmeo2,$bcomments2,$ocomments2) = $sth2->fetchrow_array) {
-          my $tmpl2 = new HTML::Template(filename => "browse-block.tmpl");
-          $tmpl2->param(lvlclass => 'lvl2'.($dnsbl->autolist_block($block2) ? ' auto2' : ''));
-          $tmpl2->param(netclass => ($listmeb2 ? 'b2list' : ''));
-          $tmpl2->param(net => $block2);
-          $tmpl2->param(orgclass => ($listmeo2 ? 'b2org' : ''));
-          $tmpl2->param(org => $org2);
-          $tmpl2->param(bcomment => $bcomments2) if $bcomments2;
-          $tmpl2->param(ocomment => $ocomments2) if $ocomments2;
-          $tmpl2->param(indent => '    ');
-          $sthiplist->execute($block2);
-          my @iprows;
-          while (my @data4 = $sthiplist->fetchrow_array) {
-            my %iprow;
-            $iprow{ip} = $data4[0];
-            $iprow{ipcount} = $data4[1];
-            $iprow{indent} = '    ';
-#       ip        | count | s4list |             added
-            push @iprows, \%iprow;
-            $ipseen{$data4[0]} = 1;
-          }
-          $tmpl2->param(iplist => \@iprows);
-          $lvl2out .= $tmpl2->output;
-        }
-      }
-
-      $sthiplist->execute($block1);
-      my @iprows;
-      while (my @data4 = $sthiplist->fetchrow_array) {
-        next if $ipseen{$data4[0]};
-        my %iprow;
-        $iprow{ip} = $data4[0];
-        $iprow{ipcount} = $data4[1];
-        $iprow{indent} = '  ';
-#       ip        | count | s4list |             added
-        push @iprows, \%iprow;
-        $ipseen{$data4[0]} = 1;
-      }
-      $tmpl1->param(iplist => \@iprows);
-      $tmpl1->param(subs => $lvl2out);
-      $lvl1out .= $tmpl1->output;
-    }
-  } # sth1->rows
-  $sthiplist->execute($block0);
-  my @iprows;
-  while (my @data4 = $sthiplist->fetchrow_array) {
-    next if $ipseen{$data4[0]};
-    my %iprow;
-    $iprow{ip} = $data4[0];
-    $iprow{ipcount} = $data4[1];
-    $iprow{indent} = '';
-#       ip        | count | s4list |             added
-    push @iprows, \%iprow;
-    $ipseen{$data4[0]} = 1;
-  }
-  $tmpl0->param(iplist => \@iprows);
-  $tmpl0->param(subs => $lvl1out);
-  $out .= $tmpl0->output;
-}
-
-# probably more efficient ways to do this somewhere...
 $template->param(enchilada => $out);
 print $template->output;