Add a link to get the PR in raw text format.

This would help get a PR via web to extract patches/shars in it handily. :)
This commit is contained in:
Akinori MUSHA 2000-07-28 21:21:20 +00:00
parent f638557183
commit 52499edf94
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=7746

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.19 2000/01/05 15:47:45 phantom Exp $
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.20 2000/01/16 02:46:36 chris Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -56,6 +56,13 @@ unless (open(Q, "query-pr --restricted -F $pr 2>&1 |")) {
die "Unable to query PR's";
}
if ($input{'f'} eq 'raw') {
print "Content-Type: text/plain\r\n\r\n";
print <Q>;
close(Q);
exit 0;
}
$inhdr = 1;
$multiline = 0;
$from = "";
@ -160,7 +167,7 @@ print "</dl>";
$origsyn =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg;
$email =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg;
print "<A HREF=\"mailto:freebsd-gnats-submit\@FreeBSD.org,${email}?subject=Re:%20${cat}/${number}:%20$origsyn\">Submit Followup</A>\n";
print qq`<A HREF="mailto:freebsd-gnats-submit\@FreeBSD.org,${email}?subject=Re:%20${cat}/${number}:%20$origsyn">Submit Followup</A> | <A HREF="./query-pr.cgi?pr=$pr&amp;f=raw">Raw PR</A>\n`;
print &html_footer;