Changeset 48 for trunk/dns.cgi

Timestamp:

12/10/09 16:24:55 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

WHOIS query is functional - requires Net::Whois::Raw and Text::Wrap (idjit

WHOIS servers return (very-)long-line respones sometimes)

Added proper template for WHOIS, removed copy-of-VegaDNS-output version

File:

• trunk/dns.cgi (modified) (1 diff)

trunk/dns.cgi

@@ -639 +639 @@
   }
 
-} elsif ($webvar{page} eq 'whois') {
+} elsif ($webvar{page} eq 'whoisq') {
+
+  if ($webvar{qfor}) {
+    use Net::Whois::Raw;
+    use Text::Wrap;
+
+# caching useful?
+#$Net::Whois::Raw::CACHE_DIR = "/var/spool/pwhois/";
+#$Net::Whois::Raw::CACHE_TIME = 60;
+
+    my ($dominfo, $whois_server) = whois($webvar{qfor});
+##fixme:  if we're given an IP, try rwhois as well as whois so we get the real final data
+
+    # le sigh.  idjits spit out data without linefeeds...
+    $Text::Wrap::columns = 88;
+
+# &%$@%@# high-bit crap.  We should probably find a way to properly recode these instead of one-by-one.
+# Mainly an XHTML validation thing.
+    $dominfo =~ s/\xa9/\©/g;
+    $dominfo =~ s/\xae/\®/g;
+
+    $page->param(qfor => $webvar{qfor});
+    $page->param(dominfo => wrap('','',$dominfo));
+    $page->param(whois_server => $whois_server);
+  } else {
+    $page->param(errmsg => "Missing host or domain to query in WHOIS") if $webvar{askaway};
+  }
 
 } elsif ($webvar{page} eq 'log') {