#by wiebe @ QuakeNet

bind time - "* * * * *" console-ping

proc console-ping { mi ho da mo ye } {
  if { [lsearch -exact "00 03 06 09 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57" $mi] == "-1" } { return 0 }
  putloglev 1 * "PING (unset console mode 1 to disable)"
}