Index: /trunk/bin/bkmkd
===================================================================
--- /trunk/bin/bkmkd	(revision 121)
+++ /trunk/bin/bkmkd	(revision 122)
@@ -18,11 +18,4 @@
 );
 
-my %run = (
-    run     => \&run_server,
-    start   => \&start_server,
-    stop    => sub { signal_server('QUIT') },
-    restart => sub { signal_server('HUP') },
-);
-
 my %default_config = (
     server_root => cwd,
@@ -31,4 +24,21 @@
     error_log   => 'error',
     pid_file    => 'pid',
+);
+
+my %run = (
+    init    => sub {
+        $CONFIG_FILE ||= 'server.yml';
+        my $config = {
+            %default_config,
+            %DEFINES,
+        };
+        print Dump($config) if $VERBOSE;
+        YAML::DumpFile($CONFIG_FILE, $config);
+        print "Wrote config to $CONFIG_FILE\n" if $VERBOSE;
+    },
+    run     => \&run_server,
+    start   => \&start_server,
+    stop    => sub { signal_server('QUIT') },
+    restart => sub { signal_server('HUP') },
 );