brfipe 0.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+--- 
+SHA1: 
+  metadata.gz: d25af6364acb0195abff8a550e61bb8802ba07ab
+  data.tar.gz: 140ad256104e3b0f3e2c7c51851ab02556b4eac9
+SHA512: 
+  metadata.gz: 9619a57b0f3db5e7ae3de4ccda1c7688bd0c7d265556c48f97563e6c670473fc0bf75fbd5763c34ded680156e0146940af36fa2b1db90e204a0a41320124f0c6
+  data.tar.gz: f9146d9be5c9facb506493159777fb4cd7284ac24833e993bb64a0e0cb4f35e161fb093a961406a376119701f518bad489a552fd8efbdb15da4523761173c807

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+coverage
+InstalledFiles
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+
+# YARD artifacts
+.yardoc
+_yardoc
+doc/

data/README.md

@@ -0,0 +1,4 @@
+brfipe
+======
+
+brfipe é uma gem que tem como objetivo realizar consultas no site da fipe (fundação instituto de pesquisas econômicas) na seção de "Preço Médio de Veículos".

data/brfipe.gemspec

@@ -0,0 +1,22 @@
+#encoding: UTF-8
+$:.push File.expand_path("../lib", __FILE__)
+
+require "brfipe/version"
+
+Gem::Specification.new do |s|
+  s.name        = "brfipe"
+  s.version     = Brfipe::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Rodrigo Batista da Silva"]
+  s.email       = ["rbsilva.ti@gmail.com"]
+  s.homepage    = "https://github.com/rbsilva/brfipe"
+  s.summary     = "Gem para consultas no site da fipe."
+  s.description = "brfipe é uma gem que tem como objetivo realizar consultas no site da fipe (fundação instituto de pesquisas econômicas) na seção de \"Preço Médio de Veículos\"."
+
+  s.rubyforge_project = "brfipe"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec}/*`.split("\n")
+
+  s.add_development_dependency "rspec"
+end

data/lib/brfipe/fipe.rb

@@ -0,0 +1,342 @@
+# encoding: UTF-8
+class Fipe
+  require 'socket'
+  require 'open-uri'
+  require 'bigdecimal'
+
+  # Domínio e página de consulta de preços de veículos
+  DOMAIN = 'fipe.org.br'
+  URL = '/web/indices/veiculos/default.aspx?'
+
+  # Constantes com os parâmetros necessários para obter os dados do site da fipe.
+  CARRO = 'p=51'
+  MOTO = 'v=m&p=52'
+  CAMINHAO = 'v=c&p=53'
+
+  # Tentativas de acesso ao site
+  TENTATIVAS = 3
+
+  def self.busca_por_codigo(argumentos={})
+    raise Exception.new('Tabela deve ser preenchida') if !argumentos[:tabela]
+    tabela = argumentos[:tabela]
+
+    raise Exception.new('Codigo fipe deve ser preenchido') if !argumentos[:codigo_fipe]
+    codigo_fipe = argumentos[:codigo_fipe]
+
+    raise Exception.new('Ano/Modelo deve ser preenchido') if !argumentos[:ano_modelo]
+    ano_modelo = argumentos[:ano_modelo]
+
+    veiculo = argumentos[:veiculo] ? argumentos[:veiculo] : CARRO
+
+    pagina_de_pesquisa = read_page("http://www.#{DOMAIN}#{URL}#{veiculo}")
+
+    view_state = catch_view_state(pagina_de_pesquisa)
+    event_validation = catch_event_validation(pagina_de_pesquisa)
+
+    data = []
+    data << ["__EVENTARGUMENT", ""]
+    data << ["ddlTabelaReferencia", tabela]
+    data << ["btnCodFipe", "Pesquisar"]
+    data << ["ddlMarca", '0']
+    data << ["ddlModelo", '0']
+    data << ["txtCodFipe", codigo_fipe]
+    data << ["__EVENTVALIDATION", event_validation]
+    data << ["__VIEWSTATE", view_state]
+
+    page = get_data(data, veiculo)
+
+    view_state = catch_view_state(page)
+    event_validation = catch_event_validation(page)
+
+    data = []
+    data << ["__EVENTARGUMENT", ""]
+    data << ["ddlTabelaReferencia", tabela]
+    data << ["ddlAnoValor", ano_modelo]
+    data << ["txtCodFipe", codigo_fipe]
+    data << ["__EVENTTARGET", "ddlAnoValor"]
+    data << ["ScriptManager1", "updAnoValor|ddlAnoValor"]
+    data << ["__EVENTVALIDATION", event_validation]
+    data << ["__VIEWSTATE", view_state]
+
+    page = get_data(data, veiculo)
+
+    { :preco => extrai_preco(page), :marca => extrai_marca(page), :modelo => extrai_modelo(page), :ano_modelo => extrai_ano_modelo(page), :mes_referencia => extrai_mes_referencia(page) }
+  end
+
+  def self.busca(argumentos={})
+    tabela = argumentos[:tabela] ? argumentos[:tabela] : nil
+
+    # Marca, modelo e ano_modelo quando não informados devem ser '0'
+    marca = argumentos[:marca] ? argumentos[:marca] : '0'
+    modelo = argumentos[:modelo] ? argumentos[:modelo] : '0'
+    ano_modelo = argumentos[:ano_modelo] ? argumentos[:ano_modelo] : '0'
+
+    veiculo = argumentos[:veiculo] ? argumentos[:veiculo] : CARRO
+
+    # Verifica se é uma chamada interna da própria função
+    interno = argumentos[:interno] ? argumentos[:interno] : false
+
+    pagina_de_pesquisa = read_page("http://www.#{DOMAIN}#{URL}#{veiculo}")
+
+    view_state = catch_view_state(pagina_de_pesquisa)
+    event_validation = catch_event_validation(pagina_de_pesquisa)
+
+    data = []
+    data << ["__EVENTARGUMENT", ""]
+    data << ["ddlTabelaReferencia", tabela]
+    data << ["ddlMarca", marca]
+    data << ["ddlAnoValor", ano_modelo]
+    data << ["ddlModelo", modelo]
+
+    if !tabela then
+      { :atual => extrai_atual(pagina_de_pesquisa), :tabelas => extrai_tabelas(pagina_de_pesquisa) }
+    elsif marca == '0' then
+      data << ["__EVENTVALIDATION", event_validation]
+      data << ["__VIEWSTATE", view_state]
+      data << ["ScriptManager1", "ScriptManager1|ddlTabelaReferencia"]
+      data << ["__EVENTTARGET", "ddlTabelaReferencia"]
+
+      page = get_data(data, veiculo)
+
+      view_state = catch_view_state(page)
+      event_validation = catch_event_validation(page)
+
+      resposta = { :marcas => extrai_marcas(page), :view_state => view_state, :event_validation => event_validation }
+
+      if interno
+        resposta
+      else
+        resposta.delete(:view_state)
+        resposta.delete(:event_validation)
+        resposta
+      end
+
+    elsif modelo == '0' then
+      result = busca(:tabela => tabela, :veiculo => veiculo, :interno => true)
+
+      view_state = result[:view_state]
+      event_validation = result[:event_validation]
+
+      data << ["__EVENTVALIDATION", event_validation]
+      data << ["__VIEWSTATE", view_state]
+      data << ["ScriptManager1", "ScriptManager1|ddlMarca"]
+      data << ["__EVENTTARGET", "ddlMarca"]
+
+      page = get_data(data, veiculo)
+
+      view_state = catch_view_state(page)
+      event_validation = catch_event_validation(page)
+
+      resposta = { :modelos => extrai_modelos(page), :view_state => view_state, :event_validation => event_validation }
+
+      if interno
+        resposta
+      else
+        resposta.delete(:view_state)
+        resposta.delete(:event_validation)
+        resposta
+      end
+
+    elsif ano_modelo == '0' then
+      result = busca(:tabela => tabela, :marca => marca, :veiculo => veiculo, :interno => true)
+
+      view_state = result[:view_state]
+      event_validation = result[:event_validation]
+
+      data << ["__EVENTVALIDATION", event_validation]
+      data << ["__VIEWSTATE", view_state]
+      data << ["ScriptManager1", "updModelo|ddlModelo"]
+      data << ["__EVENTTARGET", "ddlModelo"]
+
+      page = get_data(data, veiculo)
+
+      view_state = catch_view_state(page)
+      event_validation = catch_event_validation(page)
+
+      resposta = { :anos_modelos => extrai_anos_modelos(page), :view_state => view_state, :event_validation => event_validation }
+
+      if interno
+        resposta
+      else
+        resposta.delete(:view_state)
+        resposta.delete(:event_validation)
+        resposta
+      end
+
+    else
+      result = busca(:tabela => tabela, :marca => marca, :modelo => modelo, :veiculo => veiculo, :interno => true)
+
+      view_state = result[:view_state]
+      event_validation = result[:event_validation]
+
+      data << ["__EVENTVALIDATION", event_validation]
+      data << ["__VIEWSTATE", view_state]
+      data << ["ScriptManager1", "updAnoValor|ddlAnoValor"]
+      data << ["__EVENTTARGET", "ddlAnoValor"]
+
+      page = get_data(data, veiculo)
+
+      extrai_preco(page)
+    end
+  end
+
+  private
+    def self.read_page(url)
+      tries = 0
+      begin
+        source = open(url).read
+      rescue
+        tries += 1
+        if tries <= TENTATIVAS
+          warn "Tentativa: #{tries}"
+          retry
+        else
+          raise
+        end
+      end
+    end
+
+    def self.get(host, port, path, data)
+      tries = 0
+      begin
+        sdata = URI::encode_www_form(data)
+
+        s = TCPSocket.open(host, port)
+        s.write("POST " + path + " HTTP/1.1\r\n")
+        s.write("Host: " + host + "\r\n")
+        s.write("Content-type: application/x-www-form-urlencoded\r\n")
+        s.write("Content-length: " + sdata.length.to_s + "\r\n")
+        s.write("Connection: close\r\n\r\n")
+        s.write(sdata + "\r\n\r\n")
+        s.flush
+        response = ''
+        while line = s.gets
+          response += line
+        end
+        s.close
+        response
+      rescue
+        tries += 1
+        if tries <= TENTATIVAS
+          warn "Tentativa: #{tries}"
+          retry
+        else
+          raise
+        end
+      end
+    end
+
+    def self.get_data(data, veiculo)
+      get(DOMAIN, 80, "#{URL}#{veiculo}", data)
+    end
+
+    def self.catch_view_state(lines)
+      view_state = ''
+      lines.split("\r\n").each do |line|
+        if line.match(/.*id=\"__VIEWSTATE\".*/) then
+          view_state = line.scan(/.*value="(.*)".*/).last.first
+          break
+        end
+      end
+      view_state
+    end
+
+    def self.catch_event_validation(lines)
+      event_validation = ''
+      lines.split("\r\n").each do |line|
+        if line.match(/.*id=\"__EVENTVALIDATION\".*/) then
+          event_validation = line.scan(/.*value="(.*)".*/).last.first
+          break
+        end
+      end
+      event_validation
+    end
+
+    # Extratores
+
+    def self.regex_html_tag(tag)
+      /^(.*)(<.*#{tag}(>|.*>))(.*)(<.*#{tag}(>|.*>))(.*)$/
+    end
+
+    def self.extrai_atual(html)
+      html.scan(/value=\"(.*)\">Atual<\/option>/).last.first
+    end
+
+    def self.extrai_tabelas(html)
+      returning = {}
+      extract(html, "Atual", regex_html_tag("option"), /.*<\/select>.*/) do |result|
+        code =  result.scan(/\"(.*)\"/).last.first
+        name =  result.scan(/>(.*)<\//).last.first
+        returning.store(code, name)
+      end
+      returning
+    end
+
+    def self.extrai_marcas(html)
+      returning = {}
+      extract(html, "Selecione uma marca", regex_html_tag("option"), /.*<\/select>.*/) do |result|
+        code =  result.scan(/\"(.*)\"/).last.first
+        name =  result.scan(/>(.*)<\//).last.first
+        returning.store(code, name)
+      end
+      returning
+    end
+
+    def self.extrai_modelos(html)
+      returning = {}
+      extract(html, "Selecione um modelo", regex_html_tag("option"), /.*<\/select>.*/) do |result|
+        code =  result.scan(/\"(.*)\"/).last.first
+        name =  result.scan(/>(.*)<\//).last.first
+        returning.store(code, name)
+      end
+      returning
+    end
+
+    def self.extrai_anos_modelos(html)
+      returning = {}
+      extract(html, "Selecione um ano modelo", regex_html_tag("option"), /.*<\/select>.*/) do |result|
+        code =  result.scan(/\"(.*)\"/).last.first
+        name =  result.scan(/>(.*)<\//).last.first
+        returning.store(code, name)
+      end
+      returning
+    end
+
+    def self.extrai_mes_referencia(html)
+      html.scan(/.*id=\"lblReferencia\".*>(.*)<\/span>/).last.first.strip
+    end
+
+    def self.extrai_ano_modelo(html)
+      html.scan(/.*id=\"lblAnoModelo\".*>(.*)<\/span>/).last.first.strip
+    end
+
+    def self.extrai_modelo(html)
+      html.scan(/.*id=\"lblModelo\".*>(.*)<\/span>/).last.first.strip
+    end
+
+    def self.extrai_marca(html)
+      html.scan(/.*id=\"lblMarca\".*>(.*)<\/span>/).last.first.strip
+    end
+
+    def self.extrai_preco(html)
+      returning = ''
+      extract(html, "Ano Modelo", /.*id=\"lblValor\".*/, /^$/) do |result|
+        price =  result.scan(/R\$(.*)<\/span>/).last.first
+        price = price.gsub /\./, ''
+        returning = price.gsub /,/, '.'
+      end
+      BigDecimal.new(returning.strip)
+    end
+
+    def self.extract(html, key, beginning, finish)
+       results = html[html.index(key)..-1].split("\r\n");
+       results.each do | result|
+        if result.strip.match(beginning) then
+          yield result
+        end
+        if result.match(finish) then
+          break
+        end
+      end
+    end
+end

data/lib/brfipe/version.rb

@@ -0,0 +1,3 @@
+module Brfipe
+  VERSION = "0.0.0"
+end

data/lib/brfipe.rb

@@ -0,0 +1 @@
+require 'brfipe/fipe'

metadata

@@ -0,0 +1,65 @@
+--- !ruby/object:Gem::Specification 
+name: brfipe
+version: !ruby/object:Gem::Version 
+  version: 0.0.0
+platform: ruby
+authors: 
+- Rodrigo Batista da Silva
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2013-05-10 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - &id002 
+      - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :development
+  version_requirements: *id001
+description: "brfipe \xC3\xA9 uma gem que tem como objetivo realizar consultas no site da fipe (funda\xC3\xA7\xC3\xA3o instituto de pesquisas econ\xC3\xB4micas) na se\xC3\xA7\xC3\xA3o de \"Pre\xC3\xA7o M\xC3\xA9dio de Ve\xC3\xADculos\"."
+email: 
+- rbsilva.ti@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- README.md
+- brfipe.gemspec
+- lib/brfipe.rb
+- lib/brfipe/fipe.rb
+- lib/brfipe/version.rb
+homepage: https://github.com/rbsilva/brfipe
+licenses: []
+
+metadata: {}
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - *id002
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - *id002
+requirements: []
+
+rubyforge_project: brfipe
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: Gem para consultas no site da fipe.
+test_files: []
+