fog--fog/lib/fog/linode/models/dns/record.rb

require 'fog/core/model'

module Fog
  module DNS
    class Linode

      class Record < Fog::Model
        extend Fog::Deprecation
        deprecate :ip, :value
        deprecate :ip=, :value=

        identity :id,         :aliases => ['ResourceID', 'RESOURCEID']

        attribute :value,     :aliases => 'TARGET'
        attribute :name,      :aliases => 'NAME'
        attribute :priority,  :aliases => 'PRIORITY'
        attribute :ttl,       :aliases => 'TTL_SEC'
        attribute :type,      :aliases => 'TYPE'
        attribute :zone_id,   :aliases => 'DOMAINID'

        # "PROTOCOL":"",
        # "WEIGHT":0,
        # "PORT":0,

        def initialize(attributes={})
          self.ttl    ||= 3600
          super
        end

        def destroy
          requires :identity, :zone
          connection.domain_resource_delete(zone.id, identity)
          true
        end

        def zone
          @zone
        end

        def save
          requires :type, :zone
          options = {}
          # * options<~Hash>
          #   * weight<~Integer>: default: 5
          #   * port<~Integer>: default: 80 
          #   * protocol<~String>: The protocol to append to an SRV record. Ignored on other record 
          #                        types. default: udp
          options[:name]      = name if name
          options[:priority]  = priority if priority
          options[:target]    = value if value
          options[:ttl_sec]   = ttl if ttl
          response = unless identity
            connection.domain_resource_create(zone.identity, type, options)
          else
            options[:type] = type if type
            connection.domain_resource_update(zone.identity, identity, options)
          end
          merge_attributes(response.body['DATA'])
          true
        end

        private
        
        def zone=(new_zone)
          @zone = new_zone
        end

      end

    end
  end
end