This forum uses cookies
This forum makes use of cookies to store your login information if you are registered, and your last visit if you are not. Cookies are small text documents stored on your computer; the cookies set by this forum can only be used on this website and pose no security risk. Cookies on this forum also track the specific topics you have read and when you last read them. Please confirm that you accept these cookies being set.

Yamaha R-N301 control and PA System automation
#1
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
[Image: MGoq9n0.png]

Using Snom PA1 Action URL feature and Logic Machine remote services to update object 2/6/11 when a call is connected or disconnects.
[Image: 5yya0fY.png]


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:
--[[
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:
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>')
 
Reply


Messages In This Thread
Yamaha R-N301 control and PA System automation - by gtsamis - 09.07.2015, 11:41

Forum Jump: