Forums Scripts & Popups A Little Socket Help Please

 
;===================================================================================
;                      Socket Stuff for Lyrics Search
;===================================================================================

alias lyrics {
  echo -a Converting Data Into Query
  var %artist artist= $+ $$?="ARTIST NAME"
  var %title &title= $+ $$?="SONG TITLE"
  var %temp %artist $+ $chr(32) $+ %title
  var %query $replace(%temp,$chr(32),$chr(37) $+ 20)
  echo -a %query
  sockopen lyrics lyricsplugin.com 80
}

on *:sockread:lyrics:{
  if ($sockerr) {
    echo -a WARNING: An Error Occurred
    halt
  }
  else {
    sockread %'
    window @lyrics 
    while ( $sockbr != 0 ) { aline @lyrics %' }
    sockclose $sockname
    halt
  }
}

on *:sockopen:lyrics:{ 
  echo -a Getting info for: %query
  sockwrite -n $sockname GET /plugin/? $+ %query HTTP/1.1 
  sockwrite -n $sockname Host: www.lyricsplugin.com
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname $crlf
}

alias nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}

 

    while ( $sockbr != 0 ) { aline @lyrics %' }
    sockclose $sockname

    while ( $sockbr ) {
      if $nohtml(%') { aline @lyrics $v1 }
      [color:blue]sockread %'[/color]
    }

  var %temp %artist $+ $chr(32) $+ %title

  set %query  $replace($+(%artist,%title),$chr(32),$(%20,0))

on *:sockread:lyrics:{
  if ($sockerr) { echo -a WARNING: An Error Occurred: $sock($sockname).wsmsg }

  ; check that %lyrical does NOT exist
  if (!%lyrical) {
    sockread %' | ; read and discard...
    if (*<div id="lyrics">* iswm %' ) { set -s %lyrical 1 }
  }
  ; now that the var exists, read and display
  else {
    sockread %'
    window @lyrics 
    while ($sockbr) {
      if $nohtml(%') { aline @lyrics $v1 }
      sockread %'
      ; until the </div> tag
      if (*</div>* iswm %') { unset -s %lyrical | return }
    }
  }
}