dump configuration to STDERR on SIGUSR1

diff --git a/bin/mpd-feeder b/bin/mpd-feeder
index da60df88a227312970e952c9f4506ecebf33ac2b..d6f5d6ff3fc423def3e9efd770065da1fdada33a 100755 (executable)
--- a/bin/mpd-feeder
+++ b/bin/mpd-feeder
@@ -180,6 +180,22 @@ use Net::Async::MPD;
                 },
             )
         );
+
+        $mpd->loop->add(
+            IO::Async::Signal->new(
+                name       => 'USR1',
+                on_receipt => sub {
+                    $log->debug("SIGUSR1 received. Dumping configuration to STDERR");
+                    my $old = select \*STDERR;
+                    try {
+                        $opt->dump;
+                    }
+                    finally {
+                        select $old;
+                    }
+                },
+            )
+        );
     }
 
     method connect_db {