# 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