You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2002/04/09 06:07:42 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestReportPerl.pm TestReport.pm
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