Unnamed

proc pub:help {nick host hand chan arg} {
puthelp "NOTICE $nick :Ports search Help:"
puthelp "NOTICE $nick :!portfind/!eix = Find the port"
}

proc pub:portfind {nick host hand chan text} {
global portsearch ilmoitus channels nimet rest
        puthelp "PRIVMSG $chan :Please wait, searching.."
        #puthelp "PRIVMSG $chan :[expr {[catch {eval exec $portsearch $text} error]?"$portsearch couldn't be run! ([string totitle $error]).":"[catch {eval exec $portsearch $text}$
        puthelp "[expr {[catch {eval exec $portsearch $text} error]?"$portsearch couldn't be run! ([string totitle $error]).":"[catch {eval exec $portsearch $text} port]"}]" 
        foreach line [lrange [split $port \n] 0 1] {puthelp "PRIVMSG $channels: $line"}
        #puthelp "PRIVMSG $channels :[lindex $line 0]"



#if { $channels == "" } {
#foreach n [channels] {
#puthelp "PRIVMSG $n :$portsearch"
#}
#return 0
#}


#foreach channel $channels {
#puthelp "PRIVMSG $channel :$portsearch"
#}


}



putlog "FreeBSD Ports search script loaded"