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 { '[EMAIL PROTECTED]' }
+
+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 [EMAIL PROTECTED]
+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 [EMAIL PROTECTED]
[EMAIL PROTECTED]@
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 { '[EMAIL PROTECTED]' }
+
1;
__END__
