diff options
Diffstat (limited to 'lib/PublicInbox/WwwAltId.pm')
-rw-r--r-- | lib/PublicInbox/WwwAltId.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/PublicInbox/WwwAltId.pm b/lib/PublicInbox/WwwAltId.pm index a45d8061..263e884a 100644 --- a/lib/PublicInbox/WwwAltId.pm +++ b/lib/PublicInbox/WwwAltId.pm @@ -38,6 +38,7 @@ sub check_output { # and thus not usable from DBD::SQLite. sub sqldump ($$) { my ($ctx, $altid_pfx) = @_; + my $env = $ctx->{env}; my $ibx = $ctx->{-inbox}; my $altid_map = $ibx->altid_map; my $fn = $altid_map->{$altid_pfx}; @@ -47,6 +48,22 @@ sub sqldump ($$) { EOF } + if ($env->{REQUEST_METHOD} ne 'POST') { + my $url = $ibx->base_url($ctx->{env}) . "$altid_pfx.sql.gz"; + return PublicInbox::WwwStream::oneshot($ctx, 405, \<<EOF); +<pre>A POST request required to retrieve $altid_pfx.sql.gz + + curl -XPOST -O $url + +or + + curl -XPOST $url | \\ + gzip -dc | \\ + sqlite3 /path/to/$altid_pfx.sqlite3 +</pre> +EOF + } + eval { require PublicInbox::GzipFilter } or return PublicInbox::WwwStream::oneshot($ctx, 501, \<<EOF); <pre>gzip output not available @@ -73,7 +90,6 @@ EOF # TODO: use -readonly if available with newer sqlite3(1) my $qsp = PublicInbox::Qspawn->new([$sqlite3, $fn], undef, { 0 => $r }); - my $env = $ctx->{env}; $ctx->{altid_pfx} = $altid_pfx; $env->{'qspawn.filter'} = PublicInbox::GzipFilter->new; $qsp->psgi_return($env, undef, \&check_output, $ctx); |