sp-duh 2.0.6

data/lib/sp/duh/jsonapi/parameters.rb

@@ -0,0 +1,44 @@
+module SP
+  module Duh
+    module JSONAPI
+      class Parameters
+        attr_reader :user_id, :company_id, :company_schema, :sharded_schema, :default_accounting_schema, :accounting_schema, :accounting_prefix
+
+        def initialize(parameters = {})
+          check_jsonapi_args(parameters)
+
+          @user_id                   = parameters[:user_id].to_s              unless parameters[:user_id].nil?
+          @company_id                = parameters[:company_id].to_s           unless parameters[:company_id].nil?
+          @company_schema            = parameters[:company_schema]            unless parameters[:company_schema].nil?
+          @sharded_schema            = parameters[:sharded_schema]            unless parameters[:sharded_schema].nil?
+          @default_accounting_schema = parameters[:default_accounting_schema] unless parameters[:default_accounting_schema].nil?
+          @accounting_schema         = parameters[:accounting_schema]         unless parameters[:accounting_schema].nil?
+          @accounting_prefix         = parameters[:accounting_prefix]         unless parameters[:accounting_prefix].nil?
+        end
+
+        def to_json(options = {})
+          {
+            user_id: self.user_id,
+            company_id: self.company_id,
+            company_schema: self.company_schema,
+            sharded_schema: self.sharded_schema,
+            default_accounting_schema: self.default_accounting_schema,
+            accounting_schema: self.accounting_schema,
+            accounting_prefix: self.accounting_prefix
+          }.to_json
+        end
+
+        private
+        def check_jsonapi_args(parameters)
+          if parameters.keys.any? && !(parameters.keys - valid_keys).empty?
+            raise SP::Duh::JSONAPI::Exceptions::InvalidJSONAPIKeyError.new(key: (parameters.keys - valid_keys).join(', '))
+          end
+        end
+
+        def valid_keys
+          [ :user_id, :company_id, :company_schema, :sharded_schema, :default_accounting_schema, :accounting_schema, :accounting_prefix ]
+        end
+      end
+    end
+  end
+end

data/lib/sp/duh/jsonapi/resource_publisher.rb

@@ -0,0 +1,28 @@
+# Usage (by a module or class belonging to a library or gem that publishes JSONAPI resources):
+#
+# In the module or class definition:
+#
+# include SP::Duh::JSONAPI::ResourcePublisher
+# self.jsonapi_resources_root = "<path to the folder where the resources configurations are located>"
+
+module SP
+  module Duh
+    module JSONAPI
+
+      module ResourcePublisher
+        extend ::ActiveSupport::Concern
+
+        included do
+          SP::Duh::JSONAPI::Configuration.add_publisher self
+        end
+
+        module ClassMethods
+          attr_reader :jsonapi_resources_root
+          private
+            attr_writer :jsonapi_resources_root
+        end
+
+      end
+    end
+  end
+end

data/lib/sp/duh/jsonapi/service.rb

@@ -0,0 +1,110 @@
+module SP
+  module Duh
+    module JSONAPI
+
+      VERSION = '1.0'
+
+      class Status
+        OK = 200
+        ERROR = 500
+      end
+
+      class Service
+
+        def self.protocols ; [ :db, :http ] ; end
+        def connection ; @pg_connection ; end
+        def url ; @url ; end
+        def set_url(value) ; @url = value ; end
+        def configuration ; @configuration ; end
+        def adapter
+          raise Exceptions::ServiceSetupError.new('JSONAPI prefix not specified', nil) if url.blank?
+          @adapter_instance ||= @adapter.new(self)
+          SP::Duh::JSONAPI::Model::Base.adapter ||= @adapter_instance
+          @adapter_instance
+        end
+
+        def protocol ; @protocol ; end
+        def protocol=(value)
+          if !value.to_sym.in?(Service.protocols)
+            raise Exceptions::ServiceProtocolError.new(protocol: value.to_sym, protocols: Service.protocols.join(', '))
+          end
+          @protocol = value.to_sym
+        end
+
+        def initialize(pg_connection, url, default_adapter = SP::Duh::JSONAPI::Adapters::Db)
+          @pg_connection = pg_connection
+          @url           = url
+          protocol       = :db
+          @configuration = Configuration.new(pg_connection, url)
+          @adapter       = default_adapter
+          adapter unless url.nil?
+        end
+
+        def setup
+          begin
+            create_jsonapi_function()
+          rescue StandardError => e
+            raise Exceptions::ServiceSetupError.new(nil, e)
+          end
+          configuration.setup()
+        end
+
+        def close
+          @pg_connection.close if !@pg_connection.nil? && !@pg_connection.finished?
+          @adapter_instance = nil
+          @adapter          = nil
+          @url              = nil
+          @configuration    = nil
+        end
+
+        def set_jsonapi_parameters(parameters = nil) ; @parameters = parameters ; end
+        def clear_jsonapi_args                       ; @parameters = nil ; end
+        def parameters                               ; @parameters ; end
+
+        private
+
+          def create_jsonapi_function
+            connection.exec %Q[
+
+              CREATE OR REPLACE FUNCTION public.jsonapi (
+                IN method               text,
+                IN uri                  text,
+                IN body                 text,
+                IN user_id              text,
+                IN company_id           text,
+                IN company_schema       text,
+                IN sharded_schema       text,
+                IN accounting_schema    text,
+                IN accounting_prefix    text,
+                OUT http_status         integer,
+                OUT response            text
+              ) RETURNS record AS '$libdir/pg-jsonapi.so', 'jsonapi' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.inside_jsonapi (
+              ) RETURNS boolean AS '$libdir/pg-jsonapi.so', 'inside_jsonapi' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.get_jsonapi_user (
+              ) RETURNS text AS '$libdir/pg-jsonapi.so', 'get_jsonapi_user' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.get_jsonapi_company (
+              ) RETURNS text AS '$libdir/pg-jsonapi.so', 'get_jsonapi_company' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.get_jsonapi_company_schema (
+              ) RETURNS text AS '$libdir/pg-jsonapi.so', 'get_jsonapi_company_schema' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.get_jsonapi_sharded_schema (
+              ) RETURNS text AS '$libdir/pg-jsonapi.so', 'get_jsonapi_sharded_schema' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.get_jsonapi_accounting_schema (
+              ) RETURNS text AS '$libdir/pg-jsonapi.so', 'get_jsonapi_accounting_schema' LANGUAGE C;
+
+              CREATE OR REPLACE FUNCTION public.get_jsonapi_accounting_prefix (
+              ) RETURNS text AS '$libdir/pg-jsonapi.so', 'get_jsonapi_accounting_prefix' LANGUAGE C;
+
+            ]
+          end
+      end
+
+    end
+  end
+end

data/lib/sp/duh/migrations.rb

@@ -0,0 +1,47 @@
+#
+# Copyright (c) 2011-2017 Cloudware S.A. All rights reserved.
+#
+# This file is part of sp-duh.
+#
+# sp-duh 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.
+#
+# sp-duh 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 Affero General Public License
+# along with sp-duh.  If not, see <http://www.gnu.org/licenses/>.
+#
+# encoding: utf-8
+#
+module SP
+  module Duh
+    module Migrations
+      extend ::ActiveSupport::Concern
+
+      included do
+      end
+
+      module ClassMethods
+
+        attr_reader :migrations_root
+
+        def migrator(pg_connection)
+          if @migrator.nil? || @migrator.root != migrations_root || @migrator.connection != pg_connection
+            @migrator = Migrator.new(pg_connection, migrations_root)
+          end
+          @migrator
+        end
+
+        private
+
+          attr_writer :migrations_root
+      end
+
+    end
+  end
+end

data/lib/sp/duh/migrations/migrator.rb

@@ -0,0 +1,41 @@
+module SP
+  module Duh
+    module Migrations
+
+      class Migrator
+
+        attr_reader :root
+
+        def connection ; @pg_connection ; end
+
+        def initialize(pg_connection, migrations_root)
+          @pg_connection = pg_connection
+          @root = migrations_root
+        end
+
+        def up(migration_name) ; migrate(migration_name, :up) ; end
+        def down(migration_name) ; migrate(migration_name, :down) ; end
+
+        private
+
+          def migrate(migration_name, direction = :up)
+            _log("Migrating #{direction.to_s} #{migration_name}...", "Migrations::Migrator")
+            run_all_on(File.join(root, migration_name, direction.to_s))
+            _log("[DONE]", "Migrations::Migrator")
+          end
+
+          def run_all_on(folder)
+            connection.transaction do |t|
+              Dir.glob(File.join(folder, '*.sql')).sort.each do |step|
+                name = File.basename(step, '.*')
+                _log("  #{name}", "Migrations::Migrator")
+                t.exec File.read(step)
+              end
+            end
+          end
+
+      end
+
+    end
+  end
+end

data/lib/sp/duh/repl.rb

@@ -0,0 +1,193 @@
+#
+# Copyright (c) 2011-2017 Cloudware S.A. All rights reserved.
+#
+# This file is part of sp-duh.
+#
+# sp-duh 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.
+#
+# sp-duh 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 Affero General Public License
+# along with sp-duh.  If not, see <http://www.gnu.org/licenses/>.
+#
+# encoding: utf-8
+#
+module SP
+  module Duh
+
+    class Repl
+
+      @@help = Array.new
+      @@cmds = Array.new
+
+      def initialize (a_pg_conn)
+        @see_calc  = false
+        @pg_conn   = a_pg_conn
+        @hist_file = ".#{@prompt.split('>')[0].strip}_history"
+        begin
+          File.open(@hist_file).each do |line|
+            Readline::HISTORY << line.strip
+          end
+        rescue
+          # no history file
+        end
+        self
+      end
+
+      def self.desc (a_msg)
+        @@help << a_msg
+        @@cmds << a_msg.split(' ')[0].strip
+      end
+
+      #
+      # http://bogojoker.com/readline/
+      # Smarter Readline to prevent empty and dups
+      #   1. Read a line and append to history
+      #   2. Quick Break on nil
+      #   3. Remove from history if empty or dup
+      #
+      def readline_with_hist_management ()
+        line = Readline.readline(@prompt, true)
+        return nil if line.nil?
+        if line =~ /^\s*$/ or Readline::HISTORY.to_a[-2] == line
+          Readline::HISTORY.pop
+        end
+        line
+      end
+
+      def check_db ()
+        raise "can't do that! database connection is not valid" if @pg_conn.nil?
+      end
+
+      desc 'help                  -- you are looking at it'
+      def help ()
+        puts @@help
+      end
+
+      def save_history
+        File.open(@hist_file, "w") do |f|
+          Readline::HISTORY.to_a[0..100].each do |line|
+            f.write "#{line}\n"
+          end
+        end
+      end
+
+      desc 'quit                  -- exit this shell'
+      def quit ()
+        puts "quiting"
+        save_history()
+        exit
+      end
+
+      desc 'initsee               -- install pg-see in the database'
+      def initsee (a_recreate = false)
+        SP::Duh.initsee(@pg_conn, a_recreate)
+      end
+
+      desc 'psql                  -- open sql console'
+      def psql ()
+        system("psql --user=#{@pg_conn.user} --host=#{@pg_conn.host} #{@pg_conn.db}")
+      end
+
+      desc 'open <file>           -- open file with system command'
+      def open (a_file)
+        system("open #{File.expand_path(a_file)}")
+      end
+
+      desc 'debug                 -- enter IRB'
+      def debug
+         byebug
+      end
+
+      desc 'pid                   -- get pg backend pid'
+      def pid
+        pid = @pg_conn.exec("SELECT pg_backend_pid() AS pid")[0]["pid"]
+        puts "Backend PID: #{pid}"
+      end
+
+      #desc 'reload_jsonapi        -- configure JSON API'
+      # @TODO check helpers to reload json and modules with JSM and TD
+      #def reload_jsonapi
+      #  JSONAPI.service.setup
+      #end
+
+      def repl ()
+        cmdset = @@cmds.abbrev
+        while buf = readline_with_hist_management
+          begin
+            buf.strip!
+            args = buf.split(' ')
+            command = args[0]
+            args    = args[1..-1]
+            unless cmdset.has_key?(command)
+              fallback_command(buf)
+              next
+            end
+            command = cmdset[command]
+            if respond_to?(command)
+              arity = method(command).arity
+              if arity >= 0
+                if arity != args.length
+                  puts "command #{command} requires #{arity} arguments (#{args.length} given)"
+                  next
+                end
+              elsif arity < 0
+                min_args = -arity - 1
+                if args.length < min_args or args.length > -arity
+                  puts "command #{command} takes #{min_args} to #{-arity} arguments (#{args.length} given)"
+                  next
+                end
+              end
+              send(command, *args)
+            else
+              fallback_command(buf)
+            end
+          rescue SystemExit
+            save_history()
+            exit
+          rescue Exception => e
+            puts e.message
+            puts e.backtrace
+          end
+        end
+
+      end
+
+      def fallback_command (a_command)
+        begin
+          if @see_calc and @pg_conn != nil
+            cmd  = a_command.gsub("'", "''")
+            calc = @pg_conn.exec(%Q[
+                SELECT json::json FROM see_evaluate_expression('#{cmd}');
+              ])
+            if calc.cmd_tuples != 1
+              puts "unknown error unable to calculate expression"
+            else
+              jresult = JSON.parse(calc[0]['json'])
+              if jresult['error'] != nil
+                if jresult['error']['type'] == 'osal::exception'
+                  puts jresult['error']['trace']['why']
+                else
+                  puts jresult['error']
+                end
+              else
+                puts jresult['result']
+              end
+            end
+          else
+            puts "#{a_command} is not a valid command"
+          end
+        rescue => e
+          puts e.message
+        end
+      end
+
+    end
+  end
+end