Changeset 64 for trunk

Timestamp:

12/29/17 11:41:22 (7 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Add reverse DNS lookup of submitted IP

Location:

trunk/dnsbl

Files:

• dnsbl.cgi (modified) (2 diffs)
• templates/report.tmpl (modified) (1 diff)

trunk/dnsbl/dnsbl.cgi

@@ -25 +25 @@
 use CGI::Simple;
 use HTML::Template;
+use Net::DNS;
 
 use DNSBL;
@@ -102 +103 @@
   $webvar{ip} =~ s/\s*$//;
   $page->param(ip => $webvar{ip});
+
+##fixme
+# at some point this may need to be tweaked for Net::DNS's 1.x calling convention when they drop support for the older one
+  #my @ptr = rr($webvar{ip});
+  #$page->param(revinfo => join(',',@ptr));
+  my $res = new Net::DNS::Resolver;
+  $res->tcp_timeout(2);    # make me adjustable!
+  $res->udp_timeout(2);    # make me adjustable!
+  my $query = $res->query($webvar{ip}, "PTR");
+  if ($query) {
+    my @rdata;
+    foreach my $rr ($query->answer) {
+      my ($host,$ttl,$class,$type,$data) =
+        ($rr->string =~ /^([0-9a-zA-Z_.-]+)\s+(\d+)\s+([A-Za-z]+)\s+([A-Za-z]+)\s+(.+)$/s);
+      push @rdata, $data;
+    }
+    $page->param(revinfo => join(', ',@rdata));
+  } else {
+    $page->param(revinfo => "DNS error: ".$res->errorstring);
+  }
+
   my $count = $dnsbl->ipexists($webvar{ip});
   $page->param(nreports => $count) if $count;

trunk/dnsbl/templates/report.tmpl

@@ -12 +12 @@
 <td>(reported <TMPL_VAR NAME=nreports> time(s))</TMPL_IF></td>
 <td><a href="<TMPL_VAR NAME=dnsblsiteroot>">Back</a></td></tr>
+<tr><td colspan="3"><TMPL_VAR NAME=revinfo></td></tr>
+
 <form action="dnsbl.cgi">
 <input type=hidden name=page value=dbreport>