TV Gids for Borreltje v2.0

ON *:TEXT:!tvgids:#: {
  if (%tvgid_ [ $+ [ $chan ] ]) { return }
  var %s = tvgids_ $+ $ticks $+ _ $+ $rand(1,1000000)
  if ($sock(%s)) { sockclose }
  .msg $chan [ $+ $nick $+ ]: TV Gids Nu & Straks
  set -eu20 %tvgid_ [ $+ [ $chan ] ] $nick $ctime
  sockopen %s www.veronicamagazine.nl 80
  sockmark %s $nick $chan
}

ON *:SOCKOPEN:tvgids_*: {
  if ($sockerr) {
    var %c = $gettok($sock($sockname).mark,2,32)
    var %n = $gettok($sock($sockname).mark,1,32)
    if ($me ison %c) { .msg %c [ $+ %n $+ ]: Error, There was an connection problem to the website! - (Error Code:  $+ $sock($sockname).wserr $+ ) - (Error Messsage:  $+ $sock($sockname).wsmsg $+ ) }
    sockclose $sockname
    return
  }
  sockwrite -nt $sockname GET /google-gadget/tab_nuoptv.php HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -nt $sockname $crlf
}

ON *:SOCKREAD:tvgids_*: {
  if ($sockerr) {
    var %c = $gettok($sock($sockname).mark,2,32)
    var %n = $gettok($sock($sockname).mark,1,32)
    if ($me ison %c) { .msg %c [ $+ %n $+ ]: Error, There was an connection and reading problem to the website! - (Error Code:  $+ $sock($sockname).wserr $+ ) - (Error Messsage:  $+ $sock($sockname).wsmsg $+ ) }
    sockclose $sockname
    return
  }
  var %r
  sockread %r
  ; echo -a READ: %r
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('NL1');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %nl1_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read) {
    var %now = $httpstrip(%r)
    set -e %nl1_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read) {
    var %later = $httpstrip(%r)
    set -e %nl1_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %nl1_ [ $+ [ $sockname ] $+ ] _station
    var %now = %nl1_ [ $+ [ $sockname ] $+ ] _now
    var %later = %nl1_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %nl1_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('NL2');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %nl2_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read2
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read2) {
    var %now = $httpstrip(%r)
    set -e %nl2_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read2) {
    var %later = $httpstrip(%r)
    set -e %nl2_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read2) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %nl2_ [ $+ [ $sockname ] $+ ] _station
    var %now = %nl2_ [ $+ [ $sockname ] $+ ] _now
    var %later = %nl2_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %nl2_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('NL3');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %nl3_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read3
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read3) {
    var %now = $httpstrip(%r)
    set -e %nl3_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read3) {
    var %later = $httpstrip(%r)
    set -e %nl3_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read3) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %nl3_ [ $+ [ $sockname ] $+ ] _station
    var %now = %nl3_ [ $+ [ $sockname ] $+ ] _now
    var %later = %nl3_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %nl3_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('RT4');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %rt4_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read4
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read4) {
    var %now = $httpstrip(%r)
    set -e %rt4_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read4) {
    var %later = $httpstrip(%r)
    set -e %rt4_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read4) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %rt4_ [ $+ [ $sockname ] $+ ] _station
    var %now = %rt4_ [ $+ [ $sockname ] $+ ] _now
    var %later = %rt4_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %rt4_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('NT5');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %nt5_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read5
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read5) {
    var %now = $httpstrip(%r)
    set -e %nt5_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read5) {
    var %later = $httpstrip(%r)
    set -e %nt5_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read5) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %nt5_ [ $+ [ $sockname ] $+ ] _station
    var %now = %nt5_ [ $+ [ $sockname ] $+ ] _now
    var %later = %nt5_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %nt5_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('SB6');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %sb6_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read6
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read6) {
    var %now = $httpstrip(%r)
    set -e %sb6_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read6) {
    var %later = $httpstrip(%r)
    set -e %sb6_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read6) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %sb6_ [ $+ [ $sockname ] $+ ] _station
    var %now = %sb6_ [ $+ [ $sockname ] $+ ] _now
    var %later = %sb6_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %sb6_ [ $+ [ $sockname ] $+ ] _*
  }

  if (*<div class="station"><a href="#top" onclick="selectStationOverview('VER');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %ver_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read7
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read7) {
    var %now = $httpstrip(%r)
    set -e %ver_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read7) {
    var %later = $httpstrip(%r)
    set -e %ver_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read7) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %ver_ [ $+ [ $sockname ] $+ ] _station
    var %now = %ver_ [ $+ [ $sockname ] $+ ] _now
    var %later = %ver_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %ver_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('RT5');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %rt5_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read8
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read8) {
    var %now = $httpstrip(%r)
    set -e %rt5_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read8) {
    var %later = $httpstrip(%r)
    set -e %rt5_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read8) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %rt5_ [ $+ [ $sockname ] $+ ] _station
    var %now = %rt5_ [ $+ [ $sockname ] $+ ] _now
    var %later = %rt5_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %rt5_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('RT7');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %rt7_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read9
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read9) {
    var %now = $httpstrip(%r)
    set -e %rt7_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read9) {
    var %later = $httpstrip(%r)
    set -e %rt7_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read9) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %rt7_ [ $+ [ $sockname ] $+ ] _station
    var %now = %rt7_ [ $+ [ $sockname ] $+ ] _now
    var %later = %rt7_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %rt7_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('RT8');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %rt8_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read10
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read10) {
    var %now = $httpstrip(%r)
    set -e %rt8_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read10) {
    var %later = $httpstrip(%r)
    set -e %rt8_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read10) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %rt8_ [ $+ [ $sockname ] $+ ] _station
    var %now = %rt8_ [ $+ [ $sockname ] $+ ] _now
    var %later = %rt8_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %rt8_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('MTV');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %mtv_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read11
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read11) {
    var %now = $httpstrip(%r)
    set -e %mtv_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read11) {
    var %later = $httpstrip(%r)
    set -e %mtv_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read11) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %mtv_ [ $+ [ $sockname ] $+ ] _station
    var %now = %mtv_ [ $+ [ $sockname ] $+ ] _now
    var %later = %mtv_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %mtv_ [ $+ [ $sockname ] $+ ] _*
  }
  if (*<div class="station"><a href="#top" onclick="selectStationOverview('CDY');">* iswm %r) {
    var %station = $httpstrip(%r)
    set -e %cdy_ [ $+ [ $sockname ] $+ ] _station %station
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2 read12
  }
  if (*<div class="now">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read12) {
    var %now = $httpstrip(%r)
    set -e %cdy_ [ $+ [ $sockname ] $+ ] _now %now
  }
  if (*<div class="later">* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read12) {
    var %later = $httpstrip(%r)
    set -e %cdy_ [ $+ [ $sockname ] $+ ] _later %later
  }
  if (*<div style="clear: both;"></div>* iswm %r) && ($gettok($sock($sockname).mark,3,32) == read12) {
    tokenize 32 $sock($sockname).mark
    sockmark $sockname $1 $2
    var %station = %cdy_ [ $+ [ $sockname ] $+ ] _station
    var %now = %cdy_ [ $+ [ $sockname ] $+ ] _now
    var %later = %cdy_ [ $+ [ $sockname ] $+ ] _later
    if ($me ison $2) && (%station) { .msg $2 [ $+ $1 $+ ]: TV:  $+ %station $+  $iif(%now,-=- Now:  $+ $mid($removecs($v1,Nu:),2-) $+ ) $iif(%later,-=- Later:  $+ $v1 $+ ) }
    unset %cdy_ [ $+ [ $sockname ] $+ ] _*
    sockclose $sockname
    return
  }
}

alias -l httpstrip {
  var %xx = $replace($1-,&#x26;,$chr(38),$chr(124),-,$chr(125),-,&#125;,-,&#124;,-,&quot;,$chr(34),&amp;,&,&lt;,<,&gt;,>,&nbsp;,$chr(32),&#x26;#039;,$chr(39))
  var %x = $remove(%xx,<![CDATA[,]]>,$chr(2),$chr(4),$chr(9),$chr(31),$chr(22),$chr(29),$chr(10),$chr(13))
  var %i = $regsub(%x,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
  return %x
}