From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <overseers-return-5451-listarch-overseers=sources.redhat.com@sources.redhat.com>
Received: (qmail 1520 invoked by alias); 2 Feb 2003 05:07:38 -0000
Mailing-List: contact overseers-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Archive: <http://sources.redhat.com/ml/overseers/>
List-Post: <mailto:overseers@sources.redhat.com>
List-Help: <mailto:overseers-help@sources.redhat.com>,
	<http://sources.redhat.com/ml/#faqs>
Sender: overseers-owner@sources.redhat.com
Received: (qmail 1486 invoked from network); 2 Feb 2003 05:07:24 -0000
Received: from unknown (HELO localhost.redhat.com) (24.157.209.173)
  by 172.16.49.205 with SMTP; 2 Feb 2003 05:07:24 -0000
Received: from redhat.com (localhost [127.0.0.1])
	by localhost.redhat.com (Postfix) with ESMTP id 7ECE13CB0
	for <overseers@sources.redhat.com>; Sun,  2 Feb 2003 00:07:18 -0500 (EST)
Message-ID: <3E3CA786.5080508@redhat.com>
Date: Sun, 02 Feb 2003 05:07:00 -0000
From: Andrew Cagney <ac131313@redhat.com>
User-Agent: Mozilla/5.0 (X11; U; NetBSD macppc; en-US; rv:1.0.1) Gecko/20021211
X-Accept-Language: en-us, en
MIME-Version: 1.0
To: overseers@sources.redhat.com
Subject: Add `add note' to list of urls
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-SW-Source: 2003-q1/txt/msg00244.txt.bz2

Hello,

I've added this to the src gnatsweb.pl interface.  It's my `I give up'
workaround to the xxx-prs@ mailto problem (you can't mailto it).

Does GCC want this?

Andrew

PS: GNATS 4 beta 2 is released

--------------070605060906030405020502
Content-Type: text/html;
  name="diffs"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
  filename="diffs"

2003-02-01  Andrew Cagney  <ac131313@redhat.com>

	* gnatsweb.pl (get_mailto_link): New function.
	(view): Print ``add note'' link.

Index: gnatsweb.pl
===================================================================
RCS file: /cvs/sourceware/cgi-bin/gnatsweb.pl,v
retrieving revision 1.40
diff -u -r1.40 gnatsweb.pl
--- gnatsweb.pl	2 Feb 2003 03:45:49 -0000	1.40
+++ gnatsweb.pl	2 Feb 2003 04:21:58 -0000
@@ -859,6 +859,24 @@
          . "send email to interested parties</a>\n";
  }

+# Return a link which sends email to PRMS
+sub get_addnote_link
+{
+  my($pr,%fields) = @_;
+
+  # NOTE: cagney/2003-01-31: Don't escape the interested parties
+  # e-mail list.  MOZILLA has a nasty bug were it doesn't re-adjust
+  # the e-mail list length after de-escaping it.  This causes MOZILLA
+  # to use "?Sub..." in the list of e-mail addresses.
+
+  my $mailto  = $config{'GNATS_ADDR'};
+
+  my $subject = $q->escape("Re: $fields{'Category'}/$pr: 
$fields{'Synopsis'}");
+
+  return "<a href=\"mailto:$mailto?Subject=$subject\">"
+        . "add note</a>\n";
+}
+
  # Look for text that looks like URLs and turn it into actual links.
  sub mark_urls
  {
@@ -903,8 +921,9 @@
    print $q->submit('cmd', 'edit')             if (can_edit());
    print " or "                                if (can_edit() && 
!$viewaudit);
    print $q->submit('cmd', 'view audit-trail') if (!$viewaudit);
-  print " or ",
-        get_mailto_link($pr, %fields), "</p>";
+  print " or ", get_addnote_link($pr, %fields);
+  print " or ", get_mailto_link($pr, %fields);
+  print "</p>";
    print $q->hr(),
          "<table>\n";
    print "<tr>\n<td><b>Reporter's email:</b></td>\n<td>",

--------------070605060906030405020502--