Date: Sun, 8 Jun 2014 08:00:18 +0000 (UTC) From: Eitan Adler <eadler@FreeBSD.org> To: doc-committers@freebsd.org, svn-doc-all@freebsd.org, svn-doc-head@freebsd.org Subject: svn commit: r45027 - head/en_US.ISO8859-1/htdocs/cgi Message-ID: <201406080800.s5880IP3020931@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: eadler Date: Sun Jun 8 08:00:18 2014 New Revision: 45027 URL: http://svnweb.freebsd.org/changeset/doc/45027 Log: During the temporary period, drop the footer on the gnats PRs. Modified: head/en_US.ISO8859-1/htdocs/cgi/query-pr.cgi Modified: head/en_US.ISO8859-1/htdocs/cgi/query-pr.cgi ============================================================================== --- head/en_US.ISO8859-1/htdocs/cgi/query-pr.cgi Sun Jun 8 06:41:05 2014 (r45026) +++ head/en_US.ISO8859-1/htdocs/cgi/query-pr.cgi Sun Jun 8 08:00:18 2014 (r45027) @@ -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') ); }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201406080800.s5880IP3020931>