My program, which worked under mod_perl/1.23 and perl5.500502 does not
work anymore:
I fork a program with Open3, send it some input and catch its output.
The output is OK, but the program does not get the input:
...
my $cgi_in = Apache::File->new;
my $cgi_out = Apache::File->new;
my $cgi_error = Apache::File->new;
...
my $child = open3 ($cgi_in, $cgi_out, $cgi_error, $filename);
...
if ($post) {
my $len = $r->header_in ('Content-length');
while ($len) {
my $content;
my $size = min ($len, 4096);
$r->read ($content, $size);
$r->log->debug ("content: <$content>");
print $cgi_in $content; # this statement does not work
$len -= $size;
}
}
close ($cgi_in);
...
IPC:Open3 works on my system, and I can print to files from my mod_perl
script. I tried the syswrite call, too.
Any comments, solutions?
Thanx
Peter