Changeset 7 for trunk/dnsbl/browse.cgi

Timestamp:

09/22/09 14:49:44 (15 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

export-dnsbl

• Spit out SOA and NS records for rbldns/cidr output, Just In Case

browse.cgi:

• Show comments for listme(block) and listme(org) ratings

dnsbl.cgi

• Show registrar-parent browse detail on IPs submitted for listing. Copied most of browse.cgi code into dnsbl.cgi - this should really be split out

templates/report.tmpl

• Added space for browse list data, added reference to CSS for browse listings

templates/browse.tmpl

• Split out CSS for browse formatting into separate file instead of inline <style> header tag

templates/dnsbl.css

• CSS for browse data

File:

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

trunk/dnsbl/browse.cgi

@@ -19 +19 @@
 my $template = HTML::Template->new(filename => 'templates/browse.tmpl');
 
-my $basesql = "SELECT b.block,o.orgname,b.listme,o.listme,b.comments ".
+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 <<= ";
@@ -33 +33 @@
 
 $sth0->execute;
-while (my ($block0,$org0,$listmeb0,$listmeo0,$comments0) = $sth0->fetchrow_array) {
+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</span> ".
-        "<span".($listmeo0 ? ' class=b0org' : '').">$org0</span>\n";
+        "><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,$comments1) = $sth1->fetchrow_array) {
+    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</span> ".
-        "<span".($listmeo1 ? ' class=b1org' : '').">$org1</span>\n";
+        "><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,$comments2) = $sth2->fetchrow_array) {
+        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</span> ".
-                "<span".($listmeo2 ? ' class=b2org' : '').">$org2</span>\n";
+                "><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";