socket rss problem

alias bt-rss {
if ($sock(bt-rss)) { sockclose bt-rss }
sockopen bt-rss bt.dk 80
}
on *:sockopen:bt-rss: {
sockwrite -n $sockname GET /nyheder/seneste/rss HTTP/1.1
sockwrite -n $sockname Host: bt.dk $+ $crlf $+ $crlf
}
on *:sockread:bt-rss: {
if ($sockerr) { halt }
else {
var %s.data
sockread %s.data
if (<item> isin %s.data) { set %s.item 1 }
if (<title> isin %s.data) || (<link> isin %s.data) && (%s.item) {
set %d. [ $+ [ $remove($gettok(%s.data,-1,60),$chr(47),$chr(62)) ] ] $remove(%s.data,<title>,</title>,<link>,</link>)
}
if (%d.title) && (%d.link) {
echo -a Nyhed: %d.title »  $+ $remove(%d.link,$chr(32)) $+
unset %s.* %d.*
sockclose $sockname
}
}
}