on *:TEXT:!security:#: { /msg $chan %tag security.nl News: %news.security.title Link: %news.security.link } }
alias security {
write -c security.txt
sockopen security www.security.nl 80
}
on *:sockopen:security:{
sockwrite -n $sockname GET http://www.security.nl/headlines.php
}
on *:sockread:security:{
if ($sockerr) { return }
:read
sockread &security
bwrite security.txt -1 -1 &security
if ($sockbr) { goto read }
}
on *:sockclose:security:{
if ($regex(title,$read(security.txt,24),<title>(.*)</title>)) && ($regex(link,$read(security.txt,25),<link>(.*)</link>)) {
set %news.security.update $ctime
if ($regml(title,1) != %news.security.title) && ($regml(link,1) != %news.security.link) {
set %news.security.title $regml(title,1)
set %news.security.link $regml(link,1)
.msg %news.security.chans Security.nl News: $regml(title,1) Link: $regml(link,1)
}
}
}