Untitled

alias tv {
  set %tvrage.temp $replace($1-,$chr(32),+)
  sockopen tvrage http://www.tvrage.com 80
}
on *:sockopen:tvrage:{
  echo lala
  sockwrite -n $sockname GET http://www.tvrage.com/quickinfo.php?show= $+ %tvrage.temp
  echo lala2
}
on *:sockread:tvrage:{
  if ($sockerr) {
    echo -a Error opening tvrage socket.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    ; window @tvrage
    tv_rage $replace($replace(%temptext,@,$chr(32)),^,$chr(32))
  }
}
alias tv_rage {
  if (No Show == $1-2) {
    ;  aline -ap @tvrage No show information found.
  }
  if (Show Name == $1-2) {
    ;   aline -ap @tvrage Show Name: $3-
    /set %rage.show $3-
  }
  if (Show URL == $1-2) {
    ;    aline -ap @tvrage Show URL: $3-
  }
  if (Premiered == $1) {
    ;    aline -ap @tvrage Premiered: $2
    /set %rage.start  $+ $2
  }
  if (Episode == $2) {
    var %ep $3
    var %date $gettok($1-,-1,32)
    var %name $remove($3-, $+ %ep $+ , $+ %date $+)
    if (Latest == $1) {
      ;      aline -ap @tvrage Latest Show: %ep - %name - %date
      /set %rage.ep %ep
      /set %rage.ep.series $gettok(%rage.ep,1,120)
      /set %rage.ep.eps $gettok(%rage.ep,2,120)
    }
    if (Next == $1) {
      ;      aline -ap @tvrage Next Show:  %ep - %name - %date
    }
  }
  if (Country == $1) {
    ;    aline -ap @tvrage Country: $2-
    /set %rage.country $2-
    if ( United Kingdom == %rage.country ) /set %rage.country = UK
  }
  if (Status == $1) {
    ;    aline -ap @tvrage Status: $2-
  }
  if (Classification == $1) {
    ;    aline -ap @tvrage Classification: $2-
    /set %rage.type  $+ $2-
    unset %rage.warn
    if ( * $+ %rage.ep.series $+ * $+ %rage.ep.eps $+ * !iswm %release ) /set %rage.warn 4EPS MISMATCH
    echo -a 4TV %rage.show - $+ %rage.start $+ - %rage.ep %rage.country %rage.type %rage.warn
    /echo 11 $asctime(hh:nn:ss) tvrage end %section %add-release rel %release

    ;    unset %rage.show %rage.ep %rage.country %rage.type
  }
}