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
}