Hello,
First, thank you very much for your time & consideration of this problem,
Have been trying to resolve an issue without success. The issue I'm seeing is
that calling the same script several times within a SSI-parsed file causes each
invocation of the script to produce the same result even though different
results should be seen.
To clarify, please find inlined below an example SSI-parsed file and script:
<!-- file test.shtml -->
<html>
<head></head>
<body>
<!--#include virtual="/cgi-bin/test.cgi?count=5"-->
<!--#include virtual="/cgi-bin/test.cgi?count=10"-->
<!--#include virtual="/cgi-bin/test.cgi?count=30"-->
</body>
<html>
#!/usr/bin/perl -w
# test.cgi
use strict;
use CGI qw(-compile :all);
my $count = param('count');
my $a = 0;
print header;
while ( $a < $count) {
print ++$a;
}
When run from the default /var/www/cgi-bin/ directory, execution works
as expected; results are 1..5, 1..10 and 1..30. However, when the executable
is run from the ModPerl Registry directory
below, each invocation counts only to 5.
<Directory /var/www/registry>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
# PerlOptions +ParseHeaders (prevented 2+ invocations)
Options +ExecCGI
</Directory>
Sure seems like "something" is caching part or all of the command/param.
Hoping to find out what.
Once again, thanks for your time & consideration.
Note: previously posted at: http://www.perlmonks.org/?node_id=945804
Best regards,
- -
Brett Lee
Encrypt your data with PDS - http://crypto.brettlee.com/
