Contents

module HCl
  class TimesheetResource
    class Failure < Exception; end

    def self.configure opts = nil
      if opts
        self.login = opts['login']
        self.password = opts['password']
        self.subdomain = opts['subdomain']
      else
        yield self
      end
    end
  
    # configuration accessors
    %w[ login password subdomain ].each do |config_var|
      class_eval <<-EOC
        def self.#{config_var}= arg
          @@#{config_var} = arg
        end
        def self.#{config_var}
          @@#{config_var}
        end
      EOC
    end
  
    def initialize params
      @data = params
    end
  
    def self.get action
      https_do Net::HTTP::Get, action
    end

    def self.post action, data
      https_do Net::HTTP::Post, action, data
    end

    def self.https_do method_class, action, data = nil
      https   = Net::HTTP.new "#{subdomain}.harvestapp.com", 443
      request = method_class.new "/#{action}"
      https.use_ssl = true
      request.basic_auth login, password
      request.content_type = 'application/xml'
      request['Accept']    = 'application/xml'
      response = https.request request, data
      return response.body
      if response.kind_of? Net::HTTPSuccess
        response.body
      else
        raise 'failure'
      end
    end

    def id
      @data[:id]
    end

    def method_missing method, *args
      if @data.key? method.to_sym
        @data[method]
      else
        super
      end
    end

    def self.xml_to_hash elem
      elem.elements.map { |e| e.name }.inject({}) do |a, f|
        a[f.to_sym] = elem.elements[f].text if elem.elements[f]
        a
      end
    end
  end
end

Version data entries

3 entries across 3 versions & 2 rubygems

Version	Path
zenhob-hcl-0.2.2	lib/hcl/timesheet_resource.rb
zenhob-hcl-0.2.3	lib/hcl/timesheet_resource.rb
hcl-0.2.3	lib/hcl/timesheet_resource.rb