source: trunk/dnsbl/browse.cgi@ 7

#!/usr/bin/perl
# quickndirty browse-the-damned-by-web

use strict;
use warnings;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;

use DNSBL;

my $dnsbl = new DNSBL;

my $dbh = $dnsbl->connect;

print "Content-Type: text/html\n\n";

my @lvl0 = ("foo", "bar", "bax");
my $template = HTML::Template->new(filename => 'templates/browse.tmpl');

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.block <<= ";
my $sth0 = $dbh->prepare($basesql."'0/0' AND b.level=0 ORDER BY block");
#my $sth0 = $dbh->prepare($basesql."'76.73.0.0/17' 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 ip <<= ? order by ip");

print $template->output;

my %ipseen;

$sth0->execute;
while (my ($block0,$org0,$listmeb0,$listmeo0,$bcomments0,$ocomments0) = $sth0->fetchrow_array) {
  print "<div class=\"lvl0".($dnsbl->autolist_block($block0) ? ' auto0"' : '"').
        "><span".($listmeb0 ? ' class=b0list' : '').">$block0".
        ($listmeb0 ? " ($bcomments0)" : '')."</span> ".
        "<span".($listmeo0 ? ' class=b0org' : '').">$org0".
        ($listmeo0 ? " ($ocomments0)" : '')."</span>\n";
  $sth1->execute($block0);
  if ($sth1->rows > 0) {
    while (my ($block1,$org1,$listmeb1,$listmeo1,$bcomments1,$ocomments1) = $sth1->fetchrow_array) {
# lvl 1 div open
      print "  <div class=\"lvl1".($dnsbl->autolist_block($block1) ? ' auto1"' : '"').
        "><span".($listmeb1 ? ' class=b1list' : '').">$block1".
        ($listmeb1 ? " ($bcomments1)" : '')."</span> ".
        "<span".($listmeo1 ? ' class=b1org' : '').">$org1".
        ($listmeo1 ? " ($ocomments1)" : '')."</span>\n";
      $sth2->execute($block1);
      if ($sth2->rows > 0) {
        while (my ($block2,$org2,$listmeb2,$listmeo2,$bcomments2,$ocomments2) = $sth2->fetchrow_array) {
# lvl 2 div open
          print "    <div class=\"lvl2".($dnsbl->autolist_block($block2) ? ' auto2"' : '"').
                "><span".($listmeb2 ? ' class=b2list' : '').">$block2".
                ($listmeb2 ? " ($bcomments2)" : '')."</span> ".
                "<span".($listmeo2 ? ' class=b2org' : '').">$org2".
                ($listmeo2 ? " ($ocomments2)" : '')."</span>\n";
          $sthiplist->execute($block2);
          print "      <div class=iplist>\n";
          while (my @data4 = $sthiplist->fetchrow_array) {
            print "        $data4[0]<br>\n";
            $ipseen{$data4[0]} = 1;
          }
          print "      </div>\n";
# lvl2 div close
          print "    </div>\n";
        }
      } else {
        $sthiplist->execute($block1);
        print "    <div class=iplist>\n";
        while (my @data4 = $sthiplist->fetchrow_array) {
          print "      $data4[0]<br>\n";
          $ipseen{$data4[0]} = 1;
        }
        print "    </div>\n";
      }

      my $sqlalt = "select ip from iplist where ip << ?";
      my $sthalt = $dbh->prepare($sqlalt);
      $sthalt->execute($block1);
      my @newips;
      while (my @data4 = $sthalt->fetchrow_array) {
        push @newips, $data4[0] if !$ipseen{$data4[0]};
        $ipseen{$data4[0]} = 1;
      }
      if ($#newips > -1) {
        print "    <div class=iplist>\n";
        foreach (@newips) {
          print "      $_<br>\n";
        }
        print "    </div>\n";
      }
# lvl 1 div close
      print "  </div>\n";
    }
  } else {
    $sthiplist->execute($block0);
    print "  <div class=iplist>\n";
    while (my @data4 = $sthiplist->fetchrow_array) {
      print "    $data4[0]<br>\n";
      $ipseen{$data4[0]} = 1;
    }
    print "  </div>\n";
  }

  my $sqlalt = "select ip from iplist where ip << ?";
  my $sthalt = $dbh->prepare($sqlalt);
  $sthalt->execute($block0);
  my @newips;
  while (my @data4 = $sthalt->fetchrow_array) {
    push @newips, $data4[0] if (!$ipseen{$data4[0]});
  }
  if ($#newips > -1) {
    print "  <div class=iplist>\n";
    foreach (@newips) {
      print "    $_<br>\n";
    }
    print "  </div>\n";
  }

  print "</div>\n";
}