nmap.tcl

bind pub - !nmap port_scan
proc port_scan {nick uhost handle chan args} {
   global progress
   if {$args == ""} { putserv "PRIVMSG $chan :Error. No arguments specified."; return }
   if {[info exists progress]} { putserv "PRIVMSG $chan :nmap in progress please wait to finish.."; return }
putserv "PRIVMSG $chan : Scanning...... $args wait................!!"
putlog "<<$chan>> !$handle! !nmap"
set progress 1
set data_var [exec nmap -T4 -F -Pn $args]
set l [split $data_var "\r\n"]
foreach i $l { puthelp "PRIVMSG $chan : $i " }
set progress 0
}