Forums Scripts & Popups VLC - Now Playing Script!

menu channel {

  Now Playing: {
    sockclose vlc
    sockopen vlc localhost 8080 
  }
}
on *:sockopen:vlc: {
  var %login = Password=mypass
  sockwrite -n $sockname POST /requests/status.xml HTTP/1.0
  sockwrite -n $sockname Host: localhost 
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -n $sockname Content-Length: $len(%login) 
  sockwrite -n $sockname %login
}

on *:sockopen:vlc:{
  if $sockerr > 0 { echo -at vlc not running | sockclose vlc }
  sockwrite -n $sockname GET /requests/status.xml HTTP/1.1
  sockwrite -n $sockname Host: localhost
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}

on *:sockread:vlc: {
  if $sockerr > 0 { echo -a error | sockclose vlc }
  sockread %vlcx
  ;echo -a %vlcx

  if (*name='filename'>* iswm %vlcx) {

    if ($regex(%vlcx,<info name='filename'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      set %vlcann1 $regml(1)
    }
  }

  if (*name='Frame rate'>* iswm %vlcx) {
    if ($regex(%vlcx,<info name='Frame rate'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      var %vlcann2 $regml(1)
    }
  }

  if (*name='Codec'>* iswm %vlcx) {
    if ($regex(%vlcx,<info name='Codec'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      var %vlcann3 $regml(1)
      msg $active VLC %vlcann1 :: %vlcann3 $+ @ $+ %vlcann2 fps
      unset %vlcann1
    }
  }


}

sockwrite -n $sockname Authorization: Basic $encode(:password,m)

menu channel {
  Now Playing: {
    sockclose vlc
    sockopen vlc localhost 8080 
  }
}

on *:sockopen:vlc:{
  if $sockerr > 0 { echo -at vlc not running | sockclose vlc }
  sockwrite -n $sockname GET /requests/status.xml HTTP/1.1
  sockwrite -n $sockname Host: localhost
  sockwrite -n $sockname Authorization: Basic $encode(:password,m)
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}

on *:sockread:vlc: {
  if $sockerr > 0 { echo -a error | sockclose vlc }
  sockread %vlcx
  ;echo -a %vlcx

  if (*name='filename'>* iswm %vlcx) {

    if ($regex(%vlcx,<info name='filename'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      set %vlcann1 $regml(1)
    }
  }

  if (*name='Frame rate'>* iswm %vlcx) {
    if ($regex(%vlcx,<info name='Frame rate'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      var %vlcann2 $regml(1)
    }
  }

  if (*name='Codec'>* iswm %vlcx) {
    if ($regex(%vlcx,<info name='Codec'>\s*\K(.+?)(?=\s*<\/info>)) == 1) {
      var %vlcann3 $regml(1)
      msg $active VLC %vlcann1 :: %vlcann3 $+ @ $+ %vlcann2 fps
      unset %vlcann1
    }
  }
}