#---------------------------------------------------------------------
# Noparty
# This script disallows partyline access from IRC through: 
# "/dcc chat" "/ctcp chat"
# Partyline access through telnet is still available.
# v0: 31-Jan-2002
#---------------------------------------------------------------------

bind ctcp - dcc nopartyline
bind ctcp - chat nopartyline

proc nopartyline { nick uhost handle dest keyword arg } {
   # log the ctcp attempt
   putlog "NOPARTY: CTCP ($keyword) from $nick!$uhost ($handle): $arg"
   # if it is a known user...
   if { $handle != "*" } {
      puthelp "NOTICE $nick :Party line is closed."
   }
   # disallow by returning "1"
   return 1
}

putlog "Loaded (version 0): Noparty."