proc grabNames {chan} {
    return; #command to send to the server: NAMES $chan
}

proc isOP {chan nick} {
    set lnames grabNames{$chan};            #grab our names to search through
    set search *@;                          #start of the search string
    append search $nick *;                  #finish the search string: "*@nickname*"
    return string match $search $lnames;    #return true or false if the nick is an OP
}


#Format:
#NAMES #spiritclan
#:irc.toribash.com 353 voxb @ #spiritclan :voxb @Vox isxiz
#:irc.toribash.com 366 voxb #spiritclan :End of /NAMES list.