this code my friands from mircx :) enjoy friands
alias walla sockopen walla news.walla.co.il 80
on *:sockopen:walla:{
window -e @walla
var %a = sockwrite -n $sockname
%a GET / HTTP/1.1
%a Host: news.walla.co.il
%a Keep-Alive: 300
%a Connection: keep-alive
%a
}
on *:sockread:walla:{
var %data
sockread %data
while $sockbr {
if %walla {
noop $regex(%data,/<span class=w1>(.+?)<\/span>/)
var %time = $regml(1)
noop $regex(%data,/<span><a href="(.+?)" .+?>(.+?)<\/a>/)
var %link = http://news.walla.co.il/ $+ $regml(1)
if $regml(2) != %news {
set %news $regml(2)
msg #J_Bot $remove(Walla NewsFlash: %News %Link,$chr(13))
}
}
if <div id="gNewsA"> == %data { set %walla 1 }
sockread %data
}
}