amo_crm 0.2.2

data/lib/amo_crm/resources/companies.rb

@@ -0,0 +1,27 @@
+module AmoCRM::Resources
+  class Companies < Base
+    def find
+      raise 'no such method'
+    end
+
+    def set_path
+      'company/set'
+    end
+
+    def list_path
+      'company/list'
+    end
+
+    def response_key
+      'contacts'
+    end
+
+    def self.entity_class
+      AmoCRM::Entities::Company
+    end
+
+    def self.resource_name
+      :companies
+    end
+  end
+end

data/lib/amo_crm/resources/contacts.rb

@@ -0,0 +1,23 @@
+module AmoCRM::Resources
+  class Contacts < Base
+    def set_path
+      'contacts/set'
+    end
+
+    def list_path
+      'contacts/list'
+    end
+
+    def response_key
+      'contacts'
+    end
+
+    def self.entity_class
+      AmoCRM::Entities::Contact
+    end
+
+    def self.resource_name
+      :contacts
+    end
+  end
+end

data/lib/amo_crm/resources/custom_entity_metadata.rb

@@ -0,0 +1,18 @@
+module AmoCRM::Resources
+  # https://online.moysklad.ru/exchange/rest/ms/xml/CustomEntityMetadata/list
+  # Список аттрибутов, которые используются как свойства товара
+  class CustomEntityMetadata < Base
+    def self.entity_class
+      AmoCRM::Entities::CustomEntityMetadata
+    end
+
+    def self.type
+      'CustomEntityMetadata'
+    end
+
+    def self.resource_name
+      :custom_entity_metadata
+    end
+
+  end
+end

data/lib/amo_crm/resources/custom_field.rb

@@ -0,0 +1,28 @@
+module AmoCRM::Resources
+  class CustomField < Base
+
+    def all
+      page.items
+    end
+
+    def find
+      raise 'no such method'
+    end
+
+    def list_path
+      'accounts/current'
+    end
+
+    def pluralized_key_path
+      'account' # custom_fields
+    end
+
+    def self.entity_class
+      AmoCRM::Entities::CustomField
+    end
+
+    def self.resource_name
+      :custom_fields
+    end
+  end
+end

data/lib/amo_crm/resources/embedded_entity_metadata.rb

@@ -0,0 +1,20 @@
+module AmoCRM::Resources
+  class EmbeddedEntityMetadata < Base
+    def self.entity_class
+      AmoCRM::Entities::EmbeddedEntityMetadata
+    end
+
+    def self.type
+      'EmbeddedEntityMetadata'
+    end
+
+    def self.resource_name
+      :embedded_entity_metadata
+    end
+
+    def self.indexed *args
+      AmoCRM::Resources::EmbeddedEntityMetadataIndexed.new new(*args)
+    end
+
+  end
+end

data/lib/amo_crm/resources/embedded_entity_metadata_indexed.rb

@@ -0,0 +1,7 @@
+module AmoCRM::Resources
+  class EmbeddedEntityMetadataIndexed < Indexed
+    def subresource_by_name name
+      Subresource.new findWhere(name: name.to_s).attributeMetadata
+    end
+  end
+end

data/lib/amo_crm/resources/indexed.rb

@@ -0,0 +1,89 @@
+require_relative 'where_filter'
+
+module AmoCRM::Resources
+  class Indexed  < SimpleDelegator
+    WrongEntriesCountError = Class.new StandardError
+    ObjectHaveNoUuidError  = Class.new StandardError
+
+    include WhereFilter
+
+    def initialize resource
+      raise TypeError, 'resource должен быть AmoCRM::Resources::Base' unless resource.is_a? AmoCRM::Resources::Base
+      super resource
+    end
+
+    # Автоматически подгружает постранично данныез из API и возвращает их все сразу.
+    #
+    # @return [Array of AmoCRM::Entities::Base]
+    def all
+      @cached_list || pull_list
+    end
+
+    # Возвращает запрашивемую запись из кеша.
+    # Предварительно подгружает все записи через метод `all`
+    #
+    # @return Moyskald::Entities::Base
+    def find uuid
+      index[uuid]
+    end
+
+    # Перечень uuid-ов всех элементов в ресуресе
+    #
+    # @return [Array of uuids]
+    def uuids
+      index.keys
+    end
+
+    # Неиндексированный ресурс
+    #
+    # @return AmoCRM::Resources::Base
+    def resource
+      __getobj__
+    end
+
+    private
+
+    def values
+      index.values
+    end
+
+    def index
+      pull_list unless @_index
+      @_index
+    end
+
+    def pull_list
+      @cached_list = load_full_list
+      @_index = prepare_index @cached_list
+      @cached_list
+    end
+
+    def load_full_list
+      start = 0
+      list = []
+
+      _page = nil
+
+      begin
+        _page = page start: start
+        list += _page.items
+        break if _page.items.empty?
+        start = list.count
+      end while start<_page.total
+
+      raise WrongEntriesCountError, "При загрузке коллекции в результате колиество не совпадает с total: #{list.count}<>#{_page.total}" unless list.count==_page.total
+
+      list
+    end
+
+    def prepare_index cached_list
+      i={}
+      cached_list.each do |r|
+        raise ObjectHaveNoUuidError, "У объекта нет uuid: #{r.to_xml}" unless r.respond_to?(:uuid) && r.uuid
+        i[r.uuid]=r
+      end
+      return i
+    end
+
+  end
+end

data/lib/amo_crm/resources/leads.rb

@@ -0,0 +1,31 @@
+module AmoCRM::Resources
+  class Leads < Base
+    def all
+      page.items
+    end
+
+    def find
+      raise 'no such method'
+    end
+
+    def set_path
+      'leads/set'
+    end
+
+    def list_path
+      'leads/list'
+    end
+
+    def response_key
+      'leads'
+    end
+
+    def self.entity_class
+      AmoCRM::Entities::Lead
+    end
+
+    def self.resource_name
+      :leads
+    end
+  end
+end

data/lib/amo_crm/resources/stock.rb

@@ -0,0 +1,36 @@
+module AmoCRM::Resources
+  class Stock < Base
+
+    def listWithConsignments params={}
+      list params.merge(showConsignments: true)
+    end
+
+    def all
+      page.items
+    end
+
+    def find
+      raise 'no such method'
+    end
+
+    def list_path
+      'exchange/rest/stock/xml'
+    end
+
+    def self.entity_class
+      AmoCRM::Entities::StockTO
+    end
+
+    def self.resource_name
+      :stock
+    end
+
+    private
+
+    def parse_page content
+      items = AmoCRM::Entities::StockTO.parse content
+      AmoCRM::Entities::Page.new items, items.count, 0, items.count
+    end
+
+  end
+end

data/lib/amo_crm/resources/subresource.rb

@@ -0,0 +1,21 @@
+require_relative 'where_filter'
+module AmoCRM::Resources
+  class Subresource < Struct.new(:items)
+    include WhereFilter
+
+    def find uuid
+      findWhere uuid: uuid
+    end
+
+    def all
+      items
+    end
+
+    private
+
+    def values
+      items
+    end
+
+  end
+end

data/lib/amo_crm/resources/where_filter.rb

@@ -0,0 +1,26 @@
+module AmoCRM::Resources::WhereFilter
+
+  # Возвращает список элементов по переданному фильтру.
+  # Например:
+  # > universe.features.where goodUuid: uuid
+  #
+  # @return [Array of AmoCRM::Entities::Base]
+  #
+  def where filter
+    values.select { |v| filtered? v, filter }
+  end
+
+  # Возвращает первый найденный по фильтру элемент или
+  # nil
+  #
+  # @return AmoCRM::Entities::Base || nil
+  def findWhere filter
+    where(filter).first
+  end
+
+  private
+
+  def filtered? o, filter={}
+    filter.select { |k,v| o.send(k)==v }.count == filter.keys.count
+  end
+end

data/lib/amo_crm/response.rb

@@ -0,0 +1,7 @@
+module AmoCRM
+  class Response
+    include Virtus.model
+    attribute :response
+    attribute :server_time, Integer
+  end
+end

data/lib/amo_crm/universe.rb

@@ -0,0 +1,44 @@
+require 'hashie'
+
+module AmoCRM
+  class Universe
+
+    cattr_reader :resources_list
+    attr_reader :client
+
+    # @param client[AmoCRM::Client]
+    def initialize client: nil
+      raise "Должен быть client[AmoCRM::Client]" unless client.is_a? AmoCRM::Client
+      @client = client
+      @resources={}
+    end
+
+    def self.client_class
+      Client
+    end
+
+    # Ленивое создание universe
+    #
+    # @param user_login
+    # @param user_hash
+    def self.build user_login: , user_hash: , url:
+      client = client_class.new url: url
+      client.authorize! user_login: user_login, user_hash: user_hash
+      new client: client
+    end
+
+    @@resources_list = []
+    AmoCRM::Resources.resources.each do |resource_klass|
+      resource = resource_klass.resource_name.to_sym
+      fail "Already have such resource #{resource}" if @@resources_list.include? resource
+      @@resources_list << resource
+      define_method resource_klass.resource_name do
+        @resources[resource_klass.type] ||= resource_klass.indexed( client: client )
+      end
+    end
+
+    def class_by_resource resource
+      "AmoCRM::Resources::#{resource.to_s.singularize.capitalize}".constantize
+    end
+  end
+end

data/lib/amo_crm/version.rb

@@ -0,0 +1,3 @@
+module AmoCRM
+  VERSION = "0.2.2"
+end

data/scripts/rest.sh

@@ -0,0 +1,25 @@
+
+#   source ./tmp/test_env
+resource=$1
+action=$2
+start=$3
+
+if [ -z "$MS_LOGIN" ] || [ -z "$MS_PASSWORD" ]; then
+  echo "Утсановите переменные окружения MS_LOGIN и MS_PASSWORD"
+  exit 1
+fi
+
+if [ -z "$resource" ]; then
+  echo "Запуск: rest.sh Resoruce [action]"
+  echo "Например: rest.sh Feature list"
+  exit 2
+fi
+
+url="https://online.moysklad.ru/exchange/rest/ms/xml/$1/$2"
+
+if [ "$action"=="list" ] && [ -n "$start" ]; then
+  url="$url?start=$start"
+fi
+
+echo $url >&2
+curl --max-redirs 3 -is -u $MS_LOGIN:$MS_PASSWORD $url

data/spec/fixtures/302.raw

@@ -0,0 +1,15 @@
+HTTP/1.1 302 Moved Temporarily
+Server: nginx
+Date: Thu, 13 Nov 2014 16:43:43 GMT
+Content-Type: text/html
+Content-Length: 154
+Connection: keep-alive
+Location: http://brandymint.ru/
+
+<html>
+<head><title>302 Found</title></head>
+<body bgcolor="white">
+<center><h1>302 Found</h1></center>
+<hr><center>nginx</center>
+</body>
+</html>

data/spec/fixtures/400.raw

@@ -0,0 +1,8 @@
+HTTP/1.1 400 Bad Request
+Server: nginx/1.6.1
+Date: Thu, 13 Nov 2014 14:40:41 GMT
+Content-Type: text/html;charset=utf-8
+Content-Length: 1801
+Connection: close
+
+<html><head><title>JBoss Web/7.2.0.Final - JBWEB000064: Error report</title><style><!--H1 {font-family:Tahoma,Arial,sans-serif;color:white;background-color:#525D76;font-size:22px;} H2 {font-family:Tahoma,Arial,sans-serif;color:white;background-color:#525D76;font-size:16px;} H3 {font-family:Tahoma,Arial,sans-serif;color:white;background-color:#525D76;font-size:14px;} BODY {font-family:Tahoma,Arial,sans-serif;color:black;background-color:white;} B {font-family:Tahoma,Arial,sans-serif;color:white;background-color:#525D76;} P {font-family:Tahoma,Arial,sans-serif;background:white;color:black;font-size:12px;}A {color : black;}A.name {color : black;}HR {color : #525D76;}--></style> </head><body><h1>JBWEB000065: HTTP Status 400 - Unable to extract parameter from http request: javax.ws.rs.QueryParam(&quot;start&quot;) value is '' for public abstract javax.ws.rs.core.StreamingOutput com.lognex.sklad.back.ejb.exchange.rest.IRestExchangeManagerUser.entityList(java.lang.String,java.lang.String,java.lang.Integer,java.lang.Integer,java.lang.String,java.lang.String,java.lang.Boolean,java.lang.Boolean)</h1><HR size="1" noshade="noshade"><p><b>JBWEB000309: type</b> JBWEB000067: Status report</p><p><b>JBWEB000068: message</b> <u>Unable to extract parameter from http request: javax.ws.rs.QueryParam(&quot;start&quot;) value is '' for public abstract javax.ws.rs.core.StreamingOutput com.lognex.sklad.back.ejb.exchange.rest.IRestExchangeManagerUser.entityList(java.lang.String,java.lang.String,java.lang.Integer,java.lang.Integer,java.lang.String,java.lang.String,java.lang.Boolean,java.lang.Boolean)</u></p><p><b>JBWEB000069: description</b> <u>JBWEB000120: The request sent by the client was syntactically incorrect.</u></p><HR size="1" noshade="noshade"><h3>JBoss Web/7.2.0.Final</h3></body></html>