5 files changed, 8 insertions, 1141 deletions

diff --git a/net/dgd/Makefile b/net/dgd/Makefile
index 1595f7fd0d47..2d6e81f57898 100644
--- a/net/dgd/Makefile
+++ b/net/dgd/Makefile
@@ -7,21 +7,13 @@
 
 PORTNAME=	dgd
 PORTVERSION=	1.4.1
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	net lang games
-MASTER_SITES=	${MASTER_SITE_SOURCEFORGE:S|%SUBDIR%|${PORTNAME}-osr|}:1 \
-		http://ftp.dworkin.nl/kernellib/:2 \
-		http://ftp.dworkin.nl/kernellib/patches/:3
-DISTFILES=	${DISTNAME}${EXTRACT_SUFX}:1 \
-		kernellib-${KERNELLIB_VERSION}${EXTRACT_SUFX}:2 \
-		${KERNELLIB_VERSION}-${KERNELLIB_VERSION}.1.gz:3 \
-		${KERNELLIB_VERSION}.1-${KERNELLIB_VERSION}.2.gz:3 \
-		${KERNELLIB_VERSION}.2-${KERNELLIB_VERSION}.3.gz:3
-EXTRACT_ONLY=	${DISTNAME}${EXTRACT_SUFX} \
-		kernellib-${KERNELLIB_VERSION}${EXTRACT_SUFX}
+MASTER_SITES=	${MASTER_SITE_SOURCEFORGE:S|%SUBDIR%|${PORTNAME}-osr|} \
+		${MASTER_SITE_SOURCEFORGE:S|%SUBDIR%|${PORTNAME}-osr/old|}
 
 MAINTAINER=	glewis@FreeBSD.org
-COMMENT=	Dworkin's Game Driver
+COMMENT=	Dworkin\'s Game Driver
 
 OPTIONS=	NETWORKING	"With networking kfuns"		off \
 		DUMP		"With dump kfuns"		off
@@ -33,11 +25,6 @@ ALL_TARGET=	install
 MAKE_JOBS_UNSAFE=	yes
 MAKE_ENV+=	EXTRA_DEFINES="$(EXTRA_DEFINES)"
 
-KERNELLIB_VERSION=	1.3
-EXTRA_PATCHES=		${WRKDIR}/${KERNELLIB_VERSION}-${KERNELLIB_VERSION}.1 \
-			${WRKDIR}/${KERNELLIB_VERSION}.1-${KERNELLIB_VERSION}.2 \
-			${WRKDIR}/${KERNELLIB_VERSION}.2-${KERNELLIB_VERSION}.3
-
 .if !defined(NOPORTDOCS)
 PORTDOCS=	*
 .endif
@@ -47,28 +34,15 @@ PORTDOCS=	*
 EXTRA_DEFINES=
 
 .if defined(WITH_NETWORKING)
-EXTRA_PATCHES+=	${FILESDIR}/extrapatch-kernellib-net
-PLIST_SUB+=	NETWORKING=""
 EXTRA_DEFINES+=	-DNETWORK_EXTENSIONS
-.else
-PLIST_SUB+=	NETWORKING="@comment "
 .endif
 
 .if defined(WITH_DUMP)
 EXTRA_DEFINES+=	-DDUMP_FUNCS
 .endif
 
-post-extract:
-	@${MV} ${WRKDIR}/kernellib ${WRKDIR}/dgd/
-
-pre-patch:
-	@${GZCAT} ${DISTDIR}/${DIST_SUBDIR}/${KERNELLIB_VERSION}-${KERNELLIB_VERSION}.1.gz > ${WRKDIR}/${KERNELLIB_VERSION}-${KERNELLIB_VERSION}.1
-	@${GZCAT} ${DISTDIR}/${DIST_SUBDIR}/${KERNELLIB_VERSION}.1-${KERNELLIB_VERSION}.2.gz > ${WRKDIR}/${KERNELLIB_VERSION}.1-${KERNELLIB_VERSION}.2
-	@${GZCAT} ${DISTDIR}/${DIST_SUBDIR}/${KERNELLIB_VERSION}.2-${KERNELLIB_VERSION}.3.gz > ${WRKDIR}/${KERNELLIB_VERSION}.2-${KERNELLIB_VERSION}.3
-
 post-patch:
 	@${MV} ${WRKSRC}/host/Makefile.bsd ${WRKSRC}/host/Makefile
-	@${REINPLACE_CMD} -e "s:%%DATADIR%%:${DATADIR}:" ${WRKDIR}/dgd/mud.dgd
 	@cd ${WRKDIR}/dgd/ && ${FIND} . -name '*.orig' -delete
 
 do-install:
@@ -76,14 +50,11 @@ do-install:
 	${INSTALL_PROGRAM} ${WRKDIR}/dgd/bin/precomp ${PREFIX}/bin/precomp
 	${MKDIR} ${PREFIX}/etc/${PORTNAME}
 	${INSTALL_DATA} ${WRKDIR}/dgd/mud.dgd \
-		${PREFIX}/etc/${PORTNAME}/kernel.dgd
-	${MKDIR} ${DATADIR}/kernel
-	cd ${WRKDIR}/dgd/kernellib && ${FIND} . \
-		| ${CPIO} -pdmu -R ${SHAREOWN}:${SHAREGRP} ${DATADIR}/kernel
+		${PREFIX}/etc/${PORTNAME}/mud.dgd.sample
 	@# Install an RC script for DGD
 	${CAT} ${FILESDIR}/dgd.sh | ${SED} -e "s:%%PREFIX%%:${PREFIX}:" \
 		-e "s:%%DATADIR%%:${DATADIR}:" > \
-		${PREFIX}/etc/rc.d/dgd.sh.sample
+			${PREFIX}/etc/rc.d/dgd.sh.sample
 	${CHMOD} a+x ${PREFIX}/etc/rc.d/dgd.sh.sample
 .if !defined(NOPORTDOCS)
 	${MKDIR} ${DOCSDIR}
@@ -95,12 +66,8 @@ do-install:
 .endif
 
 post-install:
-	@# Need a temporary directory for certain files
-	@${MKDIR} ${DATADIR}/tmp
 	@# Run package installation script
 	@${SETENV} PKG_PREFIX=${PREFIX} ${SH} ${PKGDIR}/pkg-install ${PKGNAME} \
 		POST-INSTALL
-	@# Set mudlib ownership
-	-@${CHOWN} -h -R mud:mud ${DATADIR}
 
 .include <bsd.port.post.mk>
diff --git a/net/dgd/distinfo b/net/dgd/distinfo
index b33b674fcd31..157f25f90f2f 100644
--- a/net/dgd/distinfo
+++ b/net/dgd/distinfo
@@ -1,15 +1,3 @@
 MD5 (dgd/dgd-1.4.1.tar.gz) = 23e14f727f9595faa30abc53ffe6c51d
 SHA256 (dgd/dgd-1.4.1.tar.gz) = 5ff969c7cfcba32b504a3fb4c70c7b4328f3e3bc7b2c329e5eed69a90d8b3b31
 SIZE (dgd/dgd-1.4.1.tar.gz) = 466644
-MD5 (dgd/kernellib-1.3.tar.gz) = a388b467537dd148d69525e7d31399c1
-SHA256 (dgd/kernellib-1.3.tar.gz) = e78b9e2e6d72206d89b9bb1841bb5e47e5b835df29879acd1eb72cb10d778fe6
-SIZE (dgd/kernellib-1.3.tar.gz) = 44225
-MD5 (dgd/1.3-1.3.1.gz) = baf6781e216271dbd815014ce0ef4359
-SHA256 (dgd/1.3-1.3.1.gz) = 46e8cb08b920845077fcb8e50584d57e7898502a678a9308e8b8f597cac15423
-SIZE (dgd/1.3-1.3.1.gz) = 1793
-MD5 (dgd/1.3.1-1.3.2.gz) = 4c1ed037da31720349c896a0db6bbf03
-SHA256 (dgd/1.3.1-1.3.2.gz) = c676219e389c52f35cb18f9874830ded458c23a43105ab79ba04db53e0866fe3
-SIZE (dgd/1.3.1-1.3.2.gz) = 783
-MD5 (dgd/1.3.2-1.3.3.gz) = 75e60561e961dd0e1526afc56c17cec7
-SHA256 (dgd/1.3.2-1.3.3.gz) = 0f4685909a3bb7b8789e1b8c4bd5ab17c51405ee996cbcbb62d0b066dce6bfc5
-SIZE (dgd/1.3.2-1.3.3.gz) = 1757
diff --git a/net/dgd/files/extrapatch-kernellib-net b/net/dgd/files/extrapatch-kernellib-net
deleted file mode 100644
index 58e17128908c..000000000000
--- a/net/dgd/files/extrapatch-kernellib-net
+++ /dev/null
@@ -1,996 +0,0 @@
-*** kernellib/include/config.h	Thu May 21 15:10:42 2009
---- kernellib/include/config.h	Thu May 21 15:10:52 2009
-***************
-*** 6,8 ****
---- 6,15 ----
-  # undef SYS_PERSISTENT		/* off by default */
-  
-  # define CALLOUTRSRC	FALSE	/* don't have callouts as a resource */
-+ 
-+ # ifdef SYS_NETWORKING
-+ #  define TELNET_PORT     6047    /* default telnet port */
-+ #  define BINARY_PORT     6048    /* default binary port */
-+ #  define EMERGENCY_PORT  6049    /* emergency binary port */
-+ # endif
-+ 
-*** kernellib/include/kernel/kernel.h	Thu May 21 15:10:42 2009
---- kernellib/include/kernel/kernel.h	Thu May 21 15:10:52 2009
-***************
-*** 1,4 ****
---- 1,7 ----
-  # include <config.h>
-+ # ifndef SYS_NETWORKING
-+ # define SYS_NETWORKING
-+ # endif
-  
-  # define DRIVER		"/kernel/sys/driver"
-  # define AUTO		("/kernel" + INHERITABLE_SUBDIR + "auto")
-*** kernellib/include/kernel/net.h	Thu Jan  1 00:00:00 1970
---- kernellib/include/kernel/net.h	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,10 ----
-+ # ifdef SYS_NETWORKING
-+ #  define LIB_PORT 	"/kernel/lib/network/port"
-+ #  define PORT_OBJECT	"/kernel/obj/port"
-+ #  define PORT_TELNET   "/kernel/sys/telnet_port"
-+ #  define PORT_BINARY   "/kernel/sys/binary_port"
-+ #  define PORT_EMERGENCY "/kernel/sys/emergency_port"
-+ #  define PORT_UDP	"/kernel/obj/udp"
-+ # else
-+ #  error	networking capabilities required
-+ # endif
-*** kernellib/include/kernel/user.h	Thu May 21 15:10:42 2009
---- kernellib/include/kernel/user.h	Thu May 21 15:10:52 2009
-***************
-*** 6,11 ****
---- 6,15 ----
-  # define BINARY_CONN		("/kernel" + CLONABLE_SUBDIR + "binary")
-  # define API_USER		("/kernel" + INHERITABLE_SUBDIR + "api/user")
-  
-+ #ifdef __NETWORK_EXTENSIONS__
-+ #define LIB_PORT                "/kernel/lib/network/port"
-+ #endif
-+ 
-  # define DEFAULT_USER		("/kernel" + CLONABLE_SUBDIR + "user")
-  # define DEFAULT_WIZTOOL	("/kernel" + CLONABLE_SUBDIR + "wiztool")
-  # define DEFAULT_USER_DIR	"/kernel/data"
-*** kernellib/include/std.h	Thu May 21 15:10:42 2009
---- kernellib/include/std.h	Thu May 21 15:10:52 2009
-***************
-*** 1,2 ****
---- 1,8 ----
-+ #ifdef __NETWORK_EXTENSIONS__
-+ #ifndef SYS_NETWORKING
-+ #define SYS_NETWORKING
-+ #endif
-+ #endif
-+ 
-  # define TRUE	1
-  # define FALSE	0
-*** kernellib/kernel/lib/auto.c	Thu May 21 15:10:42 2009
---- kernellib/kernel/lib/auto.c	Thu May 21 15:10:52 2009
-***************
-*** 3,8 ****
---- 3,12 ----
-  # include <kernel/rsrc.h>
-  # include <kernel/access.h>
-  # include <kernel/user.h>
-+ # ifdef SYS_NETWORKING
-+ # include <kernel/net.h>
-+ # endif
-+ 
-  # include <status.h>
-  # include <type.h>
-  # include <trace.h>
-***************
-*** 1547,1549 ****
---- 1551,1614 ----
-      } : error(TLSVAR2);
-      return result;
-  }
-+ 
-+ # ifdef SYS_NETWORKING
-+ /*
-+  * NAME:        connect()
-+  * DESCRIPTION: open an outbound connection
-+  */
-+ static void connect(string destination, int port,varargs string proto)
-+ {
-+     object conn;
-+     string err;
-+ 
-+     if (previous_program() == LIB_CONN) {
-+         if(!proto) proto = "tcp";
-+         ::connect(destination, port,proto);
-+     } else {
-+         CHECKARG(destination, 1, "connect");
-+ 
-+         if (creator == "System" && this_object()) {
-+             if (function_object("query_conn", this_object()) != LIB_USER) {
-+                 error("Not a user object");
-+             }
-+             conn = clone_object(BINARY_CONN, "System");
-+             call_other(this_object(),"connection",conn);
-+             conn->connect(destination, port,proto);
-+             if(err) {
-+                 rlimits (-1; -1) {
-+                     destruct_object(conn);
-+                 }
-+                 error(err);
-+             }
-+         }
-+     }
-+ }
-+ 
-+ static object port_object;
-+ 
-+ /*
-+  * NAME:        open_port()
-+  * DESCRIPTION: open a port to listen on
-+  */
-+ static void open_port(string protocol, varargs int port)
-+ {
-+     CHECKARG(protocol, 1, "open_port");
-+ 
-+     if (KERNEL() && this_object()) {
-+         ::open_port(protocol, port);
-+     }
-+ }
-+ 
-+ /*
-+  * NAME:        ports()
-+  * DESCRIPTION: return list of open ports
-+  */
-+ static object *ports()
-+ {
-+     if (creator == "System") {
-+         return ::ports();
-+     }
-+ }
-+ # endif /* SYS_NETWORKING */
-+ 
-*** kernellib/kernel/lib/connection.c	Thu May 21 15:10:42 2009
---- kernellib/kernel/lib/connection.c	Thu May 21 15:10:52 2009
-***************
-*** 6,11 ****
---- 6,12 ----
-  private object user;		/* user object */
-  private string conntype;	/* connection type */
-  private int mode;		/* connection mode */
-+ private int outgoing;
-  private int blocked;		/* connection blocked? */
-  private string buffer;		/* buffered output string */
-  
-***************
-*** 66,71 ****
---- 67,77 ----
-      int timeout;
-      string banner;
-  
-+     if(outgoing) {
-+        user->login("now");
-+        return;
-+     }
-+ 
-      banner = call_other(userd, "query_" + conntype + "_banner", port,
-  			this_object());
-      if (banner) {
-***************
-*** 74,80 ****
-  
-      timeout = call_other(userd, "query_" + conntype + "_timeout", port,
-  			 this_object());
-!     if (timeout < 0) {
-  	/* disconnect immediately */
-  	destruct_object(this_object());
-  	return;
---- 80,86 ----
-  
-      timeout = call_other(userd, "query_" + conntype + "_timeout", port,
-  			 this_object());
-!     if (timeout < 0 && !outgoing) {
-  	/* disconnect immediately */
-  	destruct_object(this_object());
-  	return;
-***************
-*** 83,88 ****
---- 89,99 ----
-      if (!user && timeout != 0) {
-  	call_out("timeout", timeout);
-      }
-+ # ifdef SYS_NETWORKING
-+     else {
-+         set_mode(user->login(nil));
-+     }
-+ # endif
-  }
-  
-  /*
-***************
-*** 136,142 ****
-   */
-  void set_port(int num)
-  {
-!     if (previous_object() == userd) {
-  	port = num;
-      }
-  }
---- 147,154 ----
-   */
-  void set_port(int num)
-  {
-!     if(num == 0) error("port is 0\n");
-!     if (previous_object() == userd || SYSTEM()) {
-  	port = num;
-      }
-  }
-***************
-*** 194,200 ****
-  	user = call_other(userd, conntype + "_user", port, str);
-  	set_mode(mode = user->login(str));
-      } else {
-! 	set_mode(mode = user->receive_message(str));
-      }
-      return mode;
-  }
---- 206,216 ----
-  	user = call_other(userd, conntype + "_user", port, str);
-  	set_mode(mode = user->login(str));
-      } else {
-!         mixed m;
-!         m = user->receive_message(str);
-!         if(m) mode = m;
-!         else mode = 0;
-! 	set_mode(mode);
-      }
-      return mode;
-  }
-***************
-*** 223,228 ****
---- 239,246 ----
-  		return TRUE;
-  	    }
-  	}
-+     } else {
-+         error(object_name(previous_object())+" is not allowed to do that");
-      }
-  }
-  
-***************
-*** 240,245 ****
---- 258,264 ----
-      }
-  }
-  
-+ #ifndef SYS_NETWORKING
-  /*
-   * NAME:	datagram_challenge()
-   * DESCRIPTION:	set the challenge for the datagram channel
-***************
-*** 283,285 ****
---- 302,324 ----
-  	return (send_datagram(str) == strlen(str));
-      }
-  }
-+ #else
-+ /*
-+  * NAME:        connect()
-+  * DESCRIPTION: establish an outbount connection
-+  */
-+ void connect(string destination, int n,varargs string protocol)
-+ {
-+     if (previous_program() == AUTO || previous_program() == LIB_USER) {
-+         outgoing = 1;
-+         user = previous_object();
-+         port = n;
-+         ::connect(destination, n, protocol);
-+     }
-+ }
-+ 
-+ void receive_error(string str) {
-+     DRIVER->message("NETWORK ERROR: "+str+"\n");
-+ }
-+ # endif
-+ 
-*** kernellib/kernel/lib/network/port.c	Thu Jan  1 00:00:00 1970
---- kernellib/kernel/lib/network/port.c	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,68 ----
-+ # include <kernel/kernel.h>
-+ # include <kernel/user.h>
-+ # include <trace.h>
-+ # include <type.h>
-+ 
-+ private object driver;		/* driver object */
-+ private object userd;		/* user manager object */
-+ private string protocol;        /* telnet, tcp or udp */
-+ 
-+ /*
-+  * NAME:	create()
-+  * DESCRIPTION:	initialize port object
-+  */
-+ static void create()
-+ {
-+     driver = find_object(DRIVER);
-+     userd = find_object(USERD);
-+ }
-+ 
-+ /*
-+  * NAME:	open_port()
-+  * DESCRIPTION:	start listening on a port
-+  */
-+ static 
-+ void open_port(string prot, varargs int port)
-+ {
-+     rlimits (-1; -1) {
-+ /*	catch {*/
-+ 	if (typeof(port)==T_INT && port !=0) {
-+ 		::open_port(prot, port);
-+ 	    } else {
-+ 		::open_port(prot);
-+ 	    }
-+ 	    protocol = prot;
-+ 	    return;
-+ /*	} : {
-+ 	    error(::call_trace()[1][TRACE_FIRSTARG][1]);
-+ 	    return;
-+ 	    }*/
-+     }
-+ }
-+ 
-+ object
-+ connection(mixed *tls, string ip, int port)
-+ {
-+     object conn;
-+ 
-+     switch(protocol) {
-+       case "telnet" : conn = clone_object(TELNET_CONN);
-+                       break;
-+       default       : conn = clone_object(BINARY_CONN);
-+                       break;
-+     }
-+     conn->set_port(port);
-+     return conn;
-+ }
-+ 
-+ int 
-+ open(mixed *tls,int port)
-+ {
-+     return FALSE;
-+ }
-+ 
-+ void
-+ close(mixed *tls, int force)
-+ {
-+ }
-+ 
-*** kernellib/kernel/obj/binary.c	Thu May 21 15:10:42 2009
---- kernellib/kernel/obj/binary.c	Thu May 21 15:10:52 2009
-***************
-*** 1,5 ****
---- 1,9 ----
-  # include <kernel/kernel.h>
-  # include <kernel/user.h>
-+ # ifdef SYS_NETWORKING
-+ #  include <kernel/net.h>
-+ # endif
-+ 
-  
-  inherit LIB_CONN;	/* basic connection object */
-  
-***************
-*** 25,33 ****
-   * NAME:	open()
-   * DESCRIPTION:	open the connection
-   */
-! static void open()
-  {
-      ::open(allocate(driver->query_tls_size()));
-  }
-  
-  /*
---- 29,42 ----
-   * NAME:	open()
-   * DESCRIPTION:	open the connection
-   */
-! static int open()
-  {
-      ::open(allocate(driver->query_tls_size()));
-+ # ifdef SYS_NETWORKING
-+     return TRUE;
-+ # else
-+     return FALSE;
-+ # endif
-  }
-  
-  /*
-***************
-*** 153,158 ****
---- 162,168 ----
-      ::message_done(allocate(driver->query_tls_size()));
-  }
-  
-+ #ifndef SYS_NETWORKING
-  /*
-   * NAME:	open_datagram()
-   * DESCRIPTION:	open a datagram channel for this connection
-***************
-*** 170,172 ****
---- 180,229 ----
-  {
-      ::receive_datagram(allocate(driver->query_tls_size()), str);
-  }
-+ #endif
-+ 
-+ #ifdef SYS_NETWORKING
-+ 
-+ object udpchannel;      /* UDP channel object */
-+ 
-+ /*
-+  * NAME:        set_udpchannel()
-+  * DESCRIPTION: set the UDP channel for this connection
-+  */
-+ void set_udpchannel(object udp, string host, int port)
-+ {
-+     if (previous_program() == LIB_PORT) {
-+         udpchannel = udp;
-+         udp->add_connection(this_object(), host, port);
-+     }
-+ }
-+ 
-+ /*
-+  * NAME:        receive_datagram()
-+  * DESCRIPTION: receive a datagram
-+  */
-+ void receive_datagram(mixed *tls, string str)
-+ {
-+     if (previous_object() == udpchannel) {
-+         object user;
-+ 
-+         user = query_user();
-+         if (user) {
-+             user->receive_datagram(str);
-+         }
-+     }
-+ }
-+ 
-+ /*
-+  * NAME:        datagram()
-+  * DESCRIPTION: send a datagram on the UDP channel
-+  */
-+ int datagram(string str)
-+ {
-+     if (previous_object() == query_user() && udpchannel) {
-+         return udpchannel->datagram(str);
-+     }
-+ }
-+ 
-+ #endif 
-+ 
-*** kernellib/kernel/obj/port.c	Thu Jan  1 00:00:00 1970
---- kernellib/kernel/obj/port.c	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,49 ----
-+ # include <kernel/kernel.h>
-+ # include <kernel/user.h>
-+ # include <kernel/net.h>
-+ 
-+ inherit LIB_PORT;
-+ 
-+ /*
-+  * NAME:        create()
-+  * DESCRIPTION: initialize port object
-+  */
-+ static void create(int clone)
-+ {
-+     if (clone) {
-+         ::create();
-+     }
-+ }
-+ 
-+ /*
-+  * NAME:        listen()
-+  * DESCRIPTION: start listening on a port
-+  */
-+ void listen(string protocol, int port)
-+ {
-+ #ifndef SYS_NETWORKING
-+     if (previous_program() == DRIVER) {
-+ #else
-+     if (previous_program() == DRIVER || previous_program() == USERD) {
-+ #endif
-+         ::open_port(protocol, port);
-+     }
-+ }
-+ 
-+ /*
-+  * NAME:        open_connection()
-+  * DESCRIPTION: don't return a user object, select it by first line of input
-+  */
-+ static object open_connection(string ipaddr, int port)
-+ {
-+     return nil;
-+ }
-+ 
-+ void open(int port) {
-+     ::open(allocate(DRIVER->query_tls_size()),port);
-+ }
-+ 
-+ object connection(string ip, int port) {
-+     ::connection(allocate(DRIVER->query_tls_size()),ip,port);
-+ }
-+ 
-*** kernellib/kernel/sys/binary_port.c	Thu Jan  1 00:00:00 1970
---- kernellib/kernel/sys/binary_port.c	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,47 ----
-+ #include <kernel/net.h>
-+ #include <kernel/user.h>
-+ #include <kernel/kernel.h>
-+ 
-+ inherit LIB_PORT;               /* basic port object */
-+ 
-+ object driver;                   /* driver object */
-+ 
-+ void
-+ create()
-+ {
-+     ::create();
-+     driver = find_object(DRIVER);
-+     open_port("tcp", BINARY_PORT);   
-+ }
-+ 
-+ object
-+ connection(string ip, int port)
-+ {
-+     return ::connection(allocate(driver->query_tls_size()), ip, port);
-+ }
-+ 
-+ void
-+ done()
-+ {
-+     close_user();
-+ }
-+ 
-+ /*
-+  * NAME:	open()
-+  * DESCRIPTION:	open the connection
-+  */
-+ static int open(int port)
-+ {
-+     ::open(allocate(driver->query_tls_size()), port);
-+     return FALSE;
-+ }
-+ 
-+ /*
-+  * NAME:	close()
-+  * DESCRIPTION:	close the connection
-+  */
-+ static void close(int force)
-+ {
-+     ::close(allocate(driver->query_tls_size()), force);
-+ }
-+ 
-*** kernellib/kernel/sys/driver.c	Thu May 21 15:10:42 2009
---- kernellib/kernel/sys/driver.c	Thu May 21 15:10:52 2009
-***************
-*** 4,9 ****
---- 4,15 ----
-  # include <kernel/access.h>
-  # include <kernel/user.h>
-  # include <kernel/tls.h>
-+ # ifdef __NETWORK_EXTENSIONS__
-+ # ifndef SYS_NETWORKING
-+ # define SYS_NETWORKING
-+ # endif
-+ #  include <kernel/net.h>
-+ # endif
-  # include <status.h>
-  # include <trace.h>
-  
-***************
-*** 16,23 ****
---- 22,38 ----
-  object initd;		/* init manager object */
-  object objectd;		/* object manager object */
-  object errord;		/* error manager object */
-+ # ifdef SYS_NETWORKING
-+ static object port_master;      /* port master object */
-+ static object telnet;           /* default telnet port object */
-+ static object binary;           /* default binary port object */
-+ static object emergency;        /* emergency port object */
-+ # endif
-+ 
-  int tls_size;		/* thread local storage size */
-  
-+ 
-+ 
-  /*
-   * NAME:	creator()
-   * DESCRIPTION:	get creator of file
-***************
-*** 408,413 ****
---- 423,432 ----
-      call_other(accessd = load(ACCESSD), "???");
-      call_other(userd = load(USERD), "???");
-      call_other(load(DEFAULT_WIZTOOL), "???");
-+ # ifdef SYS_NETWORKING
-+     call_other(port_master = load(PORT_OBJECT), "???");
-+     call_other(emergency = load(PORT_EMERGENCY), "???");
-+ # endif
-  
-      /* initialize other users as resource owners */
-      users = (accessd->query_users() - ({ "System" })) | ({ "admin" });
-***************
-*** 432,439 ****
-  	    shutdown();
-  	    return;
-  	}
-      }
-- 
-      message("Initialization complete.\n\n");
-  }
-  
---- 451,463 ----
-  	    shutdown();
-  	    return;
-  	}
-+ # ifdef SYS_NETWORKING
-+     } else {
-+         call_other(telnet = load(PORT_TELNET),"???");
-+         call_other(binary = load(PORT_BINARY),"???");
-+         rsrcd->rsrc_incr("System", "objects", nil, 2, 1);
-+ #endif
-      }
-      message("Initialization complete.\n\n");
-  }
-  
-***************
-*** 477,483 ****
-  	    initd->reboot();
-  	}
-      }
-! 
-      message("State restored.\n\n");
-  }
-  
---- 501,519 ----
-  	    initd->reboot();
-  	}
-      }
-! # ifdef SYS_NETWORKING
-!     if (telnet) {
-!         telnet->listen("telnet", TELNET_PORT);
-!     }
-!     if (binary) {
-!         binary->listen("tcp", BINARY_PORT);
-!     }
-!     if(!emergency) {
-!       emergency = clone_object(port_master);
-!       rsrcd->rsrc_incr("System", "objects", nil, 1, 1);
-!     }
-!     emergency->listen("tcp", EMERGENCY_PORT);
-! # endif
-      message("State restored.\n\n");
-  }
-  
-*** kernellib/kernel/sys/emergency_port.c	Thu Jan  1 00:00:00 1970
---- kernellib/kernel/sys/emergency_port.c	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,47 ----
-+ #include <kernel/net.h>
-+ #include <kernel/user.h>
-+ #include <kernel/kernel.h>
-+ 
-+ inherit LIB_PORT;               /* basic port object */
-+ 
-+ object driver;                   /* driver object */
-+ 
-+ void
-+ create()
-+ {
-+     ::create();
-+     driver = find_object(DRIVER);
-+     open_port("tcp", EMERGENCY_PORT);   
-+ }
-+ 
-+ object
-+ connection(string ip, int port)
-+ {
-+     return ::connection(allocate(driver->query_tls_size()), ip, port);
-+ }
-+ 
-+ void
-+ done()
-+ {
-+     close_user();
-+ }
-+ 
-+ /*
-+  * NAME:	open()
-+  * DESCRIPTION:	open the connection
-+  */
-+ static int open(int port)
-+ {
-+     ::open(allocate(driver->query_tls_size()), port);
-+     return FALSE;
-+ }
-+ 
-+ /*
-+  * NAME:	close()
-+  * DESCRIPTION:	close the connection
-+  */
-+ static void close(int force)
-+ {
-+     ::close(allocate(driver->query_tls_size()), force);
-+ }
-+ 
-*** kernellib/kernel/sys/telnet_port.c	Thu Jan  1 00:00:00 1970
---- kernellib/kernel/sys/telnet_port.c	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,47 ----
-+ #include <kernel/net.h>
-+ #include <kernel/user.h>
-+ #include <kernel/kernel.h>
-+ 
-+ inherit LIB_PORT;               /* basic port object */
-+ 
-+ object driver;                   /* driver object */
-+ 
-+ void
-+ create()
-+ {
-+     ::create();
-+     driver = find_object(DRIVER);
-+     open_port("telnet", TELNET_PORT);   
-+ }
-+ 
-+ object
-+ connection(string ip, int port)
-+ {
-+     return ::connection(allocate(driver->query_tls_size()), ip, port);
-+ }
-+ 
-+ void
-+ done()
-+ {
-+     close_user();
-+ }
-+ 
-+ /*
-+  * NAME:	open()
-+  * DESCRIPTION:	open the connection
-+  */
-+ static int open(int port)
-+ {
-+     ::open(allocate(driver->query_tls_size()), port);
-+     return FALSE;
-+ }
-+ 
-+ /*
-+  * NAME:	close()
-+  * DESCRIPTION:	close the connection
-+  */
-+ static void close(int force)
-+ {
-+     ::close(allocate(driver->query_tls_size()), force);
-+ }
-+ 
-*** kernellib/kernel/sys/userd.c	Thu May 21 15:10:42 2009
---- kernellib/kernel/sys/userd.c	Thu May 21 15:10:52 2009
-***************
-*** 1,11 ****
---- 1,18 ----
-  # include <kernel/kernel.h>
-  # include <kernel/user.h>
-+ # ifdef SYS_NETWORKING
-+ #  include <kernel/net.h>
-+ #  define PORT  PORT_OBJECT
-+ # else
-+ #  define PORT  DRIVER
-+ # endif
-  # include <status.h>
-  
-  
-  object *users;		/* user mappings */
-  mapping names;		/* name : connection object */
-  object *connections;	/* saved connections */
-+ mapping listeners_telnet, listeners_tcp; /* port objects */
-  mapping telnet, binary;	/* port managers */
-  
-  /*
-***************
-*** 18,23 ****
---- 25,31 ----
-      if (!find_object(TELNET_CONN)) { compile_object(TELNET_CONN); }
-      if (!find_object(BINARY_CONN)) { compile_object(BINARY_CONN); }
-      if (!find_object(DEFAULT_USER)) { compile_object(DEFAULT_USER); }
-+     if (!find_object(PORT_OBJECT)) { compile_object(PORT_OBJECT); }
-  
-      /* initialize user arrays */
-      users = ({ });
-***************
-*** 32,38 ****
-   */
-  object telnet_connection(mixed *tls, int port)
-  {
-!     if (previous_program() == DRIVER) {
-  	object conn;
-  
-  	conn = clone_object(TELNET_CONN);
---- 40,46 ----
-   */
-  object telnet_connection(mixed *tls, int port)
-  {
-!     if (previous_program() == PORT) {
-  	object conn;
-  
-  	conn = clone_object(TELNET_CONN);
-***************
-*** 47,53 ****
-   */
-  object binary_connection(mixed *tls, int port)
-  {
-!     if (previous_program() == DRIVER) {
-  	object conn;
-  
-  	conn = clone_object(BINARY_CONN);
---- 55,61 ----
-   */
-  object binary_connection(mixed *tls, int port)
-  {
-!     if (previous_program() == PORT) {
-  	object conn;
-  
-  	conn = clone_object(BINARY_CONN);
-***************
-*** 57,62 ****
---- 65,113 ----
-  }
-  
-  /*
-+  * NAME:
-+  * DESCRIPTION:
-+  */
-+ private void start_telnet_listener(int port)
-+ {
-+     if(!listeners_telnet) {
-+         listeners_telnet = ([ ]);
-+     }
-+     if(!listeners_tcp) {
-+         listeners_tcp = ([ ]);
-+     }
-+ 
-+     if(!listeners_telnet[port] && !listeners_tcp[port]) {
-+        listeners_telnet[port] = clone_object(PORT_OBJECT);
-+        listeners_telnet[port]->listen("telnet",port);
-+     } else {
-+        error("Port "+port+" is already in use.");
-+     }
-+ }
-+ 
-+ /*
-+  * NAME:
-+  * DESCRIPTION:
-+  */
-+ private void start_tcp_listener(int port) 
-+ {
-+     if(!listeners_telnet) {
-+         listeners_telnet = ([ ]);
-+     }
-+ 
-+     if(!listeners_tcp) {
-+         listeners_tcp = ([ ]);
-+     }
-+ 
-+     if(!listeners_telnet[port] && !listeners_tcp[port]) {
-+         listeners_tcp[port] = clone_object(PORT_OBJECT);
-+         listeners_tcp[port]->listen("tcp",port);
-+     } else {
-+         error("Port "+port+" is already in use.");
-+     }
-+ }
-+ 
-+ /*
-   * NAME:	set_telnet_manager()
-   * DESCRIPTION:	set the telnet manager object, which determines what the
-   *		user object is, based on the first line of input
-***************
-*** 67,73 ****
---- 118,128 ----
-  void set_telnet_manager(int port, object manager)
-  {
-      if (SYSTEM()) {
-+         if(!port) port = TELNET_PORT;
-  	telnet[port] = manager;
-+         DRIVER->message("telnet manager for port "+port+ " is now "+
-+           object_name(manager)+"\n");
-+         start_telnet_listener(port);
-      }
-  }
-  
-***************
-*** 82,88 ****
---- 137,147 ----
-  void set_binary_manager(int port, object manager)
-  {
-      if (SYSTEM()) {
-+         if(!port) port = BINARY_PORT;
-  	binary[port] = manager;
-+         DRIVER->message("binary manager for port "+port+ " is now "+
-+           object_name(manager)+"\n");
-+         start_tcp_listener(port);
-      }
-  }
-  
-***************
-*** 100,105 ****
---- 159,165 ----
-  	user = names[str];
-  	if (!user) {
-  	    user = telnet[port];
-+             if(!user) user = binary[port];
-  	    if (user) {
-  		user = (object LIB_USER) user->select(str);
-  	    } else {
-***************
-*** 123,129 ****
-  	user = names[str];
-  	if (!user) {
-  	    user = binary[port];
-! 	    if (user && (str != "admin" || port != 0)) {
-  		user = (object LIB_USER) user->select(str);
-  	    } else {
-  		user = clone_object(DEFAULT_USER);
---- 183,190 ----
-  	user = names[str];
-  	if (!user) {
-  	    user = binary[port];
-!             if(!user) user = telnet[port];
-! 	    if (user && (str != "admin" || port != EMERGENCY_PORT)) {
-  		user = (object LIB_USER) user->select(str);
-  	    } else {
-  		user = clone_object(DEFAULT_USER);
-*** kernellib/usr/System/initd.c	Thu Jan  1 00:00:00 1970
---- kernellib/usr/System/initd.c	Thu May 21 15:10:52 2009
-***************
-*** 0 ****
---- 1,32 ----
-+ # include <kernel/kernel.h>
-+ 
-+ private void
-+ load(string filename)
-+ {
-+     if (!find_object(filename)) {
-+         compile_object(filename);
-+     }
-+ }
-+ 
-+ static void
-+ create()
-+ {
-+     load("/kernel/sys/telnet_port");
-+     load("/kernel/sys/binary_port");
-+ }
-+ 
-+ void
-+ prepare_reboot()
-+ {
-+     if (previous_program() == DRIVER) {
-+         /* ... */
-+     }
-+ }
-+ 
-+ void
-+ reboot()
-+ {
-+     if (previous_program() == DRIVER) {
-+         /* ... */
-+     }
-+ }
diff --git a/net/dgd/files/patch-mud.dgd b/net/dgd/files/patch-mud.dgd
index be48d259f51f..f9807d2b7589 100644
--- a/net/dgd/files/patch-mud.dgd
+++ b/net/dgd/files/patch-mud.dgd
@@ -6,7 +6,7 @@ $FreeBSD$
  telnet_port	= 6047;			/* telnet port number */
  binary_port	= 6048;			/* binary port number */
 -directory	= "/home/dworkin/dgd/mud";/* base directory (MUST be absolute) */
-+directory	= "%%DATADIR%%/kernel";	/* base directory (MUST be absolute) */
++directory	= "%%DATADIR%%/mud";	/* base directory (MUST be absolute) */
  users		= 40;			/* max # of users */
  editors		= 40;			/* max # of editor sessions */
  ports           = 16;                   /* max number of open ports (for network extensions) */
diff --git a/net/dgd/pkg-plist b/net/dgd/pkg-plist
index 1b513cb69ab0..0fad98f80021 100644
--- a/net/dgd/pkg-plist
+++ b/net/dgd/pkg-plist
@@ -1,97 +1,5 @@
 bin/precomp
-etc/dgd/kernel.dgd
+etc/dgd/mud.dgd.sample
 etc/rc.d/dgd.sh.sample
 sbin/dgd
-%%DATADIR%%/kernel/doc/README.kernel
-%%DATADIR%%/kernel/doc/kernel/Changelog
-%%DATADIR%%/kernel/doc/kernel/efun/add_event
-%%DATADIR%%/kernel/doc/kernel/efun/call_limited
-%%DATADIR%%/kernel/doc/kernel/efun/call_other
-%%DATADIR%%/kernel/doc/kernel/efun/call_trace
-%%DATADIR%%/kernel/doc/kernel/efun/clone_object
-%%DATADIR%%/kernel/doc/kernel/efun/compile_object
-%%DATADIR%%/kernel/doc/kernel/efun/destruct_object
-%%DATADIR%%/kernel/doc/kernel/efun/event
-%%DATADIR%%/kernel/doc/kernel/efun/event_except
-%%DATADIR%%/kernel/doc/kernel/efun/file_info
-%%DATADIR%%/kernel/doc/kernel/efun/find_object
-%%DATADIR%%/kernel/doc/kernel/efun/get_dir
-%%DATADIR%%/kernel/doc/kernel/efun/new_object
-%%DATADIR%%/kernel/doc/kernel/efun/query_events
-%%DATADIR%%/kernel/doc/kernel/efun/query_subscribed_event
-%%DATADIR%%/kernel/doc/kernel/efun/remove_event
-%%DATADIR%%/kernel/doc/kernel/efun/status
-%%DATADIR%%/kernel/doc/kernel/efun/subscribe_event
-%%DATADIR%%/kernel/doc/kernel/efun/unsubscribe_event
-%%DATADIR%%/kernel/doc/kernel/hook/driver
-%%DATADIR%%/kernel/doc/kernel/hook/rsrcd
-%%DATADIR%%/kernel/doc/kernel/hook/userd
-%%DATADIR%%/kernel/doc/kernel/kernel.dgd
-%%DATADIR%%/kernel/doc/kernel/lfun/allow_subscribe
-%%DATADIR%%/kernel/doc/kernel/lfun/create
-%%DATADIR%%/kernel/doc/kernel/lfun/query_owner
-%%DATADIR%%/kernel/doc/kernel/overview
-%%DATADIR%%/kernel/include/config.h
-%%DATADIR%%/kernel/include/kernel/access.h
-%%DATADIR%%/kernel/include/kernel/kernel.h
-%%NETWORKING%%%%DATADIR%%/kernel/include/kernel/net.h
-%%DATADIR%%/kernel/include/kernel/objreg.h
-%%DATADIR%%/kernel/include/kernel/rsrc.h
-%%DATADIR%%/kernel/include/kernel/tls.h
-%%DATADIR%%/kernel/include/kernel/user.h
-%%DATADIR%%/kernel/include/kernel/version.h
-%%DATADIR%%/kernel/include/std.h
-%%DATADIR%%/kernel/kernel/lib/api/access.c
-%%DATADIR%%/kernel/kernel/lib/api/objreg.c
-%%DATADIR%%/kernel/kernel/lib/api/rsrc.c
-%%DATADIR%%/kernel/kernel/lib/api/tls.c
-%%DATADIR%%/kernel/kernel/lib/api/user.c
-%%DATADIR%%/kernel/kernel/lib/auto.c
-%%DATADIR%%/kernel/kernel/lib/connection.c
-%%NETWORKING%%%%DATADIR%%/kernel/kernel/lib/network/port.c
-%%DATADIR%%/kernel/kernel/lib/user.c
-%%DATADIR%%/kernel/kernel/lib/wiztool.c
-%%DATADIR%%/kernel/kernel/obj/binary.c
-%%NETWORKING%%%%DATADIR%%/kernel/kernel/obj/port.c
-%%DATADIR%%/kernel/kernel/obj/rsrc.c
-%%DATADIR%%/kernel/kernel/obj/telnet.c
-%%DATADIR%%/kernel/kernel/obj/user.c
-%%DATADIR%%/kernel/kernel/obj/wiztool.c
-%%DATADIR%%/kernel/kernel/sys/accessd.c
-%%NETWORKING%%%%DATADIR%%/kernel/kernel/sys/binary_port.c
-%%DATADIR%%/kernel/kernel/sys/driver.c
-%%NETWORKING%%%%DATADIR%%/kernel/kernel/sys/emergency_port.c
-%%DATADIR%%/kernel/kernel/sys/objregd.c
-%%DATADIR%%/kernel/kernel/sys/rsrcd.c
-%%NETWORKING%%%%DATADIR%%/kernel/kernel/sys/telnet_port.c
-%%DATADIR%%/kernel/kernel/sys/userd.c
-%%NETWORKING%%%%DATADIR%%/kernel/usr/System/initd.c
-@unexec rm -f %D/%%DATADIR%%/kernel/kernel/data/*
-@unexec rm -f %D/%%DATADIR%%/kernel/include/float.h
-@unexec rm -f %D/%%DATADIR%%/kernel/include/limits.h
-@unexec rm -f %D/%%DATADIR%%/kernel/include/status.h
-@unexec rm -f %D/%%DATADIR%%/kernel/include/trace.h
-@unexec rm -f %D/%%DATADIR%%/kernel/include/type.h
-@unexec rm -f %D/%%DATADIR%%/kernel.log
-@unexec rm -f %D/%%DATADIR%%/tmp/dgd.swap
-@dirrm %%DATADIR%%/tmp
-@dirrm %%DATADIR%%/kernel/usr/admin
-@dirrm %%DATADIR%%/kernel/usr/System
-@dirrm %%DATADIR%%/kernel/usr
-@dirrm %%DATADIR%%/kernel/kernel/sys
-@dirrm %%DATADIR%%/kernel/kernel/obj
-%%NETWORKING%%@dirrm %%DATADIR%%/kernel/kernel/lib/network
-@dirrm %%DATADIR%%/kernel/kernel/lib/api
-@dirrm %%DATADIR%%/kernel/kernel/lib
-@dirrm %%DATADIR%%/kernel/kernel/data
-@dirrm %%DATADIR%%/kernel/kernel
-@dirrm %%DATADIR%%/kernel/include/kernel
-@dirrm %%DATADIR%%/kernel/include
-@dirrm %%DATADIR%%/kernel/doc/kernel/lfun
-@dirrm %%DATADIR%%/kernel/doc/kernel/hook
-@dirrm %%DATADIR%%/kernel/doc/kernel/efun
-@dirrm %%DATADIR%%/kernel/doc/kernel
-@dirrm %%DATADIR%%/kernel/doc
-@dirrm %%DATADIR%%/kernel
-@dirrm %%DATADIR%%
 @dirrm etc/dgd