This is the mail archive of the
gdb-prs@sources.redhat.com
mailing list for the GDB project.
Re: gdb/1: first entry
- From: Andrew Cagney <ac131313 at redhat dot com>
- To: nobody at sources dot redhat dot com
- Cc: gdb-prs at sources dot redhat dot com,
- Date: 24 Sep 2002 21:58:02 -0000
- Subject: Re: gdb/1: first entry
- Reply-to: Andrew Cagney <ac131313 at redhat dot com>
The following reply was made to PR gdb/1; it has been noted by GNATS.
From: Andrew Cagney <ac131313@redhat.com>
To: nobody@sources.redhat.com, cgf@redhat.com,
gdb-gnats@sources.redhat.com, gdb-prs@sources.redhat.com
Cc:
Subject: Re: gdb/1: first entry
Date: Tue, 24 Sep 2002 17:53:10 -0400
http://sources.redhat.com/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=gdb&pr=1
With mozilla, this wants to send to:
To: nobody@sources.redhat.com
To: cgf@redhat.com
To: gdb-gnats@sources.redhat.com
To: gdb-prs@sources.redhat.com?Subject=Re:
To: gdb/1:
Subject: Re: gdb/1: first entry
(Mozilla bug). The perl looks like:
sub get_mailto_link
{
my($pr,%fields) = @_;
my $mailto = $q->escape(scalar(interested_parties($pr, 1, %fields)));
my $subject = $q->escape("Re: $fields{'Category'}/$pr:
$fields{'Synopsis'}");
my $body = $q->escape(get_viewpr_url($pr));
return "<a href=\"mailto:$mailto?Subject=$subject&Body=$body\">"
. "send email to interested parties</a>\n";
}
sub interested_parties
{
my($pr, $include_gnats_addr, %fields) = @_;
# Gnats 3.110 has some problems in MLPR --
# * it includes the category's responsible person (even if that person
# is not responsible for this PR)
# * it does not include the PR's responsible person
# * it does not include the Reply-To or From
#
# So for now, don't use it. However, for versions after 3.110 my
# patch to the MLPR command should be there and this can be fixed.
my(@people);
my $person;
my $list;
## Get list from MLPR command.
#@people = client_cmd("mlpr $pr");
# Ignore intro message
#@people = grep(!/Addresses to notify/, @people);
# Get list of people by constructing it ourselves.
@people = ();
my(@prospect_list) = ($fields{'Reply-To'},
$fields{'Responsible'},
$fields{'X-GNATS-Notify'},
$category_notify{$fields{'Category'}},
$submitter_contact{$fields{'Submitter-Id'}},
$submitter_notify{$fields{'Submitter-Id'}});
push(@prospect_list, $config{'GNATS_ADDR'})
if $include_gnats_addr;
foreach $list (@prospect_list) {
if (defined($list)) {
foreach $person (split_csl ($list)) {
push(@people, $person) if $person;
}
}
}
# Expand any unexpanded addresses, and build up the %addrs hash.
my(%addrs) = ();
my $addr;
foreach $person (@people)
{
$addr = praddr($person) || $person;
$addrs{$addr} = 1;
}
return wantarray ? %addrs : join(', ', keys(%addrs));
}
and the bug contents are:
From anonymous@sourceware.cygnus.com Fri Oct 27 16:31:33 2000
Return-Path: <anonymous@sourceware.cygnus.com>
Received: (qmail 12231 invoked by uid 61); 27 Oct 2000 16:31:33 -0000
Message-Id: <20001027163133.12230.qmail@sourceware.cygnus.com>
Date: 27 Oct 2000 16:31:33 -0000
From: cgf@redhat.com
Reply-To: cgf@redhat.com
To: gdb-gnats@sources.redhat.com
Cc:
Subject: first entry
X-Send-Pr-Version: gnatsweb-2.6 (1.135)
X-GNATS-Notify:
>Number: 1
>Category: gdb
>Synopsis: first entry
>Confidential: no
>Severity: serious
>Priority: medium
>Responsible: unassigned
>State: open
>Class: sw-bug
>Submitter-Id: net
>Arrival-Date: Fri Oct 27 09:34:34 PDT 2000
>Closed-Date:
>Last-Modified:
>Originator: cgf@redhat.com
>Release: gdb 5.0
>Organization:
>Environment:
>Description:
Just a placeholder
>How-To-Repeat:
>Fix:
>Release-Note:
>Audit-Trail:
>Unformatted:
so lets see what happens....