Untitled

proc load_array_channels {ctime} {
  global srv sql modesArray
  mysqluse $sql(hand) $sql(db)
  set tmp [mysqlsel $sql(hand) "SELECT chan_name,chan_reason FROM oper_module_killchan;" -flatlist]
  if {$tmp ne ""} {
  	foreach {a b} $tmp {
    	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"
  	}	
  }
	set tmp [mysqlsel $sql(hand) "SELECT ctcp_reply,ctcp_reason FROM ctcp_module;" -flatlist]
  if {$tmp ne ""} {  
  	foreach a $tmp {
	    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."
  }
}