Unnamed

proc load_array_channels {ctime} {
  global srv sql modesArray
  mysqluse $sql(hand) $sql(db)
  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."
  }
}