X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FExtMsg.pm;h=6cfc6c322295d2f6f3515de38db75e48e0dfff25;hb=b7ad68f80356124f08e93ead6a575375f726291f;hp=73bd4b17fe9c983d632f9e70b1b0bef1f64866b4;hpb=33cef7f24d3ddedc4cd79ee88b0bba6ed1aab4c9;p=public-inbox.git diff --git a/lib/PublicInbox/ExtMsg.pm b/lib/PublicInbox/ExtMsg.pm index 73bd4b17..6cfc6c32 100644 --- a/lib/PublicInbox/ExtMsg.pm +++ b/lib/PublicInbox/ExtMsg.pm @@ -8,31 +8,34 @@ package PublicInbox::ExtMsg; use strict; use warnings; -use URI::Escape qw(uri_escape_utf8); use PublicInbox::Hval; use PublicInbox::MID qw/mid2path/; +use PublicInbox::WwwStream; # TODO: user-configurable our @EXT_URL = ( - 'http://mid.gmane.org/%s', - 'https://lists.debian.org/msgid-search/%s', # leading "//" denotes protocol-relative (http:// or https://) - '//mid.mail-archive.com/%s', '//marc.info/?i=%s', + '//www.mail-archive.com/search?l=mid&q=%s', + 'http://mid.gmane.org/%s', + 'https://lists.debian.org/msgid-search/%s', + '//docs.FreeBSD.org/cgi/mid.cgi?db=mid&id=%s', + 'https://www.w3.org/mid/%s', + 'http://www.postgresql.org/message-id/%s', + 'https://lists.debconf.org/cgi-lurker/keyword.cgi?'. + 'doc-url=/lurker&format=en.html&query=id:%s' ); sub ext_msg { my ($ctx) = @_; - my $pi_config = $ctx->{pi_config}; my $cur = $ctx->{-inbox}; my $mid = $ctx->{mid}; - my $env = $ctx->{env}; eval { require PublicInbox::Search }; my $have_xap = $@ ? 0 : 1; my (@nox, @ibx, @found); - $pi_config->each_inbox(sub { + $ctx->{www}->{pi_config}->each_inbox(sub { my ($other) = @_; return if $other->{name} eq $cur->{name} || !$other->base_url; @@ -61,19 +64,21 @@ sub ext_msg { } }); - # TODO: multiple hits - return r302($found[0], $mid) if @found; + return exact($ctx, \@found, $mid) if @found; # Xapian not installed or configured for some repos, - # do a full MID check: + # do a full MID check (this is expensive...): if (@nox) { my $path = mid2path($mid); foreach my $other (@nox) { my (undef, $type, undef) = $other->path_check($path); - return r302($other, $mid) if $type && $type eq 'blob'; + if ($type && $type eq 'blob') { + push @found, $other; + } } } + return exact($ctx, \@found, $mid) if @found; # fall back to partial MID matching my $n_partial = 0; @@ -99,53 +104,76 @@ again: } my $code = 404; - my $h = PublicInbox::Hval->new_msgid($mid, 1); - my $href = $h->as_href; + my $h = PublicInbox::Hval->new_msgid($mid); + my $href = $h->{href}; my $html = $h->as_html; - my $title = "Message-ID <$html> not found"; - my $s = "
$title\n"; - + my $title = "<$html> not found"; + my $s = "'; - - [$code, ['Content-Type'=>'text/html; charset=UTF-8'], [$s]]; + '' } -# Redirect to another public-inbox which is mapped by $pi_config -# TODO: prompt for inbox-switching -sub r302 { - my ($inbox, $mid) = @_; - my $url = $inbox->base_url . uri_escape_utf8($mid) . '/'; - [ 302, - [ 'Location' => $url, 'Content-Type' => 'text/plain' ], - [ "Redirecting to\n$url\n" ] ] +sub exact { + my ($ctx, $found, $mid) = @_; + my $h = PublicInbox::Hval->new_msgid($mid); + my $href = $h->{href}; + my $html = $h->as_html; + my $title = "<$html> found in "; + my $end = @$found == 1 ? 'another inbox' : 'other inboxes'; + $ctx->{-title_html} = $title . $end; + $ctx->{-upfx} = '../'; + my $ext_urls = ext_urls($ctx, $mid, $href, $html); + my $code = (@$found == 1 && $ext_urls eq '') ? 200 : 300; + $ctx->{-html_tip} = join('', + "Message-ID <$html>\nnot found\n"; if ($n_partial) { $code = 300; my $es = $n_partial == 1 ? '' : 'es'; - $s.= "\n$n_partial partial match$es found:\n\n"; + $s .= "\n$n_partial partial match$es found:\n\n"; + my $cur_name = $cur->{name}; foreach my $pair (@partial) { my ($ibx, $res) = @$pair; - my $u = $ibx->base_url or next; + my $env = $ctx->{env} if $ibx->{name} eq $cur_name; + my $u = $ibx->base_url($env) or next; foreach my $m (@$res) { my $p = PublicInbox::Hval->new_msgid($m); - my $r = $p->as_href; + my $r = $p->{href}; my $t = $p->as_html; $s .= qq{$u$t/\n}; } } } + my $ext = ext_urls($ctx, $mid, $href, $html); + if ($ext ne '') { + $s .= $ext; + $code = 300; + } + $ctx->{-html_tip} = $s .= ''; + $ctx->{-title_html} = $title; + $ctx->{-upfx} = '../'; + PublicInbox::WwwStream->response($ctx, $code); +} + +sub ext_urls { + my ($ctx, $mid, $href, $html) = @_; # Fall back to external repos if configured if (@EXT_URL && index($mid, '@') >= 0) { - $code = 300; - $s .= "\nPerhaps try an external site:\n\n"; + my $env = $ctx->{env}; + my $e = "\nPerhaps try an external site:\n\n"; foreach my $url (@EXT_URL) { my $u = PublicInbox::Hval::prurl($env, $url); my $r = sprintf($u, $href); my $t = sprintf($u, $html); - $s .= qq{$t\n}; + $e .= qq{$t\n}; } + return $e; } - $s .= '
Message-ID: <$html>\nfound in $end:\n\n", + (map { + my $u = $_->base_url; + qq($u$html/\n) + } @$found), + $ext_urls, ''); + PublicInbox::WwwStream->response($ctx, $code); } 1;