- Timestamp:
- 01/19/10 16:42:34 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dnsbl/dnsbl.cgi
r11 r14 141 141 $out .= " <div class=iplist>\n"; 142 142 while (my @data4 = $sthiplist->fetchrow_array) { 143 $out .= " $data4[0]<br>\n"; 143 # ip | count | s4list | added 144 $out .= " $data4[0] ($data4[1])<br>\n"; 144 145 $ipseen{$data4[0]} = 1; 145 146 } … … 152 153 $out .= " <div class=iplist>\n"; 153 154 while (my @data4 = $sthiplist->fetchrow_array) { 154 $out .= " $data4[0]<br>\n"; 155 # ip | count | s4list | added 156 $out .= " $data4[0] ($data4[1])<br>\n"; 155 157 $ipseen{$data4[0]} = 1; 156 158 } … … 169 171 $out .= " <div class=iplist>\n"; 170 172 foreach (@newips) { 171 $out .= " $_ <br>\n";173 $out .= " $_ ($ipseen{$_})<br>\n"; 172 174 } 173 175 $out .= " </div>\n"; … … 180 182 $out .= " <div class=iplist>\n"; 181 183 while (my @data4 = $sthiplist->fetchrow_array) { 182 $out .= " $data4[0]<br>\n"; 184 # ip | count | s4list | added 185 $out .= " $data4[0] ($data4[1])<br>\n"; 183 186 $ipseen{$data4[0]} = 1; 184 187 }
Note:
See TracChangeset
for help on using the changeset viewer.