ruote 0.9.19 → 0.9.20

data/lib/openwfe/extras/expool/dbhistory.rb

@@ -1,135 +0,0 @@
-#
-#--
-# Copyright (c) 2008, John Mettraux, OpenWFE.org
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.
-#
-# . Redistributions in binary form must reproduce the above copyright notice,
-#   this list of conditions and the following disclaimer in the documentation
-#   and/or other materials provided with the distribution.
-#
-# . Neither the name of the "OpenWFE" nor the names of its contributors may be
-#   used to endorse or promote products derived from this software without
-#   specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-# POSSIBILITY OF SUCH DAMAGE.
-#++
-#
-
-#
-# "made in Japan"
-#
-# John Mettraux
-#
-
-#require_gem 'activerecord'
-gem 'activerecord'; require 'active_record'
-
-require 'openwfe/expool/history'
-
-
-module OpenWFE::Extras
-
-  #
-  # The migration for the DbHistory table
-  #
-  class HistoryTables < ActiveRecord::Migration
-
-    def self.up
-
-      create_table :history do |t|
-
-        t.column :created_at, :timestamp
-        t.column :source, :string, :null => false
-        t.column :event, :string, :null => false
-        t.column :wfid, :string
-        t.column :fei, :string
-        t.column :participant, :string
-        t.column :message, :string # empty is ok
-      end
-
-      add_index :history, :created_at
-      add_index :history, :source
-      add_index :history, :event
-      add_index :history, :wfid
-      add_index :history, :participant
-    end
-
-    def self.down
-
-      drop_table :history
-    end
-  end
-
-  #
-  # The active record for process errors. Not much to say.
-  #
-  class HistoryEntry < ActiveRecord::Base
-
-    set_table_name "history"
-
-    #
-    # returns a FlowExpressionId instance if the entry has a 'fei' or
-    # nil instead.
-    #
-    def full_fei
-
-      self.fei ? OpenWFE::FlowExpressionId.from_s(self.fei) : nil
-    end
-  end
-
-  class DbHistory < OpenWFE::History
-
-    #def initialize (service_name, application_context)
-    #  super
-    #end
-
-    def log (source, event, *args)
-
-      fei = get_fei args
-
-      he = HistoryEntry.new
-
-      he.source = source.to_s
-      he.event = event.to_s
-
-      if fei
-        he.wfid = fei.parent_wfid
-        he.fei = fei.to_s
-      end
-
-      he.message = get_message(source, event, args)
-
-      wi = get_workitem(args)
-      he.participant = wi.participant_name if wi.respond_to?(:participant_name)
-
-      begin
-        he.save!
-      rescue Exception => e
-        lerror { "history logging failure" }
-      end
-    end
-  end
-
-  #--
-  #class ThreadedDbHistory < History
-  #end
-  #++
-
-end
-

data/lib/openwfe/extras/listeners/sqslisteners.rb

@@ -1,146 +0,0 @@
-#
-#--
-# Copyright (c) 2007-2008, John Mettraux, OpenWFE.org
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.
-#
-# . Redistributions in binary form must reproduce the above copyright notice,
-#   this list of conditions and the following disclaimer in the documentation
-#   and/or other materials provided with the distribution.
-#
-# . Neither the name of the "OpenWFE" nor the names of its contributors may be
-#   used to endorse or promote products derived from this software without
-#   specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-# POSSIBILITY OF SUCH DAMAGE.
-#++
-#
-
-#
-# "made in Japan"
-#
-# John Mettraux at openwfe.org
-#
-
-require 'yaml'
-require 'base64'
-require 'monitor'
-
-require 'openwfe/service'
-require 'openwfe/listeners/listener'
-
-#require 'rubygems'
-require 'rufus/sqs' # gem 'rufus-sqs'
-
-
-module OpenWFE
-module Extras
-
-  #
-  # Polls an Amazon SQS queue for workitems
-  #
-  # Workitems can be instances of InFlowWorkItem or LaunchItem.
-  #
-  #   require 'openwfe/extras/listeners/sqslisteners'
-  #
-  #   ql = OpenWFE::SqsListener("workqueue1", engine.application_context)
-  #
-  #   engine.add_workitem_listener(ql, "2m30s")
-  #     #
-  #     # thus, the engine will poll our "workqueue1" SQS queue
-  #     # every 2 minutes and 30 seconds
-  #
-  class SqsListener < Service
-
-    include MonitorMixin
-    include WorkItemListener
-    include Rufus::Schedulable
-
-    #
-    # The name of the Amazon SQS whom this listener cares for
-    #
-    attr_reader :queue_name
-
-    def initialize (queue_name, application_context)
-
-      @queue_name = queue_name.to_s
-
-      service_name = "#{self.class}::#{@queue_name}"
-
-      super service_name, application_context
-
-      linfo { "new() queue is '#{@queue_name}'" }
-    end
-
-    #
-    # polls the SQS for incoming messages
-    #
-    def trigger (params)
-      synchronize do
-
-        ldebug { "trigger()" }
-
-        qs = Rufus::SQS::QueueService.new
-
-        qs.create_queue @queue_name
-          # just to be sure it is there
-
-        while true
-
-          l = qs.get_messages(
-            @queue_name, :timeout => 0, :count => 255)
-
-          break if l.length < 1
-
-          l.each do |msg|
-
-            o = decode_object msg
-
-            handle_item o
-
-            msg.delete
-
-            ldebug do
-              "trigger() " +
-              "handled successfully msg #{msg.message_id}"
-            end
-          end
-        end
-      end
-    end
-
-    #
-    # Extracts a workitem from the message's body.
-    #
-    # By default, this listeners assumes the workitem is stored in
-    # its "hash form" (not directly as a Ruby InFlowWorkItem instance).
-    #
-    # LaunchItem instances (as hash as well) are also accepted.
-    #
-    def decode_object (message)
-
-      o = Base64.decode64 message.message_body
-      o = YAML.load o
-      o = OpenWFE::workitem_from_h o
-      o
-    end
-  end
-
-end
-end
-

data/lib/openwfe/extras/participants/sqsparticipants.rb

@@ -1,125 +0,0 @@
-#
-#--
-# Copyright (c) 2007-2008, John Mettraux, OpenWFE.org
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.
-#
-# . Redistributions in binary form must reproduce the above copyright notice,
-#   this list of conditions and the following disclaimer in the documentation
-#   and/or other materials provided with the distribution.
-#
-# . Neither the name of the "OpenWFE" nor the names of its contributors may be
-#   used to endorse or promote products derived from this software without
-#   specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-# POSSIBILITY OF SUCH DAMAGE.
-#++
-#
-#
-
-#
-# "made in Japan"
-#
-# John Mettraux at openwfe.org
-#
-
-require 'yaml'
-require 'base64'
-
-#require 'rubygems'
-require 'rufus/sqs' # gem 'rufus-sqs'
-
-require 'openwfe/participants/participant'
-
-
-module OpenWFE
-module Extras
-
-  #
-  # This participant dispatches its workitem to an Amazon SQS queue.
-  #
-  # If the queue doesn't exist, the participant will create it.
-  #
-  # a small example :
-  #
-  #   # ...
-  #   engine.register_participant(:sqs0, SqsParticipant.new("workqueue0"))
-  #   # ...
-  #
-  # For more details about SQS :
-  # http://aws.amazon.com
-  #
-  class SqsParticipant
-    include LocalParticipant
-
-    attr_reader :queue, :queue_service
-
-    #
-    # Builds an SqsParticipant instance pointing to a given queue.
-    # (Refer to the SQS service on how to set up AWS key ids).
-    #
-    # By default the host_name is 'queue.amazonaws.com'
-    #
-    def initialize (queue_name, host_name=nil)
-
-      @queue_name = queue_name
-
-      @queue_service = Rufus::SQS::QueueService.new host_name
-
-      @queue_service.create_queue @queue_name
-        # make sure the queue exists
-
-      @queue = @queue_service.get_queue @queue_name
-    end
-
-    #
-    # The method called by the engine when it has a workitem for this
-    # participant.
-    #
-    def consume (workitem)
-
-      msg = encode_workitem workitem
-
-      msg_id = @queue_service.put_message @queue, msg
-
-      ldebug do
-        "consume() msg sent to queue #{@queue.path} id is #{msg_id}"
-      end
-    end
-
-    protected
-
-      #
-      # Turns the workitem into a Hash, pass it through YAML and
-      # encode64 the result.
-      #
-      # Override this method as needed.
-      #
-      # Something of 'text/plain' flavour should be returned.
-      #
-      def encode_workitem (wi)
-
-        msg = wi.to_h
-        msg = YAML.dump(msg)
-        msg = Base64.encode64(msg)
-        msg
-      end
-  end
-
-end
-end

data/lib/openwfe/listeners/socketlisteners.rb

@@ -1,272 +0,0 @@
-#
-#--
-# Copyright (c) 2007-2008, John Mettraux, OpenWFE.org
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.
-#
-# . Redistributions in binary form must reproduce the above copyright notice,
-#   this list of conditions and the following disclaimer in the documentation
-#   and/or other materials provided with the distribution.
-#
-# . Neither the name of the "OpenWFE" nor the names of its contributors may be
-#   used to endorse or promote products derived from this software without
-#   specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-# POSSIBILITY OF SUCH DAMAGE.
-#++
-#
-
-#
-# "made in Japan"
-#
-# John Mettraux at openwfe.org
-#
-
-require 'yaml'
-require 'socket'
-
-require 'openwfe/utils'
-require 'openwfe/service'
-require 'openwfe/workitem'
-require 'openwfe/rudefinitions'
-require 'openwfe/orest/xmlcodec'
-require 'openwfe/listeners/listener'
-
-
-#
-# some base listener implementations
-#
-module OpenWFE
-
-  #
-  # Listens for workitems on a socket.
-  #
-  # Workitems can be instances of InFlowWorkItem or LaunchItem.
-  #
-  # By default, listens on port 7007.
-  #
-  #   require 'openwfe/listeners/socketlisteners'
-  #
-  #   engine.add_workitem_listener(OpenWFE::SocketListener)
-  #
-  # But you can be more specific :
-  #
-  #   engine.add_workitem_listener(
-  #     OpenWFE::SocketListener.new(
-  #       "sl_whatever_name",
-  #       engine.application_context,
-  #       "target.host.xx",
-  #       7707)
-  #
-  class SocketListener < Service
-    include WorkItemListener
-
-    attr_reader :server, :thread
-
-    def initialize (service_name, application_context, port=nil, iface=nil)
-
-      super(service_name, application_context)
-
-      #iface ||= "127.0.0.1"
-        # not necessary
-
-      port ||= 7007
-
-      @server = TCPServer.new(iface, port)
-
-      @thread = OpenWFE.call_in_thread(@service_name, self) do
-        listen
-      end
-    end
-
-    #
-    # Stops this socket listener (shuts down its socket)
-    #
-    def stop
-
-      @thread.raise "shutdown"
-
-      begin
-        @server.close
-      rescue Exception => e
-        ldebug { "stop() exc : #{e.to_s}" }
-      end
-      #begin
-      #  @server.shutdown
-      #rescue Exception => e
-      #  ldebug { "stop() exc : #{e.to_s}" }
-      #end
-
-      linfo { "stop() shut socket down" }
-    end
-
-    #
-    # This base implementation is capable of decoding XML workitems
-    # and YAML workitems.
-    #
-    def decode_workitem (data)
-
-      return nil if not data or data.length < 4
-
-      if data[0, 1] == "<"
-        #
-        # seems like XML
-
-        OpenWFE::XmlCodec::decode(data)
-
-      elsif data[0, 3] == "---"
-        #
-        # must be YAML
-
-        YAML.load(data)
-
-      else
-        #
-        # perhaps OpenWFEja style header + workitem
-
-        data = pop_line(data)
-        data = pop_line(data)
-
-        decode_workitem(data)
-      end
-    end
-
-    #
-    # Simply pipes back the result of get_engine.reply(wi) on the
-    # socket.
-    #
-    def reply_to_socket (socket, result)
-
-      socket.puts result.to_s
-      socket.puts
-      socket.close_write
-
-      #ldebug { "reply_to_socket() result is >#{result}<" }
-    end
-
-    #
-    # The base implementation allows returns true.
-    #
-    # An override of this method might check the origin of the socket
-    # and maybe only allow a certain range of hosts...
-    #
-    def is_allowed? (socket)
-
-      true
-    end
-
-    protected
-
-      #
-      # Where the socket waiting loop is...
-      #
-      def listen
-
-        linfo { "listen() listening on #{@server.addr.join('  ')}" }
-
-        loop do
-
-          socket = nil
-
-          begin
-            socket = @server.accept
-          rescue Exception => e
-            linfo { "listen() shut down '#{e}'" }
-          end
-
-          return unless socket
-
-          OpenWFE.call_in_thread(@service_name, self) do
-            handle_socket(socket) if socket and is_allowed?(socket)
-          end
-        end
-      end
-
-      #
-      # The bulk work of handling a connection is done here. The
-      # incoming workitem is piped to the engine, then the result
-      # it written back a string on the socket which then gets closed.
-      #
-      def handle_socket (socket)
-
-        ldebug do
-          "handle_socket() "+
-          "connection from #{socket.peeraddr.join('  ')}"
-        end
-
-        data = ""
-        loop do
-          s = socket.gets
-          break unless s
-          data += s
-        end
-
-        wi = decode_workitem(data)
-
-        if not wi
-
-          ldebug do
-            "handle_socket() "+
-            ">>>#{data}<<< doesn't contain a workitem"
-          end
-          socket.close
-          return
-
-        else
-
-          ldebug do
-            "handle_socket() "+
-            "received something of class #{wi.class}"
-          end
-        end
-
-        result = nil
-
-        begin
-
-          #result = get_engine.reply(wi)
-          #result = handle_item(wi)
-          handle_item wi
-
-          result = "<ok-reply/>"
-
-          ldebug { "handle_socket() result is >>#{result}<<" }
-
-        rescue Exception => e
-
-          result = "ERROR\n\n"
-          result << OpenWFE::exception_to_s(e)
-
-          ldebug { "handle_socket() error reply :\n" + result }
-        end
-
-        reply_to_socket(socket, result)
-
-        socket.close
-      end
-
-      def pop_line (s)
-
-        i = s.index("\n")
-        return s unless i
-        s[i+1..-1]
-      end
-  end
-
-end
-