) { chop; $html_fixup = 1; if (/^query-pr: no PRs matched$/) { print "FreeBSD problem report \n"; print "No PR found matching $pr
\n"; exit; } if (/^From:\s*(.*)$/) { $from = $1; ($email = $from) =~ s/.*<(.*)>.*/$1/; $email =~ s/\s*\(.*\)\s*//; $email .= '@freebsd.org' unless ($email =~ /@/); } if (/^>Responsible:/) { $_ = &getline($_); s/\(.*\)//; # remove personal name s/\s+//g; $_ = $_ . '@freebsd.org' if !/@/; $_ = '>Responsible:' . $_ . ''; $html_fixup = 0; } s/^>Last-Modified:\s*$/>Last-Modified: never/; if(/^>Number:/) { $number = &getline($_); $inhdr = 0; } elsif (/^>Category:/) { $cat = &getline($_); } elsif (/^>Synopsis:/) { $syn = &getline($_); $syn =~ s/[\t]+/ /g; $syn = &fixline($syn); print "FreeBSD problem report $cat/$number "; print "Problem Report $cat/$number
\n"; print "$syn\n
\n"; } else { next if $inhdr; if (/^>(\S+):\s*(.*)/) { print $trailer . "\n"; print "
\n"; exit 0; sub getline { local($_) = @_; ($tag,$remainder) = split(/[ \t]+/, $_, 2); return $remainder; } sub fixline { local($line) = @_[0]; $line =~ s/&/&/g; $line =~ s//>/g; $line =~ s|(http://\S+)|$1|g; $line; }- $1
- \n"; $trailer = $2; $trailer = &fixline($2) if $html_fixup; if ($1 eq "Originator" && $from ne "") { # add email address $trailer .= " " . &fixline($from) . ""; } $multiline = 0; } else { unless ($multiline) { next if /^\s*$/; print $trailer . "\n
\n"; } $multiline = 1; print $html_fixup ? &fixline($_) : $_ , "\n"; $trailer = " "; } } } close(Q); print "$trailer\n