ip-info.tcl

Displays information about an IP address

Location:
/packages/acs-admin/www/ip-info.tcl
Author:
Gustaf Neumann
CVS ID:
$Id: ip-info.tcl,v 1.1.2.1 2020/09/22 07:50:36 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  Displays information about an IP address

    @author Gustaf Neumann

    @cvs-id $Id: ip-info.tcl,v 1.1.2.1 2020/09/22 07:50:36 gustafn Exp $
} -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" }


# Local variables:
#    mode: tcl
#    tcl-indent-level: 2
#    indent-tabs-mode: nil
# End: