on *:TEXT:tv:#titney: tvsmid #titney
alias tvsmid {
unset %tvscript.*
set %tvscript.chan #titney
sockopen tv www.tvprogram.nu 80
unset %output
.timertv 1 10 tv.timeout
}
alias tv.timeout {
set %tvscript.timeout 1
sockclose tv
}
on *:sockclose:tv:{
.timertv off
unset %tvscript.*
}
on *:sockopen:tv:{
sockwrite -tn tv GET http://www.tvprogram.nu/cgi-tvprogram/tvprogramnu.cgi
}
on *:sockread:tv:{
sockread %tvscript.svar
set %tvscript.svar $remove(%tvscript.svar,;syncronize reciever)
set %tvscript.svar $remove(%tvscript.svar, $cr, $lf)
set %tvscript.svar $replace(%tvscript.svar,å,a,ä,a,ö,o,Å,A,Ä,A,Ö,o)
msg %tvscript.chan %tvscript.svar $chan
}