faildns 0.0.1

data/lib/faildns/resourcerecord/IN/PTR.rb

@@ -0,0 +1,69 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/resourcerecord/data'
+
+module DNS
+
+class ResourceRecord
+
+module IN
+
+#--
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     /                   PTRDNAME                    /
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+# 
+# where:
+# 
+# PTRDNAME        A <domain-name> which points to some location in the
+#                 domain name space.
+# 
+# PTR records cause no additional section processing.  These RRs are used
+# in special domains to point to some other location in the domain space.
+# These records are simple data, and don't imply any special processing
+# similar to that performed by CNAME, which identifies aliases.  See the
+# description of the IN-ADDR.ARPA domain for an example.
+#++
+
+class PTR < Data
+  def self._parse (string, original)
+    PTR.new(DomainName.parse(string.clone, original))
+  end
+
+  attr_reader :domain
+
+  def initialize (domain)
+    @domain = domain
+  end
+
+  def pack
+    @domain.pack
+  end
+
+  def to_s
+    @domain.to_s
+  end
+end
+
+end
+
+end
+
+end

data/lib/faildns/resourcerecord/IN/SOA.rb

@@ -0,0 +1,128 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/resourcerecord/data'
+
+module DNS
+
+class ResourceRecord
+
+module IN
+
+#--
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     /                     MNAME                     /
+#     /                                               /
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     /                     RNAME                     /
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                    SERIAL                     |
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                    REFRESH                    |
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                     RETRY                     |
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                    EXPIRE                     |
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     |                    MINIMUM                    |
+#     |                                               |
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+# 
+# where:
+# 
+# MNAME           The <domain-name> of the name server that was the
+#                 original or primary source of data for this zone.
+# 
+# RNAME           A <domain-name> which specifies the mailbox of the
+#                 person responsible for this zone.
+# 
+# SERIAL          The unsigned 32 bit version number of the original copy
+#                 of the zone.  Zone transfers preserve this value.  This
+#                 value wraps and should be compared using sequence space
+#                 arithmetic.
+# 
+# REFRESH         A 32 bit time interval before the zone should be
+#                 refreshed.
+# 
+# RETRY           A 32 bit time interval that should elapse before a
+#                 failed refresh should be retried.
+# 
+# EXPIRE          A 32 bit time value that specifies the upper limit on
+#                 the time interval that can elapse before the zone is no
+#                 longer authoritative.
+# 
+# MINIMUM         The unsigned 32 bit minimum TTL field that should be
+#                 exported with any RR from this zone.
+# 
+# SOA records cause no additional section processing.
+# 
+# All times are in units of seconds.
+# 
+# Most of these fields are pertinent only for name server maintenance
+# operations.  However, MINIMUM is used in all query operations that
+# retrieve RRs from a zone.  Whenever a RR is sent in a response to a
+# query, the TTL field is set to the maximum of the TTL field from the RR
+# and the MINIMUM field in the appropriate SOA.  Thus MINIMUM is a lower
+# bound on the TTL field for all RRs in a zone.  Note that this use of
+# MINIMUM should occur when the RRs are copied into the response and not
+# when the zone is loaded from a master file or via a zone transfer.  The
+# reason for this provison is to allow future dynamic update facilities to
+# change the SOA RR with known semantics.
+#++
+
+class SOA < Data
+  def self._parse (string, original)
+    result = {}
+
+    result[:MNAME] = DomainName.parse(string, original)
+    result[:RNAME] = DomainName.parse(string, original)
+
+    result[:SERIAL]  = string.unpack('N'); string[0, 4] = ''
+    result[:REFRESH] = string.unpack('N'); string[0, 4] = ''
+    result[:RETRY]   = string.unpack('N'); string[0, 4] = ''
+    result[:EXPIRE]  = string.unpack('N'); string[0, 4] = ''
+    result[:MINIMUM] = string.unpack('N'); string[0, 4] = ''
+
+    SOA.new(result)
+  end
+
+  def initialize (data)
+    @data = data
+  end
+
+  def [] (name)
+    @data[name]
+  end
+
+  def pack
+    result[:MNAME].pack + result[:RNAME].pack + [result[:SERIAL]].pack('N') +
+    [result[:REFRESH]].pack('N') + [result[:RETRY]].pack('N')  + [result[:EXPIRE]].pack('N')  +
+    [result[:MINIMUM]].pack('N')
+  end
+end
+
+end
+
+end
+
+end

data/lib/faildns/resourcerecord/IN/TXT.rb

@@ -0,0 +1,63 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/resourcerecord/data'
+
+module DNS
+
+class ResourceRecord
+
+module IN
+
+#--
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+#     /                   TXT-DATA                    /
+#     +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
+# 
+# where:
+# 
+# TXT-DATA        One or more <character-string>s.
+# 
+# TXT RRs are used to hold descriptive text.  The semantics of the text
+# depends on the domain where it is found.
+#++
+
+class TXT < Data
+  def self._parse (string, original)
+    data = []
+
+    while !string.empty?
+      data.push(string[1, (tmp = string.unpack('C'))]); string[0, tmp + 1] = ''
+    end
+
+    TXT.new(data)
+  end
+
+  attr_reader :data
+
+  def initialize (data)
+    @data = data
+  end
+end
+
+end
+
+end
+
+end

data/lib/faildns/resourcerecord/data.rb

@@ -0,0 +1,41 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module DNS
+
+class ResourceRecord
+
+class Data
+  def self.parse (string, length, original)
+    string.force_encoding 'BINARY'
+
+    data = string[0, length]; string[0, length] = ''
+
+    self._parse(data, original)
+  end
+
+  private
+
+  def initialize
+  end
+end
+
+end
+
+end

data/lib/faildns/server.rb

@@ -0,0 +1,71 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/common'
+require 'faildns/server/dispatcher'
+
+module DNS
+
+class Server
+  attr_reader :options, :dispatcher
+
+  def initialize (options={})
+    if !options.is_a? Hash
+      raise ArgumentError.new('You have to pass a Hash')
+    end
+
+    @options = options
+
+    @dispatcher = Dispatcher.new(self)
+
+    if block_given?
+      yield self
+    end
+  end
+
+  def start
+    if @started
+      return
+    end
+
+    @started = true
+
+    @dispatcher.start
+  end
+
+  def stopping
+    @stopping = true
+
+    @dispatcher.stop
+  end
+
+  def register (*args)
+    @dispatcher.event.register(*args)
+  end
+
+  def observe (*args)
+    @dispatcher.event.observe(*args)
+  end
+
+  def fire (*args)
+    @dispatcher.event.fire(*args)
+  end
+end
+
+end

data/lib/faildns/server/dispatcher.rb

@@ -0,0 +1,181 @@
+#--
+# Copyleft meh. [http://meh.doesntexist.org | meh@paranoici.org]
+#
+# This file is part of faildns.
+#
+# faildns is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# faildns is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with faildns. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'faildns/server/dispatcher/connectiondispatcher'
+require 'faildns/server/dispatcher/eventdispatcher'
+
+module DNS
+
+class Server
+
+class Dispatcher
+  attr_reader :server, :connection, :event
+
+  def initialize (server)
+    @server = server
+
+    @connection = ConnectionDispatcher.new(self)
+    @event      = EventDispatcher.new(self)
+
+    @intervals = {}
+    @timeouts  = {}
+  end
+
+  def start
+    @connection.start
+
+    @started = true
+
+    @defaults = [Fiber.new {
+      while true
+        @connection.read
+
+        Fiber.yield
+      end
+    }]
+
+    self.loop
+  end
+
+  def stop
+    if !@started
+      return
+    end
+
+    @started  = false
+    @stopping = true
+
+    @event.finalize
+    @connection.finalize
+
+    @stopping = false
+  end
+
+  def loop
+    while true
+      @defaults.each {|fiber|
+        begin
+          fiber.resume
+        rescue FiberError
+          DNS.debug 'Something went deeply wrong in the dispatcher, aborting.'
+          Process::exit 23
+        rescue Exception => e
+          DNS.debug e
+        end
+      }
+
+      @intervals.each {|fiber, meta|
+        begin
+          if !@intervals[fiber]
+            raise FiberError
+          end
+
+          if meta[:at] <= Time.now
+            fiber.resume
+
+            meta[:at] += meta[:offset]
+          end
+        rescue FiberError
+          clearInterval meta
+        rescue Exception => e
+          DNS.debug e
+        end
+      }
+
+      @timeouts.each {|fiber, meta|
+        begin
+          if !@timeouts[fiber]
+            raise FiberError
+          end
+
+          if meta[:at] <= Time.now
+            fiber.resume
+
+            clearTimeout meta
+          end
+        rescue FiberError
+          clearTimeout meta
+        rescue Exception => e
+          DNS.debug e
+        end
+      }
+    end
+  end
+
+  def setTimeout (fiber, time)
+    @timeouts[fiber] = {
+      :fiber => fiber,
+      :at  => Time.now + time,
+      :on  => Time.now,
+    }
+  end
+
+  def clearTimeout (timeout)
+    @timeouts.delete(timeout[:fiber])
+  end
+
+  def setInterval (fiber, time)
+    @intervals[fiber] = {
+      :fiber  => fiber,
+      :offset => time,
+      :at   => Time.now + time,
+      :on   => Time.now,
+    }
+  end
+
+  def clearInterval (interval)
+    @intervals.delete(interval[:fiber])
+  end
+
+  def connections
+    @connection.connections
+  end
+
+  def input
+    @connection.input
+  end
+
+  def output
+    @connection.output
+  end
+
+  def disconnecting
+    @connection.disconnecting
+  end
+
+  def alias (*args)
+    @event.alias(*args)
+  end
+
+  def register (*args)
+    @event.register(*args)
+  end
+
+  def dispatch (*args)
+    @event.dispatch(*args)
+  end
+
+  def execute (*args)
+    @event.execute(*args)
+  end
+end
+
+end
+
+end