Re: gdb/1: first entry

[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....