trenger da ikke det..
Redigert text er merket med [ b][ /b]
on *:connect: { if (%s.kanal) { .timerTVGuide 0 60 tvguide | tvguide } }
alias tvguide {
if ($sock(tvguide)) { sockclose tvguide }
sockopen tvguide ontv.dk 80
}
on *:sockopen:tvguide: {
sockwrite -n $sockname GET /rss/ HTTP/1.1
sockwrite -n $sockname Host: ontv.dk $+ $crlf $+ $crlf
}
on *:sockread:tvguide: {
if ($exists(tv.ini) == $false) { set -u5 %s.new 1 }
if ($sockerr) { halt }
else {
var %s.data
sockread %s.data
if (<title> isin %s.data) {
set %s.title $remove(%s.data,<title>,</title>,$chr(13))
set %s.name $remove($gettok(%s.title,1,93),[,$chr(32))
set %s.text $gettok(%s.title,2,93)
if ($findtok(%s.channels,%s.name,44)) {
if (%s.new) && (%s.text) && (%s.name) { writeini tv.ini tv %s.name %s.text }
if ($remove(%s.text,$chr(32)) != $remove($readini(tv.ini,tv,%s.name),$chr(32))) && (!%s.new) && (%s.text) {
writeini tv.ini tv %s.name %s.text
if ($remove($gettok(%s.title,1,93),[) == %s.lastoutput) {
goto end
}
else {
msg %s.kanal 7( $+ $time(HH:nn) $+ ) $+ $remove($gettok(%s.title,1,93),[) $+ @ $readini(tv.ini,tv,%s.name) 7
set %s.lastoutput $remove($gettok(%s.title,1,93),[)
}
}
}
}
}
:end
}
}