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 -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/xotcl-request-monitor/www/ip-info.tcl	8 Nov 2020 14:03:01 -0000	1.4.2.2
+++ openacs-4/packages/xotcl-request-monitor/www/ip-info.tcl	22 Mar 2021 08:25:52 -0000	1.4.2.3
@@ -14,9 +14,18 @@
 set title "IP Lookup"
 set context [list $title]
 
-if {[catch {set dns_name [ns_hostbyaddr $ip]}]} { set dns_name "DNS lookup for $ip failed" }
+set admin_p [acs_user::site_wide_admin_p]
+if {!$admin_p} {
+  ad_return_warning "Insufficient Permissions" \
+      "Only side wide admins are allowed to view this page!"
+  ad_script_abort
+}
 
+if {[catch {set dns_name [ns_hostbyaddr $ip]}]} {
+  set dns_name "DNS lookup for $ip failed"
+}
 
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 2