use warnings;
use Plack::Request;
use PublicInbox::Config;
+use PublicInbox::Hval;
use URI::Escape qw(uri_escape_utf8 uri_unescape);
use constant SSOMA_URL => '//ssoma.public-inbox.org/';
use constant PI_URL => '//public-inbox.org/';
# we don't care about multi-value
my %qp = map {
my ($k, $v) = split('=', $_, 2);
+ $v = '' unless defined $v;
($k, $v)
} split(/[&;]/, uri_unescape($env->{QUERY_STRING}));
$ctx->{qp} = \%qp;
# just returns a string ref for the blob in the current ctx
sub mid2blob {
my ($ctx) = @_;
- require PublicInbox::MID;
- my $path = PublicInbox::MID::mid2path($ctx->{mid});
- $ctx->{git}->cat_file("HEAD:$path");
+ $ctx->{-inbox}->msg_by_mid($ctx->{mid});
}
# /$INBOX/$MESSAGE_ID/raw -> raw mbox
my $mime = Email::MIME->new($x);
searcher($ctx);
[ 200, [ 'Content-Type' => 'text/html; charset=UTF-8' ],
- [ PublicInbox::View::msg_html($ctx, $mime, $foot) ] ];
+ PublicInbox::View::msg_html($ctx, $mime, $foot) ];
}
# /$INBOX/$MESSAGE_ID/t/
# auto-generate a footer
chomp(my $desc = $obj->description);
+ $desc = PublicInbox::Hval::ascii_html($desc);
my $urls;
my @urls = @{$obj->cloneurl};