Return-Path: 
 <test-cvs-return-1139-apmail-httpd-test-cvs-archive=httpd.apache.org@httpd.apache.org>
Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org
Received: (qmail 17515 invoked by uid 500); 15 May 2002 02:50:39 -0000
Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
list-help: <mailto:test-cvs-help@httpd.apache.org>
list-unsubscribe: <mailto:test-cvs-unsubscribe@httpd.apache.org>
list-post: <mailto:test-cvs@httpd.apache.org>
Delivered-To: mailing list test-cvs@httpd.apache.org
Received: (qmail 17503 invoked from network); 15 May 2002 02:50:38 -0000
Date: 15 May 2002 02:50:37 -0000
Message-ID: <20020515025037.46939.qmail@icarus.apache.org>
From: dougm@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache
 TestReport.pm TestReportPerl.pm
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

dougm       02/05/14 19:50:37

  Modified:    perl-framework/Apache-Test/lib/Apache TestReport.pm
                        TestReportPerl.pm
  Log:
  fix email address in t/REPORT when generated by TestReportPerl
  
  Revision  Changes    Path
  1.5       +16 -3     httpd-test/perl-framework/Apache-Test/lib/Apache/TestReport.pm
  
  Index: TestReport.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestReport.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- TestReport.pm	14 May 2002 23:44:22 -0000	1.4
  +++ TestReport.pm	15 May 2002 02:50:37 -0000	1.5
  @@ -33,6 +33,20 @@
   
   sub build_config_as_string { Apache::TestConfig::as_string() }
   
  +sub report_to { 'test-dev@httpd.apache.org' }
  +
  +sub postit_note {
  +    my $self = shift;
  +
  +    my($to, $where) = split '@', $self->report_to;
  +
  +    return <<EOF;
  +Note: Complete the rest of the details and post this bug report to
  +$to <at> $where. To subscribe to the list send an empty
  +email to $to-subscribe\@$where.
  +EOF
  +}
  +
   1;
   __DATA__
   
  @@ -44,6 +58,7 @@
       CONFIG     => __CLASS__->build_config_as_string,
       EXECUTABLE => $0,
       DATE       => scalar gmtime() . " GMT",
  +    POSTIT_NOTE => __CLASS__->postit_note,
   );
   {
       local $/ = undef;
  @@ -72,6 +87,4 @@
   
   -------------8<---------- End Bug Report --------------8<----------
   
  -Note: Complete the rest of the details and post this bug report to
  -test-dev <at> httpd.apache.org. To subscribe to the list send an empty
  -email to test-dev-subscribe@httpd.apache.org.
  +@POSTIT_NOTE@
  
  
  
  1.4       +2 -0      httpd-test/perl-framework/Apache-Test/lib/Apache/TestReportPerl.pm
  
  Index: TestReportPerl.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestReportPerl.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestReportPerl.pm	14 May 2002 23:01:14 -0000	1.3
  +++ TestReportPerl.pm	15 May 2002 02:50:37 -0000	1.4
  @@ -14,5 +14,7 @@
       ModPerl::Config::as_string();
   }
   
  +sub report_to { 'modperl-dev@perl.apache.org' }
  +
   1;
   __END__