SONOS app

[Erwin van der Zwart]

Hi,

This is the most cleaned methode to do what you need:

Code:

-- Function to execute Sonos requests
function upnpavcmd(host, port, cmd, param)
  local client, soap, reqs, service, res, err
  require('socket')
  client = socket.tcp()
  client:settimeout(3)
  -- try connecting to upnp endpoint
  res, err = client:connect(host, port)
  if not res then
      return nil, err
  end
  -- guess service name based on command
  if cmd == 'SetVolume' or
     cmd == 'GetVolume' or
     cmd == 'SetMute' or
     cmd == 'GetMute' or
     cmd == 'SetBass' or
     cmd == 'GetBass' or
     cmd == 'SetTreble' or
     cmd == 'GetTreble' or
     cmd == 'SetLoudness' or
     cmd == 'GetLoudness' then
    base = 'MediaRenderer'
    service = 'RenderingControl'
  elseif cmd == 'Browse' then
    base = 'MediaServer'
    service = 'ContentDirectory'
  else
    base = 'MediaRenderer'
    service = 'AVTransport'
  end
  -- soap envelope
  soap = '<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">' ..
           '<s:Body>' ..
             '<u:' .. cmd .. ' xmlns:u="urn:schemas-upnp-org:service:' .. service .. ':1">' ..
               '<InstanceID>0</InstanceID>' ..
               (param or '') ..
             '</u:' .. cmd .. '>' ..
           '</s:Body>' ..
         '</s:Envelope>'
  -- http request   
  reqs = 'POST /' .. base .. '/' .. service .. '/Control HTTP/1.1\r\n' ..
         'CONNECTION: close\r\n' ..
         'HOST: ' .. host .. ':' .. port .. '\r\n' ..
         'CONTENT-LENGTH: ' .. soap:len() .. '\r\n' ..
         'CONTENT-TYPE: text/xml; charset="utf-8"\r\n' ..
         'SOAPACTION: "urn:schemas-upnp-org:service:' .. service .. ':1#' .. cmd .. '"\r\n' ..
         '\r\n' .. soap
  -- send http request
  res, err = client:send(reqs)
  if not res then
    return nil, err
  end
  -- get reply and close connection
  res, err = client:receive('*a')
  client:close()
  return res, err
end


if event.getvalue() == true then
  upnpavcmd('192.168.10.181', 1400, 'SetVolume', '<Channel>Master</Channel><DesiredVolume>30</DesiredVolume>')
  upnpavcmd('192.168.10.181', 1400, 'SetAVTransportURI', '<CurrentURI>x-rincon-mp3radio://http://192.168.0.10/user/deurbel.mp3</CurrentURI><CurrentURIMetaData/>')
  upnpavcmd('192.168.10.181', 1400, 'Play', '<Speed>1</Speed>')
else
  upnpavcmd('192.168.10.181', 1400, 'Pause')
end

BR,

Erwin