Unnamed

if { $disable(sl) == 0 } {
    bind pub -|- "!sl" sl

    proc sl { nick host handle channel arg } {
        global db cmdpre vers outprefix disable

        set sl [lrange $arg 0 end]
        if { [llength $arg] > 0 } {
            set db_handle [mysqlconnect -host $db(HOST) -user $db(USER) -password $db(PASS) -db $db(NAME)]
            set sql "SELECT shortname FROM $db(TABLE) WHERE channel='$channel' AND ("
            set options "Currently Searching: "
            {
                append sql "location LIKE '%$search%' OR "
                append options "Location, "
            }
            set lenoptions [string length $options]
            set lenoptions [expr $lenoptions - 3]
            set lensql [string length $sql]
            set lensql [expr $lensql - 5]
            set options [string range $options 0 $lenoptions]
            set sql [string range $sql 0 $lensql]
            append sql ")"

            if { $disable(DEBUG) == 0 } {
                putlog "$vers: Executing $sql"
            }
            putserv "PRIVMSG $channel :$outprefix $options"

            if { [mysqlsel $db_handle $sql] == 0 } {
                putserv "PRIVMSG $channel :$outprefix No results found!"
                mysqlclose $db_handle
                return 0
            }
           }
            mysqlmap $db_handle {sname} {
                append newsname " $sname"
            }
            putserv "PRIVMSG $channel :$outprefix $newsname contains Search results"
            mysqlclose $db_handle
        } else {
            putserv "PRIVMSG $channel :Usage: [set cmdpre]search <text>"
        }
    }
}



basically 
!sl NL
Returns; SEARCH -> NL site(s) A AB ABC