httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestReportPerl.pm TestReport.pm
Date Tue, 09 Apr 2002 04:07:42 GMT
stas        02/04/08 21:07:42

  Modified:    perl-framework/Apache-Test/lib/Apache TestReportPerl.pm
                        TestReport.pm
  Log:
  - report the datetime the report was generated and the executable creating
  it
  - use @@ instead of [] for placeholders
  
  Revision  Changes    Path
  1.2       +11 -5     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.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TestReportPerl.pm	31 Dec 2001 08:44:23 -0000	1.1
  +++ TestReportPerl.pm	9 Apr 2002 04:07:42 -0000	1.2
  @@ -33,30 +33,36 @@
   
   use ModPerl::Config ();
   
  -my $env = ModPerl::Config::as_string();
  +my %map = (
  +    CONFIG     => ModPerl::Config::as_string(),
  +    EXECUTABLE => $0,
  +    DATE       => scalar gmtime() . " GMT",
  +);
   {
       local $/ = undef;
       my $template = <DATA>;
  -    $template =~ s/\[CONFIG\]/$env/;
  +    $template =~ s/\@(\w+)\@/$map{$1}||''/eg;
       print $template;
   }
   
   __DATA__
   
  --------------8<----------Start Bug Report ------------8<----------
  +-------------8<---------- Start Bug Report ------------8<----------
   1. Problem Description:
   
     [DESCRIBE THE PROBLEM HERE]
   
   2. Used Components and their Configuration:
   
  -[CONFIG]
  +@CONFIG@
   
   3. This is the core dump trace: (if you get a core dump):
   
     [CORE TRACE COMES HERE]
   
  --------------8<----------End Bug Report --------------8<----------
  +This report was generated by @EXECUTABLE@ on @DATE@.
  +
  +-------------8<---------- End Bug Report --------------8<----------
   
   Note: Complete the rest of the details and post this bug report to dev
   <at> perl.apache.org. To subscribe to the list send an empty email to
  
  
  
  1.2       +11 -5     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.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TestReport.pm	31 Dec 2001 08:44:23 -0000	1.1
  +++ TestReport.pm	9 Apr 2002 04:07:42 -0000	1.2
  @@ -29,31 +29,37 @@
   
   use Apache::TestConfig ();
   
  -my $env = Apache::TestConfig::as_string();
  +my %map = (
  +    CONFIG     => Apache::TestConfig::as_string(),
  +    EXECUTABLE => $0,
  +    DATE       => scalar gmtime() . " GMT",
  +);
   {
       local $/ = undef;
       my $template = <DATA>;
  -    $template =~ s/\[CONFIG\]/$env/;
  +    $template =~ s/\@(\w+)\@/$map{$1}||''/eg;
       print $template;
   }
   
   __DATA__
   
   
  --------------8<----------Start Bug Report ------------8<----------
  +-------------8<---------- Start Bug Report ------------8<----------
   1. Problem Description:
   
     [DESCRIBE THE PROBLEM HERE]
   
   2. Used Components and their Configuration:
   
  -[CONFIG]
  +@CONFIG@
   
   3. This is the core dump trace: (if you get a core dump):
   
     [CORE TRACE COMES HERE]
   
  --------------8<----------End Bug Report --------------8<----------
  +This report was generated by @EXECUTABLE@ on @DATE@.
  +
  +-------------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
  
  
  

Mime
View raw message