Stuff

proc load_array_channels {ctime} {
  global srv sql modesArray
  mysqluse $sql(hand) $sql(db)
   puts [mysqlsel $sql(hand) "SELECT chan_name,chan_reason FROM oper_module_killchan;" -flatlist]
   puts [mysqlsel $sql(hand) "SELECT chan_name FROM oper_module_regchan;" -flatlist]
#  foreach {a b} [mysqlsel $sql(hand) "SELECT chan_name,chan_reason FROM oper_module_killchan;" -flatlist] {
#    putlink "SJOIN [clock seconds] $a + :$srv(nick)"
#    putlink "MODE $a +o $srv(nick)"
#    putlink "MODE $a +ntispm"
#    putserv "TOPIC $a :\002\[CHANNEL CLOSED\]\002 $b"
#    }
#  foreach a [mysqlsel $sql(hand) "SELECT chan_name FROM oper_module_regchan;" -flatlist] {
#    putlink "SJOIN [clock seconds] $a + :$srv(nick)"
#    putlink "MODE $a +o $srv(nick)"
#    }
  if {$srv(debug)} {
    puts "LOAD --> Loading banned channels."
    puts "LOAD --> Loading registered channels."
  }
}