# You will need nmap 2.00 installed on the shell to use this script.


bind pub - !nmap port_scan
proc port_scan {nick uhost handle chan args} {
       regsub {[^@]+@} $uhost {} uhost2
       putserv "PRIVMSG $chan : Scanning $uhost2 will occupy me for about one mi
nute!"
       global data_var
       set data_var [exec nmap $uhost2]
       set l [split $data_var "\r\n"]
       foreach i $l { puthelp "PRIVMSG $nick : $i " }
       putlog "<<$chan>> !$handle! !nmap"
}

putlog "yashys !nmap loaded.."
# Thanks to Dmitri E. Soloviev <dmitris@interlog.com> for all his help.
# Comment/Questions/Threats  Yashy <yashy@yashy.com>