clouddns 0.0.1

data/.gitignore

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

data/Gemfile

@@ -0,0 +1,4 @@
+source 'http://rubygems.org'
+
+# Specify your gem's dependencies in clouddns.gemspec
+gemspec

data/Rakefile

@@ -0,0 +1,13 @@
+#!/usr/bin/env rake
+require 'rake/testtask'
+require 'bundler/gem_tasks'
+
+task :default => [:test]
+
+desc 'Run tests.'
+Rake::TestTask.new(:test) do |t|
+  t.libs << 'lib' << 'test'
+  t.pattern = 'test/**/*_test.rb'
+  t.verbose = true
+end
+

data/bin/clouddns

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'optparse'
+require 'clouddns'
+
+options = {
+  :fog => {},
+  :force => false
+}
+
+OptionParser.new do |opts|
+  opts.banner = "Usage: #{$0} [OPTIONS] [ACTION] FILES"
+
+  opts.on('-p', '--provider provider', "Override DNS provider (AWS, Zerigo, etc)") do |provider|
+    options[:fog][:provider] = provider
+  end
+
+  opts.on('-f', '--force', 'Assume yes to all questions') do
+    options[:force] = true
+  end
+
+  opts.on('-v', '--version') do
+    puts "clouddns v#{Clouddns::VERSION}"
+    exit(0)
+  end
+
+  opts.on_tail("-h", "--help", "Show this message") do
+    puts opts
+    exit
+  end
+end.parse!
+
+action = ARGV.slice!(0)
+files = ARGV
+
+raise "No action specified" unless action
+raise "No files specified" if files.empty?
+
+zones = files.map do |file|
+  Clouddns::DSL.parse_file(file).zones
+end.flatten
+
+zones.each do |zone|
+  Clouddns::Actions.by_name(action).run(zone, options)
+end
+

data/clouddns.gemspec

@@ -0,0 +1,17 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/clouddns/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["John Hawthorn"]
+  gem.email         = ["john.hawthorn@gmail.com"]
+  gem.description   = %q{A DSL for managing DNS through cloud services}
+  gem.summary       = %q{A DSL and tools for managing DNS through any of the services supported by fog.  Currently, this is Amazon Route 53, bluebox, DNSimple, DNS Made Easy, Linode DNS, Slicehost DNS and Zerigo DNS }
+  gem.homepage      = 'https://github.com/jhawthorn/clouddns'
+
+  gem.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  gem.files         = `git ls-files`.split("\n")
+  gem.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  gem.name          = "clouddns"
+  gem.require_paths = ['lib']
+  gem.version       = Clouddns::VERSION
+end

data/lib/clouddns.rb

@@ -0,0 +1,10 @@
+require "fog"
+
+require "clouddns/version"
+require "clouddns/dsl"
+require "clouddns/zone"
+require "clouddns/record"
+require "clouddns/actions"
+
+module Clouddns
+end

data/lib/clouddns/actions.rb

@@ -0,0 +1,18 @@
+
+require 'clouddns/actions/generic_action'
+require 'clouddns/actions/print'
+require 'clouddns/actions/migrate'
+
+module Clouddns
+  module Actions
+    def self.by_name name
+      case name.downcase
+      when 'print' then Print
+      when 'migrate' then Migrate
+      else
+        raise "Unknown action: #{name}"
+      end
+    end
+  end
+end
+

data/lib/clouddns/actions/generic_action.rb

@@ -0,0 +1,13 @@
+module Clouddns
+  module Actions
+    class GenericAction
+      def initialize zone, options = {}
+        @zone = zone
+        @options = options
+      end
+      def self.run zone, options = {}
+        new(zone, options).run
+      end
+    end
+  end
+end

data/lib/clouddns/actions/migrate.rb

@@ -0,0 +1,101 @@
+require 'clouddns/actions/print_record'
+
+module Clouddns
+  module Actions
+    class Migrate < GenericAction
+      include PrintRecord
+
+      def run
+        @fog = Fog::DNS.new(@options[:fog])
+
+        @fog_zone = @fog.zones.find { |z| z.domain == @zone.name }
+
+        puts
+        puts "Migrating '#{@zone.name}'"
+
+        unless @fog_zone
+          puts
+          puts "Zone '#{@zone.name}' does not exist. Creating..."
+          require_confirmation!
+          @fog_zone = @fog.zones.create(:domain => @zone.name)
+          puts "Zone '#{@zone.name}' created."
+        end
+
+        # required to pick up nameservers
+        @fog_zone = @fog_zone.reload
+
+        puts
+        puts "Nameservers:"
+        @fog_zone.nameservers.each do |nameserver|
+          puts "  #{nameserver}"
+        end
+
+        puts
+        puts "Changes:"
+        @records_to_remove = []
+        @records_to_add = []
+
+        @namelength = (@fog_zone.records.map(&:name) + @zone.records.map(&:name)).map(&:length).max
+
+        @actions = []
+
+        fog_records = Hash[@fog_zone.records.map {|r| [[r.name.gsub('\052', '*'), r.type], r] } ]
+        @zone.records.each do |record|
+          if (fog_record = fog_records.delete([record.name, record.type]))
+            if equal?(record, fog_record)
+              @actions << [' ', record]
+            else
+              @actions << ['-', fog_record]
+              @actions << ['+', record]
+            end
+          else
+            @actions << ['+', record]
+          end
+        end
+
+        fog_records.each do |name, record|
+          @actions << ['-', record]
+        end
+
+        @actions.each do |(action, record)|
+          print_record record, @namelength, action
+        end
+
+        # no changes required
+        return if @actions.all? {|(action, record)| action == ' ' }
+
+        require_confirmation!
+
+        @actions.each do |(action, record)|
+          if action == '+'
+            @fog_zone.records.create(:type => record.type, :name => record.name, :ip => record.value, :ttl => record.ttl)
+          elsif action == '-'
+            record.destroy
+          end
+        end
+        puts "Done"
+      end
+
+      private
+
+      def equal? record, fog_record
+        # AWS replaces * with \052
+        record.name == fog_record.name.gsub('\052', '*') &&
+          record.type == fog_record.type &&
+          record.value == fog_record.ip &&
+          record.ttl.to_i == fog_record.ttl.to_i
+      end
+
+      def require_confirmation!
+        print "Type 'Yes' to continute: "
+        STDOUT.flush
+
+        unless STDIN.readline.strip == 'Yes'
+          puts "aborting"
+          exit 1
+        end
+      end
+    end
+  end
+end
+

data/lib/clouddns/actions/print.rb

@@ -0,0 +1,23 @@
+require 'clouddns/actions/print_record'
+
+module Clouddns
+  module Actions
+    class Print < GenericAction
+      include PrintRecord
+
+      def run
+        print_all
+      end
+
+      protected
+      def print_all
+        puts "Zone '#{@zone.name}'"
+        namelength = @zone.records.map{ |x| x.name.length }.max
+        @zone.records.each do |record|
+          print_record record, namelength
+        end
+      end
+    end
+  end
+end
+

data/lib/clouddns/actions/print_record.rb

@@ -0,0 +1,19 @@
+module Clouddns
+  module Actions
+    module PrintRecord
+      protected
+      def print_record record, namelength, prefix=''
+        values = record.respond_to?(:value) ? record.value : record.ip
+        values.each_with_index do |value, i|
+          if i.zero?
+            args = [prefix, record.type, record.ttl, record.name, value]
+          else
+            args = [prefix, '', '', '', value]
+          end
+          puts "%s%5s %5s %#{namelength}s %s" % args
+        end
+      end
+    end
+  end
+end
+

data/lib/clouddns/dsl.rb

@@ -0,0 +1,62 @@
+module Clouddns
+  class DSL
+    attr_reader :zones
+
+    # This need not be too strict. Only exists to help catch typos.
+    DNS_REGEX = /\A.*\..*\.\z/
+
+    def scope options={}
+      oldscope = @scope
+      @scope = @scope.merge(options)
+      yield
+      @scope = oldscope
+    end
+
+    def initialize
+      @zones = []
+      @scope = {}
+    end
+
+    def self.parse_string string
+      dsl = DSL.new
+      dsl.instance_eval string
+      dsl
+    end
+    def self.parse_file filename
+      parse_string open(filename).read
+    end
+
+    def A *args
+      add_record 'A', *args
+    end
+    def CNAME *args
+      add_record 'CNAME', *args
+    end
+    def MX *args
+      add_record 'MX', *args
+    end
+    def NS *args
+      add_record 'NS', *args
+    end
+    def TXT name, value, options={}
+      add_record 'TXT', name, "\"#{value}\"", options
+    end
+
+    def add_record type, name, value, options={}
+      zone = @scope[:zone]
+
+      raise "records must be added inside a zone" unless zone
+      raise "record's dns name must end with the current zone" unless name.end_with? zone.name
+
+      @scope[:zone].records << Record.new(type, name, value, options)
+    end
+
+    def zone name, &block
+      raise "zone must be at the top level" if @scope[:zone]
+
+      zone = Zone.new(name)
+      @zones << zone
+      scope :zone => zone, &block
+    end
+  end
+end

data/lib/clouddns/record.rb

@@ -0,0 +1,24 @@
+
+module Clouddns
+  class Record
+    attr_accessor :attributes
+    alias :to_hash :attributes
+
+    def initialize type, name, value, options = {}
+      value = [value] unless value.is_a? Array
+      options[:ttl] ||= 600
+
+      self.attributes = options.merge({
+        :type => type,
+        :name => name,
+        :value => value
+      })
+    end
+
+    def name;  attributes[:name]; end
+    def value; attributes[:value]; end
+    def type;  attributes[:type]; end
+    def ttl;   attributes[:ttl]; end
+  end
+end
+

data/lib/clouddns/version.rb

@@ -0,0 +1,3 @@
+module Clouddns
+  VERSION = "0.0.1"
+end

data/lib/clouddns/zone.rb

@@ -0,0 +1,11 @@
+
+module Clouddns
+  class Zone
+    attr_accessor :name, :records
+    def initialize name
+      @name = name
+      @records = []
+    end
+  end
+end
+

data/test/dsl_test.rb

@@ -0,0 +1,23 @@
+
+require 'test_helper'
+
+class DslTest < Test::Unit::TestCase
+  def test_simple
+    dsl = Clouddns::DSL.parse_string <<-EOL
+      zone "example.com." do
+        A 'www.example.com.', '1.2.3.4'
+      end
+    EOL
+    assert_equal 1, dsl.zones.count
+
+    zone = dsl.zones.first
+    assert_equal 'example.com.', zone.name
+    assert_equal 1, zone.records.count
+
+    record = zone.records.first
+    assert_equal 'A', record.type
+    assert_equal 'www.example.com.', record.name
+    assert_equal ['1.2.3.4'], record.value
+  end
+end
+

data/test/test_helper.rb

@@ -0,0 +1,5 @@
+
+require 'rubygems'
+require 'test/unit'
+require 'clouddns'
+

metadata

@@ -0,0 +1,83 @@
+--- !ruby/object:Gem::Specification 
+name: clouddns
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- John Hawthorn
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-07-11 00:00:00 Z
+dependencies: []
+
+description: A DSL for managing DNS through cloud services
+email: 
+- john.hawthorn@gmail.com
+executables: 
+- clouddns
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- Gemfile
+- Rakefile
+- bin/clouddns
+- clouddns.gemspec
+- lib/clouddns.rb
+- lib/clouddns/actions.rb
+- lib/clouddns/actions/generic_action.rb
+- lib/clouddns/actions/migrate.rb
+- lib/clouddns/actions/print.rb
+- lib/clouddns/actions/print_record.rb
+- lib/clouddns/dsl.rb
+- lib/clouddns/record.rb
+- lib/clouddns/version.rb
+- lib/clouddns/zone.rb
+- test/dsl_test.rb
+- test/test_helper.rb
+homepage: https://github.com/jhawthorn/clouddns
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.8.5
+signing_key: 
+specification_version: 3
+summary: A DSL and tools for managing DNS through any of the services supported by fog.  Currently, this is Amazon Route 53, bluebox, DNSimple, DNS Made Easy, Linode DNS, Slicehost DNS and Zerigo DNS
+test_files: 
+- test/dsl_test.rb
+- test/test_helper.rb