Kirby commented on a Page, Down for everyone or just me?  -  Jul 24, 2009

Something like this Cheiron?

on $*:text:/^[.!@]check*/Si:#: {
  if ($sock(check)) { sockclose check }
  sockopen check www.downforeveryoneorjustme.com 80
  sockmark check $$2 # $nick
}
on *:sockopen:check: {
  sockwrite -n $sockname GET $+(/,$gettok($sock(check).mark,1,32)) HTTP/1.1
  sockwrite -n $sockname Host: www.downforeveryoneorjustme.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:check: {
  var %x | sockread %x
  if ($regex(%x,(.+)<a href="(.+)"\sclass="domain">.+<\/a>(.+))) {
    tokenize 32 $sock(check).mark
    msg $2 $+($3,:) $regsubex($+($regml(1),,$regml(2),,$regml(3)),/(<[^>]*>)/g,)
  }
}

[size=14]Syntax: .check [/size]

Intended for a bot...renamed the sock name...

..and thank you.

I wanted this to be simple, for personal use, rather than bot use. Otherwise, use the code above.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.