Website Up/Down Checker for Konrado v1.0

ON $*:TEXT:/^([!@])is(up|down) (?<=^| )((?>[a-z]{3,6}\072\/\/|w{3}\.)\S+)/Si:#:{
  if ($hget(ISUP_FLOOD,$nick)) { return }

  if ($regml(1) == !) { var %output = notice $nick }
  if ($regml(1) == @) { var %output = msg $chan }

  hadd -mu6 ISUP_FLOOD $nick 1

  var %t = $regml(3)
  var %v = isup_ $+ $rand(1,1000000000000000)

  jsonopen -Udi %v %t

  if ($jsonerror) { %output ( $+ $nick $+ ): Website $qt(%t) is down! | return }

  var %r = $json(%v).httpstatustext

  if (%r !== OK) { %output ( $+ $nick $+ ): Website $qt(%t) is down right now! | return }

  %output ( $+ $nick $+ ): Website $qt(%t) is up and running.
}