From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 12183 invoked from network); 23 Mar 2005 15:33:06 -0000 Received: from unknown (HELO lists.gnu.org) (199.232.76.165) by sourceware.org with SMTP; 23 Mar 2005 15:33:06 -0000 Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DE869-0003Yj-Ej for listarch-gnats-devel@sources.redhat.com; Wed, 23 Mar 2005 10:48:45 -0500 Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DE84D-0002d0-Gr for help-gnats@gnu.org; Wed, 23 Mar 2005 10:46:46 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DE844-0002Xh-7J for help-gnats@gnu.org; Wed, 23 Mar 2005 10:46:38 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DE843-0002Uz-Dq for help-gnats@gnu.org; Wed, 23 Mar 2005 10:46:35 -0500 Received: from [206.158.104.138] (helo=mail.rrinc.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DE7jh-0004wZ-9z for help-gnats@gnu.org; Wed, 23 Mar 2005 10:25:33 -0500 Received: from 127.0.0.1 (localhost [127.0.0.1]) by dummy.domain.name (Postfix) with SMTP id E2DDFA0D19 for ; Wed, 23 Mar 2005 10:25:32 -0500 (EST) Received: from [191.173.42.9] (twix.rrinc.com [191.173.42.9]) by mail.rrinc.com (Postfix) with ESMTP id 99AA9A0D18 for ; Wed, 23 Mar 2005 10:25:32 -0500 (EST) Mime-Version: 1.0 (Apple Message framework v619.2) Content-Transfer-Encoding: 7bit Message-Id: Content-Type: text/plain; charset=US-ASCII; format=flowed To: help-gnats@gnu.org From: Tim Buck Date: Wed, 23 Mar 2005 16:17:00 -0000 X-Mailer: Apple Mail (2.619.2) Subject: Patch to gnatsweb.pl to display the new PR # X-BeenThere: help-gnats@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General discussion about GNU GNATS List-Archive: List-Post: List-Help: List-Subscribe: , Sender: help-gnats-bounces+listarch-gnats-devel=sources.redhat.com@gnu.org Errors-To: help-gnats-bounces+listarch-gnats-devel=sources.redhat.com@gnu.org X-SW-Source: 2005-q1/txt/msg00085.txt.bz2 Since GNATS now returns the newly-assigned PR number when a new PR is filed, I've made some changes to our gnatsweb.pl to use this information. This change will cause gnatsweb.pl to display a link to the newly-created PR in the submitnewpr feedback message. My revision numbers and line numbers are vastly different from those in the official repository, because we have made so many local revisions to gnatsweb -- my apologies for that. RCS file: /cvs/root/systems/gnu/gnatsweb/gnatsweb.pl,v retrieving revision 1.124 diff -u -p -r1.124 gnatsweb.pl --- gnatsweb.pl 18 Mar 2005 15:11:02 -0000 1.124 +++ gnatsweb.pl 23 Mar 2005 14:49:01 -0000 @@ -1611,7 +1611,12 @@ EOT client_cmd("$text."); client_cmd ("subm"); - client_cmd("$text."); + # Get returned new PR number + my $new_prnum = join(" ",client_cmd("$text.")) || ''; + # Strip off extra space at the end + $new_prnum =~ s/([0-9]+).*/$1/; + # How about a URL pointing us to it? + my $new_pr_url = get_viewpr_url($new_prnum); my $return_url = $q->param('return_url') || get_script_name(); my $refresh = 5; @@ -1631,11 +1636,10 @@ EOT # Give feedback for success page_heading($page, 'Problem Report Sent'); - print "

Thank you for your report. It will take a short while for -your report to be processed. When it is, you will receive -an automated message about it, containing the Problem Report -number, and the developer who has been assigned to -investigate the problem.

"; + print "

Thank you for your report. It has been assigned +PR #$new_prnum. You will receive an automated +message about it, containing the Problem Report number, and the developer who +has been assigned to investigate the problem.

\n"; print "

You will be returned to your previous page in $refresh seconds...

"; Tim Buck * Information Technology Manager * Recognition Research, Inc. PHONE +1 540 961-6500 * FAX +1 540 961-3568 * EMAIL tbuck@rrinc.com No one ever went broke underestimating the intelligence of the American People -- P. T. Barnum _______________________________________________ Help-gnats mailing list Help-gnats@gnu.org http://lists.gnu.org/mailman/listinfo/help-gnats