All pastes #173804 Raw Edit

Untitled

public text v1 · immutable
·published 2006-09-17 08:01 UTC
rendered paste body
proc unregchan {chan} {
  global srv sql
  mysqluse $sql(hand) $sql(db)

  foreach a [mysqlsel $sql(hand) "SELECT chan_owner FROM oper_module_regchan;" -flatlist] {

  if {![catch {mysqlexec $sql(hand) "DELETE FROM oper_module_regchan WHERE chan_name = '$chan';"} err]} {

    putlink "MODE $chan -ntispm"
    putserv "PART $chan"
    return 1
  }
  return 0
}