Anonymous

proc unregchan {chan nick} {
  global srv sql
  mysqluse $sql(hand) $sql(db)
  if {[mysqlexec $sql(hand) "DELETE FROM oper_module_regchan WHERE chan_name = '$chan' AND chan_owner = '$nick';"]} {
    putlink "MODE $chan -ntispm"
    putserv "PART $chan"
    return 1
  }
  return 0
}

proc unregchan_handle_msg {nick host hand arg} {
  global botnick
  if {[llength $arg] != 1} {
    putserv "NOTICE $nick :Invalid arguments. /msg $botnick help unregchan"
  } else {
    if {[unregchan [lindex $arg 0] $nick]} {
      putserv "NOTICE $nick :Unregistered channel."
    } else {
      putserv "NOTICE $nick :Failed to unregister channel, please contact an operator."
    }
  }
}