about summary refs log tree commit
diff options
context:
space:
mode:
authorEric Wong <e@yhbt.net>2020-03-26 08:21:28 +0000
committerEric Wong <e@yhbt.net>2020-03-26 23:47:08 +0000
commit53d2c5c6d98465c33f6f257be0b99fcf5cbe38c7 (patch)
tree6a238f241fa4c70a6a9a3283c12bcc19f64465f7
parent0a3da12a2e68af1a979a42f4b429076b0979708d (diff)
downloadpublic-inbox-53d2c5c6d98465c33f6f257be0b99fcf5cbe38c7.tar.gz
Exposing altid dumps will help and ensure total reproducibility
of existing instances.

AFAIK, sqlite3(1) can't execute arbitrary code, so it's not
quite as fashionable as the "curl | bash" stuff the cool people
are doing, these days :P
-rw-r--r--lib/PublicInbox/WwwText.pm20
1 files changed, 18 insertions, 2 deletions
diff --git a/lib/PublicInbox/WwwText.pm b/lib/PublicInbox/WwwText.pm
index cbe82b73..2008ba09 100644
--- a/lib/PublicInbox/WwwText.pm
+++ b/lib/PublicInbox/WwwText.pm
@@ -138,15 +138,16 @@ sub inbox_config ($$$) {
         my $ibx = $ctx->{-inbox};
         push @$hdr, 'Content-Disposition', 'inline; filename=inbox.config';
         my $name = dq_escape($ibx->{name});
+        my $inboxdir = '/path/to/top-level-inbox';
         $$txt .= <<EOS;
 ; example public-inbox config snippet for "$name"
 ; see public-inbox-config(5) manpage for more details:
 ; https://public-inbox.org/public-inbox-config.html
 [publicinbox "$name"]
-        inboxdir = /path/to/top-level-inbox
+        inboxdir = $inboxdir
         ; note: public-inbox before v1.2.0 used "mainrepo"
         ; instead of "inboxdir", both remain supported after 1.2
-        mainrepo = /path/to/top-level-inbox
+        mainrepo = $inboxdir
         url = https://example.com/$name/
         url = http://example.onion/$name/
 EOS
@@ -154,6 +155,21 @@ EOS
                 defined(my $v = $ibx->{$k}) or next;
                 $$txt .= "\t$k = $_\n" for @$v;
         }
+        if (my $altid = $ibx->{altid}) {
+                my $base_url = $ibx->base_url($ctx->{env});
+                my $altid_map = $ibx->altid_map;
+                $$txt .= <<EOF;
+        ; altid DBs may be used to provide numeric article ID lookup from
+        ; old, pre-existing sources.  You can recreate them via curl(1),
+        ; gzip(1), and sqlite3(1) as documented:
+EOF
+                for (sort keys %$altid_map) {
+                        $$txt .= "\t;\tcurl -XPOST $base_url$_.sql.gz | \\\n" .
+                                "\t;\tgzip -dc | \\\n" .
+                                "\t;\tsqlite3 $inboxdir/$_.sqlite3\n";
+                        $$txt .= "\taltid = serial:$_:file=$_.sqlite3\n";
+                }
+        }
 
         for my $k (qw(filter newsgroup obfuscate replyto watchheader)) {
                 defined(my $v = $ibx->{$k}) or next;