os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

During the temporary period, drop the footer on the gnats PRs.

Browse source
This commit is contained in:
Eitan Adler 2014-06-08 08:00:18 +00:00
parent a6edaa5c23
commit d02894ff5e
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/head/; revision=45027
1 changed files with 1 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
en_US.ISO8859-1/htdocs/cgi/query-pr.cgi
View file

@ -861,42 +861,7 @@ sub FooterLinks
my $url = $q->url(-full => 1, -query => 1);
my $pr = $q->escapeHTML($gnatspr->FieldSingle('Number'));
my $cat = $q->escapeHTML($gnatspr->FieldSingle('Category'));
my $synopsis = $q->escapeHTML($gnatspr->FieldSingle('Synopsis'));
my $mail = $gnatspr->Header('From');
# Try to extract just the e-mail address from the 'From' header
if ($mail) {
$mail =~ s/^\s*(.*)\s*$/$1/;
$mail =~ s/.*<(.*)>.*/$1/;
$mail =~ s/\s*\(.*\)\s*//;
}
my $replyto = $gnatspr->Header('Reply-To');
# ... same with the 'Reply-To' header
if ($replyto) {
$replyto =~ s/^\s*(.*)\s*$/$1/;
$replyto =~ s/.*<(.*)>.*/$1/;
$replyto =~ s/\s*\(.*\)\s*//;
}
# Prefer 'Reply-To' if present
$mail = $replyto if ($replyto);
$mail .= '@FreeBSD.org' unless ($mail =~ /@/);
# Prepare for mailto: link
$synopsis =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg;
$mail =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg;
my $maillink = 'mailto:bug-followup@FreeBSD.org,'
. "$mail?subject=Re:%20$cat/$pr:%20$synopsis";
return $q->div({-class => 'footerlinks'},
$q->a({-href => $maillink}, 'Submit Followup')
. ' | ' . $q->a({-href => $url . '&f=raw'}, 'Raw PR')
. ' | ' . $q->a({-href => 'query-pr-summary.cgi?query'}, 'Find another PR')
. $q->a({-href => $url . '&f=raw'}, 'Raw PR')
);
}