Changeset 122 in bookmarks for trunk/bin/bkmkd

Timestamp:

03/03/16 12:58:02 (8 years ago)

Author:

peter

Message:

#7: Added an init mode to bkmkd.

Writes a new config file to the file given with the -f switch (defaults to "server.yml") and the built-in default settings. These settings can be overridden using the -D command line switch.

​http://trac.echodin.net/ticket/7

File:

• trunk/bin/bkmkd (modified) (2 diffs)

trunk/bin/bkmkd

@@ -18 +18 @@
 );
 
-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 +24 @@
     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') },
 );