on *:TEXT:*:#opers,#Calmdown: {
  if ($regex($1-,/(http\://open\.spotify\.com/track/.+)/)) { %data = $regml(1) | spotify | %spotify.chan = $chan | %spotify.track = $gettok($gettok(%data,4,47),1,32) }
}

alias spotify {
  %s = sockwrite -tn
  sockopen spotify open.spotify.com 80
}

on *:SOCKOPEN:spotify: {
  echo -a $gettok($gettok(%data,4,47),1,32)
  %s $sockname GET /track/ $+ $gettok($gettok(%data,4,47),1,32) HTTP/1.1
  %s $sockname Host: open.spotify.com $+ $str($crlf,2)
}

on *:SOCKREAD:spotify: {
  var %spotify | sockread %spotify | tokenize 32 %spotify
  if ($sockerr > 0) { echo -a Socket Error. }
  if (%spotify) {
    if ($regex(%spotify,/(<h1 itemprop="name">.+</h1>)/)) { set -u5 %spotify.title $nohtml($regml(1)) }
    if ($regex(%spotify,/(<h2> by <a href="/artist/.+">.+</a></h2>)/)) { set -u5 %spotify.artist $nohtml($regml(1)) }
    if ($regex(%spotify, /(<a href="/track/.+">)/)) {
      if ($regml(1) == <a href="/track/ $+ %spotify.track $+ ">) {
        set -u5 %spotify.duration on
      }
      if (%spotify.duration == on) && ($regex(%spotify,/(<span class="duration"><meta itemprop="duration" content=".+"/>.+</span>)/)) {
        echo -a 04 $regml(1)
      }
    }
    ;if (%spotify.artist) && (%spotify.title) { msg %spotify.chan 14 $+ $nohtml(%spotify.title) 07~14 $nohtml(%spotify.artist) }
    else {  ;echo -a $1- }
  }
  else { ;echo -a 04Unknown error. }
}
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,&#039;)
  return %x
}