I did these a while ago, someone else might find them useful. Basically, a new menu called Tools with a bunch of different sites that you can use to do traceroutes, whois, etc.
Any improvements, let me know.
in menus.cfg
-------------------------
Tools {
macros(search_rbcheckcgi)
macros(search_openrbl)
-
macros(do_traceroute_sjc)
macros(do_traceroute_telstra)
macros(do_traceroute_abovenet)
-
macros(do_dns_trace)
macros(dnsreport)
-
macros(search_freshmeat)
-
macros(whois_geektools)
-
macros(netcalc)
}
in macros.cfg
-------------------------
search_rbcheckcgi {
menu=Search DNSbl (Osirusoft)
$ipaddr = prompt("Enter IP to check in DNSbl at Osirusoft:", "Search DNSbl");
$ipaddrurl = "
http://relays.osirusoft.com/cgi-bin/rbcheck.cgi?addr=" . $ipaddr
open($ipaddrurl);
}
search_openrbl {
menu=Search DNSbl (OpenRBL)
$ipaddr = prompt("Enter IP to check in DNSbl at OpenRBL:", "Search DNSbl");
$ipaddrurl = "
http://openrbl.org/lookup.php?i=" . $ipaddr
open($ipaddrurl);
}
do_dns_trace {
menu=Do DNS Trace
$dns = prompt("Enter domain/hostname to trace:", "DNS Trace");
$dnsurl = "
http://n3dst4.com/network/dnstrace?domain=" . $dns
open($dnsurl);
}
do_traceroute_sjc {
menu=Do Traceroute (Genuity SJC)
$trace = prompt("Enter hostname/ip to trace to:", "Traceroute (SJC)");
$traceurl = "
http://netperformance.genuity.com/traceroute.jsp?source=5&target=" . $trace
open($traceurl);
}
do_traceroute_telstra {
menu=Do Traceroute (Telstra)
$trace = prompt("Enter hostname/ip to trace to:", "Traceroute (Telstra)");
$traceurl = "
http://www.telstra.net.au/cgi-bin/trace?" . $trace
open($traceurl);
}
do_traceroute_abovenet {
menu=Do Traceroute (AboveNet)
$trace = prompt("Enter hostname/ip to trace to:", "Traceroute (AboveNet)");
$traceurl = "
http://www.above.net/cgi-bin/trace?" . $trace
open($traceurl);
}
search_freshmeat {
menu=Search Freshmeat
$frshmeat = prompt("Enter program name/project name to find at Freshmeat:", "Search Freshmeat");
$frshmeaturl = "
http://freshmeat.net/search/?q=" . $frshmeat
open($frshmeaturl);
}
whois_geektools {
menu=Whois (Geektools)
$whois = prompt("Enter the domain to do a whois on:", "Whois (Geektools)");
$whoisurl = "
http://www.geektools.com/cgi-bin/proxy.cgi?query=" . $whois . "&targetnic=auto"
open($whoisurl);
}
netcalc {
menu=NetCalc
$netcalc = prompt("Enter the ip/netmask to check (ie: 10.0.0.1, 10.0.0.0/8, 10.0.0.0/255.0.0.0, or 10.0.0.1-10.1.1.1)");
$netcalcurl = "
http://logi.cc/nw/NetCalc.php3?ACTION=doCalc&IPADDR=" . $netcalc
open($netcalcurl)
}
dnsreport {
menu=DNS Report
$dnsrep = prompt("Enter the domain name you wish to test:");
$dnsrepurl = "
http://www.dnsreport.com/tools/dnsreport.ch?domain=" . $dnsrep
open($dnsrepurl)
}
Brian Bruns
http://www.2mbit.com
bruns@2mbit.com