X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FWwwText.pm;h=a85609168d23a318fe373c4712a153901408c18c;hb=0d38f65c490466837ae091afa7a7b6f59d04ce7c;hp=a691e2d8efd5671770d8992d34e1f42c4feeb7ed;hpb=6bcab55b2594368e5f8aad0badb8d51d5d8ba20f;p=public-inbox.git diff --git a/lib/PublicInbox/WwwText.pm b/lib/PublicInbox/WwwText.pm index a691e2d8..a8560916 100644 --- a/lib/PublicInbox/WwwText.pm +++ b/lib/PublicInbox/WwwText.pm @@ -49,7 +49,7 @@ sub get_text { # enforce trailing slash for "wget -r" compatibility if (!$have_tslash && $code == 200) { - my $url = $ctx->{-inbox}->base_url($env); + my $url = $ctx->{ibx}->base_url($env); $url .= "_/text/$key/"; return [ 302, [ 'Content-Type', 'text/plain', @@ -100,7 +100,7 @@ sub _srch_prefix ($$) { sub _colors_help ($$) { my ($ctx, $txt) = @_; - my $ibx = $ctx->{-inbox}; + my $ibx = $ctx->{ibx}; my $env = $ctx->{env}; my $base_url = $ibx->base_url($env); $$txt .= "color customization for $base_url\n"; @@ -135,18 +135,20 @@ sub URI_PATH () { '^A-Za-z0-9\-\._~/' } # n.b. this is a perfect candidate for memoization sub inbox_config ($$$) { my ($ctx, $hdr, $txt) = @_; - my $ibx = $ctx->{-inbox}; + my $ibx = $ctx->{ibx}; push @$hdr, 'Content-Disposition', 'inline; filename=inbox.config'; my $name = dq_escape($ibx->{name}); my $inboxdir = '/path/to/top-level-inbox'; + my $base_url = $ibx->base_url($ctx->{env}); $$txt .= <{altid}) { - my $base_url = $ibx->base_url($ctx->{env}); my $altid_map = $ibx->altid_map; $$txt .= <{coderepo})) { $$txt .= "\tcoderepo = $_\n" for @$cr; + $$txt .= <<'EOF'; - my $pi_config = $ctx->{www}->{pi_config}; +; `coderepo' entries allows blob reconstruction via patch emails if +; the inbox is indexed with Xapian. `@@ @@' +; line number ranges in `[PATCH]' emails link to /$INBOX_NAME/$OID/s/, +; an HTTP endpoint which reconstructs git blobs via git-apply(1). +EOF + my $pi_cfg = $ctx->{www}->{pi_cfg}; for my $cr_name (@$cr) { - my $urls = $pi_config->{"coderepo.$cr_name.cgiturl"}; + my $urls = $pi_cfg->{"coderepo.$cr_name.cgiturl"}; my $path = "/path/to/$cr_name"; $cr_name = dq_escape($cr_name); @@ -192,11 +199,11 @@ EOF if ($urls && scalar(@$urls)) { $$txt .= "\t; "; $$txt .= join(" ||\n\t;\t", map {; - my $cpath = $path; + my $dst = $path; if ($path !~ m![a-z0-9_/\.\-]!i) { - $cpath = dq_escape($cpath); + $dst = '"'.dq_escape($dst).'"'; } - qq(git clone $_ "$cpath"); + qq(git clone $_ $dst); } @$urls); $$txt .= "\n"; } @@ -214,7 +221,7 @@ sub _default_text ($$$$) { return inbox_config($ctx, $hdr, $txt) if $key eq 'config'; return if $key ne 'help'; # TODO more keys? - my $ibx = $ctx->{-inbox}; + my $ibx = $ctx->{ibx}; my $base_url = $ibx->base_url($ctx->{env}); $$txt .= "public-inbox help for $base_url\n"; $$txt .= <search; + my $srch = $ibx->isrch; if ($srch) { $$txt .= <