Add. BLF indication for call forward. (#2664)

* Add. BLF indication for call forward.

To display general status of CallForward use blf like `forward+<extension>`
To display status for specific phone number use blf like `forward+<extension>/<number>`

* Fix. Escape variable in regex expression.

* Fix. Sync DND and CF blf.

* Add. `blf_subscribe` service which can handle all custom subscriptions.

To run for specific protocol it possible run as `luarun blf_subscribe.lua <PROTO>`

resources/install/scripts/resources/functions/basic_event_service.lua

@@ -0,0 +1,60 @@
+require "resources.functions.config"
+
+local EventConsumer = require "resources.functions.event_consumer".EventConsumer
+
+local function class(base)
+	local t = base and setmetatable({}, base) or {}
+	t.__index = t
+	t.__class = t
+	t.__base  = base
+
+	function t.new(...)
+		local o = setmetatable({}, t)
+		if o.__init then
+			if t == ... then -- we call as Class:new()
+				return o:__init(select(2, ...))
+			else             -- we call as Class.new()
+				return o:__init(...)
+			end
+		end
+		return o
+	end
+
+	return t
+end
+
+local BasicEventService = class(EventConsumer) do
+
+function BasicEventService:__init(log, service_name, timeout)
+	local pid_file = scripts_dir .. "/run/" .. service_name .. ".tmp"
+
+	self = BasicEventService.__base.__init(self, pid_file, timeout)
+
+	-- FS shutdown
+	self:bind("SHUTDOWN", function(self, name, event)
+		log.notice("shutdown")
+		return self:stop()
+	end)
+
+	-- Control commands from FusionPBX
+	self:bind("CUSTOM::fusion::service::control", function(self, name, event)
+		if service_name ~= event:getHeader('service-name') then return end
+
+		local command = event:getHeader('service-command')
+		if command == "stop" then
+			log.notice("get stop command")
+			return self:stop()
+		end
+
+		log.warningf('Unknown service command: %s', command or '<NONE>')
+	end)
+
+	return self 
+end
+
+end
+
+return {
+	BasicEventService = BasicEventService;
+	new = BasicEventService.new;
+}

resources/install/scripts/resources/functions/blf.lua

@@ -0,0 +1,46 @@
+local presence_in   = require "resources.functions.presence_in"
+
+local function blf(enabled, proto, id, domain)
+	local user = string.format('%s+%s@%s', proto, id, domain)
+	presence_in.turn_lamp(enabled, user)
+end
+
+local function dnd(enabled, extension, number_alias, domain)
+	blf(enabled, 'dnd', extension, domain)
+	if number_alias and #number_alias > 0 then
+		blf(enabled, 'dnd', number_alias, domain)
+	end
+end
+
+local function forward(enabled, extension, number_alias, number, domain)
+	if number then
+		extension = extension .. '/' .. number
+		if number_alias and #number_alias > 0 then
+			number_alias = number_alias .. '/' .. number
+		end
+	end
+	blf(enabled, 'forward', extension, domain)
+	if number_alias and #number_alias > 0 then
+		blf(enabled, 'forward', number_alias, domain)
+	end
+end
+
+local function forward_toggle(enabled, extension, number_alias, old_number, new_number, domain)
+	-- turn off previews BLF number
+		if old_number and #old_number > 0 and old_number ~= new_number then
+			forward(false, extension, number_alias, old_number, domain)
+		end
+
+	-- set common BLF status
+		forward(enabled, extension, number_alias, nil, domain)
+
+	-- set destination specifc status
+		if new_number and #new_number > 0 then
+			forward(enabled, extension, number_alias, new_number, domain)
+		end
+end
+
+return {
+	dnd = dnd;
+	forward = forward_toggle;
+}