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.