# Simple functions to open/control a "debug" window, which shows all raw input
# coming from the server(s).

# Author: Wizzu <wiz@iki.fi>
# Date: 5-Sep-1996 (this script)

alias debugoff {
  on #raw_irc -1018 -*
  on #^input -1018 -*
  ^set input_protection on
}
alias debugon {
  ^set input_protection off
  on #^raw_irc -1018 * xecho -level userlog4 -window Debug \$0-
  on #^input -1018 * xecho -level userlog4 -window Debug >> \$0-
}
alias debugwin {
  window new level userlog4 name Debug
  debugon
}
alias closedebug {
  win show Debug
  debugoff
  win kill
}
alias nodebug closedebug
alias dbwin debugwin
alias dbclose closedebug
alias dbon debugon
alias dboff debugoff

eval xecho -level crap ### Debug window by Wizzu, 5-Sep-1996.  ${K}dbwin, ${K}dbclose, ${K}dbon, ${K}dboff