rsmp 0.6.2 → 0.7.0

data/lib/rsmp/tlc.rb

@@ -1,920 +0,0 @@
-# Simulates a Traffic Light Controller
-
-module RSMP
-
-  class TrafficController < Component
-    attr_reader :pos, :cycle_time
-
-    def initialize node:, id:, cycle_time: 10
-      super node: node, id: id, grouped: true
-      @signal_groups = []
-      @detector_logics = []
-      @plans = []
-      @cycle_time = cycle_time
-      @num_traffic_situations = 1
-      @num_inputs = 8
-      reset
-    end
-
-    def reset
-      @pos = 0
-      @plan = 0
-      @dark_mode = false
-      @yellow_flash = false
-      @booting = false
-      @control_mode = 'control'
-      @police_key = 0
-      @intersection = 0
-      @is_starting = false
-      @emergency_route = false
-      @emergency_route_number = 0
-      @traffic_situation = 0
-      @manual_control = false
-      @fixed_time_control = false
-      @isolated_control = false
-      @yellow_flash = false
-      @all_red = false
-
-      @inputs = '0'*@num_inputs
-      @input_activations = '0'*@num_inputs
-      @input_results = '0'*@num_inputs
-    end
-
-    def clock
-      node.clock
-    end
-
-
-    def add_signal_group group
-      @signal_groups << group
-    end
-
-    def add_detector_logic logic
-      @detector_logics << logic
-    end
-
-    def timer now
-      # TODO
-      # We should use a monotone timer, to avoid jumps
-      # in case the user sets the system time
-      pos = Time.now.to_i % @cycle_time
-      if pos != @pos
-        @pos = pos
-        move pos
-      end
-    end
-
-    def move pos
-      @signal_groups.each do |group|
-        group.move pos
-      end
-      if pos == 0
-        aggregated_status_changed
-      end
-    end
-
-    def output_states
-      str = @signal_groups.map do |group|
-        s = "#{group.c_id}:#{group.state}"
-        if group.state =~ /^[1-9]$/
-          s.colorize(:green)
-      elsif group.state =~ /^[NOP]$/
-          s.colorize(:yellow)
-        else
-          s.colorize(:red)
-        end
-      end.join ' '
-      print "\t#{pos.to_s.ljust(3)} #{str}\r"
-    end
-
-    def format_signal_group_status
-      if @yellow_flash
-        'c' * @signal_groups.size
-      else
-        @signal_groups.map { |group| group.state }.join
-      end
-    end
-
-    def handle_command command_code, arg
-      case command_code
-      when 'M0001', 'M0002', 'M0003', 'M0004', 'M0005', 'M0006', 'M0007',
-           'M0012', 'M0013', 'M0014', 'M0015', 'M0016', 'M0017', 'M0018',
-           'M0019', 'M0020', 'M0021', 'M0022',
-           'M0103', 'M0104'
-
-        return send("handle_#{command_code.downcase}", arg)
-      else
-        raise UnknownCommand.new "Unknown command #{command_code}"
-      end
-    end
-
-    def handle_m0001 arg
-      @node.verify_security_code 2, arg['securityCode']
-      switch_mode arg['status']
-    end
-
-    def handle_m0002 arg
-      @node.verify_security_code 2, arg['securityCode']
-      if RSMP::Tlc.from_rsmp_bool(arg['status'])
-        switch_plan arg['timeplan']
-      else
-        switch_plan 0   # TODO use clock/calender
-      end
-    end
-
-    def handle_m0003 arg
-      @node.verify_security_code 2, arg['securityCode']
-      @traffic_situation = arg['traficsituation'].to_i
-    end
-
-    def handle_m0004 arg
-      @node.verify_security_code 2, arg['securityCode']
-      # don't restart immeediately, since we need to first send command response
-      # instead, defer an action, which will be handled by the TLC site
-      log "Sheduling restart of TLC", level: :info
-      @node.defer :restart
-    end
-
-    def handle_m0005 arg
-      @node.verify_security_code 2, arg['securityCode']
-      @emergency_route = (arg['status'] == 'True')
-      @emergency_route_number = arg['emergencyroute'].to_i
-
-      if @emergency_route
-        log "Switching to emergency route #{@emergency_route_number}", level: :info
-      else
-        log "Switching off emergency route", level: :info
-      end
-    end
-
-    def handle_m0006 arg
-      @node.verify_security_code 2, arg['securityCode']
-      input = arg['input'].to_i
-      idx = input - 1
-      return unless idx>=0 && input<@num_inputs # TODO should NotAck
-      @input_activations[idx] = (arg['status']=='True' ? '1' : '0')
-      result = @input_activations[idx]=='1' || @inputs[idx]=='1'
-      @input_results[idx] = (result ? '1' : '0')
-      if @input_activations[idx]
-        log "Activate input #{idx}", level: :info
-      else
-        log "Deactivate input #{idx}", level: :info
-      end
-    end
-
-    def handle_m0007 arg
-      @node.verify_security_code 2, arg['securityCode']
-      set_fixed_time_control arg['status']
-    end
-
-    def handle_m0012 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0013 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0014 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0015 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0016 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0017 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0018 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0019 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0020 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0021 arg
-      @node.verify_security_code 2, arg['securityCode']
-    end
-
-    def handle_m0103 arg
-      level = {'Level1'=>1,'Level2'=>2}[arg['status']]
-      @node.change_security_code level, arg['oldSecurityCode'], arg['newSecurityCode']
-    end
-
-    def handle_m0104 arg
-      @node.verify_security_code 1, arg['securityCode']
-      time = Time.new(
-        arg['year'],
-        arg['month'],
-        arg['day'],
-        arg['hour'],
-        arg['minute'],
-        arg['second'],
-        'UTC'
-      )
-      @node.clock.set time
-      log "Clock set to #{time}, (adjustment is #{@node.clock.adjustment}s)", level: :info
-    end
-
-    def set_input i, value
-      return unless i>=0 && i<@num_inputs
-      @inputs[i] = (arg['value'] ? '1' : '0')
-    end
-    
-    def set_fixed_time_control status
-      @fixed_time_control = status
-    end
-
-    def switch_plan plan
-      plan_nr = plan.to_i
-      if plan_nr == 0
-        log "Switching to plan selection by time table", level: :info
-      else
-        log "Switching to plan #{plan_nr}", level: :info
-      end
-      @plan = plan_nr
-    end
-
-    def switch_mode mode
-      log "Switching to mode #{mode}", level: :info
-      case mode
-      when 'NormalControl'
-        @yellow_flash = false
-        @dark_mode = false
-      when 'YellowFlash'
-        @yellow_flash = true
-        @dark_mode = false
-      when 'Dark'
-        @yellow_flash = false
-        @dark_mode = true
-      end
-      mode
-    end
-
-    def get_status code, name=nil
-      case code
-      when 'S0001', 'S0002', 'S0003', 'S0004', 'S0005', 'S0006', 'S0007',
-           'S0008', 'S0009', 'S0010', 'S0011', 'S0012', 'S0013', 'S0014',
-           'S0015', 'S0016', 'S0017', 'S0018', 'S0019', 'S0020', 'S0021',
-           'S0022', 'S0023', 'S0024', 'S0026', 'S0027', 'S0028',
-           'S0029', 'S0030', 'S0031',
-           'S0091', 'S0092', 'S0095', 'S0096', 'S0097',
-           'S0205', 'S0206', 'S0207', 'S0208'
-        return send("handle_#{code.downcase}", code, name)
-      else
-        raise InvalidMessage.new "unknown status code #{code}"
-      end
-    end
-
-    def handle_s0001 status_code, status_name=nil
-      case status_name
-      when 'signalgroupstatus'
-        RSMP::Tlc.make_status format_signal_group_status
-      when 'cyclecounter'
-        RSMP::Tlc.make_status @pos.to_s
-      when 'basecyclecounter'
-        RSMP::Tlc.make_status @pos.to_s
-      when 'stage'
-        RSMP::Tlc.make_status 0.to_s
-      end
-    end
-
-    def handle_s0002 status_code, status_name=nil
-      case status_name
-      when 'detectorlogicstatus'
-        RSMP::Tlc.make_status @detector_logics.map { |dl| dl.value ? '1' : '0' }.join
-      end
-    end
-
-    def handle_s0003 status_code, status_name=nil
-      case status_name
-      when 'inputstatus'
-        RSMP::Tlc.make_status @input_results
-      when 'extendedinputstatus'
-        RSMP::Tlc.make_status 0.to_s
-      end
-    end
-
-    def handle_s0004 status_code, status_name=nil
-      case status_name
-      when 'outputstatus'
-        RSMP::Tlc.make_status 0
-      when 'extendedoutputstatus'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0005 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status @is_starting
-      end
-    end
-
-    def handle_s0006 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status @emergency_route
-      when 'emergencystage'
-        RSMP::Tlc.make_status @emergency_route_number
-      end
-    end
-
-    def handle_s0007 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status !@dark_mode
-      end
-    end
-
-    def handle_s0008 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status @manual_control
-      end
-    end
-
-    def handle_s0009 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status @fixed_time_control
-      end
-    end
-
-    def handle_s0010 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status @isolated_control
-      end
-    end
-
-    def handle_s0011 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status @yellow_flash
-      end
-    end
-
-    def handle_s0012 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status @all_red
-      end
-    end
-
-    def handle_s0013 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'status'
-        RSMP::Tlc.make_status @police_key
-      end
-    end
-
-    def handle_s0014 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status @plan
-      end
-    end
-
-    def handle_s0015 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status @traffic_situation
-      end
-    end
-
-    def handle_s0016 status_code, status_name=nil
-      case status_name
-      when 'number'
-        RSMP::Tlc.make_status @detector_logics.size
-      end
-    end
-
-    def handle_s0017 status_code, status_name=nil
-      case status_name
-      when 'number'
-        RSMP::Tlc.make_status @signal_groups.size
-      end
-    end
-
-    def handle_s0018 status_code, status_name=nil
-      case status_name
-      when 'number'
-        RSMP::Tlc.make_status @plans.size
-      end
-    end
-
-    def handle_s0019 status_code, status_name=nil
-      case status_name
-      when 'number'
-        RSMP::Tlc.make_status @num_traffic_situations
-      end
-    end
-
-    def handle_s0020 status_code, status_name=nil
-      case status_name
-      when 'intersection'
-        RSMP::Tlc.make_status @intersection
-      when 'controlmode'
-        RSMP::Tlc.make_status @control_mode
-      end
-    end
-
-    def handle_s0021 status_code, status_name=nil
-      case status_name
-      when 'detectorlogics'
-        RSMP::Tlc.make_status @detector_logics.map { |logic| logic.forced=='True' ? '1' : '0'}.join
-      end
-    end
-
-    def handle_s0022 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status '1'
-      end
-    end
-
-    def handle_s0023 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status '1-1-0'
-      end
-    end
-
-    def handle_s0024 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status '1-0'
-      end
-    end
-
-    def handle_s0026 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status '0-00'
-      end
-    end
-
-    def handle_s0027 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status '00-00-00-00'
-      end
-    end
-
-    def handle_s0028 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status '00-00'
-      end
-    end
-
-    def handle_s0029 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status ''
-      end
-    end
-
-    def handle_s0030 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status ''
-      end
-    end
-
-    def handle_s0031 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status ''
-      end
-    end
-
-    def handle_s0091 status_code, status_name=nil
-      case status_name
-      when 'user'
-        RSMP::Tlc.make_status 'nobody'
-      when 'status'
-        RSMP::Tlc.make_status 'logout'
-      end
-    end
-
-    def handle_s0092 status_code, status_name=nil
-      case status_name
-      when 'user'
-        RSMP::Tlc.make_status 'nobody'
-      when 'status'
-        RSMP::Tlc.make_status 'logout'
-      end
-    end
-
-    def handle_s0095 status_code, status_name=nil
-      case status_name
-      when 'status'
-        RSMP::Tlc.make_status RSMP::VERSION
-      end
-    end
-
-    def handle_s0096 status_code, status_name=nil
-      now = clock.now
-      case status_name
-      when 'year'
-        RSMP::Tlc.make_status now.year.to_s.rjust(4, "0")
-      when 'month'
-        RSMP::Tlc.make_status now.month.to_s.rjust(2, "0")
-      when 'day'
-        RSMP::Tlc.make_status now.day.to_s.rjust(2, "0")
-      when 'hour'
-        RSMP::Tlc.make_status now.hour.to_s.rjust(2, "0")
-      when 'minute'
-        RSMP::Tlc.make_status now.min.to_s.rjust(2, "0")
-      when 'second'
-        RSMP::Tlc.make_status now.sec.to_s.rjust(2, "0")
-      end
-    end
-
-    def handle_s0097 status_code, status_name=nil
-      case status_name
-      when 'checksum'
-        RSMP::Tlc.make_status '1'
-      when 'timestamp'
-        now = @node.clock.to_s
-        RSMP::Tlc.make_status now
-      end
-    end
-
-    def handle_s0205 status_code, status_name=nil
-      case status_name
-      when 'start'
-        RSMP::Tlc.make_status clock.to_s
-      when 'vehicles'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0206 status_code, status_name=nil
-      case status_name
-      when 'start'
-        RSMP::Tlc.make_status clock.to_s
-      when 'speed'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0207 status_code, status_name=nil
-      case status_name
-      when 'start'
-        RSMP::Tlc.make_status clock.to_s
-      when 'occupancy'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0208 status_code, status_name=nil
-      case status_name
-      when 'start'
-        RSMP::Tlc.make_status clock.to_s
-      when 'P'
-        RSMP::Tlc.make_status 0
-      when 'PS'
-        RSMP::Tlc.make_status 0
-      when 'L'
-        RSMP::Tlc.make_status 0
-      when 'LS'
-        RSMP::Tlc.make_status 0
-      when 'B'
-        RSMP::Tlc.make_status 0
-      when 'SP'
-        RSMP::Tlc.make_status 0
-      when 'MC'
-        RSMP::Tlc.make_status 0
-      when 'C'
-        RSMP::Tlc.make_status 0
-      when 'F'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-  end
-
-  class SignalGroup < Component
-    attr_reader :plan, :state
-
-    # plan is a string, with each character representing a signal phase at a particular second  in the cycle
-    def initialize node:, id:, plan: nil
-      super node: node, id: id, grouped: false
-      @plan = plan
-      move 0
-    end
-
-    def get_state pos
-      return 'a' unless @plan  # if no plan, use phase a, which means disabled/dark
-      if pos > @plan.length
-        '.'
-      else
-        @plan[pos]
-      end
-    end
-
-    def move pos
-      @state = get_state pos
-    end
-
-    def handle_command command_code, arg
-      case command_code
-      when 'M0010', 'M0011'
-        return send("handle_#{command_code.downcase}", arg)
-      else
-        raise UnknownCommand.new "Unknown command #{command_code}"
-      end
-    end
-
-    # Start of signal group. Orders a signal group to green
-    def handle_m0010 arg
-      @node.verify_security_code 2, arg['securityCode']
-      if RSMP::Tlc.from_rsmp_bool arg['status']
-        log "Start signal group #{c_id}, go to green", level: :info
-      end
-    end
-
-    # Stop of signal group. Orders a signal group to red
-    def handle_m0011 arg
-      @node.verify_security_code 2, arg['securityCode']
-      if RSMP::Tlc.from_rsmp_bool arg['status']
-        log "Stop signal group #{c_id}, go to red", level: :info
-      end
-    end
-
-    def get_status code, name=nil
-      case code
-      when 'S0025'
-        return send("handle_#{code.downcase}", code, name)
-      else
-        raise InvalidMessage.new "unknown status code #{code}"
-      end
-    end
-
-    def handle_s0025 status_code, status_name=nil
-      now = @node.clock.to_s
-      case status_name
-      when 'minToGEstimate'
-        RSMP::Tlc.make_status now
-      when 'maxToGEstimate'
-        RSMP::Tlc.make_status now
-      when 'likelyToGEstimate'
-        RSMP::Tlc.make_status now
-      when 'ToGConfidence'
-        RSMP::Tlc.make_status 0
-      when 'minToREstimate'
-        RSMP::Tlc.make_status now
-      when 'maxToREstimate'
-        RSMP::Tlc.make_status now
-      when 'likelyToREstimate'
-        RSMP::Tlc.make_status now
-      when 'ToRConfidence'
-        RSMP::Tlc.make_status 0
-      end
-    end
-  end
-
-  class DetectorLogic < Component
-    attr_reader :forced, :value
-
-    def initialize node:, id:
-      super node: node, id: id, grouped: false
-      @forced = 0
-      @value = 0
-    end
-
-    def get_status code, name=nil
-      case code
-      when 'S0201', 'S0202', 'S0203', 'S0204'
-        return send("handle_#{code.downcase}", code, name)
-      else
-        raise InvalidMessage.new "unknown status code #{code}"
-      end
-    end
-
-    def handle_s0201 status_code, status_name=nil
-      case status_name
-      when 'starttime'
-        RSMP::Tlc.make_status @node.clock.to_s
-      when 'vehicles'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0202 status_code, status_name=nil
-      case status_name
-      when 'starttime'
-        RSMP::Tlc.make_status @node.clock.to_s
-      when 'speed'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0203 status_code, status_name=nil
-      case status_name
-      when 'starttime'
-        RSMP::Tlc.make_status @node.clock.to_s
-      when 'occupancy'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_s0204 status_code, status_name=nil
-      case status_name
-      when 'starttime'
-        RSMP::Tlc.make_status @node.clock.to_s
-      when 'P'
-        RSMP::Tlc.make_status 0
-      when 'PS'
-        RSMP::Tlc.make_status 0
-      when 'L'
-        RSMP::Tlc.make_status 0
-      when 'LS'
-        RSMP::Tlc.make_status 0
-      when 'B'
-        RSMP::Tlc.make_status 0
-      when 'SP'
-        RSMP::Tlc.make_status 0
-      when 'MC'
-        RSMP::Tlc.make_status 0
-      when 'C'
-        RSMP::Tlc.make_status 0
-      when 'F'
-        RSMP::Tlc.make_status 0
-      end
-    end
-
-    def handle_command command_code, arg
-      case command_code
-      when 'M0008'
-        handle_m0008 arg
-      else
-        raise UnknownCommand.new "Unknown command #{command_code}"
-      end
-    end
-
-    def handle_m0008 arg
-      @node.verify_security_code 2, arg['securityCode']
-      status = arg['status']=='True'
-      mode = arg['mode']=='True'
-      force_detector_logic status, mode
-      arg
-    end
-
-    def force_detector_logic forced, value
-      @forced = forced
-      @value = value
-      if @forced
-        log "Forcing to #{value}", level: :info
-      else
-        log "Releasing", level: :info
-      end
-    end
-
-  end
-
-  class Tlc < Site
-    attr_accessor :main
-    def initialize options={}
-      super options
-      @sxl = 'traffic_light_controller'
-      @security_codes = options[:site_settings]['security_codes']
-      @interval = options[:site_settings].dig('intervals','timer') || 1
-      unless @main
-        raise ConfigurationError.new "TLC must have a main component"
-      end
-    end
-
-    def build_component id:, type:, settings:{}
-      component = case type
-      when 'main'
-        @main = TrafficController.new node: self, id: id, cycle_time: settings['cycle_time']
-      when 'signal_group'
-        group = SignalGroup.new node: self, id: id, plan: settings['plan']
-        @main.add_signal_group group
-        group
-      when 'detector_logic'
-        logic = DetectorLogic.new node: self, id: id
-        @main.add_detector_logic logic
-        logic
-      end
-    end
-
-    def start_action
-      super
-      start_timer
-    end
-
-    def start_timer
-      task_name = "tlc timer"
-      log "Starting #{task_name} with interval #{@interval} seconds", level: :debug
-
-      @timer = @task.async do |task|
-        task.annotate task_name
-        next_time = Time.now.to_f
-        loop do
-          begin
-            timer(@clock.now)
-          rescue EOFError => e
-            log "Connection closed: #{e}", level: :warning
-          rescue IOError => e
-            log "IOError", level: :warning
-          rescue Errno::ECONNRESET
-            log "Connection reset by peer", level: :warning
-          rescue Errno::EPIPE => e
-            log "Broken pipe", level: :warning
-          rescue StandardError => e
-            notify_error e, level: :internal
-          ensure
-            # adjust sleep duration to avoid drift. so wake up always happens on the
-            # same fractional second.
-            # note that Time.now is not monotonic. If the clock is changed,
-            # either manaully or via NTP, the sleep interval might jump.
-            # an alternative is to use ::Process.clock_gettime(::Process::CLOCK_MONOTONIC),
-            # to get the current time. this ensures a constant interval, but
-            # if the clock is changed, the wake up would then happen on a different
-            # fractional second
-            next_time += @interval
-            duration = next_time - Time.now.to_f
-            task.sleep duration
-          end
-        end
-      end
-    end
-
-    def timer now
-      return unless @main
-      @main.timer now
-    end
-
-    def verify_security_code level, code
-      raise ArgumentError.new("Level must be 1-2, got #{level}") unless (1..2).include?(level)
-      if @security_codes[level] != code
-        raise MessageRejected.new("Wrong security code for level #{level}")
-      end
-    end
-
-    def change_security_code level, old_code, new_code
-      verify_security_code level, old_code
-      @security_codes[level] = new_code
-    end
-
-    def self.to_rmsp_bool bool
-      if bool
-        'True'
-      else
-        'False'
-      end
-    end
-
-    def self.from_rsmp_bool str
-      str == 'True'
-    end
-
-    def self.make_status value, q='recent'
-      case value
-      when true, false
-        return to_rmsp_bool(value), q
-      else
-        return value, q
-      end
-    end
-
-    def do_deferred item
-      case item
-      when :restart
-        log "Restarting TLC", level: :info
-        restart
-      end
-    end
-
-  end
-end