| use strict; |
| |
| #XXX: this test needs to be more robust. |
| #various output buffers spread across multiple prints |
| #more mod_include features mixed and checking that the output |
| #is *exactly* what we expected, not just matching a few patterns. |
| |
| print "Content-type: text/html\n\n"; |
| |
| my $r = shift; |
| |
| my $test_string = 'Perl-SSI'; |
| |
| $r->subprocess_env->set(MY_TEST => $test_string); |
| |
| print <<EOF; |
| Hello World from <!--#echo var="SERVER_ADMIN" --><br> |
| Local date is <!--#echo var="DATE_LOCAL" --><br> |
| Brought to you by <!--#echo var="MY_TEST" --> |
| <!--#echo var="SERVER_SOFTWARE" --> |
| <br> |
| EOF |
| |