trivial config module for dumping config

We'll be using git config files after all...

1 files changed, 18 insertions, 0 deletions

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
new file mode 100644
index 00000000..4078585a
--- /dev/null
+++ b/lib/PublicInbox/Config.pm
@@ -0,0 +1,18 @@
+# Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and all contributors
+# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+package PublicInbox::Config;
+
+# returns key-value pairs of config directives in a hash
+sub dump {
+        my ($class, $file) = @_;
+
+        local $ENV{GIT_CONFIG} = $file;
+
+        my @cfg = `git config -l`;
+        $? == 0 or die "git config -l failed: $?\n";
+        chomp @cfg;
+        my %rv = map { split(/=/, $_, 2) } @cfg;
+        \%rv;
+}
+
+1;