+my $ref = $param{'bug'} || quitcgi("No bug number");
+$ref =~ /(\d+)/ or quitcgi("Invalid bug number");
+$ref = $1;
+my $short = "#$ref";
+my $msg = $param{'msg'} || "";
+my $att = $param{'att'};
+my $boring = ($param{'boring'} || 'no') eq 'yes';
+my $terse = ($param{'terse'} || 'no') eq 'yes';
+my $reverse = ($param{'reverse'} || 'no') eq 'yes';
+my $mbox = ($param{'mbox'} || 'no') eq 'yes';
+my $mime = ($param{'mime'} || 'yes') eq 'yes';
+
+my $trim_headers = ($param{trim} || ($msg?'no':'yes')) eq 'yes';
+
+# Not used by this script directly, but fetch these so that pkgurl() and
+# friends can propagate them correctly.
+my $archive = ($param{'archive'} || 'no') eq 'yes';
+my $repeatmerged = ($param{'repeatmerged'} || 'yes') eq 'yes';
+set_option('archive', $archive);
+set_option('repeatmerged', $repeatmerged);
+
+my $buglog = buglog($ref);
+
+if (defined $ENV{REQUEST_METHOD} and $ENV{REQUEST_METHOD} eq 'HEAD' and not defined($att) and not $mbox) {
+ print "Content-Type: text/html; charset=utf-8\n";
+ my @stat = stat $buglog;
+ if (@stat) {
+ my $mtime = strftime '%a, %d %b %Y %T GMT', gmtime($stat[9]);
+ print "Last-Modified: $mtime\n";
+ }
+ print "\n";
+ exit 0;
+}
+
+sub display_entity ($$$$\$\@);
+sub display_entity ($$$$\$\@) {
+ my $entity = shift;
+ my $ref = shift;
+ my $top = shift;
+ my $xmessage = shift;
+ my $this = shift;
+ my $attachments = shift;
+
+ my $head = $entity->head;
+ my $disposition = $head->mime_attr('content-disposition');
+ $disposition = 'inline' if not defined $disposition or $disposition eq '';
+ my $type = $entity->effective_type;
+ my $filename = $entity->head->recommended_filename;
+ $filename = '' unless defined $filename;
+ $filename = decode_rfc1522($filename);
+
+ if ($top and not $terse) {
+ my $header = $entity->head;
+ $$this .= "<pre class=\"headers\">\n";
+ if ($trim_headers) {
+ my @headers;
+ foreach (qw(From To Cc Subject Date)) {
+ my $head_field = $head->get($_);
+ next unless defined $head_field and $head_field ne '';
+ push @headers, qq(<b>$_:</b> ) . htmlsanit(decode_rfc1522($head_field));
+ }
+ $$this .= join(qq(), @headers) unless $terse;
+ } else {
+ $$this .= htmlsanit(decode_rfc1522($entity->head->stringify));
+ }
+ $$this .= "</pre>\n";
+ }
+
+ unless (($top and $type =~ m[^text(?:/plain)?(?:;|$)]) or
+ ($type =~ m[^multipart/])) {
+ push @$attachments, $entity;
+ my @dlargs = ($ref, "msg=$xmessage", "att=$#$attachments");
+ push @dlargs, "filename=$filename" if $filename ne '';
+ my $printname = $filename;
+ $printname = 'Message part ' . ($#$attachments + 1) if $filename eq '';
+ $$this .= '<pre class="mime">[<a href="' . bugurl(@dlargs) . qq{">$printname</a> } .
+ "($type, $disposition)]</pre>\n";
+
+ if ($msg and defined($att) and $att eq $#$attachments) {
+ my $head = $entity->head;
+ chomp(my $type = $entity->effective_type);
+ my $body = $entity->stringify_body;
+ print "Content-Type: $type";
+ my ($charset) = $head->get('Content-Type:') =~ m/charset\s*=\s*\"?([\w-]+)\"?/i;
+ print qq(; charset="$charset") if defined $charset;
+ print "\n";
+ if ($filename ne '') {
+ my $qf = $filename;
+ $qf =~ s/"/\\"/g;
+ $qf =~ s[.*/][];
+ print qq{Content-Disposition: inline; filename="$qf"\n};
+ }
+ print "\n";
+ my $decoder = new MIME::Decoder($head->mime_encoding);
+ $decoder->decode(new IO::Scalar(\$body), \*STDOUT);
+ exit(0);
+ }
+ }
+
+ return if not $top and $disposition eq 'attachment' and not defined($att);
+ return unless ($type =~ m[^text/?] and
+ $type !~ m[^text/(?:html|enriched)(?:;|$)]) or
+ $type =~ m[^application/pgp(?:;|$)] or
+ $entity->parts;
+
+ if ($entity->is_multipart) {
+ my @parts = $entity->parts;
+ foreach my $part (@parts) {
+ display_entity($part, $ref, 0, $xmessage,
+ $$this, @$attachments);
+ $$this .= "\n";
+ }
+ } elsif ($entity->parts) {
+ # We must be dealing with a nested message.
+ $$this .= "<blockquote>\n";
+ my @parts = $entity->parts;
+ foreach my $part (@parts) {
+ display_entity($part, $ref, 1, $xmessage,
+ $$this, @$attachments);
+ $$this .= "\n";
+ }
+ $$this .= "</blockquote>\n";
+ } else {
+ if (not $terse) {
+ my $content_type = $entity->head->get('Content-Type:') || "text/html";
+ my ($charset) = $content_type =~ m/charset\s*=\s*\"?([\w-]+)\"?/i;
+ my $body = $entity->bodyhandle->as_string;
+ $body = convert_to_utf8($body,$charset) if defined $charset;
+ $body = htmlsanit($body);
+ $body =~ s,((ftp|http|https)://[\S~-]+?/?)((\>\;)?[)]?[']?[:.\,]?(\s|$)),<a href=\"$1\">$1</a>$3,go;
+ # The basic idea here is that we take every subpart of
+ # this regex; if it's a digit, it's a bug number, so link
+ # it; otherwise it's some other part, so kick it back
+ # out.
+ our @bugs;
+ $body =~ s[(?:(closes:\s*(?:bug)?\#?\s?)(?{ push @bugs, $^N })) #This sticks the recently closed parenthetical into @bugs
+ (?:(\d+)(?{ push @bugs, $^N }))(?:(?:(,?\s*(?:bug)?\#?\s?)(?{push @bugs, $^N }))(?:(\d+)(?{ push @bugs, $^N })))*
+ ][join('',map {/^\d+$/?(q(<a href=").bugurl($_).qq(">$_</a>)):$_} splice @bugs)]gxie;
+ $$this .= qq(<pre class="message">$body</pre>\n);
+ }
+ }
+}
+
+my %maintainer = %{getmaintainers()};
+my %pkgsrc = %{getpkgsrc()};