Changeset 48 for trunk

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

Location:

trunk

Files:

• dns.cgi (modified) (1 diff)
• templates/dns.css (modified) (2 diffs)
• templates/whois.tmpl (deleted)
• templates/whoisq.tmpl (added)

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') {

trunk/templates/dns.css

@@ -52 +52 @@
         background-color: #CCCCCC;
         padding: 3px;
+        text-align: left;
 }
 tr.darkrowheader {
@@ -59 +60 @@
 tr.datalinelight {
         background-color: #F0F0F0;
+        text-align: left;
 }