package require http


bind pub -|- .cservice checkcsc:time


proc checkcsc:time {nick host hand chan arg} {
  if {$hand!="*"&&[matchattr $hand X]} { checkcsc $nick $host $hand $chan $arg ; return }
  set xname [lindex [split [set xhost [lindex [split $host "@"] 1]] "."] 0]
  # don't execute.
  if {![string match -nocase "*.users.undernet.org" $xhost]} { putserv "notice $nick :You have to be authenticated to X, and have +x to be able to use this command" ; return }
  if {[info exists ::noexecute] && $::noexecute==1  } {return}
  if {[info exists ::ign($xname)]&& $::ign($xname)==1 } {return}
  # passed those... execute:
  #  the 10 minute cooldown:
  set ::noexecute 1
  set ::ign($xname) 1
  timer 10 [list set noexecute 0]
  timer 60 [list unset -nocomplain ign($xname)]
  putserv "privmsg $chan :.cservice is disabled for the next 10 minutes"
  checkcsc $nick $host $hand $chan $arg
}

proc checkcsc {nick host hand chan arg} {