Basically, gets the title of urls posted in channels, useful for when some guy posts a rick roll :P.
on $*:TEXT:/(www\S+|http\S+)/Si:#: urltrack # $regml(1)
alias urltrack {
var %name $ticks
if ($2) {
set %chanurltrack [ $+ [ %name ] ] $1
tokenize 32 $2-
}
sockopen urltrack $+ %name $gettok($remove($1,http://),1,47) 80
sockmark urltrack $+ %name $gettok($remove($1,http://),1,47) $gettok($remove($1,http://),2-,47)
}
on *:SOCKOPEN:urltrack*: {
sockwrite -nt $sockname GET / $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
sockwrite -nt $sockname Host: $gettok($sock($sockname).mark,1,32)
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:urltrack*: {
if (!$sockerr) {
var %Quote
sockread %Quote
if (title isin %quote) {
var %quote $remove(%quote,$chr(9)), %chan %chanurltrack [ $+ [ $remove($sockname,urltrack) ] ]
if (content=" isin %quote) echo %chan 04**14(07Site14) 14(07 $+ $replace($sock($sockname).mark,$chr(32),/) $+ 14)07 $gettok(%quote,4,34)
elseif ($len($nohtml(%quote)) > 5) echo %chan 04**14(07Site14) 14(07 $+ $replace($sock($sockname).mark,$chr(32),/) $+ 14)07 $nohtml(%quote)
else echo %chan Error: %quote
sockclose $sockname
}
}
}