mIRC Home    About    Download    Register    News    Help

Topic Options
#245122 - 11/04/14 01:28 PM VLC - Now Playing Script!
Louge Offline
Self-satisified door

Registered: 11/04/14
Posts: 3
Hi , i need help with this VLC script :

Code:
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
    }
  }


}


The WEBINTERFACE requires a Password (Popup) username is not needed but it doesnt work frown

maybe someone can help smile

Thank You

Top
#245127 - 11/04/14 02:28 PM Re: VLC - Now Playing Script! [Re: Louge]
Loki12583 Online
Hoopy frood

Registered: 22/01/04
Posts: 1264
All of your requests need an authorization header

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


Top
#245148 - 11/04/14 10:43 PM Re: VLC - Now Playing Script! [Re: Loki12583]
Louge Offline
Self-satisified door

Registered: 11/04/14
Posts: 3
can you include it to my script? i have no idea how to do it frown

thx

Top
#245149 - 11/04/14 11:08 PM Re: VLC - Now Playing Script! [Re: Loki12583]
Loki12583 Online
Hoopy frood

Registered: 22/01/04
Posts: 1264
Just put it with the rest of your headers:

Code:
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
    }
  }
}

Top
#245154 - 12/04/14 08:07 AM Re: VLC - Now Playing Script! [Re: Loki12583]
Louge Offline
Self-satisified door

Registered: 11/04/14
Posts: 3
wow , it works fine

Thank YOU smile

Top