From 8cd7dbc96254f6c19990fc28c266e274cc80ddfb Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sun, 11 Jan 2015 23:58:55 +0000
Subject: import_slrnspool: load private config key

PublicInbox::Config->lookup won't return unknown keys
---
 scripts/import_slrnspool | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

(limited to 'scripts')

diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool
index d95836d6..e55c96c7 100755
--- a/scripts/import_slrnspool
+++ b/scripts/import_slrnspool
@@ -31,16 +31,28 @@ if ($ENV{'FILTER'}) {
 	@mda = (qw(ssoma-mda -1), $cfg->{mainrepo});
 }
 
-sub get_min {
+sub key {
 	my ($cfg) = @_;
-	$cfg->{importslrnspoolstate} || 0;
+	"publicinbox.$cfg->{listname}.importslrnspoolstate";
+}
+
+sub get_min {
+	my $f = PublicInbox::Config->default_file;
+	my @cmd = (qw/git config/, "--file=$f", key($cfg));
+	use IPC::Run qw/run/;
+
+	my $in = '';
+	my $out = '';
+	unless (run(\@cmd, \$in, \$out)) {
+		$out = 0;
+	}
+	int($out);
 }
 
 sub set_min {
 	my ($cfg, $num) = @_;
 	my $f = PublicInbox::Config->default_file;
-	my @cmd = (qw/git config/, "--file=$f",
-		   "publicinbox.$cfg->{listname}.importslrnspoolstate", $num);
+	my @cmd = (qw/git config/, "--file=$f", key($cfg), $num);
 	system(@cmd) == 0 or die join(' ', @cmd). " failed: $?\n";
 }
 
-- 
cgit v1.2.3-24-ge0c7