euston-daemons 1.0.4-java → 1.1.0-java

data/Gemfile

@@ -1,4 +1,6 @@
 source :rubygems
 gemspec
 
-gem 'mongoid', :git => 'https://github.com/guyboertje/mongoid.git'
+gem 'cranky',             :git => 'https://github.com/leemhenson/cranky.git',           :branch => 'hashes'
+gem 'ffaker',             :git => 'https://github.com/leemhenson/ffaker.git',           :branch => 'countries'
+gem 'safely',             :git => 'https://github.com/leemhenson/safely.git',           :branch => 'override_strategies'

data/Rakefile

@@ -71,11 +71,10 @@ end
 #
 #############################################################################
 
-default_rspec_opts = %w[--colour --format Fuubar]
-
 desc "Run all examples"
 RSpec::Core::RakeTask.new(:spec) do |t|
-  t.rspec_opts = default_rspec_opts
+  t.rspec_opts = ['-r ./spec/spec_helper.rb', '--colour', '--format Fuubar']
+  t.pattern = 'spec/**/*_spec.rb'
 end
 
 #############################################################################

data/euston-daemons.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name        = 'euston-daemons'
-  s.version     = '1.0.4'
+  s.version     = '1.1.0'
   s.platform    = RUBY_PLATFORM.to_s == 'java' ? 'java' : Gem::Platform::RUBY
   s.authors     = ['Lee Henson', 'Guy Boertje']
   s.email       = ['lee.m.henson@gmail.com', 'guyboertje@gmail.com']
@@ -16,34 +16,68 @@ Gem::Specification.new do |s|
     euston-daemons.gemspec
     lib/euston-daemons.rb
     lib/euston-daemons/command_processor_daemon/config/environment.rb
-    lib/euston-daemons/command_processor_daemon/lib/components/command_handler_component.rb
+    lib/euston-daemons/command_processor_daemon/lib/clients/command_handler.rb
+    lib/euston-daemons/command_processor_daemon/lib/command_handlers/retry_failed_message.rb
     lib/euston-daemons/command_processor_daemon/lib/daemon.rb
-    lib/euston-daemons/command_processor_daemon/lib/settings.rb
+    lib/euston-daemons/command_processor_daemon/lib/mongo_models/failed_message.rb
     lib/euston-daemons/command_processor_daemon/rake_task.rb
+    lib/euston-daemons/euston/daemon.rb
+    lib/euston-daemons/euston/daemon_client.rb
+    lib/euston-daemons/euston/daemon_component.rb
+    lib/euston-daemons/euston/daemon_environment.rb
     lib/euston-daemons/event_processor_daemon/config/environment.rb
-    lib/euston-daemons/event_processor_daemon/lib/components/event_handler_component.rb
+    lib/euston-daemons/event_processor_daemon/lib/clients/event_handler.rb
     lib/euston-daemons/event_processor_daemon/lib/daemon.rb
-    lib/euston-daemons/event_processor_daemon/lib/settings.rb
+    lib/euston-daemons/event_processor_daemon/lib/event_handlers/message_failure.rb
     lib/euston-daemons/event_processor_daemon/rake_task.rb
-    lib/euston-daemons/framework/basic_component.rb
-    lib/euston-daemons/framework/channel_thread.rb
-    lib/euston-daemons/framework/component_shutdown.rb
-    lib/euston-daemons/framework/daemon.rb
-    lib/euston-daemons/framework/handler_bindings_component.rb
-    lib/euston-daemons/framework/queue.rb
     lib/euston-daemons/message_buffer_daemon/config/environment.rb
-    lib/euston-daemons/message_buffer_daemon/lib/components/buffer_component.rb
-    lib/euston-daemons/message_buffer_daemon/lib/components/event_store_component.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/command_buffer_cleanup.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/command_buffer_publisher.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/command_logger.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/euston_exchange_accessors.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/event_buffer_cleanup.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/event_buffer_publisher.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/event_logger.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/event_store_dispatcher.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/message_buffer_cleanup.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/message_buffer_publisher.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/message_logger.rb
+    lib/euston-daemons/message_buffer_daemon/lib/clients/mongo_model_accessors.rb
     lib/euston-daemons/message_buffer_daemon/lib/daemon.rb
-    lib/euston-daemons/message_buffer_daemon/lib/message_logger.rb
-    lib/euston-daemons/message_buffer_daemon/lib/publisher.rb
-    lib/euston-daemons/message_buffer_daemon/lib/read_model/message_log.rb
-    lib/euston-daemons/message_buffer_daemon/lib/settings.rb
-    lib/euston-daemons/message_buffer_daemon/lib/subscriber.rb
+    lib/euston-daemons/message_buffer_daemon/lib/mongo_models/command_buffer.rb
+    lib/euston-daemons/message_buffer_daemon/lib/mongo_models/command_log.rb
+    lib/euston-daemons/message_buffer_daemon/lib/mongo_models/event_buffer.rb
+    lib/euston-daemons/message_buffer_daemon/lib/mongo_models/event_log.rb
+    lib/euston-daemons/message_buffer_daemon/lib/mongo_models/message_buffer.rb
+    lib/euston-daemons/message_buffer_daemon/lib/mongo_models/message_log.rb
     lib/euston-daemons/message_buffer_daemon/rake_task.rb
     lib/euston-daemons/rake_task.rb
     lib/euston-daemons/rake_tasks.rb
+    lib/euston-daemons/snapshot_daemon/lib/clients/snapshotter.rb
     lib/euston-daemons/version.rb
+    sample/Rakefile
+    sample/amqp_config.yml
+    sample/command_handlers.rb
+    sample/command_processor_daemon_config.yml
+    sample/event_handlers.rb
+    sample/event_processor_daemon_config.yml
+    sample/message_buffer_daemon_config.yml
+    sample/mongoid_config.yml
+    sample/pids/.placeholder
+    spec/daemons/command_buffer_publisher_spec.rb
+    spec/daemons/command_handler_spec.rb
+    spec/daemons/event_handler_spec.rb
+    spec/daemons/snapshot_client_spec.rb
+    spec/spec_helper.rb
+    spec/support/factories/commands.rb
+    spec/support/factories/commit.rb
+    spec/support/factories/event_message.rb
+    spec/support/factories/events.rb
+    spec/support/filters.rb
+    spec/support/sample_model/commands.rb
+    spec/support/sample_model/counter.rb
+    spec/support/sample_model/counter2.rb
+    spec/support/stub_retrying_subscription.rb
   ]
   # = MANIFEST =
 
@@ -53,21 +87,22 @@ Gem::Specification.new do |s|
   s.add_dependency              'activemodel',        '~> 3.0.0'
   s.add_dependency              'activesupport',      '~> 3.0.0'
   s.add_dependency              'erb-yaml',           '~> 1.0.0'
+  s.add_dependency              'euston',             '~> 1.1.0'
+  s.add_dependency              'euston-eventstore',  '~> 1.1.0'
+  s.add_dependency              'euston-rabbitmq',    '~> 1.1.0'
   s.add_dependency              'hollywood',          '~> 1.0.0'
   s.add_dependency              'i18n',               '~> 0.5.0'
-  s.add_dependency              'require_all',        '~> 1.2.0'
   s.add_dependency              'safely',             '~> 0.3.0'
 
   if RUBY_PLATFORM.to_s == 'java'
-    s.add_dependency            'euston-rabbitmq',    '~> 1.0.0'
     s.add_dependency            'jessica',            '~> 1.0.0'
-    s.add_dependency            'jmongo',             '~> 1.0.0'
+    s.add_dependency            'jmongo',             '~> 1.1.0'
   end
 
-  s.add_dependency              'euston',             '~> 1.0.0'
-  s.add_dependency              'euston-eventstore',  '~> 1.0.0'
-  s.add_dependency              'mongoid-glue',       '~> 1.0.0'
-  # s.add_dependency              'mongoid'
-
+  s.add_development_dependency  'awesome_print',      '~> 0.4.0'
+  s.add_development_dependency  'cranky',             '~> 0.2.0'
+  s.add_development_dependency  'ffaker',             '~> 1.8.0'
+  s.add_development_dependency  'fuubar',             '~> 0.0.0'
+  s.add_development_dependency  'rabbitmqadmin-cli',  '~> 1.0.2'
   s.add_development_dependency  'rspec',              '~> 2.6.0'
 end

data/lib/euston-daemons/command_processor_daemon/config/environment.rb

@@ -1,25 +1,34 @@
 require 'jessica'
-require 'euston'
-require 'euston-eventstore'
 require 'euston-rabbitmq'
-require_rel '../lib'
 
-Safely::Strategy::Log.logger = EUSTON_LOG
-AMQP.settings.merge! ErbYaml.read(AMQP_CONFIG_PATH, EUSTON_ENV)
-Euston::CommandProcessorDaemon::Settings.configure ErbYaml.read(DAEMON_CONFIG_PATH, EUSTON_ENV)
+require 'euston-daemons/command_processor_daemon/lib/mongo_models/failed_message'
+require 'euston-daemons/command_processor_daemon/lib/command_handlers/retry_failed_message'
+require 'euston-daemons/command_processor_daemon/lib/clients/command_handler'
+require 'euston-daemons/command_processor_daemon/lib/daemon'
 
-hash = ErbYaml.read(MONGOID_CONFIG_PATH, EUSTON_ENV)
+module Euston
+  module CommandProcessorDaemon
+    class DaemonEnvironment < Euston::DaemonEnvironment
+      class << self
+        attr_accessor :command_handler_namespaces, :client_instances
+      end
 
-event_connection = Mongo::Connection.new hash[:host], hash[:port], :safe => hash[:safe] #, :logger => EUSTON_LOG
-read_connection  = Mongo::Connection.new hash[:host], hash[:port], :safe => hash[:safe] #, :logger => EUSTON_LOG
+      def initialize data
+        @logger         = data[:logger]
+        @amqp_config    = ErbYaml.read data[:amqp_config_path],     data[:environment]
+        @daemon_config  = ErbYaml.read data[:daemon_config_path],   data[:environment]
+        @mongoid_config = ErbYaml.read data[:mongoid_config_path],  data[:environment]
 
-Euston::RabbitMq.event_store_mongodb = Mongo::DB.new(hash[:event_store_database], event_connection)
-Euston::RabbitMq.read_model_mongodb  = Mongo::DB.new(hash[:read_model_database], read_connection)
+        self.class.client_instances = @daemon_config[:client_instances]
+        self.class.command_handler_namespaces = data[:command_handler_namespaces]
+      end
 
-Euston::EventStore::Persistence::Mongodb::Config.instance.logger = EUSTON_LOG
-Euston::EventStore::Persistence::Mongodb::Config.instance.database = Euston::CommandProcessorDaemon::Settings.mongo_db_name
-
-Euston::RabbitMq.event_store = Euston::EventStore::Persistence::Mongodb::MongoPersistenceFactory.build
-Euston::RabbitMq.event_store.init
-
-Euston::Repository.event_store = Euston::EventStore::OptimisticEventStore.new Euston::RabbitMq.event_store
+      def setup
+        setup_safely @daemon_config[:hoptoad_key]
+        setup_amqp @amqp_config
+        setup_mongo @mongoid_config
+        setup_euston @mongoid_config[:event_store_database]
+      end
+    end
+  end
+end

data/lib/euston-daemons/command_processor_daemon/lib/clients/command_handler.rb

@@ -0,0 +1,37 @@
+module Euston
+  module CommandProcessorDaemon
+    class CommandHandler < Euston::DaemonClient
+      def initialize channel, handlers, logger
+        @channel = channel
+        @channel.prefetch 1
+        @handlers = handlers
+        @log = logger
+      end
+
+      private
+
+      def next_iteration
+        message_received = Proc.new do |message|
+          command_headers = CommandHeaders.from_hash(message[:headers]).freeze
+          command_body = message[:body].freeze
+
+          handler_type = command_headers.type.to_s.camelize.to_sym
+          handler_method_name = "__version__#{command_headers.version}"
+          reference = @handlers.find { |reference| reference.name == handler_type }
+
+          if reference.nil?
+            @log.debug "Delivering command #{command_headers} to command bus"
+            Euston::CommandBus.publish command_headers, command_body
+          else
+            @log.debug "Delivering command #{command_headers} to #{reference.name}.#{handler_method_name}"
+            reference.handler.new.send handler_method_name, command_headers, command_body
+          end
+        end
+
+        Euston::RabbitMq::RetryingSubscription.new(@channel, :command_handlers, @log)
+          .when(:message_received => message_received)
+          .subscribe
+      end
+    end
+  end
+end

data/lib/euston-daemons/command_processor_daemon/lib/command_handlers/retry_failed_message.rb

@@ -0,0 +1,35 @@
+module Euston
+  module CommandProcessorDaemon
+    module CommandHandlers
+      class RetryFailedMessage
+        include Euston::CommandHandler
+
+        version 1 do |headers, command|
+          model = MongoModel::FailedMessage.new DaemonEnvironment.event_store_mongodb
+          message = model.get_by_id command[:id]
+
+          unless message.nil?
+            routing_key = message['routing_key']
+            exchange = routing_key.split('.').first
+
+            headers = message['headers'].merge(:id => command[:id],
+                                               :type => message['type'],
+                                               :version => message['version'] )
+
+            if exchange == 'commands'
+              buffer = MessageBufferDaemon::MongoModel::CommandBuffer
+            elsif exchange == 'events'
+              buffer = MessageBufferDaemon::MongoModel::EventBuffer
+            end
+
+            buffer = buffer.new DaemonEnvironment.event_store_mongodb
+            buffer.push :headers => headers,
+                        :body => message['body']
+
+            model.remove_by_id command[:id]
+          end
+        end
+      end
+    end
+  end
+end

data/lib/euston-daemons/command_processor_daemon/lib/daemon.rb

@@ -1,42 +1,21 @@
 module Euston
   module CommandProcessorDaemon
-    class Daemon
-      include Euston::Daemon
+    class Daemon < Euston::Daemon
+      private
 
-      attr_reader :clients, :queue #,:ctx
+      def pre_registration_setup
+        handler_finder = Euston::RabbitMq::HandlerFinder.new [Euston::CommandHandler]
+        handler_finder.namespaces.push Euston::CommandProcessorDaemon::CommandHandlers, *DaemonEnvironment.command_handler_namespaces
+        @handlers = handler_finder.find
 
-      def initialize #(ctx)
-        @queue = Queue.new
-        # @ctx = ctx
-        @clients = {}
-
-        Settings.client_instances.times do |i|
-          @clients["command_component_#{i.succ}"] = CommandHandlerComponent.new self
-        end
+        binder = Euston::RabbitMq::CommandHandlerBinder.new @handlers
+        binder.ensure_bindings_exist
       end
 
-      def run
-        @clients.each do |name, component|
-          sleep 0.25
-          EUSTON_LOG.debug "Starting component: #{name}"
-          component.start
-        end
-
-        EUSTON_LOG.debug "Components started"
-
-        @clients.each do |name, component|
-          EUSTON_LOG.debug("Thread state of #{name}: #{component.thread_state}")
+      def register_components
+        (1..DaemonEnvironment.client_instances).each do |i|
+          register_component "command_handler_#{i}".to_sym, CommandHandler.new(AMQP::Channel.new, @handlers, @log)
         end
-
-        @queue.pop #<-------- stops here until interrupted
-
-        @clients.each do |name, component|
-          EUSTON_LOG.debug "Stopping component: #{name}"
-          component.stop
-        end
-
-        report_shutdown_reasons
-        EUSTON_LOG.debug "Components stopped"
       end
     end
   end

data/lib/euston-daemons/command_processor_daemon/lib/mongo_models/failed_message.rb

@@ -0,0 +1,34 @@
+module Euston
+  module CommandProcessorDaemon
+    module MongoModel
+      class FailedMessage
+        def initialize mongodb
+          name = 'failed_messages'
+          mongodb.create_collection name unless mongodb.collection_names.include? name
+
+          @collection = mongodb.collection name
+          @collection.ensure_index [ ['failure_timestamp', Mongo::ASCENDING] ], :unique => false, :name => 'failed_messages_failure_timestamp_index'
+        end
+
+        def get_by_id id
+          @collection.find_one({ '_id' => id })
+        end
+
+        def find_all
+          @collection.find({}, { :sort => [ 'failure_timestamp', Mongo::DESCENDING ] })
+        end
+
+        def log_failure failure
+          failure.recursive_stringify_keys!
+          failure['_id'] = failure.delete 'message_id'
+
+          @collection.save(failure, :safe => { :fsync => true })
+        end
+
+        def remove_by_id id
+          @collection.remove({ '_id' => id }, :safe => { :fsync => true })
+        end
+      end
+    end
+  end
+end

data/lib/euston-daemons/command_processor_daemon/rake_task.rb

@@ -2,9 +2,9 @@ module Euston
   class CommandProcessorRakeTask < Euston::Daemons::RakeTask
     attr_accessor :amqp_config_path, :command_handler_namespaces, :daemon_config_path, :mongoid_config_path
 
-    def initialize
+    def initialize environment
       @command_handler_namespaces = []
-      super(:command_processor_daemon)
+      super environment, :command_processor_daemon
     end
 
     def before_creating_task
@@ -12,23 +12,25 @@ module Euston
       @daemon_class = 'Euston::CommandProcessorDaemon::Daemon'
     end
 
-    def initialize_paths
-      EUSTON_LOG.debug "AMQP config path: #{@amqp_config_path}"
-      Object.const_set :AMQP_CONFIG_PATH, @amqp_config_path
+    def initialize_settings
+      @logger.debug "AMQP config path: #{@amqp_config_path}"
+      @data[:amqp_config_path] = @amqp_config_path
 
-      EUSTON_LOG.debug "Command handler namespaces: #{@command_handler_namespaces}"
-      Object.const_set :COMMAND_HANDLER_NAMESPACES, @command_handler_namespaces
+      @logger.debug "Command handler namespaces: #{@command_handler_namespaces}"
+      @data[:command_handler_namespaces] = @command_handler_namespaces
 
-      EUSTON_LOG.debug "Daemon config path: #{@daemon_config_path}"
-      Object.const_set :DAEMON_CONFIG_PATH, @daemon_config_path
+      @logger.debug "Daemon config path: #{@daemon_config_path}"
+      @data[:daemon_config_path] = @daemon_config_path
 
-      EUSTON_LOG.debug "Mongoid config path: #{@mongoid_config_path}"
-      Object.const_set :MONGOID_CONFIG_PATH, @mongoid_config_path
+      @logger.debug "Mongoid config path: #{@mongoid_config_path}"
+      @data[:mongoid_config_path] = @mongoid_config_path
     end
 
     def load_environment
-      EUSTON_LOG.debug "Loading environment"
-      require_rel 'config/environment.rb'
+      @logger.debug "Loading environment"
+      require 'euston-daemons/command_processor_daemon/config/environment'
+
+      Euston::CommandProcessorDaemon::DaemonEnvironment.new(@data).setup
     end
   end
 end

data/lib/euston-daemons/euston/daemon.rb

@@ -0,0 +1,93 @@
+module Euston
+  class Daemon
+    def initialize data
+      @log = data[:logger]
+      @queue = Queue.new
+      @components = []
+      @errors = []
+    end
+
+    def run
+      Thread.abort_on_exception = true
+
+      pre_registration_setup
+      register_components
+      trap_exit_signals
+      start_components
+      wait_for_shutdown_event
+      stop_components
+      report_shutdown_reasons
+    end
+
+    private
+
+    def pre_registration_setup
+      # virtual
+    end
+
+    def register_component name, klass
+      component = Euston::DaemonComponent.new @log, name, klass, self
+      component.when(:fatal_error_in_component => method(:shutdown))
+
+      @components << component
+    end
+
+    def register_components
+      # virtual
+    end
+
+    def report_shutdown_reasons
+      sleep 0.25
+      reports = []
+
+      until @errors.empty? do
+        e = @errors.shift
+        next if e.nil?
+
+        case e
+        when NativeException
+          Safely.report! e.cause
+        else
+          Safely.report! e
+        end
+      end
+    end
+
+    def report_component_statuses
+      @components.each do |component|
+        @log.debug "Thread state of #{component.name}: #{component.thread_state}"
+      end
+    end
+
+    def start_components
+      @components.each do |component|
+        @log.debug "Starting component: #{component.name}"
+        component.start
+        sleep 0.350
+      end
+    end
+
+    def stop_components
+      @components.each do |component|
+        @log.debug "Stopping component: #{component.name}"
+        component.stop
+      end
+    end
+
+    def shutdown error
+      @errors.push error unless error.nil?
+      @queue.push "SHUTDOWN"
+    end
+
+    def trap_exit_signals
+      signals = %W(INT TERM) & Signal.list.keys
+      signals.each { |sig| sig.freeze }.freeze
+      signals.each { |sig| Signal.trap(sig) { @queue.push(sig) } }
+    end
+
+    def wait_for_shutdown_event
+      @log.debug "Awaiting shutdown event"
+      @queue.pop #<-------- stops here until interrupted
+    end
+  end
+end

data/lib/euston-daemons/euston/daemon_client.rb

@@ -0,0 +1,24 @@
+module Euston
+  class DaemonClient
+    include Hollywood
+
+    def run
+      next_iteration unless stopped
+    end
+
+    def stop
+      @stopped = true
+      @channel.disconnect unless @channel.nil? || !@channel.respond_to?(:disconnect)
+    end
+
+    private
+
+    def next_iteration
+      # abstract
+    end
+
+    def stopped
+      @stopped ||= false
+    end
+  end
+end

data/lib/euston-daemons/euston/daemon_component.rb

@@ -0,0 +1,65 @@
+module Euston
+  class DaemonComponent
+    include Hollywood
+
+    def initialize logger, name, client, owner
+      @log, @name, @client, @owner = logger, name, client, owner
+    end
+
+    attr_reader :name
+
+    def start
+      @thread = Thread.new do
+        while_thread_is_running do
+          begin
+            @client.run
+          rescue => e
+            Thread.current[:exception] = e
+          end
+
+          report_exceptions
+        end
+      end
+    end
+
+    def stop
+      @client.stop
+      @thread[:stop] = true
+    end
+
+    def thread_state
+      @thread.status
+    end
+
+    private
+
+    def report_exceptions
+      exception = Thread.current[:exception]
+
+      unless exception.nil? || exception.to_s =~ /clean channel shutdown/
+        if exception.respond_to? :cause           # its a serious (Java?) exception
+          Thread.current[:stop] = true
+          callback :fatal_error_in_component, exception
+        else
+          Safely.report! exception
+        end
+      end
+    end
+
+    def thread_is_stopping?
+      Thread.current[:stop]
+    end
+
+    def wait_time
+      @wait_time ||= 0.2
+    end
+
+    def while_thread_is_running
+      until thread_is_stopping? do
+        yield
+
+        sleep wait_time
+      end
+    end
+  end
+end

data/lib/euston-daemons/euston/daemon_environment.rb

@@ -0,0 +1,54 @@
+module Euston
+  class DaemonEnvironment
+    def initialize data
+      @logger = data[:logger]
+    end
+
+    def setup
+      # abstract
+    end
+
+    private
+
+    def setup_amqp config
+      AMQP.settings.merge! config
+    end
+
+    def setup_euston event_store_database_name
+      Euston::EventStore::Persistence::Mongodb::Config.instance.logger = @logger
+      Euston::EventStore::Persistence::Mongodb::Config.instance.database = event_store_database_name
+
+      class << self.class
+        attr_accessor :event_store
+      end
+
+      self.class.event_store = Euston::EventStore::Persistence::Mongodb::MongoPersistenceFactory.build
+      self.class.event_store.init
+
+      Euston::Repository.event_store = Euston::EventStore::OptimisticEventStore.new self.class.event_store
+    end
+
+    def setup_mongo config
+      connection = Mongo::Connection.new config[:host], config[:port], :safe => config[:safe], :logger => @logger
+
+      class << self.class
+        attr_accessor :event_store_mongodb, :read_model_mongodb
+      end
+
+      self.class.event_store_mongodb  = Mongo::DB.new config[:event_store_database], connection
+      self.class.read_model_mongodb   = Mongo::DB.new config[:read_model_database],  connection
+    end
+
+    def setup_safely hoptoad_key
+      safely_strategies = [ Safely::Strategy::Log ]
+
+      unless hoptoad_key.nil?
+        Safely::Strategy::Hoptoad.hoptoad_key = data[:environment]
+        safely_strategies << Safely::Strategy::Hoptoad
+      end
+
+      Safely::Strategy::Log.logger = @logger
+      Safely.configure { |config| config.strategies = safely_strategies }
+    end
+  end
+end