set chans "#aliasfm"   ??? hvor bruger du chans henne ???
set authppl "lars jens hans"
set mynewtext6 "Adgang"

proc pub_admin {nick uhost and chan text} {
  global mynewtext6
  if {[lsearch [string tolower $::authppl] [string tolower $nick]]} {
    putserv "PRIVMSG $chan :$nick $mynewtext6"
  } else { 
    putserv "PRIVMSG $chan :$nick is not authorized to use this" 
  }
}