cpee 1.3.102

data/lib/cpee/handler_notifications.rb

@@ -0,0 +1,46 @@
+# This file is part of CPEE.
+# 
+# CPEE is free software: you can redistribute it and/or modify it under the terms
+# of the GNU General Public License as published by the Free Software Foundation,
+# either version 3 of the License, or (at your option) any later version.
+# 
+# CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with
+# CPEE (file COPYING in the main directory).  If not, see
+# <http://www.gnu.org/licenses/>.
+
+class NotificationsHandler < Riddl::Utils::Notifications::Producer::HandlerBase
+  def ws_open(socket)
+    @data.add_ws(@key,socket)
+  end
+  def ws_close
+    @data.del_ws(@key)
+  end
+  def ws_message(data)
+    begin
+      doc = XML::Smart::string(data)
+      callback = doc.find("string(/vote/@id)")
+      result = doc.find("string(/vote)")
+      @data.callbacks[callback].callback(result == 'true' ? true : false)
+      @data.callbacks.delete(callback)
+    rescue
+      puts "Invalid message over websocket"
+    end
+  end
+
+  def create
+    @data.unserialize_notifications!(:cre,@key)
+    @data.notify('properties/handlers/change')
+  end
+  def delete
+    @data.unserialize_notifications!(:del,@key)
+    @data.notify('properties/handlers/change')
+  end
+  def update
+    @data.unserialize_notifications!(:upd,@key)
+    @data.notify('properties/handlers/change')
+  end
+end

data/lib/cpee/handler_properties.rb

@@ -0,0 +1,43 @@
+# This file is part of CPEE.
+# 
+# CPEE is free software: you can redistribute it and/or modify it under the terms
+# of the GNU General Public License as published by the Free Software Foundation,
+# either version 3 of the License, or (at your option) any later version.
+# 
+# CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with
+# CPEE (file COPYING in the main directory).  If not, see
+# <http://www.gnu.org/licenses/>.
+
+class PropertiesHandler < Riddl::Utils::Properties::HandlerBase
+  def sync
+    case @property
+      when 'handlerwrapper'
+        @data.unserialize_handlerwrapper!
+        @data.notify('properties/handlerwrapper/change')
+      when 'description'
+        @data.unserialize_description!
+        @data.notify('properties/description/change')
+      when 'endpoints'
+        @data.unserialize_endpoints!
+        @data.notify('properties/endpoints/change')
+      when 'dataelements'
+        @data.unserialize_dataelements!
+        @data.notify('properties/dataelements/change')
+      when 'positions'  
+        @data.unserialize_positions!
+        @data.notify('properties/position/change')
+      when 'state'  
+        @data.unserialize_state!
+      else
+        nil
+    end
+  end
+
+  def create; sync; end
+  def update; sync; end
+  def delete; sync; end
+end

data/lib/cpee/implementation.rb

@@ -0,0 +1,174 @@
+# This file is part of CPEE.
+# 
+# CPEE is free software: you can redistribute it and/or modify it under the terms
+# of the GNU General Public License as published by the Free Software Foundation,
+# either version 3 of the License, or (at your option) any later version.
+# 
+# CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along with
+# CPEE (file COPYING in the main directory).  If not, see
+# <http://www.gnu.org/licenses/>.
+
+require 'fileutils'
+require 'riddl/server'
+require 'riddl/client'
+require 'riddl/utils/notifications_producer'
+require 'riddl/utils/properties'
+require ::File.dirname(__FILE__) + '/controller'
+
+module CPEE
+
+  SERVER = File.expand_path(File.dirname(__FILE__) + '/../cpee.xml')
+
+  def self::implementation(opts)
+    opts[:instances]                  ||= File.expand_path(File.dirname(__FILE__) + '/../../server/instances')
+    opts[:handlerwrappers]            ||= File.expand_path(File.dirname(__FILE__) + '/../../server/handlerwrappers')
+    opts[:topics]                     ||= File.expand_path(File.dirname(__FILE__) + '/../../server/resources/topics.xml')
+    opts[:properties_init]            ||= File.expand_path(File.dirname(__FILE__) + '/../../server/resources/properties.init')
+    opts[:properties_schema_active]   ||= File.expand_path(File.dirname(__FILE__) + '/../../server/resources/properties.schema.active')
+    opts[:properties_schema_finished] ||= File.expand_path(File.dirname(__FILE__) + '/../../server/resources/properties.schema.finished')
+    opts[:properties_schema_inactive] ||= File.expand_path(File.dirname(__FILE__) + '/../../server/resources/properties.schema.inactive')
+
+    Proc.new do
+      controller = {}
+      Dir[opts[:instances] + '/*/properties.xml'].map{|e|::File::basename(::File::dirname(e))}.each do |id|
+        controller[id.to_i] = Controller.new(id,opts)
+      end
+      Dir[opts[:handlerwrappers] + "/*.rb"].each do |h|
+        require h
+      end
+
+      interface 'properties' do |r|
+        id = r[:h]['RIDDL_DECLARATION_PATH'].split('/')[1].to_i
+        use Riddl::Utils::Properties::implementation(controller[id].properties, PropertiesHandler.new(controller[id]), opts[:mode]) if controller[id]
+      end  
+
+      interface 'main' do
+        run CPEE::Instances, controller if get '*'
+        run CPEE::NewInstance, controller, opts if post 'instance-name'
+        on resource do |r|
+          run CPEE::Info, controller if get
+          run CPEE::DeleteInstance, controller, opts if delete
+          on resource 'callbacks' do
+            run CPEE::Callbacks, controller, opts if get
+            on resource do
+              run CPEE::ExCallback, controller if get || put || post || delete
+            end  
+          end  
+        end  
+      end
+
+      interface 'notifications' do |r|
+        id = r[:h]['RIDDL_DECLARATION_PATH'].split('/')[1].to_i
+        use Riddl::Utils::Notifications::Producer::implementation(controller[id].notifications, NotificationsHandler.new(controller[id]), opts[:mode]) if controller[id]
+      end
+    end  
+  end  
+
+  class ExCallback < Riddl::Implementation #{{{
+    def response
+      controller = @a[0]
+      id = @r[0].to_i
+      callback = @r[2]
+      controller[id].mutex.synchronize do
+        if controller[id].callbacks.has_key?(callback) then
+          controller[id].callbacks[callback].callback(@p)
+          controller[id].callbacks.delete(callback)
+        end
+      end  
+    end
+  end #}}}
+
+  class Callbacks < Riddl::Implementation #{{{
+    def response
+      controller = @a[0]
+      opts = @a[1]
+      id = @r[0].to_i
+      unless controller[id]
+        @status = 400
+        return
+      end
+      Riddl::Parameter::Complex.new("info","text/xml") do
+        cb = XML::Smart::string("<callbacks details='#{opts[:mode]}'/>")
+        if opts[:mode] == :debug
+          controller[id].callbacks.each do |k,v|
+            cb.root.add("callback",{"id" => k},"[#{v.protocol.to_s}] #{v.info}")
+          end  
+        end
+        cb.to_s
+      end  
+    end
+  end #}}}
+
+  class Instances < Riddl::Implementation #{{{
+    def response
+      controller = @a[0]
+      Riddl::Parameter::Complex.new("wis","text/xml") do
+        ins = XML::Smart::string('<instances/>')
+        controller.each do |k,v|
+          name = v.properties.data.find("string(/p:properties/p:name)")
+          state = v.properties.data.find("string(/p:properties/p:state)")
+          ins.root.add('instance',name, 'id' => k, 'state' => state)
+        end
+        ins.to_s
+      end
+    end
+  end #}}}
+
+  class NewInstance < Riddl::Implementation #{{{
+    def response
+      controller = @a[0]
+      opts = @a[1]
+      name = @p[0].value
+      id = controller.keys.sort.last.to_i
+      while true
+        id += 1
+        Dir.mkdir(opts[:instances] + "/#{id}") rescue nil
+        break
+      end  
+      controller[id] = Controller.new(id,opts)
+      controller[id].properties.data.find("/p:properties/p:name").first.text = name
+
+      Riddl::Parameter::Simple.new("id", id)
+    end
+  end #}}}
+
+  class Info < Riddl::Implementation #{{{
+    def response
+      controller = @a[0]
+      id = @r[0].to_i
+      unless controller[id]
+        @status = 400
+        return
+      end
+      Riddl::Parameter::Complex.new("info","text/xml") do
+        i = XML::Smart::string <<-END
+          <info instance='#{@r[0]}'>
+            <notifications/>
+            <properties/>
+            <callbacks/>
+          </info>
+        END
+        i.to_s
+      end
+    end
+  end #}}}
+
+  class DeleteInstance < Riddl::Implementation #{{{
+    def response
+      controller = @a[0]
+      opts = @a[1]
+      id = @r[0].to_i
+      unless controller[id]
+        @status = 400
+        return
+      end
+      controller.delete(id)
+      FileUtils.rm_r(opts[:instances] + "/#{@r[0]}")
+    end
+  end #}}}
+
+end

data/lib/engine.xml

@@ -0,0 +1,85 @@
+<!--
+  This file is part of CPEE.
+
+  CPEE is free software: you can redistribute it and/or modify it under the terms
+  of the GNU General Public License as published by the Free Software Foundation,
+  either version 3 of the License, or (at your option) any later version.
+
+  CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+  PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License along with
+  CPEE (file COPYING in the main directory).  If not, see
+  <http://www.gnu.org/licenses/>.
+-->
+
+<description datatypeLibrary="http://www.w3.org/2001/XMLSchema-datatypes" xmlns="http://riddl.org/ns/description/1.0" xmlns:xi="http://www.w3.org/2001/XInclude">
+
+  <message name="list-of-workflow-instances">
+    <parameter name="wis" mimetype="text/xml" handler="http://riddl.org/ns/handlers/relaxng">
+      <xi:include href="engine/instances.rng"/>
+    </parameter>
+  </message>
+
+  <message name="instance-id">
+    <parameter name="id" type="integer"/>
+  </message>
+
+  <message name="instance-name">
+    <parameter name="name" type="string"/>
+  </message>
+  
+  <message name="instance-info">
+    <parameter name="info" mimetype="text/xml" handler="http://riddl.org/ns/handlers/relaxng">
+      <xi:include href="engine/instance-info.rng"/>
+    </parameter>
+  </message>
+  <message name="callbacks">
+    <parameter name="info" mimetype="text/xml" handler="http://riddl.org/ns/handlers/relaxng">
+      <xi:include href="engine/callbacks.rng"/>
+    </parameter>
+  </message>
+  <message name="xsl">
+    <parameter name="xsl" mimetype="application/xml"/>
+  </message>
+
+  <message name="message">
+    <parameter name="type" type="integer"/>
+    <parameter name="message" type="string"/>
+    <optional>
+      <parameter name="details" mimetype="text/xml"/>
+      <parameter name="details" mimetype="text/yaml"/>
+    </optional>  
+  </message>
+
+  <resource>
+    <get in="*" out="list-of-workflow-instances"/>
+    <post in="instance-name" out="instance-id"/>
+    <resource>
+      <get in="*" out="instance-info"/>
+      <delete in="*"/>
+      <resource relative="callbacks">
+        <get in="*" out="callbacks"/>
+        <resource>
+          <put in="*"/>
+        </resource>
+      </resource>
+      <resource relative="notifications">
+        <resource relative="subscriptions">
+          <resource>
+            <resource relative="debug">
+              <put in="message"/>
+            </resource>
+            <resource relative="error">
+              <put in="message"/>
+            </resource>
+            <resource relative="info">
+              <put in="message"/>
+            </resource>
+          </resource>
+        </resource>
+      </resource>
+    </resource>
+  </resource>
+</description>

data/lib/engine/callbacks.rng

@@ -0,0 +1,41 @@
+<!--
+  This file is part of CPEE.
+
+  CPEE is free software: you can redistribute it and/or modify it under the terms
+  of the GNU General Public License as published by the Free Software Foundation,
+  either version 3 of the License, or (at your option) any later version.
+
+  CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+  PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License along with
+  CPEE (file COPYING in the main directory).  If not, see
+  <http://www.gnu.org/licenses/>.
+-->
+
+<grammar xmlns="http://relaxng.org/ns/structure/1.0" datatypeLibrary="http://www.w3.org/2001/XMLSchema-datatypes">
+  <start>
+    <element name="callbacks">
+      <attribute name="details">
+        <choice>
+          <value>debug</value>
+          <value>production</value>
+        </choice>  
+      </attribute>
+      <zeroOrMore>
+        <ref name="callback"/>
+      </zeroOrMore>  
+   	</element>
+  </start>
+
+  <define name="callback">
+    <element name='callback'>
+      <attribute name='id'>
+        <data type="string"/>
+      </attribute>
+      <data type="string"/>
+    </element>
+  </define>  
+
+</grammar>

data/lib/engine/instance-info.rng

@@ -0,0 +1,41 @@
+<!--
+  This file is part of CPEE.
+
+  CPEE is free software: you can redistribute it and/or modify it under the terms
+  of the GNU General Public License as published by the Free Software Foundation,
+  either version 3 of the License, or (at your option) any later version.
+
+  CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+  PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License along with
+  CPEE (file COPYING in the main directory).  If not, see
+  <http://www.gnu.org/licenses/>.
+-->
+
+<grammar xmlns="http://relaxng.org/ns/structure/1.0" datatypeLibrary="http://www.w3.org/2001/XMLSchema-datatypes">
+  <start>
+    <element name="info">
+      <attribute name='instance'>
+        <data type="integer"/>
+      </attribute>
+      <zeroOrMore>
+        <ref name="info"/>
+      </zeroOrMore>  
+   	</element>
+  </start>
+
+  <define name="info">
+    <element name="notifications">
+      <empty/>
+    </element>  
+    <element name="properties">
+      <empty/>
+    </element>  
+    <element name="callbacks">
+      <data type="string"/>
+    </element>  
+  </define>  
+
+</grammar>

data/lib/engine/instances.rng

@@ -0,0 +1,38 @@
+<!--
+  This file is part of CPEE.
+
+  CPEE is free software: you can redistribute it and/or modify it under the terms
+  of the GNU General Public License as published by the Free Software Foundation,
+  either version 3 of the License, or (at your option) any later version.
+
+  CPEE is distributed in the hope that it will be useful, but WITHOUT ANY
+  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+  PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License along with
+  CPEE (file COPYING in the main directory).  If not, see
+  <http://www.gnu.org/licenses/>.
+-->
+
+<grammar xmlns="http://relaxng.org/ns/structure/1.0" datatypeLibrary="http://www.w3.org/2001/XMLSchema-datatypes">
+  <start>
+    <element name="instances">
+      <zeroOrMore>
+        <ref name="instance"/>
+      </zeroOrMore>  
+   	</element>
+  </start>
+
+  <define name="instance">
+    <element name='instance'>
+      <attribute name='id'>
+        <data type="integer"/>
+      </attribute>
+      <attribute name='state'>
+        <data type="string"/>
+      </attribute>
+      <data type="string"/>
+    </element>
+  </define>  
+
+</grammar>