ixtlan-remote 0.1.0

data/lib/ixtlan/remote/model_helpers.rb

@@ -0,0 +1,73 @@
+#
+# ixtlan-remote - helper sync data between miniapps or communicate wth realtime
+# rest-services
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan-remote.
+#
+# ixtlan-remote is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan-remote 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan-remote.  If not, see <http://www.gnu.org/licenses/>.
+#
+module Ixtlan
+  module Remote
+    module ModelHelpers
+
+      def to_model_underscore( data )
+        m = to_model( data )
+        m.to_s.underscore if m
+      end
+
+      def to_model_singular_underscore( data )
+        to_model_underscore( data ).sub( /s$/, '' )
+      end
+
+      def to_model( data )
+        case data
+        when Hash
+          if data.size == 1
+            case data.values.first
+            when Array
+              data.keys.first
+            when Hash
+              data.keys.first
+            end
+          end
+        when Array
+          if data.empty?
+            #TODO
+          else
+            to_model_class(data[0].class)
+          end
+        when String
+          data
+        when Symbol
+          data
+        when Class
+          to_model_class(data)
+        else
+          to_model_class(data.class)
+        end
+      end
+
+      def to_model_class(obj)
+        if obj.respond_to?(:model_name) 
+          obj.model_name.constantize
+        elsif obj.is_a? Class
+          obj
+        else
+          obj.class
+        end
+      end
+    end
+  end
+end

data/lib/ixtlan/remote/model_helpers.rb~

@@ -0,0 +1,53 @@
+module Ixtlan
+  module Remote
+    module ModelHelpers
+
+      def to_model_underscore(data)
+        m = to_model(data)
+        m.to_s.underscore if m
+      end
+
+      def to_model_singular_underscore(data)
+        to_model_underscore(data).singularize
+      end
+
+      def to_model(data)
+        case data
+        when Hash
+          if data.size == 1
+            case data.values.first
+            when Array
+              data.keys.first
+            when Hash
+              data.keys.first
+            end
+          end
+        when Array
+          if data.empty?
+            #TODO
+          else
+            to_model_class(data[0].class)
+          end
+        when String
+          data
+        when Symbol
+          data
+        when Class
+          to_model_class(data)
+        else
+          to_model_class(data.class)
+        end
+      end
+
+      def to_model_class(obj)
+        if obj.respond_to?(:model_name) 
+          obj.model_name.constantize
+        elsif obj.is_a? Class
+          obj
+        else
+          obj.class
+        end
+      end
+    end
+  end
+end

data/lib/ixtlan/remote/permission.rb

@@ -0,0 +1,40 @@
+#
+# ixtlan-remote - helper sync data between miniapps or communicate wth realtime
+# rest-services
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan-remote.
+#
+# ixtlan-remote is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan-remote 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan-remote.  If not, see <http://www.gnu.org/licenses/>.
+#
+module Ixtlan
+  module Remote
+    class Permission
+
+      include DataMapper::Resource
+ 
+      # key for selectng the IdentityMap should remain this class if
+      # there is no single table inheritance with Discriminator in place
+      # i.e. the subclass used as key for the IdentityMap
+      def self.base_model
+        self
+      end
+
+      property :id, Serial
+      
+      property :allowed_ip, String
+      property :authentication_token, String
+    end
+  end
+end

data/lib/ixtlan/remote/permission.rb~

@@ -0,0 +1,19 @@
+module Ixtlan
+  module Remote
+    class Permission
+
+      include DataMapper::Resource
+ 
+      # key for selectng the IdentityMap should remain the class 
+      # there is no single table inheritance with Discrimantor in place
+      def self.base_model
+        self
+      end
+
+      property :id, Serial
+      
+      property :ip, String
+      property :token, String
+    end
+  end
+end

data/lib/ixtlan/remote/railtie.rb

@@ -0,0 +1,30 @@
+#
+# ixtlan-remote - helper sync data between miniapps or communicate wth realtime
+# rest-services
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan-remote.
+#
+# ixtlan-remote is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan-remote 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan-remote.  If not, see <http://www.gnu.org/licenses/>.
+#
+require 'ixtlan/remote/rest'
+module Ixtlan
+  module Remote
+    class Railtie < Rails::Railtie
+
+      config.rest = Ixtlan::Remote::Rest.new
+      
+    end
+  end
+end

data/lib/ixtlan/remote/railtie.rb~

@@ -0,0 +1,9 @@
+require 'ixtlan/remote/rest'
+module Ixtlan
+  
+  class RemoteGettextRailtie < Rails::Railtie
+
+    config.rest = Ixtlan::Remote::Rest.new
+
+  end
+end

data/lib/ixtlan/remote/remote_access_controller.rb~

@@ -0,0 +1,25 @@
+require 'ixtlan/remote/constant_time_compare'
+module Ixtlan
+  module Remote
+    module RemoteAccessController
+      include Ixtlan::Remote::ConstantTimeCompare
+
+      def x_service_token
+        @_x_service_token ||= request.headers['X-SERVICE-TOKEN']
+      end
+
+      def remote_permission
+        # constant time for finding the right permission
+        perm = nil
+        Permission.all.each do |rp|
+          perm = rp if constant_time_compare(rp.token, x_service_token)
+        end
+        raise "ip #{request.remote_ip} wrong authentication" unless perm 
+        # if the perm.ip == nil then do not check IP 
+        # server clusters have many IPs then use perm.ip = nil
+        raise "ip #{request.remote_ip} not allowed" if (!perm.ip.blank? && request.remote_ip != perm.ip)
+        perm
+      end
+    end
+  end
+end

data/lib/ixtlan/remote/remote_permisson.rb~

@@ -0,0 +1,9 @@
+class RemotePermission
+
+  include DataMapper::Resource
+
+  property :id, Serial
+
+  property :ip, String
+  property :token, String
+end

data/lib/ixtlan/remote/resource.rb

@@ -0,0 +1,145 @@
+#
+# ixtlan-remote - helper sync data between miniapps or communicate wth realtime
+# rest-services
+# Copyright (C) 2012 Christian Meier
+#
+# This file is part of ixtlan-remote.
+#
+# ixtlan-remote is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# ixtlan-remote 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with ixtlan-remote.  If not, see <http://www.gnu.org/licenses/>.
+#
+require 'ixtlan/remote/model_helpers'
+module Ixtlan
+  module Remote
+    class Resource
+
+      include ModelHelpers
+
+      def initialize(resource, model, new_method = nil)
+        @base = resource
+        @model = model
+        @new_method = new_method || @model.method(:new)
+      end
+
+      def create_result_objects( result )
+        root = @model.to_s.sub(/.*::/, '').underscore.singularize
+        if result.is_a? Array
+          result.collect do |r|
+            new_instance( r[root] || r )
+          end
+        else
+          attr = if result.is_a?( Hash ) && result.size == 1
+                   result[root]
+                 end
+          new_instance( attr || result )
+        end
+      end
+      private :create_result_objects
+
+      def send_it(&block)
+        raise "no method given - call any CRUD method first" unless @method
+        headers = {:content_type => :json, :accept => :json}
+        headers[:params] = @params if @params
+        result =
+          if @method != :get
+            @resource.send( @method, @payload ? @payload.to_json : '', headers, &block )
+          else
+            @resource.send( @method, headers, &block )
+          end
+        if result && result.size > 0
+          create_result_objects( JSON.load( result ) )
+        else
+          nil
+        end
+      end
+
+      def query_params(params)
+        @params = params
+        self
+      end
+
+      def last(args)
+        if args.last.is_a?(Hash)
+          args.reverse!
+          l = args.shift
+          args.reverse!
+          l
+        end
+      end
+
+      def retrieve(*args)
+        @method = :get
+        @params = nil
+        @resource = @base[path(*args)]
+        @payload = nil
+        self
+      end
+
+      def create(*obj_or_hash)
+        @method = :post
+        @payload = last(obj_or_hash)
+        @params = nil
+        @resource = @base[path(*obj_or_hash)]
+        self
+      end
+
+      def update(*obj_or_hash)
+        @method = :put
+        @payload = last(obj_or_hash)
+        @params = nil
+        @resource = @base[path(*obj_or_hash)]
+        self
+      end
+
+      def delete(*obj_or_hash)
+        @method = :delete
+        @payload = last(obj_or_hash)
+        @params = nil
+        @resource = @base[path(*obj_or_hash)]
+        self
+      end
+
+      def model
+        @model
+      end
+
+      private
+
+      def new_instance( attributes )
+        @new_method.call( attributes )
+      end
+
+      def path(*parts)
+        parts.flatten.collect do |part|
+          case part
+          when Class
+            part.to_s.pluralize.underscore
+          else
+            if part.respond_to? :attributes
+              part.class.to_s.pluralize.underscore
+            else
+              part.to_s
+            end
+          end
+        end * '/'
+      end
+
+      def path_part(data)
+        unless data.is_a?(Hash)
+          data = [data] unless data.is_a?(Array)
+          data.collect { |d| d.to_s }.join("/")
+        end
+      end
+    end
+  end
+end

data/lib/ixtlan/remote/resource.rb-~

@@ -0,0 +1,165 @@
+require 'ixtlan/remote/model_helpers'
+module Ixtlan
+  module Remote
+    class Resource
+
+      include ModelHelpers
+
+      def initialize(resource, model_map = {})
+        @base = resource
+        @map = model_map
+      end
+
+      def send_it(&block)
+        raise "no method given - call any CRUD method first" unless @method
+        headers = {:content_type => :json, :accept => :json}
+        headers[:params] = @params if @params
+        result =
+          if @method != :get
+            @resource.send( @method, @payload.to_json, headers, &block )
+          else
+            @resource.send( @method, headers, &block )
+          end
+        unless result.blank?
+          result = JSON.load( result )
+puts "+" * 80
+p result
+p @model
+p @map
+p @model_key
+puts "+" * 80
+          if @model && @map[ @model ]
+            root = @map[ @model ]
+#            root.sub!(/s$/, '') if root.is_a? String
+            root = @model_key
+            if result.is_a? Array
+              if result.empty?
+                []
+              else
+                root = 
+                  if result[ 0 ].is_a?( Hash ) && result[ 0 ].size == 1
+                    root
+                  end
+                result.collect do |r|
+                  new_instance( @model, r[root] || r )
+                end
+              end
+            else
+              attr = if result.is_a?( Hash ) && result.size == 1
+                       result[root] || result
+                     else
+                       result
+                     end
+p attr
+              new_instance(@model, attr)
+            end
+          else
+            result
+          end
+        end
+      end
+
+      def query_params(params)
+        @params = params
+        self
+      end
+
+      # retrieve(Locale) => GET /locales
+      # retrieve(Locale, 1) => GET /locales/1
+      # retrieve(:locales) => GET /locales
+      # retrieve(:locales, 1) => GET /locales/1
+      def retrieve(*args)
+        @method = :get
+        @params = nil
+        @resource = @base[path(*args)]
+        @payload = nil
+        self
+      end
+
+      # create(locale) => POST /locales
+      # create(:locale => {:code => 'en'}) => POST /locales
+      def create(*obj_or_hash)
+        @method = :post
+        @payload = nil#obj_or_hash.is_a?(Class)? nil : obj_or_hash
+        @params = nil
+        @resource = @base[path(*obj_or_hash)]
+        self
+      end
+
+      def update(*obj_or_hash)
+        @method = :put
+        @payload = nil#obj_or_hash.is_a?(Class)? nil : obj_or_hash
+        @params = nil
+        @resource = @base[path(*obj_or_hash)]
+        self
+      end
+
+      def delete(*obj_or_hash)
+        @method = :delete
+        @payload = nil #obj_or_hash.is_a?(Class)? nil : obj_or_hash
+        @params = nil
+        @resource = @base[path(*obj_or_hash)]
+        self
+      end
+
+      def model
+        @model
+      end
+
+      private
+
+      def new_instance( clazz, attributes )
+        @map[ clazz ].new( attributes )
+      end
+
+      def path(*parts)
+        parts.collect { |p| path_part( p ) }.delete_if { |p| p.nil? } * '/'
+      end
+
+      def model_set(model)
+        if model
+        m = model.to_s.singularize.camelize.constantize rescue nil
+        if m
+          @model = m 
+          @model_key = model.to_s.singularize.underscore
+        end
+        end
+      end
+
+      def path_part(data)
+        model = to_model_underscore(data)
+p "model" * 10
+p model
+        case data
+        when Hash
+          @payload = data
+          if model_set(model)
+            model = model.pluralize
+          else
+            model = nil
+          end
+        when Array
+          @payload = data
+          if model_set model
+            model = model.pluralize
+          end
+        when String
+          model_set model
+        when Fixnum
+          model = data.to_s
+        when Symbol
+          model_set model
+        when Class
+          model_set model
+          model = @map.member?( data ) ? @map[ data ].path : model.pluralize
+        else
+          @payload = data
+          model_set model
+          model = model.pluralize
+        end
+        model.underscore if model
+      end
+
+    end
+  end
+end