--- deliantra/server/ext/dmcommands.ext	2007/03/02 13:32:50	1.17
+++ deliantra/server/ext/dmcommands.ext	2007/03/02 13:43:58	1.18
@@ -2,6 +2,17 @@
 
 # wizard commands
 
+cf::register_command shutdown => sub {
+   my ($ob, $arg) = @_;
+   return $ob->reply (undef, "Sorry, you can't shutdown the server.")
+      unless $ob->flag (cf::FLAG_WIZ);
+
+   my $name = $ob->name;
+   cf::cleanup ("dm '$name' initiated shutdown" . ($arg ? " with reason: $arg" : "."), 0);
+
+   1
+};
+
 cf::register_command kick => sub {
    my ($ob, $arg) = @_;
    return unless $ob->flag (cf::FLAG_WIZ);