Yamaha R-N301 control and PA System automation

[gtsamis]

Hi,
For anyone it might help I wanted to share some scripts to control Yamaha R-N301 HiFi Receiver and automate a Public Announcement system using SNOM PA1.
The main objective is to make the necessary settings (input, volume etc) on R-N301 when PA receives a call and return to previous state when the call ends.
I am basically new to scripting so any suggestions are welcome.

 
I have created the following objects on logic machine


Using Snom PA1 Action URL feature and Logic Machine remote services to update object 2/6/11 when a call is connected or disconnects.



On Connected : http://remote:remote@192.168.16.10/cgi-b...value=true
On Disconnected: http://remote:remote@192.168.16.10/cgi-b...alue=false

Scripts
1. Yamaha R-N301 control and feedback function

Code:

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788

--[[ Basic control and feedback function for Yamaha R-N301 amplifier Input cmd Get feedback             : GET eg rn301('GET', '<Main_Zone><Basic_Status>GetParam</Basic_Status></Main_Zone>') Send command            : PUT eg rn301('PUT', '<System><Power_Control><Power>Standby</Power></Power_Control></System>') Input param Update feedback objects                    : <Main_Zone><Basic_Status>GetParam</Basic_Status></Main_Zone> Power on                : <System><Power_Control><Power>On</Power></Power_Control></System> Standby                    : <System><Power_Control><Power>Standby</Power></Power_Control></System> Mute On                    : <Main_Zone><Volume><Mute>On</Mute></Volume></Main_Zone> Mute Off                : <Main_Zone><Volume><Mute>Off</Mute></Volume></Main_Zone> Volume (0-100)                     : <Main_Zone><Volume><Lvl><Val>50</Val><Exp>0</Exp><Unit></Unit></Lvl></Volume></Main_Zone> Input                     : <Main_Zone><Input><Input_Sel>LINE1</Input_Sel></Input></Main_Zone> Returns table with status feedback (Result, Rescode, Power, Volume, Mute, Input) ]]-- function rn301(cmd, param) require 'socket.http' -- Create HTTP post body local request_body = '<?xml version="1.0" encoding="utf-8"?>' ..                           '<YAMAHA_AV cmd="' .. cmd.. '">' ..                               (param or '') ..                            '</YAMAHA_AV>' local response_body = { } local status_tbl = { } -- Send command to amplifier local result, code  = socket.http.request {  url = 'http://192.168.16.22/YamahaRemoteControl/ctrl',  method = 'POST',  headers =  {    ["Content-Type"] = "application/x-www-form-urlencoded",    ["Content-Length"] = request_body:len(),  },  source = ltn12.source.string(request_body),  sink = ltn12.sink.table(response_body), } -- Check responce from amplifier if result and code==200 then         status_tbl['Result']=result         status_tbl['ResCode']=code                 if cmd == 'GET' then                 if type(response_body) == "table" then                  response_body=table.concat(response_body)                   power=string.sub(string.match(response_body,"<Power>%a+</Power>"), 8, -9)                 status_tbl['Power']=power                 -- Manipulate and update power feedback object                 if power=='On' then                      grp.write('2/6/51', true)                else                        grp.write('2/6/51', false)                end                            volume=tonumber(string.sub(string.match(response_body,"<Val>%d+</Val>"), 6, -7))                 status_tbl['Volume']=volume                 -- Update volume feedback object                 grp.write('2/6/53', volume)                                mute=string.sub(string.match(response_body,"<Mute>%a+</Mute>"), 7, -8)                  status_tbl['Mute']=mute                  -- Manipulate and update mute feedback object                if mute == 'On' then                      grp.write('2/6/52', true)                else                      grp.write('2/6/52', false)                 end                          input=string.sub(string.match(response_body,"<Input_Sel>.*</Input_Sel>"), 12, -13)                  status_tbl['Input']=input                  -- Update input feedback object                 grp.write('2/6/54', input)            else                  alert('HTTP Request Error: Response is empty or unknown')             end         end else     alert('HTTP Request Error: ' .. code) end return status_tbl end

2. Object 2/6/11 event script

Code:

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748

value=event.getvalue() -- Update feedback objects rn301('GET', '<Main_Zone><Basic_Status>GetParam</Basic_Status></Main_Zone>') yamaha=grp.getvalue('2/6/51') -- 1st case: Call Connected and R-N301 already On -- Store current power status, input and volume level -- Set Input to Line1(PA system), Volume to 50 and make sure mute is off     if value and yamaha then     storage.set('yamaha_pwr',yamaha)  prv_volume=grp.getvalue('2/6/53')  storage.set('yamaha_volume',prv_volume)  prv_input=grp.getvalue('2/6/54')  storage.set('yamaha_input',prv_input)  rn301('PUT', '<Main_Zone><Volume><Mute>Off</Mute></Volume></Main_Zone>')  rn301('PUT', '<Main_Zone><Volume><Lvl><Val>50</Val><Exp>0</Exp><Unit></Unit></Lvl></Volume></Main_Zone>')     rn301('PUT', '<Main_Zone><Input><Input_Sel>LINE1</Input_Sel></Input></Main_Zone>') -- 2nd case: Call Connected and R-N301 already on Standby -- Store current power status -- Power On R-N301, set Input to Line1(PA system), Volume to 50 and make sure mute is off elseif value and not (yamaha) then  storage.set('yamaha_pwr',yamaha)  rn301('PUT', '<System><Power_Control><Power>On</Power></Power_Control></System>')  rn301('PUT', '<Main_Zone><Volume><Mute>Off</Mute></Volume></Main_Zone>')  rn301('PUT', '<Main_Zone><Volume><Lvl><Val>50</Val><Exp>0</Exp><Unit></Unit></Lvl></Volume></Main_Zone>')     rn301('PUT', '<Main_Zone><Input><Input_Sel>LINE1</Input_Sel></Input></Main_Zone>') -- 3rd case: Call Disconnects and R-N301 was On before call -- Set Input, Volume to previous state  and make sure Mute is off elseif (not value) and storage.get('yamaha_pwr',0) then     prv_volume=storage.get('yamaha_volume',30)     prv_input=storage.get('yamaha_input','CD')     rn301('PUT', '<Main_Zone><Volume><Mute>Off</Mute></Volume></Main_Zone>')     rn301('PUT', '<Main_Zone><Volume><Lvl><Val>' .. prv_volume .. '</Val><Exp>0</Exp><Unit></Unit></Lvl></Volume></Main_Zone>')     rn301('PUT', '<Main_Zone><Input><Input_Sel>' .. prv_input .. '</Input_Sel></Input></Main_Zone>') -- 4th case: Call Disconnects and R-N301 was Off before call -- Just make sure Mute is off and then power off else     rn301('PUT', '<Main_Zone><Volume><Mute>Off</Mute></Volume></Main_Zone>')  rn301('PUT', '<System><Power_Control><Power>Standby</Power></Power_Control></System>') end -- Update feedback objects rn301('GET', '<Main_Zone><Basic_Status>GetParam</Basic_Status></Main_Zone>')  

[admin]

Nice example, one small improvement: you can use captures inside of regexps like this:

Code:

123

power=string.sub(string.match(response_body,"<Power>%a+</Power>"), 8, -9) power=string.match(response_body,"<Power>(%a+)</Power>")

Both lines do exactly the same thing, but you don't have to count characters when using captures

[gtsamis]

Nice example, one small improvement: you can use captures inside of regexps like this:

Code:

123

power=string.sub(string.match(response_body,"<Power>%a+</Power>"), 8, -9) power=string.match(response_body,"<Power>(%a+)</Power>")

Both lines do exactly the same thing, but you don't have to count characters when using captures

  You are right, didn't cross my mind to use string.match because the reply is pretty much static but will be helpfull on futher control.

Thank you

---

For anyone find it usefull below are the complete responce from Yamaha R-N301 on GET command. PUT command replies only the header section.

Headers:

Code:

1234

200 OK Server: Network_Player/3.1 (R-N301) Content-Type: text/xml; charset="utf-8" Content-Length: 480

Body:

Code:

12345678910111213141516171819202122232425262728293031

<YAMAHA_AVrsp="GET"RC="0">     <Main_Zone>        <Basic_Status>             <Power_Control>                 <Power>On</Power>             </Power_Control>         <Volume>             <Lvl>                 <Val>45</Val>                 <Exp>0</Exp>                 <Unit/>             </Lvl>             <Mute>Off</Mute>         </Volume>         <Input>             <Input_Sel>SERVER</Input_Sel>             <Input_Sel_Item_Info>             <Param>SERVER</Param>             <RW>RW</RW>             <Title/>             <Icon>                 <On>/YamahaRemoteControl/Icons/icon067.png</On>                 <Off/>             </Icon>             <Src_Name>SERVER</Src_Name>             <Src_Number>1</Src_Number>             </Input_Sel_Item_Info>         </Input>        </Basic_Status>     </Main_Zone> </YAMAHA_AV>