bind pub - .nmap port_scan
proc port_scan {nick uhost handle chan args} {
       putserv "PRIVMSG $chan :4- Scanning... 04$args"
       global data_var
       set data_var [exec nmap $args]
       set l [split $data_var "\r\n"]
       foreach i $l { puthelp "PRIVMSG $chan :4- $i " }
       putlog "<<$chan>> !$handle! !nmap"
}
putlog "nmap loaded"