Index: package_tags/sipb-xen-dns/1/code/dnsserver.py
===================================================================
--- package_tags/sipb-xen-dns/1/code/dnsserver.py	(revision 325)
+++ package_tags/sipb-xen-dns/1/code/dnsserver.py	(revision 325)
@@ -0,0 +1,78 @@
+#!/usr/bin/python
+from twisted.internet import reactor
+from twisted.names import server
+from twisted.names import dns
+from twisted.names import common
+from twisted.internet import defer
+from twisted.python import failure
+
+import sipb_xen_database
+import psycopg2
+import sqlalchemy
+import time
+
+class DatabaseAuthority(common.ResolverBase):
+    """An Authority that is loaded from a file."""
+
+    soa = None
+
+    def __init__(self, domain, database=None):
+        common.ResolverBase.__init__(self)
+        if database is not None:
+            sipb_xen_database.connect(database)
+        self.domain = domain
+        self.soa = dns.Record_SOA(mname='sipb-xen-dev.mit.edu', 
+                                  rname='sipb-xen.mit.edu',
+                                  serial=1, refresh=3600, retry=900,
+                                  expire=3600000, minimum=21600, ttl=3600)
+    def _lookup(self, name, cls, type, timeout = None):
+        for i in range(3):
+            try:
+                value = self._lookup_unsafe(name, cls, type, timeout = None)
+            except (psycopg2.OperationalError, sqlalchemy.exceptions.SQLError):
+                if i == 2:
+                    raise
+                print "Reloading database"
+                time.sleep(0.5)
+                continue
+            else:
+                return value
+
+    def _lookup_unsafe(self, name, cls, type, timeout):
+        sipb_xen_database.clear_cache()
+        if not (name.lower() == self.domain or 
+                name.lower().endswith('.'+self.domain)):
+            #Not us
+            return defer.fail(failure.Failure(dns.DomainError(name)))
+        results = []
+        if cls == dns.IN and type in (dns.A, dns.ALL_RECORDS):
+            host = name[:-len(self.domain)-1]
+            value = sipb_xen_database.Machine.get_by(name=host)
+            if value is None or not value.nics:
+                return defer.fail(failure.Failure(dns.AuthoritativeDomainError(name)))
+            ip = value.nics[0].ip
+            if ip is None:  #Deactivated?
+                return defer.fail(failure.Failure(dns.AuthoritativeDomainError(name)))
+            ttl = 900
+            record = dns.Record_A(ip, ttl)
+            results.append(dns.RRHeader(name, dns.A, dns.IN, 
+                                        ttl, record, auth=True))
+        authority = []
+        authority.append(dns.RRHeader(self.domain, dns.SOA, dns.IN, 3600,
+                                      self.soa, auth=True))
+        return defer.succeed((results, authority, []))
+        #Doesn't exist
+        return defer.fail(failure.Failure(dns.AuthoritativeDomainError(name)))
+
+if '__main__' == __name__:
+    resolver = DatabaseAuthority('servers.csail.mit.edu',
+                                 'postgres://sipb-xen@sipb-xen-dev/sipb_xen')
+
+    verbosity = 0
+    f = server.DNSServerFactory(authorities=[resolver], verbose=verbosity)
+    p = dns.DNSDatagramProtocol(f)
+    f.noisy = p.noisy = verbosity
+    
+    reactor.listenUDP(53, p)
+    reactor.listenTCP(53, f)
+    reactor.run()
Index: package_tags/sipb-xen-dns/1/debian/changelog
===================================================================
--- package_tags/sipb-xen-dns/1/debian/changelog	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/changelog	(revision 325)
@@ -0,0 +1,5 @@
+sipb-xen-dns (1) unstable; urgency=low
+
+  * Initial Release.
+ -- SIPB Xen Project <sipb-xen@mit.edu>  Sun, 24 Feb 2008 20:45:28 -0500
+
Index: package_tags/sipb-xen-dns/1/debian/compat
===================================================================
--- package_tags/sipb-xen-dns/1/debian/compat	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/compat	(revision 325)
@@ -0,0 +1,1 @@
+4
Index: package_tags/sipb-xen-dns/1/debian/control
===================================================================
--- package_tags/sipb-xen-dns/1/debian/control	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/control	(revision 325)
@@ -0,0 +1,11 @@
+Source: sipb-xen-dns
+Section: base
+Priority: extra
+Maintainer: SIPB Xen Project <sipb-xen@mit.edu>
+Build-Depends: cdbs (>= 0.4.23-1.1), debhelper (>= 4.1.0), subversion
+Standards-Version: 3.7.2
+
+Package: sipb-xen-dns
+Architecture: all
+Depends: ${misc:Depends}, daemon
+Description: Install and enable the DNS server
Index: package_tags/sipb-xen-dns/1/debian/copyright
===================================================================
--- package_tags/sipb-xen-dns/1/debian/copyright	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/copyright	(revision 325)
@@ -0,0 +1,3 @@
+This package was created for internal use of the SIPB Xen Project of
+the MIT Student Information Processing Board.  Ask sipb-xen@mit.edu if
+you have questions about redistribution.
Index: package_tags/sipb-xen-dns/1/debian/rules
===================================================================
--- package_tags/sipb-xen-dns/1/debian/rules	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/rules	(revision 325)
@@ -0,0 +1,6 @@
+#!/usr/bin/make -f
+
+include /usr/share/cdbs/1/rules/debhelper.mk
+
+binary-fixup/sipb-xen-dns::
+	svn co https://sipb-xen-dev.mit.edu:1111/trunk/packages/sipb-xen-dns/code/ $(DEB_DESTDIR)/usr/local/lib/sipb-xen-dns
Index: package_tags/sipb-xen-dns/1/debian/sipb-xen-dns.init
===================================================================
--- package_tags/sipb-xen-dns/1/debian/sipb-xen-dns.init	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/sipb-xen-dns.init	(revision 325)
@@ -0,0 +1,124 @@
+#! /bin/sh
+### BEGIN INIT INFO
+# Provides:          sipb-xen-dns
+# Required-Start:    $local_fs $remote_fs
+# Required-Stop:     $local_fs $remote_fs
+# Default-Start:     2 3 4 5
+# Default-Stop:      0 1 6
+# Short-Description: sipb-xen DNS server
+# Description:       
+### END INIT INFO
+
+# Author: SIPB Xen Project <sipb-xen@mit.edu>
+
+# Do NOT "set -e"
+
+# PATH should only include /usr/* if it runs after the mountnfs.sh script
+PATH=/sbin:/usr/sbin:/bin:/usr/bin
+DESC="The sipb-xen DNS server"
+NAME=sipb-xen-dns
+DAEMON=/usr/local/lib/sipb-xen-dns/dnsserver.py
+DAEMON_ARGS=""
+PIDFILE=/var/run/$NAME.pid
+SCRIPTNAME=/etc/init.d/$NAME
+
+# Exit if the package is not installed
+[ -x "$DAEMON" ] || exit 0
+
+# Read configuration variable file if it is present
+[ -r /etc/default/$NAME ] && . /etc/default/$NAME
+
+# Load the VERBOSE setting and other rcS variables
+. /lib/init/vars.sh
+
+# Define LSB log_* functions.
+# Depend on lsb-base (>= 3.0-6) to ensure that this file is present.
+. /lib/lsb/init-functions
+
+#
+# Function that starts the daemon/service
+#
+do_start()
+{
+	# Return
+	#   0 if daemon has been started
+	#   1 if daemon was already running
+	#   2 if daemon could not be started
+	daemon --running -n $NAME && return 1
+	daemon -r -O daemon.info -E daemon.err -n $NAME -U $DAEMON $DAEMON_ARGS || return 2
+}
+
+#
+# Function that stops the daemon/service
+#
+do_stop()
+{
+	# Return
+	#   0 if daemon has been stopped
+	#   1 if daemon was already stopped
+	#   2 if daemon could not be stopped
+	#   other if a failure occurred
+	daemon --stop -n $NAME
+	RETVAL="$?"
+	[ "$RETVAL" = 2 ] && return 2
+	# Many daemons don't delete their pidfiles when they exit.
+	rm -f $PIDFILE
+	return "$RETVAL"
+}
+
+case "$1" in
+  start)
+	[ "$VERBOSE" != no ] && log_daemon_msg "Starting $DESC" "$NAME"
+	do_start
+	case "$?" in
+		0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
+		2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
+	esac
+	;;
+  stop)
+	[ "$VERBOSE" != no ] && log_daemon_msg "Stopping $DESC" "$NAME"
+	do_stop
+	case "$?" in
+		0|1) [ "$VERBOSE" != no ] && log_end_msg 0 ;;
+		2) [ "$VERBOSE" != no ] && log_end_msg 1 ;;
+	esac
+	;;
+  #reload|force-reload)
+	#
+	# If do_reload() is not implemented then leave this commented out
+	# and leave 'force-reload' as an alias for 'restart'.
+	#
+	#log_daemon_msg "Reloading $DESC" "$NAME"
+	#do_reload
+	#log_end_msg $?
+	#;;
+  restart|force-reload)
+	#
+	# If the "reload" option is implemented then remove the
+	# 'force-reload' alias
+	#
+	log_daemon_msg "Restarting $DESC" "$NAME"
+	do_stop
+	case "$?" in
+	  0|1)
+		do_start
+		case "$?" in
+			0) log_end_msg 0 ;;
+			1) log_end_msg 1 ;; # Old process is still running
+			*) log_end_msg 1 ;; # Failed to start
+		esac
+		;;
+	  *)
+	  	# Failed to stop
+		log_end_msg 1
+		;;
+	esac
+	;;
+  *)
+	#echo "Usage: $SCRIPTNAME {start|stop|restart|reload|force-reload}" >&2
+	echo "Usage: $SCRIPTNAME {start|stop|restart|force-reload}" >&2
+	exit 3
+	;;
+esac
+
+:
Index: package_tags/sipb-xen-dns/1/debian/sipb-xen-dns.install
===================================================================
--- package_tags/sipb-xen-dns/1/debian/sipb-xen-dns.install	(revision 325)
+++ package_tags/sipb-xen-dns/1/debian/sipb-xen-dns.install	(revision 325)
@@ -0,0 +1,1 @@
+files/* .
