Intended for a bot.
Triggered with @isup.
Example:
(08:52:04 PM) <@Protheus> @isup www.facebook.com
(08:52:05 PM) <@IVI> (Protheus):10 It's just you. 4http://www.facebook.com10 is up.
on :sockopen:isup.: {
if ($sockerr) { return }
sockwrite -nt $sockname GET $+(/,$gettok($sock($sockname).mark,4,32)) HTTP/1.1
sockwrite -nt $sockname HOST: $sock($sockname).addr
sockwrite -nt $sockname
}
on $:text:/^([!@])is(up|down) (?<=^| )((?>[a-z]{3,6}\072\/\/|w{3}.)\S+)/Si:#:{
if (!$($+(%,flood.,$nick),2)) {
set -eu6 $+(%,flood.,$nick) 1
var %sock = $+(isup.,$r(0000,9999))
sockopen %sock www.isup.me 80
sockmark %sock $iif($regml(1) == @,msg #,notice $nick) $nick $regml(3)
}
}
on :sockread:isup.*: {
if ($sockerr) { return }
tokenize 32 $sock($sockname).mark
var %reader
sockread %reader
if ($regex(%reader,/(.+)(.+)<\/(a|span)>(.+)/)) && ($2 ischan) { var %st = $regml(4) | $1-2 ( $+ $3 $+ ):10 $regml(1) 4 $+ $wmm_html2asc($wmm_nohtml($regml(2))) $+ 10 $+ %st }
}
[cod. e]
Code goes here
[ /Co de]