harvested 0.3.0

data/lib/harvest/base_model.rb

@@ -0,0 +1,34 @@
+module Harvest
+  class BaseModel
+    def initialize(attributes = {})
+      self.attributes = attributes
+    end
+  
+    def attributes=(attributes)
+      attributes.each {|k,v| send("#{k}=", v)}
+    end
+  
+    def ==(other)
+      id == other.id
+    end
+  
+    def to_i
+      id
+    end
+  
+    def to_xml
+      builder = Builder::XmlMarkup.new
+      builder.tag!(self.class.tag_name) do |c|
+        self.class.elements.each do |f|
+          c.tag!(f.tag, send(f.name)) if send(f.name)
+        end
+      end
+    end
+  
+    class << self
+      def api_path(path = nil)
+        @path ||= path
+      end
+    end
+  end
+end

data/lib/harvest/behavior/activatable.rb

@@ -0,0 +1,21 @@
+module Harvest
+  module Behavior
+    module Activatable
+      def deactivate(model)
+        if model.active?
+          request(:post, credentials, "#{api_model.api_path}/#{model.to_i}/toggle")
+          model.active = false
+        end
+        model
+      end
+    
+      def activate(model)
+        if !model.active?
+          request(:post, credentials, "#{api_model.api_path}/#{model.to_i}/toggle")
+          model.active = true
+        end
+        model
+      end
+    end
+  end
+end

data/lib/harvest/behavior/crud.rb

@@ -0,0 +1,31 @@
+module Harvest
+  module Behavior
+    module Crud
+      def all
+        response = request(:get, credentials, api_model.api_path)
+        api_model.parse(response.body)
+      end
+      
+      def find(id)
+        response = request(:get, credentials, "#{api_model.api_path}/#{id}")
+        api_model.parse(response.body, :single => true)
+      end
+      
+      def create(model)
+        response = request(:post, credentials, "#{api_model.api_path}", :body => model.to_xml)
+        id = response.headers["location"].first.match(/\/.*\/(\d+)/)[1]
+        find(id)
+      end
+      
+      def update(model)
+        request(:put, credentials, "#{api_model.api_path}/#{model.to_i}", :body => model.to_xml)
+        find(model.id)
+      end
+      
+      def delete(model)
+        request(:delete, credentials, "#{api_model.api_path}/#{model.to_i}")
+        model.id
+      end
+    end
+  end
+end

data/lib/harvest/client.rb

@@ -0,0 +1,18 @@
+module Harvest
+  class Client < BaseModel
+    include HappyMapper
+  
+    api_path '/clients'
+  
+    element :id, Integer
+    element :active, Boolean
+    element :name, String
+    element :details, String
+    element :currency, String
+    element :currency_symbol, String, :tag => "currency-symbol"
+    element :cache_version, Integer, :tag => "cache-version"
+    element :updated_at, Time, :tag => "updated-at"
+  
+    alias_method :active?, :active
+  end
+end

data/lib/harvest/contact.rb

@@ -0,0 +1,16 @@
+module Harvest
+  class Contact < BaseModel
+    include HappyMapper
+    
+    api_path '/contacts'
+    
+    element :id, Integer
+    element :client_id, Integer, :tag => "client-id"
+    element :email, String
+    element :first_name, String, :tag => "first-name"
+    element :last_name, String, :tag => "last-name"
+    element :phone_office, String, :tag => "phone-office"
+    element :phone_mobile, String, :tag => "phone-mobile"
+    element :fax, String
+  end
+end

data/lib/harvest/credentials.rb

@@ -0,0 +1,21 @@
+module Harvest
+  class Credentials
+    attr_accessor :subdomain, :username, :password, :ssl
+    
+    def initialize(subdomain, username, password, ssl = true)
+      @subdomain, @username, @password, @ssl = subdomain, username, password, ssl
+    end
+    
+    def valid?
+      !subdomain.nil? && !username.nil? && !password.nil?
+    end
+    
+    def basic_auth
+      Base64.encode64("#{username}:#{password}").delete("\r\n")
+    end
+    
+    def host
+      "#{ssl ? "https" : "http"}://#{subdomain}.harvestapp.com"
+    end
+  end
+end

data/lib/harvest/errors.rb

@@ -0,0 +1,23 @@
+module Harvest
+  class InvalidCredentials < StandardError; end
+  
+  class HTTPError < StandardError
+    attr_reader :response
+    def initialize(response)
+      @response = response
+      super
+    end
+    
+    def to_s
+      hint = response.headers["hint"].nil? ? nil : response.headers["hint"].first
+      "#{self.class.to_s} : #{response.code}#{" - #{hint}" if hint}"
+    end
+  end
+  
+  class RateLimited < HTTPError; end
+  class NotFound < HTTPError; end
+  class Unavailable < HTTPError; end
+  class InformHarvest < HTTPError; end
+  class BadRequest < HTTPError; end
+  class ServerError < HTTPError; end
+end

data/lib/harvest/expense.rb

@@ -0,0 +1,19 @@
+module Harvest
+  class Expense < BaseModel
+    include HappyMapper
+  
+    api_path '/expenses'
+  
+    element :id, Integer
+    element :notes, String
+    element :units, Integer
+    element :total_cost, Float, :tag => 'total-cost'
+    element :project_id, Integer, :tag => 'project-id'
+    element :expense_category_id, Integer, :tag => 'expense-category-id'
+    element :spent_at, Time, :tag => 'spent-at'
+    
+    def spent_at=(date)
+      @spent_at = (String === date ? Time.parse(date) : date)
+    end
+  end
+end

data/lib/harvest/expense_category.rb

@@ -0,0 +1,18 @@
+module Harvest
+  class ExpenseCategory < BaseModel
+    include HappyMapper
+    
+    tag 'expense-category'
+    api_path '/expense_categories'
+    
+    element :id, Integer
+    element :name, String
+    element :unit_name, String, :tag => 'unit-name'
+    element :unit_price, Float, :tag => 'unit-price'
+    element :deactivated, Boolean
+    
+    def active?
+      !deactivated
+    end
+  end
+end

data/lib/harvest/hardy_client.rb

@@ -0,0 +1,80 @@
+module Harvest
+  class HardyClient < Delegator
+    def initialize(client, max_retries)
+      super(client)
+      @_sd_obj = @client = client
+      @max_retries = max_retries
+      (@client.public_methods - Object.public_instance_methods).each do |name|
+        instance_eval <<-END
+          def #{name}(*args)
+            wrap_collection do
+              @client.send('#{name}', *args)
+            end
+          end
+        END
+      end
+    end
+    
+    def __getobj__; @_sd_obj; end
+    def __setobj__(obj); @_sd_obj = obj; end
+    
+    def wrap_collection
+      collection = yield
+      HardyCollection.new(collection, self, @max_retries)
+    end
+    
+    class HardyCollection < Delegator
+      def initialize(collection, client, max_retries)
+        super(collection)
+        @_sd_obj = @collection = collection
+        @client = client
+        @max_retries = max_retries
+        (@collection.public_methods - Object.public_instance_methods).each do |name|
+          instance_eval <<-END
+            def #{name}(*args)
+              retry_rate_limits do
+                @collection.send('#{name}', *args)
+              end
+            end
+          END
+        end
+      end
+      
+      def __getobj__; @_sd_obj; end
+      def __setobj__(obj); @_sd_obj = obj; end
+      
+      def retry_rate_limits
+        retries = 0
+        
+        retry_func = lambda do |e|
+          if retries < @max_retries
+            retries += 1
+            true
+          else
+            raise e
+          end
+        end
+        
+        begin
+          yield
+        rescue Harvest::RateLimited => e
+          seconds = if e.response.headers["retry-after"]
+            e.response.headers["retry-after"].first.to_i
+          else
+            16
+          end
+          sleep(seconds)
+          retry
+        rescue Harvest::Unavailable, Harvest::InformHarvest => e
+          would_retry = retry_func.call(e)
+          sleep(16) if @client.account.rate_limit_status.over_limit?
+          retry if would_retry
+        rescue Net::HTTPError, Net::HTTPFatalError => e
+          retry if retry_func.call(e)
+        rescue SystemCallError => e
+          retry if e.is_a?(Errno::ECONNRESET) && retry_func.call(e)
+        end
+      end
+    end
+  end
+end

data/lib/harvest/project.rb

@@ -0,0 +1,22 @@
+module Harvest
+  class Project < BaseModel
+    include HappyMapper
+  
+    api_path '/projects'
+  
+    element :id, Integer
+    element :client_id, Integer, :tag => 'client-id'
+    element :name, String
+    element :code, String
+    element :notes, String
+    element :fees, String
+    element :active, Boolean
+    element :billable, Boolean
+    element :budget, String
+    element :budget_by, Float, :tag => 'budget-by'
+    element :hourly_rate, Float, :tag => 'hourly-rate'
+    element :bill_by, String, :tag => 'bill-by'
+  
+    alias_method :active?, :active
+  end
+end

data/lib/harvest/rate_limit_status.rb

@@ -0,0 +1,16 @@
+module Harvest
+  class RateLimitStatus < BaseModel
+    include HappyMapper
+    
+    tag 'hash'
+    element :last_access_at, Time, :tag => 'last-access-at'
+    element :count, Integer
+    element :timeframe_limit, Integer, :tag => 'timeframe-limit'
+    element :max_calls, Integer, :tag => 'max-calls'
+    element :lockout_seconds, Integer, :tag => 'lockout-seconds'
+    
+    def over_limit?
+      count > max_calls
+    end
+  end
+end

data/lib/harvest/task.rb

@@ -0,0 +1,20 @@
+module Harvest
+  class Task < BaseModel
+    include HappyMapper
+  
+    api_path '/tasks'
+  
+    element :id, Integer
+    element :name, String
+    element :billable, Boolean, :tag => 'billable-by-default'
+    element :deactivated, Boolean, :tag => 'deactivated'
+    element :hourly_rate, Float, :tag => 'default-hourly-rate'
+    element :default, Boolean, :tag => 'is-default'
+  
+    def active?
+      !deactivated
+    end
+  
+    alias_method :default?, :default
+  end
+end

data/lib/harvest/task_assignment.rb

@@ -0,0 +1,34 @@
+module Harvest
+  class TaskAssignment < BaseModel
+    include HappyMapper
+    
+    tag 'task-assignment'
+    element :id, Integer
+    element :task_id, Integer, :tag => 'task-id'
+    element :project_id, Integer, :tag => 'project-id'
+    element :billable, Boolean
+    element :deactivated, Boolean
+    element :hourly_rate, Float, :tag => 'hourly-rate'
+    
+    def task=(task)
+      @task_id = task.to_i
+    end
+    
+    def project=(project)
+      @project_id = project.to_i
+    end
+    
+    def active?
+      !deactivated
+    end
+    
+    def task_xml
+      builder = Builder::XmlMarkup.new
+      builder.task do |t|
+        t.id(task_id)
+      end
+    end
+    
+    alias_method :billable?, :billable
+  end
+end

data/lib/harvest/time_entry.rb

@@ -0,0 +1,41 @@
+module Harvest
+  class TimeEntry < BaseModel
+    include HappyMapper
+    
+    tag 'day_entry'
+    
+    element :id, Integer
+    element :client, String
+    element :project, String
+    element :task, String
+    element :hours, Float
+    element :notes, String
+    
+    element :project_id, Integer
+    element :task_id, Integer
+    element :spent_at, Time
+    element :created_at, Time
+    element :updated_at, Time
+    element :user_id, Integer
+    element :closed, Boolean, :tag => 'is-closed'
+    element :billed, Boolean, :tag => 'is-billed'
+    
+    def spent_at=(date)
+      @spent_at = (String === date ? Time.parse(date) : date)
+    end
+    
+    def to_xml
+      builder = Builder::XmlMarkup.new
+      builder.request do |r|
+        r.tag!('notes', notes) if notes
+        r.tag!('hours', hours) if hours
+        r.tag!('project_id', project_id) if project_id
+        r.tag!('task_id', task_id) if task_id
+        r.tag!('spent_at', spent_at) if spent_at
+      end
+    end
+    
+    alias_method :closed?, :closed
+    alias_method :billed?, :billed
+  end
+end

data/lib/harvest/timezones.rb

@@ -0,0 +1,150 @@
+# shamelessly ripped from Rails: http://github.com/rails/rails/blob/master/activesupport/lib/active_support/values/time_zone.rb
+
+module Harvest
+  module Timezones
+    MAPPING = {
+        "pacific/midway"                  =>   "International Date Line West",
+        "pacific/midway"                  =>   "Midway Island",
+        "pacific/pago_pago"               =>   "Samoa",
+        "pacific/honolulu"                =>   "Hawaii",
+        "america/juneau"                  =>   "Alaska",
+        "america/los_angeles"             =>   "Pacific Time (US & Canada)",
+        "america/tijuana"                 =>   "Tijuana",
+        "america/denver"                  =>   "Mountain Time (US & Canada)",
+        "america/phoenix"                 =>   "Arizona",
+        "america/chihuahua"               =>   "Chihuahua",
+        "america/mazatlan"                =>   "Mazatlan",
+        "america/chicago"                 =>   "Central Time (US & Canada)",
+        "america/regina"                  =>   "Saskatchewan",
+        "america/mexico_city"             =>   "Guadalajara",
+        "america/mexico_city"             =>   "Mexico City",
+        "america/monterrey"               =>   "Monterrey",
+        "america/guatemala"               =>   "Central America",
+        "america/new_york"                =>   "Eastern Time (US & Canada)",
+        "america/indiana/indianapolis"    =>   "Indiana (East)",
+        "america/bogota"                  =>   "Bogota",
+        "america/lima"                    =>   "Lima",
+        "america/lima"                    =>   "Quito",
+        "america/halifax"                 =>   "Atlantic Time (Canada)",
+        "america/caracas"                 =>   "Caracas",
+        "america/la_paz"                  =>   "La Paz",
+        "america/santiago"                =>   "Santiago",
+        "america/st_johns"                =>   "Newfoundland",
+        "america/sao_paulo"               =>   "Brasilia",
+        "america/argentina/buenos_aires"  =>   "Buenos Aires",
+        "america/argentina/san_juan"      =>   "Georgetown",
+        "america/godthab"                 =>   "Greenland",
+        "atlantic/south_georgia"          =>   "Mid-Atlantic",
+        "atlantic/azores"                 =>   "Azores",
+        "atlantic/cape_verde"             =>   "Cape Verde Is.",
+        "europe/dublin"                   =>   "Dublin",
+        "europe/dublin"                   =>   "Edinburgh",
+        "europe/lisbon"                   =>   "Lisbon",
+        "europe/london"                   =>   "London",
+        "africa/casablanca"               =>   "Casablanca",
+        "africa/monrovia"                 =>   "Monrovia",
+        "etc/utc"                         =>   "UTC",
+        "europe/belgrade"                 =>   "Belgrade",
+        "europe/bratislava"               =>   "Bratislava",
+        "europe/budapest"                 =>   "Budapest",
+        "europe/ljubljana"                =>   "Ljubljana",
+        "europe/prague"                   =>   "Prague",
+        "europe/sarajevo"                 =>   "Sarajevo",
+        "europe/skopje"                   =>   "Skopje",
+        "europe/warsaw"                   =>   "Warsaw",
+        "europe/zagreb"                   =>   "Zagreb",
+        "europe/brussels"                 =>   "Brussels",
+        "europe/copenhagen"               =>   "Copenhagen",
+        "europe/madrid"                   =>   "Madrid",
+        "europe/paris"                    =>   "Paris",
+        "europe/amsterdam"                =>   "Amsterdam",
+        "europe/berlin"                   =>   "Berlin",
+        "europe/berlin"                   =>   "Bern",
+        "europe/rome"                     =>   "Rome",
+        "europe/stockholm"                =>   "Stockholm",
+        "europe/vienna"                   =>   "Vienna",
+        "africa/algiers"                  =>   "West Central Africa",
+        "europe/bucharest"                =>   "Bucharest",
+        "africa/cairo"                    =>   "Cairo",
+        "europe/helsinki"                 =>   "Helsinki",
+        "europe/kiev"                     =>   "Kyev",
+        "europe/riga"                     =>   "Riga",
+        "europe/sofia"                    =>   "Sofia",
+        "europe/tallinn"                  =>   "Tallinn",
+        "europe/vilnius"                  =>   "Vilnius",
+        "europe/athens"                   =>   "Athens",
+        "europe/istanbul"                 =>   "Istanbul",
+        "europe/minsk"                    =>   "Minsk",
+        "asia/jerusalem"                  =>   "Jerusalem",
+        "africa/harare"                   =>   "Harare",
+        "africa/johannesburg"             =>   "Pretoria",
+        "europe/moscow"                   =>   "Moscow",
+        "europe/moscow"                   =>   "St. Petersburg",
+        "europe/moscow"                   =>   "Volgograd",
+        "asia/kuwait"                     =>   "Kuwait",
+        "asia/riyadh"                     =>   "Riyadh",
+        "africa/nairobi"                  =>   "Nairobi",
+        "asia/baghdad"                    =>   "Baghdad",
+        "asia/tehran"                     =>   "Tehran",
+        "asia/muscat"                     =>   "Abu Dhabi",
+        "asia/muscat"                     =>   "Muscat",
+        "asia/baku"                       =>   "Baku",
+        "asia/tbilisi"                    =>   "Tbilisi",
+        "asia/yerevan"                    =>   "Yerevan",
+        "asia/kabul"                      =>   "Kabul",
+        "asia/yekaterinburg"              =>   "Ekaterinburg",
+        "asia/karachi"                    =>   "Islamabad",
+        "asia/karachi"                    =>   "Karachi",
+        "asia/tashkent"                   =>   "Tashkent",
+        "asia/kolkata"                    =>   "Chennai",
+        "asia/kolkata"                    =>   "Kolkata",
+        "asia/kolkata"                    =>   "Mumbai",
+        "asia/kolkata"                    =>   "New Delhi",
+        "asia/katmandu"                   =>   "Kathmandu",
+        "asia/dhaka"                      =>   "Astana",
+        "asia/dhaka"                      =>   "Dhaka",
+        "asia/colombo"                    =>   "Sri Jayawardenepura",
+        "asia/almaty"                     =>   "Almaty",
+        "asia/novosibirsk"                =>   "Novosibirsk",
+        "asia/rangoon"                    =>   "Rangoon",
+        "asia/bangkok"                    =>   "Bangkok",
+        "asia/bangkok"                    =>   "Hanoi",
+        "asia/jakarta"                    =>   "Jakarta",
+        "asia/krasnoyarsk"                =>   "Krasnoyarsk",
+        "asia/shanghai"                   =>   "Beijing",
+        "asia/chongqing"                  =>   "Chongqing",
+        "asia/hong_kong"                  =>   "Hong Kong",
+        "asia/urumqi"                     =>   "Urumqi",
+        "asia/kuala_lumpur"               =>   "Kuala Lumpur",
+        "asia/singapore"                  =>   "Singapore",
+        "asia/taipei"                     =>   "Taipei",
+        "australia/perth"                 =>   "Perth",
+        "asia/irkutsk"                    =>   "Irkutsk",
+        "asia/ulaanbaatar"                =>   "Ulaan Bataar",
+        "asia/seoul"                      =>   "Seoul",
+        "asia/tokyo"                      =>   "Osaka",
+        "asia/tokyo"                      =>   "Sapporo",
+        "asia/tokyo"                      =>   "Tokyo",
+        "asia/yakutsk"                    =>   "Yakutsk",
+        "australia/darwin"                =>   "Darwin",
+        "australia/adelaide"              =>   "Adelaide",
+        "australia/melbourne"             =>   "Canberra",
+        "australia/melbourne"             =>   "Melbourne",
+        "australia/sydney"                =>   "Sydney",
+        "australia/brisbane"              =>   "Brisbane",
+        "australia/hobart"                =>   "Hobart",
+        "asia/vladivostok"                =>   "Vladivostok",
+        "pacific/guam"                    =>   "Guam",
+        "pacific/port_moresby"            =>   "Port Moresby",
+        "asia/magadan"                    =>   "Magadan",
+        "asia/magadan"                    =>   "Solomon Is.",
+        "pacific/noumea"                  =>   "New Caledonia",
+        "pacific/fiji"                    =>   "Fiji",
+        "asia/kamchatka"                  =>   "Kamchatka",
+        "pacific/majuro"                  =>   "Marshall Is.",
+        "pacific/auckland"                =>   "Auckland",
+        "pacific/auckland"                =>   "Wellington",
+        "pacific/tongatapu"               =>   "Nuku'alofa"
+      }
+  end
+end