dnsmadeeasy 0.4.0 → 1.0.1

data/lib/dnsmadeeasy/zone/parser.rb

@@ -0,0 +1,172 @@
+# frozen_string_literal: true
+
+require 'dns/zonefile'
+require 'dry/monads'
+require 'dnsmadeeasy/zone/file'
+require 'dnsmadeeasy/zone/record'
+require 'dnsmadeeasy/zone/record_set'
+
+module DnsMadeEasy
+  module Zone
+    # Parses standard zone-file text into provider-neutral records.
+    class Parser
+      include Dry::Monads[:result]
+
+      # ANAME is absent from the dns-zonefile grammar; ANAME lines are
+      # rewritten to CNAME before parsing and converted back afterwards.
+      SUPPORTED_RECORD_CLASSES = {
+        'DNS::Zonefile::A' => 'A',
+        'DNS::Zonefile::AAAA' => 'AAAA',
+        'DNS::Zonefile::CNAME' => 'CNAME',
+        'DNS::Zonefile::MX' => 'MX',
+        'DNS::Zonefile::NS' => 'NS',
+        'DNS::Zonefile::PTR' => 'PTR',
+        'DNS::Zonefile::SPF' => 'SPF',
+        'DNS::Zonefile::SRV' => 'SRV',
+        'DNS::Zonefile::TXT' => 'TXT'
+      }.freeze
+
+      ANAME_LINE = /^(?<owner>[^\s;]\S*)\s+(?:\d+\s+)?(?:IN\s+)?ANAME\s+(?<target>\S+)/i
+
+      def initialize(zone_text)
+        @zone_text = zone_text
+        @aname_keys = []
+      end
+
+      def call
+        zone = DNS::Zonefile.load(parseable_zone_text)
+        records, errors = build_records(zone)
+        return Failure(errors) if errors.any?
+
+        Success(File.new(origin: zone_origin(zone), ttl: zone_ttl(zone), record_set: RecordSet.new(records: records)))
+      rescue DNS::Zonefile::ParsingError, DNS::Zonefile::UnknownRecordType, Dry::Struct::Error => e
+        Failure([e.message])
+      end
+
+      private
+
+      attr_reader :zone_text,
+                  :aname_keys
+
+      def parseable_zone_text
+        zone_lines = rewrite_aname_lines(zone_text.lines)
+        insert_synthetic_soa(zone_lines) unless zone_text.match?(/\bSOA\b/)
+        zone_lines.join
+      end
+
+      def rewrite_aname_lines(zone_lines)
+        zone_lines.map do |line|
+          match = ANAME_LINE.match(line)
+          next line unless match
+
+          aname_keys << [match[:owner], match[:target]]
+          line.sub(/\bANAME\b/i, 'CNAME')
+        end
+      end
+
+      def insert_synthetic_soa(zone_lines)
+        insertion_index = zone_lines.index { |line| !line.strip.start_with?('$') && !line.strip.empty? } || zone_lines.length
+        zone_lines.insert(insertion_index, synthetic_soa_line)
+      end
+
+      def synthetic_soa_line
+        "@ IN SOA ns.#{origin_from_text} hostmaster.#{origin_from_text} ( 1 1d 1d 4W #{ttl_from_text} )\n"
+      end
+
+      def origin_from_text
+        zone_text[/^\$ORIGIN\s+(\S+)/, 1] || 'example.invalid.'
+      end
+
+      def ttl_from_text
+        zone_text[/^\$TTL\s+(\d+)/, 1] || 300
+      end
+
+      def build_records(zone)
+        origin = zone_origin(zone)
+        zone.records.each_with_object([[], []]) do |provider_record, (records, errors)|
+          next if provider_record.is_a?(DNS::Zonefile::SOA)
+
+          record_type = SUPPORTED_RECORD_CLASSES[provider_record.class.name]
+          if record_type
+            records << build_record(provider_record, record_type, origin)
+          else
+            errors << "Unsupported DNS record type: #{provider_record.class.name.split('::').last}"
+          end
+        end
+      end
+
+      def zone_origin(zone)
+        zone.soa&.origin || '.'
+      end
+
+      def zone_ttl(zone)
+        zone.soa&.ttl || 300
+      end
+
+      def build_record(provider_record, record_type, origin)
+        record_type = 'ANAME' if record_type == 'CNAME' && aname?(provider_record, origin)
+        attributes = {
+          owner: normalize_owner(provider_record.host, origin),
+          type: record_type,
+          value: record_value(provider_record, record_type, origin),
+          ttl: provider_record.ttl
+        }.merge(record_metadata(provider_record, record_type))
+
+        Record.new(attributes)
+      end
+
+      def normalize_owner(host, origin)
+        return '@' if host == origin
+
+        host.delete_suffix(".#{origin}").delete_suffix('.')
+      end
+
+      def record_value(provider_record, record_type, origin)
+        case record_type
+        when 'A', 'AAAA'
+          provider_record.address
+        when 'ANAME', 'CNAME', 'MX', 'NS', 'PTR', 'SRV'
+          normalize_target(provider_record.domainname, origin)
+        when 'SPF', 'TXT'
+          normalize_text_value(provider_record.data)
+        end
+      end
+
+      def normalize_target(target, origin)
+        return '@' if target == origin
+
+        target
+      end
+
+      def aname?(provider_record, origin)
+        owner = normalize_owner(provider_record.host, origin)
+        target = absolute_name(provider_record.domainname, origin)
+        aname_keys.any? do |key_owner, key_target|
+          normalize_owner(absolute_name(key_owner, origin), origin) == owner &&
+            absolute_name(key_target, origin) == target
+        end
+      end
+
+      def absolute_name(name, origin)
+        return origin if name == '@'
+
+        name.end_with?('.') ? name : "#{name}.#{origin}"
+      end
+
+      def normalize_text_value(value)
+        value.delete_prefix('"').delete_suffix('"')
+      end
+
+      def record_metadata(provider_record, record_type)
+        case record_type
+        when 'MX'
+          { priority: provider_record.priority }
+        when 'SRV'
+          { priority: provider_record.priority, weight: provider_record.weight, port: provider_record.port }
+        else
+          {}
+        end
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/plan.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+require 'dry/struct'
+require 'dnsmadeeasy/types'
+require 'dnsmadeeasy/zone/plan_action'
+
+module DnsMadeEasy
+  module Zone
+    # Diff result describing intended changes without applying them.
+    class Plan < Dry::Struct
+      transform_keys(&:to_sym)
+
+      attribute :creates, Types::Array.of(PlanAction).default([].freeze)
+      attribute :updates, Types::Array.of(PlanAction).default([].freeze)
+      attribute :skipped_creates, Types::Array.of(PlanAction).default([].freeze)
+      attribute :skipped_deletes, Types::Array.of(PlanAction).default([].freeze)
+      attribute :ambiguous, Types::Array.of(PlanAction).default([].freeze)
+
+      def actions
+        [creates, updates, skipped_creates, skipped_deletes, ambiguous].flatten.sort_by(&:sort_key)
+      end
+
+      def empty?
+        actions.empty?
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/plan_action.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+require 'dry/struct'
+require 'dnsmadeeasy/types'
+require 'dnsmadeeasy/zone/record'
+
+module DnsMadeEasy
+  module Zone
+    # A single proposed zone-management action.
+    class PlanAction < Dry::Struct
+      transform_keys(&:to_sym)
+
+      ACTION_TYPES = %w[create update skipped_create skipped_delete ambiguous].freeze
+
+      attribute :action, Types::StrictString.enum(*ACTION_TYPES)
+      attribute :record, Record.optional.default(nil)
+      attribute :remote_record, Record.optional.default(nil)
+      attribute :desired_record, Record.optional.default(nil)
+      attribute :message, Types::OptionalString.default(nil)
+
+      def sort_key
+        [
+          ACTION_TYPES.index(action),
+          (record || desired_record || remote_record)&.sort_key || []
+        ]
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/plan_renderer.rb

@@ -0,0 +1,91 @@
+# frozen_string_literal: true
+
+require 'json'
+
+module DnsMadeEasy
+  module Zone
+    # Renders zone plans for humans and automation.
+    class PlanRenderer
+      def initialize(plan)
+        @plan = plan
+      end
+
+      def to_text
+        return "No changes.\n" if plan.empty?
+
+        [
+          section('Create', plan.creates),
+          section('Update', plan.updates),
+          section('Skipped Creates', plan.skipped_creates),
+          section('Skipped Deletes', plan.skipped_deletes),
+          section('Manual Review', plan.ambiguous)
+        ].reject(&:empty?).join("\n")
+      end
+
+      def to_json(*)
+        JSON.pretty_generate(plan_hash)
+      end
+
+      private
+
+      attr_reader :plan
+
+      def section(title, actions)
+        return '' if actions.empty?
+
+        ([title] + actions.sort_by(&:sort_key).map { |action| "  - #{action_line(action)}" }).join("\n")
+      end
+
+      def action_line(action)
+        case action.action
+        when 'create'
+          record_line(action.record)
+        when 'update'
+          "#{record_line(action.remote_record)} -> #{record_line(action.desired_record)}"
+        when 'skipped_create', 'skipped_delete'
+          "#{record_line(action.record)} (#{action.message})"
+        when 'ambiguous'
+          "#{record_line(action.remote_record)} -> #{record_line(action.desired_record)} (#{action.message})"
+        end
+      end
+
+      def record_line(record)
+        [record.owner, record.type, record.priority, record.value, "(ttl=#{record.ttl})"].compact.join(' ')
+      end
+
+      def plan_hash
+        {
+          creates: plan.creates.map { |action| action_hash(action) },
+          updates: plan.updates.map { |action| action_hash(action) },
+          skipped_creates: plan.skipped_creates.map { |action| action_hash(action) },
+          skipped_deletes: plan.skipped_deletes.map { |action| action_hash(action) },
+          ambiguous: plan.ambiguous.map { |action| action_hash(action) }
+        }
+      end
+
+      def action_hash(action)
+        {
+          action: action.action,
+          record: record_hash(action.record),
+          remote_record: record_hash(action.remote_record),
+          desired_record: record_hash(action.desired_record),
+          message: action.message
+        }.compact
+      end
+
+      def record_hash(record)
+        return unless record
+
+        {
+          owner: record.owner,
+          type: record.type,
+          value: record.value,
+          ttl: record.ttl,
+          priority: record.priority,
+          weight: record.weight,
+          port: record.port
+        }.compact
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/provider_record.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+require 'dry/struct'
+require 'dnsmadeeasy/types'
+require 'dnsmadeeasy/zone/record'
+
+module DnsMadeEasy
+  module Zone
+    # Associates provider metadata with a provider-neutral DNS record.
+    class ProviderRecord < Dry::Struct
+      transform_keys(&:to_sym)
+
+      attribute :record, Record
+      attribute :provider_id, Types::Coercible::Integer.optional.default(nil)
+      attribute :source_id, Types::OptionalString.default(nil)
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/record.rb

@@ -0,0 +1,44 @@
+# frozen_string_literal: true
+
+require 'dry/struct'
+require 'dnsmadeeasy/types'
+
+module DnsMadeEasy
+  module Zone
+    # Provider-neutral DNS record value object.
+    class Record < Dry::Struct
+      transform_keys(&:to_sym)
+
+      attribute :owner, Types::NonEmptyString
+      attribute :type, Types::RecordType
+      attribute :value, Types::NonEmptyString
+      attribute :ttl, Types::Ttl.default(300)
+      attribute :priority, Types::OptionalInteger.default(nil)
+      attribute :weight, Types::OptionalInteger.default(nil)
+      attribute :port, Types::OptionalInteger.default(nil)
+
+      def sort_key
+        [
+          normalized_owner,
+          type_order,
+          type,
+          priority || -1,
+          weight || -1,
+          port || -1,
+          value,
+          ttl
+        ]
+      end
+
+      private
+
+      def normalized_owner
+        owner == '@' ? '' : owner
+      end
+
+      def type_order
+        Types::DNS_RECORD_TYPES.index(type) || Types::DNS_RECORD_TYPES.length
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/record_set.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+require 'dry/struct'
+require 'dnsmadeeasy/zone/record'
+
+module DnsMadeEasy
+  module Zone
+    # Deterministically ordered collection of zone records.
+    class RecordSet < Dry::Struct
+      transform_keys(&:to_sym)
+
+      attribute :records, Types::Array.of(Record).default([].freeze)
+
+      def sorted
+        records.sort_by(&:sort_key)
+      end
+
+      def include?(record)
+        records.include?(record)
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/remote_adapter.rb

@@ -0,0 +1,94 @@
+# frozen_string_literal: true
+
+require 'dry/monads'
+require 'dnsmadeeasy/zone/provider_record'
+require 'dnsmadeeasy/zone/record'
+require 'dnsmadeeasy/zone/remote_records'
+
+module DnsMadeEasy
+  module Zone
+    # Converts DNS Made Easy API record hashes into provider-neutral zone records.
+    class RemoteAdapter
+      include Dry::Monads[:result]
+
+      SUPPORTED_RECORD_TYPES = Types::DNS_RECORD_TYPES.freeze
+      SOURCE_ID = 'dns-made-easy'
+
+      def initialize(response, domain:, default_ttl: 300)
+        @response = response
+        @domain = domain
+        @default_ttl = default_ttl
+      end
+
+      def call
+        provider_records = []
+        warnings = []
+
+        remote_records.each do |remote_record|
+          if remote_record['type'] == 'HTTPRED'
+            warnings << omitted_httpred_warning(remote_record)
+          elsif SUPPORTED_RECORD_TYPES.include?(remote_record['type'])
+            provider_records << provider_record(remote_record)
+          else
+            return Failure(["Unsupported DNS Made Easy record type: #{remote_record['type']}"])
+          end
+        end
+
+        Success(RemoteRecords.new(provider_records: provider_records, warnings: warnings))
+      rescue Dry::Struct::Error => e
+        Failure([e.message])
+      end
+
+      private
+
+      attr_reader :response,
+                  :domain,
+                  :default_ttl
+
+      def remote_records
+        response.fetch('data', [])
+      end
+
+      def provider_record(remote_record)
+        ProviderRecord.new(
+          record: zone_record(remote_record),
+          provider_id: remote_record['id'],
+          source_id: SOURCE_ID
+        )
+      end
+
+      def zone_record(remote_record)
+        Record.new(
+          owner: owner(remote_record),
+          type: remote_record['type'],
+          value: record_value(remote_record),
+          ttl: remote_record['ttl'] || default_ttl,
+          priority: remote_record['mxLevel'] || remote_record['priority'],
+          weight: remote_record['weight'],
+          port: remote_record['port']
+        )
+      end
+
+      # DME returns TXT/SPF values with the zone-file quotes embedded, while
+      # Record holds unquoted text (Parser strips, Serializer re-quotes).
+      def record_value(remote_record)
+        value = remote_record['value']
+        return value unless %w[TXT SPF].include?(remote_record['type'])
+
+        value.delete_prefix('"').delete_suffix('"')
+      end
+
+      def owner(remote_record)
+        name = remote_record['name'].to_s
+        return '@' if name.empty? || name == domain || name == domain.delete_suffix('.')
+
+        name.delete_suffix(".#{domain.delete_suffix('.')}")
+      end
+
+      def omitted_httpred_warning(remote_record)
+        record_name = remote_record['name'].to_s.empty? ? '@' : remote_record['name']
+        "Omitted HTTPRED record #{record_name} -> #{remote_record['value']}"
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/remote_records.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+require 'dry/struct'
+require 'dnsmadeeasy/types'
+require 'dnsmadeeasy/zone/provider_record'
+require 'dnsmadeeasy/zone/record_set'
+
+module DnsMadeEasy
+  module Zone
+    # Provider records plus non-fatal warnings from remote conversion.
+    class RemoteRecords < Dry::Struct
+      transform_keys(&:to_sym)
+
+      attribute :provider_records, Types::Array.of(ProviderRecord).default([].freeze)
+      attribute :warnings, Types::Array.of(Types::StrictString).default([].freeze)
+
+      def records
+        provider_records.map(&:record)
+      end
+
+      def record_set
+        RecordSet.new(records: records)
+      end
+    end
+  end
+end

data/lib/dnsmadeeasy/zone/serializer.rb

@@ -0,0 +1,115 @@
+# frozen_string_literal: true
+
+require 'dnsmadeeasy/zone/file'
+
+module DnsMadeEasy
+  module Zone
+    # Emits deterministic, normalized zone-file text.
+    class Serializer
+      def initialize(zone_file, omit_apex_ns: true)
+        @zone_file = zone_file
+        @omit_apex_ns = omit_apex_ns
+      end
+
+      def to_s
+        lines = [
+          "$ORIGIN #{zone_file.origin}",
+          "$TTL #{zone_file.ttl}",
+          ''
+        ]
+        lines.concat(serialized_records)
+        "#{lines.join("\n")}\n"
+      end
+
+      private
+
+      attr_reader :zone_file,
+                  :omit_apex_ns
+
+      def serialized_records
+        grouped_records.flat_map.with_index do |records, index|
+          lines = records.map { |record| serialize_record(record) }
+          index.zero? ? lines : [''] + lines
+        end
+      end
+
+      def grouped_records
+        serializable_records.chunk { |record| record_group(record) }.map(&:last)
+      end
+
+      def serializable_records
+        zone_file.records
+                 .reject { |record| omit_apex_ns && record.owner == '@' && record.type == 'NS' }
+                 .sort_by { |record| serializer_sort_key(record) }
+      end
+
+      def record_group(record)
+        case record.type
+        when 'MX'
+          :mail
+        when 'TXT', 'SPF'
+          :text
+        else
+          :address
+        end
+      end
+
+      def serializer_sort_key(record)
+        [
+          serializer_type_group(record),
+          normalized_owner(record.owner),
+          record.type,
+          record.priority || -1,
+          record.value,
+          record.ttl
+        ]
+      end
+
+      def serializer_type_group(record)
+        case record.type
+        when 'A', 'AAAA', 'CNAME', 'ANAME', 'NS', 'PTR'
+          0
+        when 'MX', 'SRV'
+          1
+        when 'TXT', 'SPF'
+          2
+        else
+          3
+        end
+      end
+
+      def normalized_owner(owner)
+        owner == '@' ? '' : owner
+      end
+
+      def serialize_record(record)
+        [record.owner.ljust(8), ttl_token(record), 'IN', record.type.ljust(7), record_payload(record)].compact.join(' ')
+      end
+
+      # A single $TTL cannot represent a real zone, so records that deviate
+      # from the zone default carry an explicit TTL.
+      def ttl_token(record)
+        record.ttl == zone_file.ttl ? nil : record.ttl.to_s
+      end
+
+      def record_payload(record)
+        case record.type
+        when 'MX'
+          "#{record.priority} #{record.value}"
+        when 'SRV'
+          "#{record.priority} #{record.weight} #{record.port} #{record.value}"
+        when 'TXT', 'SPF'
+          quote_text(record.value)
+        else
+          record.value
+        end
+      end
+
+      def quote_text(value)
+        return value if value.start_with?('"') && value.end_with?('"')
+
+        %("#{value}")
+      end
+    end
+  end
+end