menu channel {
Get News: /sockopen news home.no 80
}
on 1:SOCKOPEN:news: {
if ($sockerr) {
/beep 5 100
/did -ra kt_scast 40 Server Is Down
}
else {
/sockwrite -n $sockname GET /reactor/news.txt HTTP/1.0
/sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
/sockwrite -n $sockname Accept-Language: en-us
/sockwrite -n $sockname Accept-Encoding: gzip, deflate
/sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
/sockwrite -n $sockname Host: $sock(shout).ip $+ : $sock(shout).port
/sockwrite -n $sockname Connection: Keep-Alive
/sockwrite -n $sockname
}
if ($isFile(news.txt)) { .remove news.txt }
}
on 1:SOCKREAD:news: {
/sockread -f 5000 &news
/bwrite news.txt -1 -1 &news
}
on 1:SOCKCLOSE:news: {
/set -u0 %lastupdate $gettok($read(news.txt, 4), 2, $asc(:))
/echo -a NEWS (Posted On %lastupdate $+ ): $read(news.txt, $lines(news.txt))
}