Index: openacs-4/packages/xotcl-request-monitor/www/ip-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/ip-info.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xotcl-request-monitor/www/ip-info.tcl	21 Mar 2015 15:10:17 -0000	1.1.2.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+  Displays information about an ip address
+
+    @author Gustaf Neumann 
+
+    @cvs-id $id$
+} -query {
+    {ip}
+} -properties {
+    title:onevalue
+    context:onevalue
+}
+
+set title "IP Lookup"
+set context [list $title]
+
+if {[catch {set dns_name [ns_hostbyaddr $ip]}]} { set dns_name "DNS lookup for $ip failed" } 
+